Linha Microsiga Protheus

Árvore de páginas



01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 


02. DESCRIÇÃO

Ponto de entrada que permite expurgar componentes da proporcionalização na cotação de frete quando for frete informado no agendamento.

03. EXEMPLO DE UTILIZAÇÃO

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

nVlrFec

Number

Valor do Frete Fechado.









aDesconto

Array of Record

Array com os Descontos dos Componentes









nDsc

Number

Faixa de Desconto Selecionada









Retorno:

aRet

      (Array)


Retorno terá será um array, onde a primeira posição é o valor a ser abatido do frete informado, e a segunda posição é um vetor com os componentes que foram expurgados da proporcionalização.

Variáveis:

Nome

Tipo

Escopo

Pode Alterar

Descrição




Array of Record

Local

Sim


TM040VFC
Programa Fonte
TMSA040.PRW

Sintaxe 
TM040VFC - Permite alterar a proporcionalização dos componentes ( [ nVlrFec,Aclone(aDesconto),nDsc ] ) --> aRet

#Include "Protheus.ch"

User Function TM040VFC()
Local nVlrFec  := ParamIXB[1]
Local aVetCmp  := ParamIXB[2]
Local nFxDesc  := ParamIXB[3]
Local nVlrRet  := 0
Local aVetRet  := {}
Local nCntFor1 := 0

For nCntFor1 := 1 To Len(aVetCmp)
	If aVetCmp[nCntFor1,11] == "31"	//-- Componente que não poderá ser proporcionalizado
		Aadd(aVetRet,aVetCmp[nCntFor1,11])
		nVlrRet += aVetCmp[nCntFor1,nFxDesc + 2]
	EndIf
Next nCntFor1

Return {nVlrRet,Aclone(aVetRet)}
  


04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

Não há.