Histórico da Página

#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)