Untitled

 avatar
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...