NAK 171120 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 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]] | ||
Версия 08:09, 22 ноября 2017
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
