|
|
| Строка 6: |
Строка 6: |
| | | | |
| | data - дата | | data - дата |
| − | = Текст =
| |
| − | 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 )->PRINTED <> 'Д'
| |
| − | 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
| |
| − | endif
| |
| − | ( fro1 )->( DbSkip() )
| |
| − | end
| |
| − | finally
| |
| − | ( fro1 )->( CloseForm( GetForm( GetArea() ) ) )
| |
| − | end
| |
| − |
| |
| | = Смотрите также = | | = Смотрите также = |
| | [[Полезные функции]] | | [[Полезные функции]] |
| | | | |
| | [[Функции Delphi]] | | [[Функции Delphi]] |
Версия 14:15, 9 октября 2017
FRO_CHECK_PRINTED - это программа из справочника R266
Проверить все продажи по магазину за сутки
FRO_CHECK_PRINTED( r130_kod, data )
r130_kod - код кассы
data - дата
Смотрите также
Полезные функции
Функции Delphi
