...
Painel |
---|
borderColor | white |
---|
bgColor | black |
---|
titleColor | white |
---|
borderWidth | 0 |
---|
borderStyle | solid |
---|
|
IfcIncidRRF $ "31|32|33|34".AND.cTipo $ "2|4"
nEmplTafValue := ( cAlias )->V3N_VALOR nEmplErpValue := ( cAlias )->V3N_VALOR lRet := .T.
EndIf If cIncidRRF $ "31|32|33|34" If cTipo $ "2|4"
nDmTafVal += ( cAlias )->V3N_VALOR nDmErpVal += ( cAlias )->V3N_VALOR lRet := .T.
ElseIf cTipo $ "1|3"
nDmTafVal -= ( cAlias )->V3N_VALOR nDmErpVal -= ( cAlias )->V3N_VALOR lRet := .T.
EndIf
ElseIf cIncidRRF $ "11|12|41|42|46|47|51|52|54|61|63|64|67|70|71|72|73|74|75|76|77|79|700|701|7900|7950|7951|7952" nDmTafVal := 0 nEmplTafValue += 0 lRet := .T. ElseIf cIncidRRF $ "7952|7953|7954|7955|7956|7957|7958|7959|7960|7961|7962|7963|7964|9011|9012|9014|9031|9032|9034|9831|9832|9834|9041|9042|9046|9047|9051|9052|9054|9061|9062|9063|9064|9067|9082|9083" nDmTafVal := 0 nEmplTafValue += 0 lRet := .T. EndIf
|
As quebras por tipo no trecho acima estão de um uma forma genérica, pois o foco da parte função sintética era mostrar apenas valores retidos. Para a adaptar a função na parte analítica a quebra deve ser feita conforme tipo de <tpInfoIR>.
...