FRO CHECK PRINTED — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[FRO_CHECK_PRINTED]] - это программа из справочника [[R266]] | [[FRO_CHECK_PRINTED]] - это программа из справочника [[R266]] | ||
Проверить все продажи по магазину за сутки | Проверить все продажи по магазину за сутки | ||
| + | [[FRO_CHECK_PRINTED]]( r130_kod, data ) | ||
| + | |||
| + | r130_kod - код кассы | ||
| + | |||
| + | 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]] | ||
Версия 11:16, 18 сентября 2017
FRO_CHECK_PRINTED - это программа из справочника R266
Проверить все продажи по магазину за сутки
FRO_CHECK_PRINTED( r130_kod, data )
r130_kod - код кассы
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
