...
Exemplo de utilização Advpl:
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH"
User Function VXX01TEA()
Local cTp := ParamIxb[01] // Parametro 1 - cTp - Tipo: 1=Fatura / 2=Remito
Local cFilVV0 := ParamIxb[02] // Parametro 2 - VV0_FILIAL - Filial
Local cCodVV0 := ParamIxb[03] // Parametro 3 - VV0_NUMTRA - Nro da Transação de Saida
Local aRet := {" ",.t.} // Default
If cTp == "1" // TES da Fatura -> Gera Dupl: SIM / Mov.Estoque: NAO
aRet := {"502",.t.} // { TES Fatura , mostra tela }
ElseIf cTp == "2" // TES de Remito -> Gera Dupl: NAO / Mov.Estoque: SIM
aRet := {"503",.t.} // { TES Remito , mostra tela }
EndIf
Return aClone(aRet) |
...
