Linha Microsiga Protheus

Árvore de páginas

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})