MT103FRE - Ponto de Entrada para manipulação do Frete no documento de Entrada

Características do Requisito

Descrição

Incluso 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 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)