oKD=CREATEOBJECT("PromKD") && Header ... oKD.oDat.BeginTrans() ... SELECT CaIdDok && CursorAdapter Counter table IdDok oKD.oIdDok.NewBrFakCA(this.ckljucimefak ) llOk=IIF(ISNULL(lcId),.F.,.T.) ... IF llOk sele v_promkd && CursorAdapter Header table repl next 1 BrFak With lcId llOk= tableUpd() ENDIF if llOk oKD.oDat.Committrans() ELSE oKD.oDat.RollBackTrans() ENDIF ***** NewBrFakCA LPARAMETERS tcKey LOCAL lnRetVal, ; lnwa, ; lcid, ; lcKey lcKey=tcKey lcId=null lnwa=SELECT(0) SELECT Caiddok LOCAL a,lnnrf a=0 lnR=-6 DO WHILE a<15 AND lnRl<>0 SELE CaIdDok =REFRESH() lcId=ALLT(STR(VAL(Vrednost) + 1)) UPDATE CaIdDok SET Vrednost = lcId IF !TABLEUPDATE() =AERROR(aErrA) lnRetVal = aErrA[1] ELSE lnRetVal= 0 ENDIF IF lnRetVal<>0 SELECT CaIdDok =TABLEREVERT(.t.) a=a+1 ELSE SELECT CaIdDok EXIT ENDIF ENDDO SELECT (lnwa) lcId=IIF(lnRetVal = 0,lcid,null) RETURN lcId...
DO WHILE a<15 AND lnRl<>0, an error occurs 130 or 1585.