NAK 171120

NAK_171120 - это программа из справочника R221

ПЕКО Сведения по расходу сырья на выработку

Текст

<OPENPIPELINE>
local fld, pac4, _, pac5, msg
fld := ' _1,N,5; _2,C,30; _3,N,14,4; _4,N,14,4; _5,N,5; _6,C,30; _7,N,14,4; '
_ := CreateTmpFile( fld, '_', ~IsFreeDel := true, ~Own := PrintForm() )
try
  pac4 := OPENCHILDDOC( 'PAC', '4', RGNUM )
  ( pac4 )->( DBGOTOP() )
  while !( pac4 )->( EOF() )
    if !EMPTY( ( pac4 )->PAIN_AMNT )
      WAITMSG( REALNAME( 'R11', ( pac4 )->DANAL2 ), msg )
      ( _ )->( DBAPPEND() )
      ( _ )->_1 := ( pac4 )->DANAL2
      ( _ )->_2 := LEFT( REALNAME( 'R11', ( _ )->_1 ) , 30 )
      ( _ )->_3 := ( pac4 )->REALISSUE
      ( _ )->_4 := ( pac4 )->AMNT
      try
        pac5 := OPENCHILDDOC( 'PAC', '5', ( pac4 )->RGNUM,, ( pac4 )->( GETFORM( GETAREA() ) ) )
        ( pac5 )->( DBGOTOP() )
        ( _ )->_5 := ( pac5 )->KANAL2
        ( _ )->_6 := LEFT( REALNAME( ( pac5 )->KREFL2, ( pac5 )->KANAL2 ) , 30 )
        ( _ )->_7 := ( pac5 )->AMNT
        ( pac5 )->( DBSKIP() )
        while !( pac5 )->( EOF() )
          if !EMPTY( ( pac5 )->AMNT )
            ( _ )->( DBAPPEND() )
            ( _ )->_5 := ( pac5 )->KANAL2
            ( _ )->_6 := LEFT( REALNAME( ( pac5 )->KREFL2, ( pac5 )->KANAL2 ) , 30 )
            ( _ )->_7 := ( pac5 )->AMNT
          endif
          ( pac5 )->( DBSKIP() )
        end
      finally
        CLOSEFORM( ( pac5 )->( GETFORM( GETAREA() ) ), true )
      end
    endif
    ( pac4 )->( DBSKIP() )
  end
finally
  CLOSEFORM( ( pac4 )->( GETFORM( GETAREA() ) ), true )
  HIDEMSG( msg )
end
INV19_EXCEL_2( _ )
( _ )->( DBGOTOP() )
EXCELREPORT( 'nak_171120.xltx',, _ )
// Код    Наименование    Выход    Код    Наименование    Количество

// _1 изделие код // _2 изделие имя // _3 выход // _4 выработано штук // _5 сырье код // _6 сырье имя // _7 количество // _8 // _9 // _0

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

PAC1