Histórico da Página

Programa Fonte
TMSA850.PRW

Sintaxe
TM850PRD - Altera o Produto de Calculo

Retorno
(Código do Produto)


Exemplos

#INCLUDE "PROTHEUS.CH"

User Function TM850PRD()

Local _cProd    := (PARAMIXB[1])
Local _cDocTMS  := (PARAMIXB[2])
Local _cCdrOri  := (PARAMIXB[3])
Local _cCdrDes  := (PARAMIXB[4])
Local _cCdrCal  := (PARAMIXB[5])
Local cNewPrd   := '' 

	//-- Tratamento: Produto de Calculo (Dados do Produto)
	SB1->(DbSetOrder(1))
	If SB1->(MsSeek(xFilial("SB1") + _cProd))
        cNewPrd := SB1->B1_COD
    EndIf
Return cNewPrd