Histórico da Página

#INCLUDE "PROTHEUS.CH" User Function OX001PTES()
Local cTp     := ParamIxb[01]// Parametro 1 - cTp - Tipo: 1=Fatura / 2=Remito
Local cRet    := FM_PRODSBZ(SB1->B1_COD,"SB1->B1_TS")

If cTp == "1" // TES da Fatura -> Gera Dupl: SIM / Mov.Estoque: NAO
    cRet := "501" 
ElseIf cTp == "2" // TES de Remito -> Gera Dupl: NAO / Mov.Estoque: SIM
    cRet := "503" 
ElseIf cTp == "4" // TES de Entrega Futura -> Gera Dupl: Sim / Mov.Estoque: Não
    cRet := "502"
EndIf
Return cRet