Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MATA103

Documento de Entrada

Rotina(s) envolvida(s)

Nome Técnico

MATA103a

Documento de Entrada

MATA103bDocumento de Entrada
MATA103xDocumento de Entrada
MATXFUNAGenérico
SIGACUSGenérico
SIGACUSAGenérico
SIGACUSBGenérico

Cadastros Iniciais:

MATA020 - Cadastro de Fornecedor

MATA010 - Cadastro de Produtos

Ponto de Entrada:

MT103FRE

Requisito:

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

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:

Nome

Tipo

Descrição

 aMT103FRE

Array

Array contendo os valores de Seguro, Despesas  e Frete, respectivamente.

 

Exemplo:

#include 'protheus.ch'
#include 'parmtype.ch'

User function MT103FRE(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 .And. aCols[1][nPValFret] > 0 //Caso contenha frete
    MsgAlert("Contem valor de frete ")
Else
    //caso não se atualize, volta os valores originais
    aMT103FRT := aClone(aRateio)
End If
    
Return(aMT103FRT)