|
|
| (не показаны 2 промежуточные версии этого же участника) |
| Строка 2: |
Строка 2: |
| | Выгрузка изделий и товаров на весы CAS | | Выгрузка изделий и товаров на весы CAS |
| | [[EXPORTTOCAS]]() | | [[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
| |
| | = Смотрите также = | | = Смотрите также = |
| | [[Выгрузить изделия и товары на весы CAS]] | | [[Выгрузить изделия и товары на весы CAS]] |
