Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Painel
borderColorwhite
bgColorblack
titleColorwhite
borderWidth0
borderStylesolid

                      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

...