Ponto-de-Entrada: MARATEIO - Controle do critério de rateio
Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Espanhol , Inglês |
Descrição:
Esse ponto de entrada controla o método de rateio utilizado no documento de entrada, substituindo os parâmetros do sistema. É uma opção para quando é necessário realizar um critério diferente para cada documento de entrada.
Eventos
Programa Fonte
.PRW
Sintaxe
MARATEIO - Controle do critério de rateio ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ] ) --> ARET
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
PARAMIXB[1] | Caracter | Tipo do critério de rateio das despesas acessórias. | |||||||||||||||
PARAMIXB[2] | Caracter | Tipo do critério de rateio do frete. | |||||||||||||||
PARAMIXB[3] | Caracter | Tipo do critério de rateio do seguro. |
Retorno
-
ARET(vetor)
- Array com a seguinte estrutura: [1] Tipo do critério de rateio das despesas acessórias. / [2] Tipo do critério de rateio do frete. / [3] Tipo do critério de rateio do seguro.
Observações
Exemplos
User Function MaRateio()Local cTpRatDesp := ParamIxb[1] //DespesaLocal cTpRatFrete := ParamIxb[2] //FreteLocal cTpRatSeg := ParamIxb[3] //SeguroLocal cFornece := MaFisRet(,'NF_CODCLIFOR')Local cLoja := MaFisRet(,'NF_LOJA')dbSelectArea('SA2')dbSetOrder(1)If MsSeek(xFilial('SA2')+cFornece+cLoja) If SA2->A2_XXCLI=='1' //Campo do cliente cTpRatDesp := '1' cTpRatFrete := '1' cTpRatSeg := '1' Else cTpRatDesp := '2' cTpRatFrete := '2' cTpRatSeg := '2' EndIfEndIfReturn({cTpRatDesp,cTpRatFrete,cTpRatSeg})
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas