NAT 09 12 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Полный текст программы) |
Hisava (обсуждение | вклад) м |
||
| (не показано 7 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | NAT_09_12 - это программа из справочника [[R266]] | + | [[NAT_09_12]] - это программа из справочника [[R266]] |
| + | Добавление заказа на перемещение | ||
| + | [[NAT_09_12]]( r466_kod, id, ga, numdoc, docs1_danal1 ) | ||
| − | + | Вызывается из документа [[NAT]] ( уровень 2 ) по CTRL+F10 | |
| − | + | ||
| − | + | ||
| − | + | ||
| − | Вызывается из документа NAT ( уровень 2 ) по CTRL+F10 | + | |
r466_kod - завод, который производит продукцию | r466_kod - завод, который производит продукцию | ||
| Строка 16: | Строка 14: | ||
docs1_danal1 - код филиала, который будет отгружать продукцию | docs1_danal1 - код филиала, который будет отгружать продукцию | ||
| − | + | = Текст = | |
| − | = | + | |
| − | + | ||
parameters r466_kod, id, ga, numdoc, docs1_danal1 | parameters r466_kod, id, ga, numdoc, docs1_danal1 | ||
local sql, aa, num, fld, r20_kod, r20_name, ArValues, zak1 | local sql, aa, num, fld, r20_kod, r20_name, ArValues, zak1 | ||
| − | r20_kod := SeekRef( 'R466', r466_kod, 'R20_KOD', 1 ) | + | r20_kod := [[SeekRef]]( '[[R466]]', r466_kod, 'R20_KOD', 1 ) |
| − | r20_name := RealName( 'R20', r20_kod ) | + | r20_name := [[RealName]]( '[[R20]]', r20_kod ) |
// NAT | // NAT | ||
| Строка 34: | Строка 30: | ||
if !IsEmpty( aa ) | if !IsEmpty( aa ) | ||
fld := { 'DATDOC', 'DANAL2', 'D2NAME', 'CATTR6', 'NATTR7' } | fld := { 'DATDOC', 'DANAL2', 'D2NAME', 'CATTR6', 'NATTR7' } | ||
| − | ArValues := {{ id, r20_kod, r20_name, '12.00', docs1_danal1 }} | + | ArValues := { { id, r20_kod, r20_name, '12.00', docs1_danal1 } } |
if Empty( numdoc ) | if Empty( numdoc ) | ||
// Заказ на перемещение, уровень 1 | // Заказ на перемещение, уровень 1 | ||
| Строка 50: | Строка 46: | ||
// заказ удален | // заказ удален | ||
fld := { 'DATDOC', 'NUMDOC', 'DANAL2', 'D2NAME', 'CATTR6', 'NATTR7' } | fld := { 'DATDOC', 'NUMDOC', 'DANAL2', 'D2NAME', 'CATTR6', 'NATTR7' } | ||
| − | ArValues := {{ id, padl( numdoc, 10 ), r20_kod, r20_name, '12.00', docs1_danal1 }} | + | ArValues := { { id, padl( numdoc, 10 ), r20_kod, r20_name, '12.00', docs1_danal1 } } |
AddAll( 'ZAK', '1', "",, fld, ArValues, ~Year := Year( id ), ~Month := Month( id ), ~Day := Day( id ), ; | AddAll( 'ZAK', '1', "",, fld, ArValues, ~Year := Year( id ), ~Month := Month( id ), ~Day := Day( id ), ; | ||
~NoDependence := { 'NATTR7', 'CATTR6', 'D2NAME' } ) | ~NoDependence := { 'NATTR7', 'CATTR6', 'D2NAME' } ) | ||
| Строка 69: | Строка 65: | ||
// CATTR6 - время заказа | // CATTR6 - время заказа | ||
// NATTR7 - код филиала отгрузки продукции | // NATTR7 - код филиала отгрузки продукции | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| + | |||
| + | [[Функции Delphi]] | ||
Текущая версия на 13:17, 31 июля 2017
NAT_09_12 - это программа из справочника R266
Добавление заказа на перемещение
NAT_09_12( r466_kod, id, ga, numdoc, docs1_danal1 )
Вызывается из документа NAT ( уровень 2 ) по CTRL+F10
r466_kod - завод, который производит продукцию
id - дата
ga - область, откуда мы вызываем функцию NAT_09_12
numdoc - номер заказа, если он уже был добавлен ранее
docs1_danal1 - код филиала, который будет отгружать продукцию
Текст
parameters r466_kod, id, ga, numdoc, docs1_danal1 local sql, aa, num, fld, r20_kod, r20_name, ArValues, zak1 r20_kod := SeekRef( 'R466', r466_kod, 'R20_KOD', 1 ) r20_name := RealName( 'R20', r20_kod ) // NAT sql := [ Select DANAL2, NATTR4 ; From DOCS] + Ret_f_ext( ( ga )->DATDOC ) + [ ; Where KINDDOC = 'NAT' and LVLNUM = '2' and PARENT = '] + ( ga )->PARENT + [' and ; DREFL2 = 'R11 ' and DANAL2 > 0 and DREFL3 = 'R466' and DANAL3 = ] + r466_kod + [ and NATTR4 > 0 ] aa := SqlToArr( sql, { 'DANAL2', 'NATTR4' } ) if !IsEmpty( aa ) fld := { 'DATDOC', 'DANAL2', 'D2NAME', 'CATTR6', 'NATTR7' } ArValues := { { id, r20_kod, r20_name, '12.00', docs1_danal1 } } if Empty( numdoc ) // Заказ на перемещение, уровень 1 num := AddAll( 'ZAK', '1', "",, fld, ArValues, {|| Field->NUMDOC }, ~Year := Year( id ), ~Month := Month( id ), ; ~Day := Day( id ), ~NoDependence := { 'NATTR7', 'CATTR6', 'D2NAME' } ) if !Empty( num ) numdoc := num[1] endif endif // находим шапку заказа zak1 := OpenChildDoc( 'ZAK', '1', ~ParentForm := "", ~Year := Year( id ), ~Month := Month( id ), ~Day := Day( id ) ) ( zak1 )->( SetFilter( [ KINDDOC = 'ZAK' and LVLNUM = '1' and NUMDOC = '] + padl( numdoc, 10 ) + [' and ; DTOS( DATDOC ) = '] + DTOS( id ) + [' and DANAL2 = ] + r20_kod + [ and NATTR7 = ] + docs1_danal1 ) ) if Empty( ( zak1 )->RGNUM ) // заказ удален fld := { 'DATDOC', 'NUMDOC', 'DANAL2', 'D2NAME', 'CATTR6', 'NATTR7' } ArValues := { { id, padl( numdoc, 10 ), r20_kod, r20_name, '12.00', docs1_danal1 } } AddAll( 'ZAK', '1', "",, fld, ArValues, ~Year := Year( id ), ~Month := Month( id ), ~Day := Day( id ), ; ~NoDependence := { 'NATTR7', 'CATTR6', 'D2NAME' } ) ( zak1 )->( DbGoTop() ) endif if !Empty( ( zak1 )->RGNUM ) AddAll( 'ZAK', '2', ( zak1 )->RGNUM,, { 'KANAL2', 'AMNT' }, aa,, ( zak1 )->( GetForm( GetArea() ) ), ~NoDependence := {'AMNT'} ) endif endif result := numdoc // ZAK1 // DATDOC - дата // NUMDOC - номер // DANAL2 - код магазина из справочника торговых предприятий R20 // D2NAME - наименование магазина // CATTR6 - время заказа // NATTR7 - код филиала отгрузки продукции
