Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

GFEXFB20 – Permitir manipular o valor do frete utilizado no cálculo de componentes cujo atributo de cálculo é Valor do Frete.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXFB20 

Descrição:

Permitir manipular o valor do frete utilizado no cálculo de componentes cujo atributo de cálculo é Valor do Frete.

Localização:

Antes do cálculo de componentes cujo atributo de cálculo é valor do frete

Programa Fonte:

GFEXFUNB - Cálculo de Frete

Parâmetro:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]NuméricoValor do frete totalSim
PARAMIXB[2]ArrayArray com todos os componentesSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

nVlFrete

Numérico

Retorna o valor do frete que deverá ser utilizado para os componentes cujo atributo de cálculo é Valor do Frete

Sim

 

Bloco de código
languagedelphi
titleExemplo: GFEXFB19GFEXFB20
linenumberstrue
User Function GFEXFB20()

Local nVlFrtPadrao  := PARAMIXB[1] 
Local aCompCalc := PARAMIXB[2]
Local nX := 0
Local nVlFrete := 0

    For nX := 1 to len(aCompCalc)
        IF aCompCalc[nX,5] == "1"
            IF aCompCalc[nX,1] != "PALETIZACAO" .OR.  aCompCalc[nX,1] != "PALETIZACAO FIXO" .OR. aCompCalc[nX,1] != "TDE"
                nVlFrete += aCompCalc[nX,3]
            EndIf
        Endif
    Next nX

Return nVlFrete