MT140FRE - Ponto de Entrada para Manipulação do Frete no Documento de Entrada

Características do Requisito

Descrição

Ponto de Entrada para manipulação dos valores auxiliares do documento de entrada.

Ponto de Entrada

Exemplo:

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

User function MT140FRE(aRateio)

LOCAL aMT140FRT := {}
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)