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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
Строка 10: Строка 10:
 
  local fro1, flt, cds
 
  local fro1, flt, cds
 
  try
 
  try
   fro1 := OPENCHILDDOC( 'FRO', '1', ~ParentForm := "", ~IsCondition := false, ~Month := Month( data ), ~Year := Year( data )  )
+
   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
 
   flt := [ KINDDOC = 'FRO' and LVLNUM = '1' and DtoS( DATDOC ) = '] + DtoS( data ) + [' and DREFL1 = 'R130' and DANAL1 = ] + r130_kod
 
   ( fro1 )->( SetFilter( flt ) )
 
   ( fro1 )->( SetFilter( flt ) )
Строка 33: Строка 33:
 
   ( fro1 )->( CloseForm( GetForm( GetArea() ) ) )
 
   ( fro1 )->( CloseForm( GetForm( GetArea() ) ) )
 
  end
 
  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

Смотрите также

Полезные функции

Функции Delphi