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

Hisava в 09:38, 21 мая 2019

2019-05-21T09:38:53Z

Hisava: Содержимое страницы заменено на «SEND_FRO - это программа из справочника R266 Полезные функции Функции…»

2019-05-21T09:38:24Z

Содержимое страницы заменено на «SEND_FRO - это программа из справочника R266 Полезные функции Функции…»

Hisava: /* Текст */

2018-03-26T05:30:58Z

‎Текст

Hisava в 13:13, 17 июля 2017

2017-07-17T13:13:48Z

Hisava: /* Смотрите также */

2017-04-25T07:58:34Z

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

Hisava в 07:58, 25 апреля 2017

2017-04-25T07:58:23Z

Hisava в 12:51, 15 марта 2017

2017-03-15T12:51:00Z

Hisava в 12:50, 15 марта 2017

2017-03-15T12:50:46Z

Hisava в 12:50, 15 марта 2017

2017-03-15T12:50:14Z

Hisava в 07:35, 15 марта 2017

2017-03-15T07:35:38Z

@@ Строка 1: / Строка 1: @@
 [[SEND_FRO]] - это программа из справочника [[R266]]
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
 [[SEND_FRO]] - это программа из справочника [[R266]]
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 7: / Строка 7: @@
   nrmtid := 0
-  ip := InputPeriod( true )
+  ip := [[InputPeriod]]( true )
   if Empty( ip )
     return

@@ Строка 1: / Строка 1: @@
 [[SEND_FRO]] - это программа из справочника [[R266]]
+= Текст =
-  local ip, my, end_data, fro, filt, sql, conn, path, msg
+  local ip, my, end_data, fro, filt, sql, conn, path, msg, nrmtid
- // path := [[GetPrm]]( 'SHP_PATH', 'SHOPOPER' )
+  ip := InputPeriod( true )
- path := [[GetPrm]]( 'CASHBOX', 'CASH_SHOP' )
+  if Empty( ip )
-−
-  ip := [[InputPeriod]]( true )
-  if [[Empty]]( ip )
     return
   endif
-  my := [[StoD]]( ip[1] )
+  my := StoD( ip[1] )
-  end_data := [[StoD]]( ip[2] ) + 1
+  end_data := StoD( ip[2] ) + 1
   while my <> end_data
     try
-      conn := CreateConnection( path, 'adm1user', "ora=11" )
+      conn := CreateConnection( path, 'admuser', "ora=111" )
       fro := OpenFData( 'DOCP' + Ret_f_ext( my ), 'DOCS', false, OpdataPath, 'DOCS' )
-      filt := [ KINDDOC = '[[FRO]]' and DtoS( DATDOC ) = '] + DtoS( my ) + [' ]
+      filt := [ KINDDOC = 'FRO' and DtoS( DATDOC ) = '] + DtoS( my ) + [' ]
       ( fro )->( SetFilter( filt ) )
       ( fro )->( DbGoTop() )
       WaitMsg( 'Очистка документов FRO', msg )
-      sql := [ Delete From DOCP] + Ret_f_ext( my ) + [ Where KINDDOC = 'FRO' and DATDOC = '] + SqlDate( my )+ [' and DREFL2 = 'R179' and DANAL2 = ] + ( fro )->DANAL2
+      if !Empty( nrmtid )
       SimpleSql( sql, conn )
