FRO CHECK PRINTED — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 7 промежуточных версий этого же участника)
Строка 6: Строка 6:
  
 
data - дата
 
data - дата
= Текст =
+
= Описание =
parameters r130_kod, data
+
Открывает 1 этаж документа [[FRO]] за выбранную дату по одному магазину
local fro1, flt, cds
+
 
try
+
Если <span style="color:#0000FF">'''безнал'''</span>, то на этаж 2 пишет 1 в реквизит NATTR2
  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
+
Если нал, то пишет ноль в NATTR2
  ( fro1 )->( SetFilter( flt ) )
+
 
  ( fro1 )->( Refresh() )
+
Если не отпечатано, то в AMNT пишет <span style="color:#FF0000">'''ноль'''</span>
  ( 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]]

Текущая версия на 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