Untitled
unknown
plain_text
2 years ago
360 B
6
Indexable
* Inicializar numero de documento y validar que no exista cNumReq = padl(allt(.NumReq.Value),10) do while .t. select Cia if rLock() unlock endif cNumReq = Cia.SIGDOCREQ cNumReq = padl(allt(cNumReq),10) select DocReq seek cNumReq if found() replace Cia.SIGDOCREQ with padl(allt(sigDoc(cNumReq)),10) else exit endif enddo .NumReq.Value = cNumReq
Editor is loading...