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á.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas