|
|
| Строка 14: |
Строка 14: |
| | | | |
| | Если не отпечатано, то в AMNT пишет <span style="color:#FF0000">'''ноль'''</span> | | Если не отпечатано, то в AMNT пишет <span style="color:#FF0000">'''ноль'''</span> |
| − | = Текст =
| |
| − | parameters r130_kod, data
| |
| − | local fro1, flt, cds
| |
| − | try
| |
| − | fro1 := [[OPENCHILDDOC]]( '[[FRO]]', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data ) )
| |
| − | flt := [ KINDDOC = 'FRO' and LVLNUM = '1' and DtoS( DATDOC ) = '] + DtoS( data ) + [' and DREFL1 = 'R130' and DANAL1 = ] + r130_kod
| |
| − | ( fro1 )->( SetFilter( flt ) )
| |
| − | ( fro1 )->( Refresh() )
| |
| − | ( fro1 )->( DbGoTop() )
| |
| − | while !( fro1 )->( eof() )
| |
| − | // НАЛ
| |
| − | if ( fro1 )->CARDPAY <> 'Д'
| |
| − | try
| |
| − | cds := CLONEDATASET( fro1 )
| |
| − | flt := [ KINDDOC = 'FRO' and LVLNUM = '2' and PARENT = '] + ( fro1 )->RGNUM + [' ]
| |
| − | ( cds )->( SETFILTER( flt ) )
| |
| − | ( cds )->( DBGOTOP() )
| |
| − | while !( cds )->( eof() )
| |
| − | if !Empty( ( cds )->NATTR2 )
| |
| − | ( cds )->NATTR2 := 0
| |
| − | endif
| |
| − | ( cds )->( DbSkip() )
| |
| − | end
| |
| − | finally
| |
| − | CLOSETABLE( cds )
| |
| − | end
| |
| − | endif
| |
| − | // БЕЗНАЛ
| |
| − | if ( fro1 )->CARDPAY = 'Д'
| |
| − | try
| |
| − | cds := CLONEDATASET( fro1 )
| |
| − | flt := [ KINDDOC = 'FRO' and LVLNUM = '2' and PARENT = '] + ( fro1 )->RGNUM + [' ]
| |
| − | ( cds )->( SETFILTER( flt ) )
| |
| − | ( cds )->( DBGOTOP() )
| |
| − | while !( cds )->( eof() )
| |
| − | if ( cds )->NATTR2 <> 1
| |
| − | ( cds )->NATTR2 := 1
| |
| − | endif
| |
| − | ( cds )->( DbSkip() )
| |
| − | end
| |
| − | finally
| |
| − | CLOSETABLE( cds )
| |
| − | end
| |
| − | endif
| |
| − | // ПРИЗНАК НЕ ОТПЕЧАТАННОСТИ
| |
| − | if ( fro1 )->PRINTED <> 'Д'
| |
| − | try
| |
| − | cds := CloneDataSet( fro1 )
| |
| − | flt := [ KINDDOC = 'FRO' and LVLNUM = '2' and PARENT = '] + ( fro1 )->RGNUM + [' ]
| |
| − | ( cds )->( SetFilter( flt ) )
| |
| − | ( cds )->( DbGoTop() )
| |
| − | while !( cds )->( eof() )
| |
| − | if !Empty( ( cds )->AMNT )
| |
| − | ( cds )->AMNT := 0
| |
| − | endif
| |
| − | ( cds )->( DbSkip() )
| |
| − | end
| |
| − | finally
| |
| − | CLOSETABLE( cds )
| |
| − | end
| |
| − | endif
| |
| − | ( fro1 )->( DbSkip() )
| |
| − | end
| |
| − | finally
| |
| − | ( fro1 )->( CloseForm( GetForm( GetArea() ) ) )
| |
| − | end
| |
| − |
| |
| | = Смотрите также = | | = Смотрите также = |
| | [[Полезные функции]] | | [[Полезные функции]] |
| | | | |
| | [[Функции Delphi]] | | [[Функции Delphi]] |
Текущая версия на 16:07, 4 апреля 2019
FRO_CHECK_PRINTED - это программа из справочника R266
Проверить все продажи по магазину за сутки
FRO_CHECK_PRINTED( r130_kod, data )
r130_kod - код кассы
data - дата
Описание
Открывает 1 этаж документа FRO за выбранную дату по одному магазину
Если безнал, то на этаж 2 пишет 1 в реквизит NATTR2
Если нал, то пишет ноль в NATTR2
Если не отпечатано, то в AMNT пишет ноль
Смотрите также
Полезные функции
Функции Delphi