@@ Строка 30: / Строка 35: @@
         ( fro )->EXTPARENT := ( fro )->RGNUM
         sql := [ Insert into DOCP] + Ret_f_ext( my ) + [ ;
-          ( "SUM", AMNT, DSHIFT, KSHIFT, M_TEXT, NUMDOC, NATTR1, NATTR2, NATTR3, NATTR4, ;
+          ( NRMT, "SUM", AMNT, DSHIFT, KSHIFT, M_TEXT, NUMDOC, NATTR1, NATTR2, NATTR3, NATTR4, ;
             NATTR5, NATTR6, NATTR7, NATTR8, NATTR9, NATTR10, KINDDOC, LVLNUM, PARENT, ;
             DATDOC, EXTPARENT, DREFL1, DANAL1, D1NAME, DREFL2, DANAL2, D2NAME, DREFL3, DANAL3, D3NAME, ;
             KREFL1, KANAL1, K1NAME, KREFL2, KANAL2, K2NAME, KREFL3, KANAL3, K3NAME ) ;
-          VALUES ( ] + atr( str( ( fro )->SUM, 19, 4, '.' ) ) + [, ] + ;
+          VALUES ( '] + ( fro )->NRMT + [', ] + atr( str( ( fro )->SUM, 19, 4, '.' ) ) + [, ] + ;
           atr( str( ( fro )->AMNT, 19, 4, '.' ) ) + [, '] + ;
           ( fro )->DSHIFT + [', '] + ;
           ( fro )->KSHIFT + [', '] + ;
-          ( fro )->M_TEXT + [', '] + ;
+          STRTRAN( ( fro )->M_TEXT, ['], ["] ) + [', '] + ;
           ( fro )->NUMDOC + [', ] + ;
           atr( str( ( fro )->NATTR1, 19, 4, '.' ) ) + [, ] + ;
@@ Строка 69: / Строка 74: @@
           ( fro )->KREFL2 + [', ] + ;
           ( fro )->KANAL2 + [, '] + ;
-          ( fro )->K2NAME + [', '] + ;
+          STRTRAN( ( fro )->K2NAME, ['], ["] ) + [', '] + ;
           ( fro )->KREFL3 + [', ] + ;
           ( fro )->KANAL3 + [, '] + ;
@@ Строка 81: / Строка 86: @@
       // заполняем RGNUM'ы
-      sql := [ Update DOCP] + Ret_f_ext( my ) + [ Set RGNUM = Right( '        ' + Trim( Convert( AUTOID, sql_char ) ), 8 ) Where RGNUM = '' ]
+      sql := [ Update DOCP] + Ret_f_ext( my ) + [ Set RGNUM = Right( '        ' + Trim( Convert( AUTOID, sql_char ) ), 8 ) ;
       SimpleSql( sql, conn )
       sql := [ Update d Set d.PARENT = dd.RGNUM From DOCP] + Ret_f_ext( my ) + [ d left outer join DOCP] + Ret_f_ext( my ) + [ dd ON d.PARENT = dd.EXTPARENT ;
-        Where d.LVLNUM = '2' and dd.LVLNUM = '1' ]
+        Where d.KINDDOC = 'FRO' and dd.KINDDOC = 'FRO' and d.LVLNUM = '2' and dd.LVLNUM = '1' and d.DATDOC = '] + SqlDate( my ) + [' and ;
       SimpleSql( sql, conn )
@@ Строка 105: / Строка 118: @@
   // path := '\\192.168.234.15:5050\vol1\FabiusWIN\data\srg\reflis\dict.add'
   // try
-  //   conn := CreateConnection( path, 'adm1user', "ora=11" )
+  //   conn := CreateConnection( path, 'admuser', "ora=1" )
   //   sql := [ Select * From R09 ]
   //   t := SelectSql( sql, conn )
@@ Строка 112: / Строка 125: @@
   //   CloseTable( t )
   // end
-−
-= Смотрите также =
+ // наш сервер
 [[Полезные функции]]
 [[Функции Delphi]]

← Предыдущая		Версия 07:58, 25 апреля 2017
Строка 114:		Строка 114:

	= Смотрите также =		= Смотрите также =
−	~~[[Функции Delphi]]~~
−
	[[Полезные функции]]		[[Полезные функции]]
		+
		+	[[Функции Delphi]]

← Предыдущая		Версия 12:50, 15 марта 2017
Строка 1:		Строка 1:
−	SEND_FRO - это программа из справочника [[R266]]	+	[[SEND_FRO]] - это программа из справочника [[R266]]

	local ip, my, end_data, fro, filt, sql, conn, path, msg		local ip, my, end_data, fro, filt, sql, conn, path, msg