...
| Painel |
|---|
| borderColor | white |
|---|
| bgColor | black |
|---|
| titleColor | white |
|---|
| borderWidth | 0 |
|---|
| borderStyle | solid |
|---|
|
cIncidRRF = ( cAlias )->V3N_ITIRRF
cIRRFGov = ( cAlias )->V3N_TPVLR If
If ( cAlias )->V3N_ORIGEM $ "|2"
IfcIncidRRF $ "11|12|13"
If cIncidRRF $ "11|12|13DoCASE
CasecIncidRRF == "11"
nRendimentoTributaveis11 := ( cAlias )->V3N_VALOR
CasecIncidRRF == "12"
nRendimentoTributaveis12 := ( cAlias )->V3N_VALOR
nRendimentoTributaveis CasecIncidRRF == "13"
nRendimentoTributaveis13 := ( cAlias )->V3N_VALOR
OtherWise
ElseIf cIncidRRF $ lRet := .F.
EndCase
ElseIfcIncidRRF $ "31|32|34"
nRetencoesIRRF DoCASE
CasecIncidRRF == "31"
nRetencoesIRRF31 := ( cAlias )->V3N_VALOR
ElseIf cIncidRRF $ "9082|9083CasecIncidRRF == "32"
nCompensacaoJudical nRetencoesIRRF32 := ( cAlias )->V3N_VALOR
EndIf ElseIf CasecIncidRRF == "34"
nRetencoesIRRF33 := ( cAlias )->V3N_ORIGEM $ "4VALOR
OtherWise
lRet := .F.
EndCase
ElseIfcIncidRRF $ "9082|9083"
DoCASE
If cIncidRRF $ "11|12|13 CasecIncidRRF == "9082"
nRendimentoTributaveisGov nCompensacaoJudical9082 := ( cAlias )->V3N_VALOR
ElseIf cIncidRRF $ "31|32|34CasecIncidRRF == "9083"
nRetencoesIRRFGov nCompensacaoJudical8083 := ( cAlias )->V3N_VALOR
OtherWise
EndIf lRet := .F.
EndCase
EndIf
EndIf
|
Para função LoadIRRFHash() deve ser implementado a logica para a parte ANALITICA montando o JSON de resposta.
...
