i am importing a text file such that data in first line is stored in sales header and 2nd data in sales line.but the problem is that it gives error in statement “if not gvsalesheader.get();” line saying-- the expression code cannot be type converted to a option-value. and how to convert a code datatype into decimal. because quantity and unit price in sales line are in decimal and my three gobal variables are in code. help me in this regard IF NOT gvImportCounter = 1 THEN BEGIN gvsalesno := gvImportField1; IF gvsalesheader.GET(gvImportField2) THEN BEGIN gvsalesheader.INIT; gvsalesheader."Document Type" :=gvsalesheader."Document Type"::Order; gvsalesheader."No." := COPYSTR(gvImportField2, 1, 20); gvsalesheader.VALIDATE("Sell-to Customer No.", COPYSTR(gvImportField3, 1, 30)); gvsalesheader.INSERT; END; gvImportCounter += 1; END ELSE IF gvImportCounter = 2 THEN BEGIN gvsalesline.RESET; //gvItem.SETRANGE(gvItem."Sales Type"::Customer); //gvItem.SETRANGE(gvItem."Sales Code", gvImportCustNo); gvsalesline.SETRANGE(gvsalesline."No.", gvImportField1); IF NOT gvsalesline.FIND('-') THEN BEGIN //Insert item Price gvsalesline.INIT; gvsalesline."No." := COPYSTR(gvImportField1, 1, 20); //gvsalesline.Quantity := gvImportField2; //gvsalesline."Unit Price" :=gvImportField3; gvsalesline.INSERT; END; gvImportCounter := 1; END;
Hallo, the Sales Header has following fields as primary key: Document Type,No. in the GET-Statement you must use both fields. br Josef Metz
no…still its giving same error
Hi Your Line of code IF gvsalesheader.GET(gvImportField2) THEN BEGIN Should Read IF NOT gvsalesheader.GET(“Document Type”::Order,gvImportField2) THEN BEGIN To convert the codes to decimal you need to use the EVALUATE command eg. EVALUATEQuantity,QuantityCode);