Histórico da Página
...
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 |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
Programa Fonte
TMSA850.PRW
Sintaxe
TM850PRD - Altera o Produto de Calculo do SE1
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
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas