Histórico da Página
MT103FRE - Ponto de Entrada para manipulação do Frete no documento de Entrada
Características do Requisito
Linha de Produto: | Protheus | ||||||||||||||||||||
Segmento: | Serviços | ||||||||||||||||||||
Módulo: | SIGACOM - Compras | ||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||
Cadastros Iniciais: |
MATA020 - Cadastro de Fornecedor
MATA010 - Cadastro de Produtos | ||||||||||||||||||||
Ponto de Entrada: | MT103FRE | ||||||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): | MPRIMESP-10607 | ||||||||||||||||||||
País(es): | Brasil | ||||||||||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||||||||||
Tabelas Utilizadas: |
SF1 - Cabeçalho das NF de Entrada
SD1 - Itens das NF de Entrada SC7 - Pedido Compras SC9 - Pedidos Liberados | ||||||||||||||||||||
Sistema(s) Operacional(is): | Todos |
Descrição
Incluso ponto de entrada para manipulação dos valores auxiliares do documento de entrada
Ponto de Entrada
Descrição: | SIGACOM | ||||||||
Localização: | Documento de Entrada | ||||||||
Eventos: | MATA103 | ||||||||
Programa Fonte: | MATA103 | ||||||||
Função: | Documento de Entrada | ||||||||
Retorno: |
|
Exemplo:
#include 'protheus.ch'
#include 'parmtype.ch'
User function MT103FRTMT103FRE(aRateio)
LOCAL aMT103FRT := {}
Local nPValFret := 0
Local nPedido := 0
Local ntotFrete := 0
Local nX := 0
nPosPedido := aScan(aHeader,{|x| AllTrim(x[2])=="D1_PEDIDO"})
nPValFret := aScan(aHeader,{|x| AllTrim(x[2])=="D1_VALFRE"})
nPedido := 0
If nPValFret > 0
nPedido := aCols[n][nPosPedido]
//Atualiza os itens
For nX := 1 to Len(aCols)
If nPedido = aCols[n][nPosPedido]
PARAMIXB[1] := aCols[nX][nPValFret] := PARAMIXB[1]
PARAMIXB[3] := ntotFrete += PARAMIXB[1]
EndIf
Next
//Atualiza os totalizadores
AADD(aMT103FRT,PARAMIXB[1])
AADD(aMT103FRT,PARAMIXB[2])
AADD(aMT103FRT,PARAMIXB[3])
Else
//caso não se atualize, volta os valores originais
aMT103FRT := aClone(aRateio)
End If
Return(aMT103FRT)