MT103FRE - Ponto de Entrada para

Manipulação do Frete no

Documento de Entrada

Características do Requisito

Descrição

Incluso ponto Ponto de entrada 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)