Árvore de páginas

Versões comparadas

Chave

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

...

07. CAMPOS CUSTOMIZADOS/CALCULADOS

CAMPODESCRIÇÃOCódigo

F3_ALQIVA

Para o cálculo Alícuota IVA
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB)

nTotAliq:=0
               FornY = 1ToLen( aTributos[1,2] )
                  If !Empty( ( cAliasA )->F3_DTCANC ) .And. ( jParams['MV_PAR03'][1] ==3 )
                     nTotAliq+=0
                  Else
                     nTotAliq+= ( ( cAliasA )->&( 'F3_ALQIMP'+aTributos[1,2,nY] ) )
                  EndIf
               Next
               jItems[self:aStruct[nX][1]] :=nTotAliq
Verifica se o imposto existe para o registro e realiza o cálculo de sumarização dos valores.
Existem diversas regras fiscais na função OBTIMPSFB que são observadas para realização dos cálculos 

F3_

F3_

BASIVA

Para o cálculo da Base Cálculo IVA
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB)

nTotBase:=0

               FornY = 1ToLen( aTributos[1,2] )
                  If !Empty( ( cAliasA )->

F3

_DTCANC ) .And. ( jParams['MV

_

PAR03'][1] ==3 )
                     nTotBase+=0
                  Else
                     If ( ( cAliasA )->&( 'F3_ALQIMP'+aTributos[1,2,nY] ) >0 )
                        nTotBase+= ( cAliasA )->&( 'F3_BASIMP'+aTributos[1,2,nY] )
                        Exit
                     EndIf
                  EndIf
               Next
               jItems[self:aStruct[nX][1]] := ( nTotBase*nSinal )F3_

EXENTAS


Para o cálculo de Exentos no Gravados
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB

)
If !Empty( ( cAliasA )->F3_DTCANC ) .And. ( jParams['MV_PAR03'][1] ==3 )
                  jItems[self:aStruct[nX][1]] :=0
               Else
                  jItems[self:aStruct[nX][1]] := ( ( cAliasA )->&( self:aStruct[nX][5]

)

*nSinal )
               EndIf


F3_VLRIVA


Para o cálculo IVA
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB

)
nTotTrib:=0
               FornY = 1ToLen( aTributos[1,2] )
                  If !Empty( ( cAliasA )->F3_DTCANC ) .And. ( jParams['MV_PAR03'][1] ==3

)


                     nTotTrib+=0


                  Else
                     nTotTrib+= ( cAliasA )->&( '

F3_

VALIMP'+aTributos[1,2,nY] )
                  EndIf
               Next
               jItems[self:aStruct[nX][1]] := ( nTotTrib*nSinal )F3_

VLRIVAP


Para o cálculo IVA Percep.
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB)
nTotTrib:=0
               FornY = 1ToLen( aTributos[1,3] )
                  If !Empty( ( cAliasA )->

F3

_DTCANC ) .And. ( jParams['MV

_

PAR03'][1] ==3 )
                     nTotTrib+=0
                  Else
                     nTotTrib+= ( cAliasA )->&( 'F3_VALIMP'+aTributos[1,3,nY] )
                  EndIf
               Next
               jItems[self:aStruct[nX][1]] := ( nTotTrib*nSinal )F3_

IIBB


Para o cálculo IIBB Percep.
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB
)
nTotTrib:=0
               FornY = 1ToLen( aTributos[1,1] )
                  If !Empty( ( cAliasA )->F3_DTCANC ) .And. ( jParams['MV_PAR03'][1] ==3 )
                     nTotTrib+=0
                  Else
                     nTotTrib+= ( cAliasA )->&( 'F3_VALIMP'+aTributos[1,1,nY] )
                  EndIf
               Next
               jItems[self:aStruct[nX][1]] := ( nTotTrib*nSinal
)

F3_OUTRAS


Para o cálculo Otros Impostos
É utilizada a rotina OBTIMPSFB, para identificação do imposto, seu valor e sua base de cálculo (Tabela SFB)

08.TABELAS UTILIZADAS

  • SA1 - Cadastro de clientes
  • SA2 - Cadastro de fornecedores
  • SF1 - Cabeçalho de notas de entrada
  • SF2 - Cabeçalho de notas de saída
  • SF3 - Livros Fiscais

...