| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Financeiro |
O ponto de entrada FA080PCC verifica os valores de retenção dos impostos e o valor da base dos impostos
User Function FA080PCC()
Local aParam := PARAMIXB
Local aArea := GetArea()
Local nTotImp := 0
Local nDifImp := 0
//-------------------------------------------------
// aParam [1] = Valor do PIS
// aParam [2] = Valor do COFINS
// aParam [3] = Valor do CSLL
// aParam [4] = Valor do IRRF
// aParam [5] = Valor do titulo
//-------------------------------------------------
nTotImp := aParam[1]+aParam[2]+aParam[3]+aParam[4]
nDifImp := aParam[5] - nTotImp
Alert("O valor liquido do titulo é de "+cValtoChar(nDifImp)+"!")
RestArea(aArea)
Return
Customizações que afetem diretamente a workarea da rotina em questão, é importante que seja sempre guardada e restaurada a workarea
IMPORTANTE!
Não há