EXPORTTOCAS — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 18: | Строка 18: | ||
[[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _0, _1 ) ] + sql, ReflisPath ) | [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _0, _1 ) ] + sql, ReflisPath ) | ||
// r08 | // r08 | ||
| − | sql := [ Select TOP 100 PERCENT 'R08', KOD From [[R08]] Where KODED = ] + r09_kod + [ Order by KOD ] | + | sql := [ Select TOP 100 PERCENT '[[R08]]', KOD From [[R08]] Where KODED = ] + r09_kod + [ Order by KOD ] |
// sql := [ Select TOP 1 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ] | // sql := [ Select TOP 1 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ] | ||
| − | SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1 ) ] + sql, ReflisPath ) | + | [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _0, _1 ) ] + sql, ReflisPath ) |
| − | ( _ )->( DbGoTop() ) | + | ( _ )->( [[DbGoTop]]() ) |
| − | while !( _ )->( eof() ) | + | while !( _ )->( [[eof]]() ) |
| − | WaitMsg( a_s( ( _ )->_1 ) , msg ) | + | [[WaitMsg]]( [[a_s]]( ( _ )->_1 ) , msg ) |
| − | ( _ )->_2 := Left( RealName( ( _ )->_0, ( _ )->_1 ), 20 ) | + | ( _ )->_2 := [[Left]]( [[RealName]]( ( _ )->_0, ( _ )->_1 ), 20 ) |
| − | ( _ )->_3 := SUBSTR( RealName( ( _ )->_0, ( _ )->_1 ), 21, 20 ) | + | ( _ )->_3 := [[SUBSTR]]( [[RealName]]( ( _ )->_0, ( _ )->_1 ), 21, 20 ) |
( _ )->_4 := 10 * 0 | ( _ )->_4 := 10 * 0 | ||
( _ )->_5 := 10 | ( _ )->_5 := 10 | ||
| − | if ( _ )->_0 = 'R11 ' | + | if ( _ )->_0 = '[[R11]] ' |
( _ )->_6 := 22 | ( _ )->_6 := 22 | ||
( _ )->_7 := ( _ )->_1 + 100000 | ( _ )->_7 := ( _ )->_1 + 100000 | ||
else | else | ||
| − | // у товаров PLU совпадает с кодом в справочнике R08 | + | // у товаров PLU совпадает с кодом в справочнике [[R08]] |
( _ )->_6 := 21 | ( _ )->_6 := 21 | ||
( _ )->_7 := ( _ )->_1 | ( _ )->_7 := ( _ )->_1 | ||
endif | endif | ||
| − | ( _ )->( DbSkip() ) | + | ( _ )->( [[DbSkip]]() ) |
end | end | ||
| − | ( _ )->( DbGoTop() ) | + | ( _ )->( [[DbGoTop]]() ) |
fld := { '_1', '_2', '_3', '_4', '_5', '_6', '_22', '_7' } | fld := { '_1', '_2', '_3', '_4', '_5', '_6', '_22', '_7' } | ||
| − | sql := [ Select _1, _2, _3, _4, _5, _6, Left( _2, 2 ) _22, _7 From ] + TmpFilePath( _ ) | + | sql := [ Select _1, _2, _3, _4, _5, _6, [[Left]]( _2, 2 ) _22, _7 From ] + [[TmpFilePath]]( _ ) |
| − | aa := SqlToArr( sql, fld ) | + | aa := [[SqlToArr]]( sql, fld ) |
finally | finally | ||
| − | CloseTable( _ ) | + | [[CloseTable]]( _ ) |
| − | HideMsg( msg ) | + | [[HideMsg]]( msg ) |
end | end | ||
| − | ip_scales := GetPrm( 'IP_SCALES', 'SHOPOPER', 1 ) | + | ip_scales := [[GetPrm]]( 'IP_SCALES', 'SHOPOPER', 1 ) |
| − | EXPORTTOSCALESCAS( ip_scales, 20304, aa ) | + | [[EXPORTTOSCALESCAS]]( ip_scales, 20304, aa ) |
// ExportToScales( { 1,,,, ip_scales, 1111, 2000, 500 }, aa ) | // ExportToScales( { 1,,,, ip_scales, 1111, 2000, 500 }, aa ) | ||
| − | Message( 'Изделия и товары успешно выгружены на весы' ) | + | [[Message]]( 'Изделия и товары успешно выгружены на весы' ) |
// EXPORTTOSCALESCAS( "192.168.234.202", 20304, { { 4202, "Томаты", "пальчиковые", 68.35, 10, 21, "АЯ47", 1 } } ) | // EXPORTTOSCALESCAS( "192.168.234.202", 20304, { { 4202, "Томаты", "пальчиковые", 68.35, 10, 21, "АЯ47", 1 } } ) | ||
// _0 справочник | // _0 справочник | ||
| Строка 59: | Строка 59: | ||
// _6 код группы товаров | // _6 код группы товаров | ||
// _7 PLU | // _7 PLU | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Выгрузить изделия и товары на весы CAS]] | [[Выгрузить изделия и товары на весы CAS]] | ||
Версия 15:27, 14 июня 2017
EXPORTTOCAS - это программа из справочника R266
Выгрузка изделий и товаров на весы CAS
EXPORTTOCAS()
Текст
if !YesNo( 'Выгрузить изделия и товары на весы CAS?', false ) return endif local fld, _, r09_kod, aa, sql, msg, ip_scales fld := ' _0,C,4; _1,N,6; _2,C,20; _3,C,20; _4,N,14,4; _5,N,5; _6,N,5; _7,N,6; ' // возвращаем код кг из справочника R09 r09_kod := R09_KOD_KG() try WaitMsg( 'Подготовка справочника изделий и товаров', msg ) _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) // r11 sql := [ Select TOP 100 PERCENT 'R11', KOD From R11 Where KODED = ] + r09_kod + [ Order by KOD ] // sql := [ Select TOP 1 'R11', KOD From R11 Where KODED = ] + r09_kod + [ Order by KOD ] SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1 ) ] + sql, ReflisPath ) // r08 sql := [ Select TOP 100 PERCENT 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ] // sql := [ Select TOP 1 'R08', KOD From R08 Where KODED = ] + r09_kod + [ Order by KOD ] SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _0, _1 ) ] + sql, ReflisPath ) ( _ )->( DbGoTop() ) while !( _ )->( eof() ) WaitMsg( a_s( ( _ )->_1 ) , msg ) ( _ )->_2 := Left( RealName( ( _ )->_0, ( _ )->_1 ), 20 ) ( _ )->_3 := SUBSTR( RealName( ( _ )->_0, ( _ )->_1 ), 21, 20 ) ( _ )->_4 := 10 * 0 ( _ )->_5 := 10 if ( _ )->_0 = 'R11 ' ( _ )->_6 := 22 ( _ )->_7 := ( _ )->_1 + 100000 else // у товаров PLU совпадает с кодом в справочнике R08 ( _ )->_6 := 21 ( _ )->_7 := ( _ )->_1 endif ( _ )->( DbSkip() ) end ( _ )->( DbGoTop() ) fld := { '_1', '_2', '_3', '_4', '_5', '_6', '_22', '_7' } sql := [ Select _1, _2, _3, _4, _5, _6, Left( _2, 2 ) _22, _7 From ] + TmpFilePath( _ ) aa := SqlToArr( sql, fld ) finally CloseTable( _ ) HideMsg( msg ) end ip_scales := GetPrm( 'IP_SCALES', 'SHOPOPER', 1 ) EXPORTTOSCALESCAS( ip_scales, 20304, aa ) // ExportToScales( { 1,,,, ip_scales, 1111, 2000, 500 }, aa ) Message( 'Изделия и товары успешно выгружены на весы' ) // EXPORTTOSCALESCAS( "192.168.234.202", 20304, { { 4202, "Томаты", "пальчиковые", 68.35, 10, 21, "АЯ47", 1 } } ) // _0 справочник // _1 код изделия // _2 название строка 1 // _3 название строка 2 // _4 цена // _5 срок годности в днях // _6 код группы товаров // _7 PLU
