Thank you , it works.
I'm new in SQL-XBASE writing ; i do write programs since 1991 in clipper afterwards XBASE 1.80 and recently upgraded to XBASE.2.0.
I have another issue now;
field from SQL DATABANK --> SIPARISOLUSTURMATARIHI --> During replacing this field to a DBF file i get the error below.
Maybe the fieldname is too long ; i dont' know. How can i solve problems like these ?
----------------------------------------------------------------------------------------------------------
/* SQL DATA BANK */
Code: Alles auswählen
WERNER="SELECT TOP 100 SIPARISOLUSTURMATARIHI,MOULDTYPE,ORDERNO,ORDERITEMNO,CUSTOMERNO,STOCKCODE,PRODUCTGROUP,OPENTOTAL,TOTAL,CURRENCY,QUANTITY,OPENQUANTITY,SALESENGINEER,DELIVERY_YEAR,DELIVERY_MONTH,DELIVERY_DAY FROM ACIK_SATISSIPARISLERI;" /
USE (WERNER) VIA ODBCDBE /* OPEN ORDERS */
********** DBF CREATE ************
aDbf:={}
AADD(aDbf, { "BES","C",10,0 })
AADD(aDbf, { "ALTI","C",40,0 })
AADD(aDbf, { "YEDI","C",15,0 })
AADD(aDbf, { "SEKIZ","C",5,0 })
AADD(aDbf, { "DOKUZ","C",20,0 })
AADD(aDbf, { "ON9","N",15,0 })
DBCREATE("ZAFER",aDbf, "DBFDBE")
****************************************
ZAFER="ZAFER VIA DBFDBE EXCLUSIVE NEW"
*********************
SELECT 7
USE ZAFER VIA DBFDBE EXCLUSIVE NEW
IF NETERR()=.T.
CLOSE ALL
MSGBOX("DBF not openedI !")
RETURN
ENDIF
**********************
SELECT 9 /* SQL - werner.dbf */
GO TOP
DO WHILE .NOT. EOF()
SELECT 9
SELECT (ZAFER) /* zafer.dbf - DBFDBE */
APPEND BLANK
IF NETERR()=.F.
REPLACE ZAFER->BES WITH SUBSTR(9->CUSTOMERNO,1,7)
REPLACE ZAFER->ALTI WITH SUBSTR(9->CUSTOMERNO,8,30)
REPLACE ZAFER->YEDI WITH 9->STOCKCODE
REPLACE ZAFER->SEKIZ WITH SUBSTR(9->PRODUCTGROUP,1,5)
REPLACE ZAFER->DOKUZ WITH SUBSTR(9->PRODUCTGROUP,6,20)
REPLACE ZAFER->ON9 WITH 9->(SIPARISOLUSTURMATARIHI) ---> [b]HERE I GET THE ERROR !!!![/b]
DBUNLOCK()
ENDIF
SELECT 9 /* SQL DATABANK */
SKIP
ENDDO
----------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------
ERROR LOG of "C:\ALASKA2\00-TRIALS\SQL-X02\SQL-X02.exe" Date: 11/28/2017 12:38:04
Xbase++ version : Xbase++ (R) Version 2.00.853
Operating system : Windows 10 1607 Build 14393
------------------------------------------------------------------------------
oError:args :
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: N
oError:cargo : {NIL, -1, [00000][0][Alaska Software][ODBCDBE]Operation failed.}
oError:description : Error while reading a file
oError:filename :
oError:genCode : 73
oError:operation : SIPARISOLUSTURMATARIHI
oError:osCode : 0
oError:severity : 2
oError:subCode : 8037
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from MAIN(230)
ENGIN RENE D.
LARA ltd
http:\\www.laraelectromechanical.com