Função

Delphi

14/02/2003

Caros amigos, necessito converter a função abaixo de clipper para Delphi, por não dominar a linguagem, gostaria obter ajuda para fazer a conversão.

Grato

FUNCTION entra
**************
** Formato: entra(´Item´,´deposito´,´quant´,´vlor´,´oper´)
** onde : Item -> Codigo do Produto
** : Deposito -> Codigo do deposito
** : Quant -> Quantidade de saida
** : vlor -> Valor da compra
** : Oper -> 1 Entrada ou 2 Extorno

PARAMETERS item, deposito, quant, vlor, oper
SELECT depos_ap
SET ORDER TO 1
GO TOP
SEEK &deposito.+&item.
IF RECLOCK(0)
IF &oper. = 1
REPLACE qt_e_atu WITH qt_e_atu + &quant.
REPLACE vl_pc_un WITH &vlor.
ELSE
REPLACE qt_e_atu WITH qt_e_atu - &quant.
ENDIF
ENDIF
COMMIT
UNLOCK
SELECT ENTRA_AP
RETURN NIL


Zekas

Zekas

Curtidas 0
POSTAR