|
|
| Строка 1: |
Строка 1: |
| | [[NAK_171120]] - это программа из справочника [[R221]] | | [[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]] | | [[PAC1]] |
