R10 ORL 20170608

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

Смотрите также

R221