jamie_moore
New Member
Hi,
I'm wondering is someone can help me speed up an upload of data I'm trying to perform. I'm new to this so haven't much experience but I've managed to piece together the below which works fine although I would expect it to complete within a few seconds instead it's taking 45 seconds a go. Any help would be appreciated
I'm wondering is someone can help me speed up an upload of data I'm trying to perform. I'm new to this so haven't much experience but I've managed to piece together the below which works fine although I would expect it to complete within a few seconds instead it's taking 45 seconds a go. Any help would be appreciated
Code:
DEFINE VARIABLE uploadFile AS CHAR LABEL "Upload File Name" FORMAT "x(40)" NO-UNDO.
DEFINE VARIABLE inputCompany AS INT LABEL "Company" FORMAT "99" NO-UNDO.
DEFINE VARIABLE inputDepot AS INT LABEL "Depot" FORMAT "99" NO-UNDO.
DEFINE VARIABLE runTime AS INT FORMAT ">>9999.99" NO-UNDO.
DEFINE TEMP-TABLE ttProdImp
FIELD pProdCode AS INT
FIELD pProdName AS CHAR
FIELD pPack AS CHAR
FIELD pPip AS INT
FIELD pCatNo AS CHAR
FIELD pImpQty AS INT
INDEX prodImp-key pProdCode DESCENDING.
UPDATE uploadFile HELP "Enter Name of File including Full Path"
inputCompany HELP "Enter Company"
inputDepot HELP "Enter Depot"
WITH NO-VALIDATE 1 COLUMNS FRAME IMP-UPLOAD TITLE "IMPOUND UPLOAD QTY CHANGE"
CENTERED ROW FRAME-ROW(IMP-UPLOAD) + 4.
ETIME(TRUE).
INPUT FROM VALUE(uploadFile).
DISABLE TRIGGERS FOR LOAD OF stock.
REPEAT:
CREATE ttProdImp.
IMPORT DELIMITER ",":U ttProdImp.
FOR EACH main.stock WHERE company = inputCompany AND loc-cd = inputDepot:
IF stock.prod-code = pProdCode THEN DO:
ASSIGN
stock.imp-qty = ttProdImp.pImpQty.
/*MESSAGE "Product Code = " + STRING(ttProdImp.pProdCode)
"Impound Qty = " + STRING(ttProdImp.pImpQty)*/
END.
END.
END.
ASSIGN runTime = INT(ETIME) / 1000.
EMPTY TEMP-TABLE ttProdImp.
ETIME(TRUE).
MESSAGE "Upload took = " + STRING(runTime) "secs" VIEW-AS ALERT-BOX.
INPUT CLOSE.