FRO CHECK PRINTED - История изменений

Hisava в 13:07, 4 апреля 2019

2019-04-04T13:07:22Z

Hisava: /* Описание */

2017-12-29T05:15:26Z

‎Описание

Hisava: /* Описание */

2017-11-17T13:18:40Z

‎Описание

Hisava: /* Описание */

2017-10-09T11:19:33Z

‎Описание

Hisava: /* Описание */

2017-10-09T11:19:02Z

‎Описание

Hisava в 11:15, 9 октября 2017

2017-10-09T11:15:57Z

Hisava в 11:15, 9 октября 2017

2017-10-09T11:15:44Z

Hisava: /* Текст */

2017-09-18T08:16:56Z

‎Текст

Hisava в 08:16, 18 сентября 2017

2017-09-18T08:16:47Z

Hisava в 08:14, 18 сентября 2017

2017-09-18T08:14:31Z

@@ Строка 14: / Строка 14: @@
 Если не отпечатано, то в AMNT пишет <span style="color:#FF0000">'''ноль'''</span>
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

← Предыдущая		Версия 05:15, 29 декабря 2017
Строка 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

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

@@ Строка 13: / Строка 13: @@
 Если нал, то пишет ноль в NATTR2
-Если не отпечатано, то в AMNT пишет ноль
+Если не отпечатано, то в AMNT пишет <span style="color:#FF0000">'''ноль'''</span>
 = Смотрите также =

@@ Строка 9: / Строка 9: @@
 Открывает 1 этаж документа [[FRO]] за выбранную дату по одному магазину
-Если безнал, то на этаж 2 пишет 1 в реквизит NATTR2
+Если <span style="color:#0000FF">'''безнал'''</span>, то на этаж 2 пишет 1 в реквизит NATTR2
 Если нал, то пишет ноль в NATTR2

@@ Строка 7: / Строка 7: @@
 data - дата
 = Описание =
 = Смотрите также =

@@ Строка 10: / Строка 10: @@
   local fro1, flt, cds
   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
     ( fro1 )->( SetFilter( flt ) )
@@ Строка 33: / Строка 33: @@
     ( fro1 )->( CloseForm( GetForm( GetArea() ) ) )
   end
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]