R10 ORL 20170608 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «R10_ORL_20170608 - это бланк из справочника R221 - = ЦЕННИКИ ( 9 магазин ) с учетом выделенных стр…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[R10_ORL_20170608]] - это бланк из справочника [[R221]] | [[R10_ORL_20170608]] - это бланк из справочника [[R221]] | ||
- = ЦЕННИКИ ( 9 магазин ) с учетом выделенных строк = - | - = ЦЕННИКИ ( 9 магазин ) с учетом выделенных строк = - | ||
| + | = Программа = | ||
| + | <LABEL2/GETTEXT> | ||
| + | result := SeekRef( DREFL2, DANAL2, 'KOD_PLU', 1 ) | ||
| + | if Empty( result ) | ||
| + | result := '' | ||
| + | else | ||
| + | result := 'PLU ' + result | ||
| + | endif | ||
| + | // alc | ||
| + | if Empty( result ) and DREFL2 = 'R08 ' and SeekRef( 'R08', DANAL2, 'ALCVOLUME', 1 )>0 | ||
| + | result := 'Креп. ' + SeekRef( 'R08', DANAL2, 'ALCVOLUME', 1 ) + ' ' + R11WGHT(danal2,"R08") +" л" | ||
| + | endif | ||
| + | if Empty( result ) | ||
| + | result := '' | ||
| + | endif | ||
| + | <LABEL3/GETTEXT> | ||
| + | local r20_kod | ||
| + | r20_kod := GetPrm( 'TASKANAL', TaskName, TaskNum ) | ||
| + | if r20_kod = 2509 | ||
| + | result := 'Магазин 9' | ||
| + | endif | ||
| + | if r20_kod = 2511 | ||
| + | result := 'Магазин 11' | ||
| + | endif | ||
| + | result := REALNAME( DREFL1, DANAL1 ) | ||
| + | <LABEL6/GETTEXT> | ||
| + | result := SeekRef( 'R08', Danal2, 'MADE_IN', 1 ) | ||
| + | <LABEL4/GETTEXT> | ||
| + | // local alc_volume, sql | ||
| + | // alc_volume := '' | ||
| + | // sql := [ Select ALCVOLUME From R08 Where KOD = ] + KOD | ||
| + | // alc_volume := SqlToArr( sql,, ReflisPath ) | ||
| + | // if !Empty( alc_volume ) | ||
| + | // alc_volume := 'Крепость ' + alc_volume + '%' | ||
| + | // else | ||
| + | // alc_volume := '' | ||
| + | // endif | ||
= Смотрите также = | = Смотрите также = | ||
[[R221]] | [[R221]] | ||
Версия 08:52, 31 января 2018
R10_ORL_20170608 - это бланк из справочника R221
- = ЦЕННИКИ ( 9 магазин ) с учетом выделенных строк = -
Программа
<LABEL2/GETTEXT> result := SeekRef( DREFL2, DANAL2, 'KOD_PLU', 1 ) if Empty( result ) result := else result := 'PLU ' + result endif // alc if Empty( result ) and DREFL2 = 'R08 ' and SeekRef( 'R08', DANAL2, 'ALCVOLUME', 1 )>0 result := 'Креп. ' + SeekRef( 'R08', DANAL2, 'ALCVOLUME', 1 ) + ' ' + R11WGHT(danal2,"R08") +" л" endif if Empty( result ) result := endif <LABEL3/GETTEXT> local r20_kod r20_kod := GetPrm( 'TASKANAL', TaskName, TaskNum ) if r20_kod = 2509 result := 'Магазин 9' endif if r20_kod = 2511 result := 'Магазин 11' endif result := REALNAME( DREFL1, DANAL1 ) <LABEL6/GETTEXT> result := SeekRef( 'R08', Danal2, 'MADE_IN', 1 ) <LABEL4/GETTEXT> // local alc_volume, sql // alc_volume := // sql := [ Select ALCVOLUME From R08 Where KOD = ] + KOD // alc_volume := SqlToArr( sql,, ReflisPath ) // if !Empty( alc_volume ) // alc_volume := 'Крепость ' + alc_volume + '%' // else // alc_volume := // endif
