Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function MaCalcCOF() Local nItem := PARAMIXB[1] //Número do Item Local cProduto := PARAMIXB[2] //Código do Produto Local cTes := PARAMIXB[3] //Código da TES Local cCliFor := PARAMIXB[4] //Tipo de Participante (C = Cliente/F = Fornecedor) Local cCodCliFor := PARAMIXB[5] //Código do Participante Local cLoja := PARAMIXB[6] //Código da Loja do Participante Local cOperNF := PARAMIXB[7] //Operação da Nota Fiscal (E = Entrada/S = Saída) Local aRet := {} Local cCalcCOF := "" // S=Calcula COFINS; N=Não Calcula COFINS. Local nAliqCOF := 0 // Retorna o percentual de alíquota do COFINS. Local nBaseCOF := 0 // Retorna a base de cálculo do COFINS. If cProduto $ 'PA0000000000000000000000000001' cCalcCOF := "S" nAliqCOF := 1 nBaseCOF := 1000 ElseIf cProduto $ 'PA0000000000000000000000000002' cCalcCOF := "S" nAliqCOF := 3 nBaseCOF := 3000 EndIf aAdd(aRet, cCalcCOF) aAdd(aRet, nAliqCOF) aAdd(aRet, nBaseCOF) Return aRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas