Πρόβλημα Με κώδικα

[gkite...@gmail.com]

Καλημέρα σας,

Το έχω κάνει πολλές φορές και δεν καταλαβαίνω τι μπορεί να φταίει. 

Στην παρακάτω ρουτίνα πετάει μήνυμα 

function MovePurDocToSaldoc(vPurdoc){
try {
 var myObj = X.CreateObj('SALDOC');
 var vFindoc   = X.GETSQLDATASET('SELECT TRDRS,TRDBRANCHS,COMMENTS,REMARKS,BUSUNITS,PRJC,SHIPKIND,FINSTATES,SHIPMENT   FROM FINDOC WHERE FINDOC = :1', vPurdoc );
 var vMtrlines = X.GETSQLDATASET('SELECT MTRL,QTY1 FROM MTRLINES WHERE FINDOC = :1', vPurdoc);
 var tblFINDOC = myObj.FindTable('FINDOC');
 var tblITELINES = myObj.FindTable('ITELINES');
 myObj.DBINSERT;
 tblFINDOC.Edit;
 tblFINDOC.SERIES = 1021;

 tblFINDOC.TRDR = 1087593 ; //vFindoc.TRDRS;
 X.WARNING('TEST');
   tblFINDOC.TRDBRANCH = vFindoc.TRDBRANCHS;
 tblFINDOC.COMMENTS = vFindoc.COMMENTS;
   tblFINDOC.REMARKS = vFindoc.REMARKS;
 tblFINDOC.BUSUNITS = vFindoc.BUSUNITS;
   tblFINDOC.PRJC =vFindoc.PRJC;
 tblFINDOC.SHIPKIND =  vFindoc.SHIPKIND;
 tblFINDOC.FINSTATES = vFindoc.FINSTATES;
 tblFINDOC.SHIPMENT = vFindoc.SHIPMENT;
 vMtrlines.FIRST;
  X.WARNING(PURDOC.TRDRS);
 while (!vMtrlines.EOF) {
tblITELINES.Append;
tblITELINES.MTRL = vMtrlines.MTRL ;
tblITELINES.QTY1 = vMtrlines.QTY1;
tblITELINES.FINDOCS =vFindoc.FINDOC;
tblITELINES.Post;
vMtrlines.NEXT;
}
 var id = myObj.DBPOST;
 if (id > 0)
 var vFincode = X.GETSQLDATASET('SELECT FINCODE FROM FINDOC WHERE FINDOC = :1 ',id);
 X.WARNING('Νέο Παραστατικό με κωδικό: '+vFincode.FINCODE);
} catch (e) {
 if (myObj != null)
X.WARNING("General Error: " +e.message+"\nObject Error: "+myObj.GETLASTERROR);
 else
X.WARNING("General Error: " +e.message);
 }
 finally {
}

}

Το μήνυμα το πετάει, αμέσως μετά την εισαγωγή σειράς. 

Είτε καρφώσω συγκεκριμένο TRDR είτε προσπαθήσω να γεμίσω το πεδίο από το σχετικό dataset.

Παρακαλώ για λίγη βοήθεια!!!!

[Marios Sotiriou]

Καλημέρα

Το πρόβλημα είναι στο WARNING. Έχεις βάλει το PURDOC.TRDRS ενώ έχεις κάνει Create το SALDOC.