Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: M460SOLI - Calcula base de retenção ICMS e valor de ICMS Solidário


Abrangências:Microsiga Protheus 10
Versões:Microsiga Protheus 10 - 11 - 12
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)


Descrição:
Este ponto de entrada tem a finalidade de calcular a base de retenção de ICMS e o valor do ICMS solidário.
Programa Fonte
MATA461.PRX
Sintaxe

M460SOLI - Calcula base de retenção ICMS e valor de ICMS Solidário ( [ _nItem ], [ _cItemSC6 ] ) --> aRet

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

_nItem

Numérico

Item do aCols.










_cItemSC6

Caracter

Item do Pedido de Venda (C6_ITEM)










_nMargem

Numérico

Margem de Valor Agregado










_nAliqSol

Numérico

Alíquota Solidário










Retorno
aRet
    (array_of_record)
  • Este PE deverá retornar um Array contendo:

  • 1 - Base de retenção de ICMS
    2 - Valor do ICMS solidário
  • 3 - Margem de Valor Agregado
  • 4 - Alíquota Solidário

  • 5 - Base do FECP-ST
    6 - Aliquota do FECP-ST
    7 - Valor do FECP-ST


    Se este PE não retornar o array com a estrutura descrita acima, o programa ignorará o PE e o sistema fará os devidos cálculos.
Exemplos :


User Function M460SOLI()

Local _nItem := ParamIxb[1] //Item do aCols
Local _cItemSC6 := ParamIxb[2] //Item do Pedido de Venda (C6_ITEM)
Local _nBaseSol := 440.00 //Base de retencao ICMS Solidario
Local _nValSol := 7.20 //Valor do ICMS Solidario
Local _nMargem := 39 // Margem de Valor Agregado
Local _nAliqSol := 19 // Alíquota Solidário
Local _nBaseFCP := 440.00 // Base do FCP-ST
Local _nAliqFCP := 2 // Aliquota do FCP-ST
Local _nValFCP := 8.80 // Valor do FCP-ST

//Atencao: O FCP-ST compõe o valor do ICMS-ST. Portanto seu valor deve ser somado ao valor "final" de ICMS-ST.
Alert("Passou pelo PE: M460SOLI -> nItem: " + AllTrim(Str(_nItem)) + " - nItemSC6: " + AllTrim(_cItemSC6))
Return {_nBaseSol,_nValSol,_nMargem,_nAliqSol,_nBaseFCP,_nAliqFCP,_nValFCP}