No clipper fazia assim.:
SELECT TEMP
DO WHILE .NOT. EOF()
IF tcliaux > 0
SELECT VENCLI
VENCLI->(dbAppend())
IF NETERR()
Mensagem("Nao foi possivel gravar o registro, tente novamente")
INKEY(0)
ELSE
IF RLOCK()
VENCLI->VECLI:= tcli
VENCLI->NOMCLI:= CLI->DESCLI
VENCLI->VETIP:= "5"
VENCLI->VEDAT:= DATE()
VENCLI->VECOD:= TEMP->MATVEN
VENCLI->VEQTD:= TEMP->QTDVEN
VENCLI->FUNCIO:= funcionario
VENCLI->TICKET:= STRZERO(xxnum,5,0)
UNLOCK
COMMIT
ENDIF
ENDIF
ENDIF
tpago = tpago + TEMP->TOTVEN
bai = SPACE(8)
bai = TEMP->MATVEN
SELECT MER
SET ORDER TO 1
GO TOP
SEEK bai
IF FOUND()
IF RLOCK()
IF MER->MULTI<> 0
IF MER->CONTROLAR = "S"
MER->SAIMER:= MER->SAIMER-(TEMP->QTDVEN*MER->MULTI)
ENDIF
ELSE
IF MER->CONTROLAR = "S"
MER->SAIMER:= MER->SAIMER-TEMP->QTDVEN
ENDIF
ENDIF
MER->VENATU:= MER->VENATU-TEMP->QTDVEN
UNLOCK
COMMIT
ENDIF
ENDIF
SELECT TEMP
IF MER->CONTROLAR = "S"
SELECT MES
APPEND BLANK
IF RLOCK()
MES->MVDOC:= STRZERO(xxnum,6,0)
MES->MVDAT:= DATE()
MES->MVCOD:= bai
MES->MVQTD:= TEMP->QTDVEN
MES->MVUNI:= TEMP->UNIVEN
MES->MVFOR:= "88888"
MES->MVACE:= "Devolucao"
MES->MVTIP:= "5"
MES->FUNCIONAR:= funcionario
COMMIT
UNLOCK
ENDIF
ENDIF
SELECT TEMP
SKIP
ENDDO
SET RELATION TO
EXIT
ENDDO
A outra duvida é com relacao a permitir em um textbox sometes letras. No clipper fazia assim e não permitia a digitação de numeros.:
@ 04,11 GET cod PICTURE "@!K AA"
Desde ja agradeço a paceiencia de todos.
Estou usando HMG IDE 3.035