Hisava в 04:57, 6 сентября 2017

2017-09-06T04:57:07Z

Hisava в 04:50, 6 сентября 2017

2017-09-06T04:50:21Z

Hisava: Новая страница: «OHC_20170214 - это программа из справочника R266 Выгрузить изделия в файл goods.dbf для кассы АМС100…»

2017-09-05T05:40:38Z

Новая страница: «OHC_20170214 - это программа из справочника R266 Выгрузить изделия в файл goods.dbf для кассы АМС100…»

Новая страница

[[OHC_20170214]] - это программа из справочника R266
Выгрузить изделия в файл goods.dbf для кассы АМС100 К ( ф )
[[OHC_20170214]]( message := false )

Файл goods.dbf должен лежать в Reflis
= Текст =
parameters message := false

if message
if !YesNo( 'Выгрузить изделия ( кроме синих ) в файл goods.dbf ?', false )
return
endif
endif

local goo, r11, msg, price

CopyFile( 'Z:\Fabius\002100000210\base\goods.dbf', 'Z:\Fabius\Reflis\goods.dbf', true )

try
goo := OpenFData( 'goods.dbf', 'goo', true, ReflisPath, ~IsCheckStr := false )

( goo )->( DbGoTop() )
while !( goo )->( eof() )
( goo )->( DbGoTop() )
( goo )->( DbDelete() )
end
( goo )->( DbPack() )

r11 := OpenKlsf( 'R11' )
( r11 )->( DbGoTop() )
while !( r11 )->( eof() )
WaitMsg( RealName( 'R11', ( r11 )->KOD, true ), msg )
if ( r11 )->USE_STATUS <> 1
price := RETPRICE( 'R11', ( r11 )->KOD, Date(), 250 )
if !Empty( price )
( goo )->( DbAppend() )
( goo )->BARCODE := ( r11 )->BAR_CODE
( goo )->CODE := ( r11 )->KOD
( goo )->ALCOTYPE := '000'
( goo )->NAME := ( r11 )->PNAME
( goo )->PRICE := RETPRICE( 'R11', ( r11 )->KOD, Date(), 250 )

if PRODNDS( ( r11 )->KOD ) = 10
( goo )->SECTION_ := 1
else
( goo )->SECTION_ := 2
endif
endif
endif
( r11 )->( DbSkip() )
end
finally
HideMsg( msg )
CloseKlsf( r11 )
CloseTable( goo )
end

CopyFile( 'Z:\Fabius\Reflis\goods.dbf', 'Z:\Fabius\AMC100\goods.dbf', true )

if message
Message( 'Справочник изделий успешно выгружен в файл Z:\Fabius\AMC100\goods.dbf' )
endif

// v:=OpenFData('vspb51.dbf','v',false,ReflisPath,~IsCheckStr:=false)
// aa:=(v)->(DbStruct())
= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]

← Предыдущая		Версия 04:50, 6 сентября 2017
Строка 68:		Строка 68:

	[[Функции Delphi]]		[[Функции Delphi]]
		+
		+	[[OHC]]

@@ Строка 27: / Строка 27: @@
     ( goo )->( DbPack() )
-    r11 := OpenKlsf( 'R11' )
+    r11 := OpenKlsf( '[[R11]]' )
     ( r11 )->( DbGoTop() )
     while !( r11 )->( eof() )

OHC 20170214 - История изменений

Hisava в 04:57, 6 сентября 2017

Hisava в 04:50, 6 сентября 2017

Hisava: Новая страница: «OHC_20170214 - это программа из справочника R266 Выгрузить изделия в файл goods.dbf для кассы АМС100…»