Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 

02. DESCRIÇÃO

O ponto de entrada TM850PRD é executado após a obtenção do produto de imposto e permite ao usuário alterar o mesmo.

03. EXEMPLO DE UTILIZAÇÃO

Parâmetros:


Nome
Tipo
Descrição
Default
Obrigatório
Referência
cExp1
Caracter
Código do Produto de Imposto


Não

cExp2
Caracter
Código do Documento de Transporte


Não

cExp3
Caracter
Código da Região de Origem


Não

cExp4
Caracter
Código da Região de Destino


Não

cExp5
Caracter
Código da Região de Cálculo


Não


Variáveis

Nome
Tipo

Escopo

Pode Alterar
descrição


Array of Record

Global

Não

TM850PRD
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


04. DEMAIS INFORMAÇÕES

Ponto de Entrada TM850PRD só é chamado quando a configuração de documentos "TMSA150", campo DUI_DOCFAT estiver sem o preenchimento.


05. ASSUNTOS RELACIONADOS

  • Não há.