Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 18

changes.mady.by.user Leonardo Maria Pereira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Luis Eduardo Enriquez Mata

Gravado em

Chave

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

...

07. CAMPOS CUSTOMIZADOS/CALCULADOS

CAMPODESCRIÇÃO
Código
CÁLCULO
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

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)
% IVAAcumulado da Taxa de Imposto (F3_ALIQIMP +  Campos do Livro), dos impostos que possuem Classificação igual a IVA (FB_CLASSIF = 3) e a Classe é Imposto (FB_CLASSE = I)
F3_BASIVABase Cálculo IVAAcumulado da Base Imposto (F3_BASIMP + Campos Livro), dos impostos que possuem Classificação igual a IVA (FB_CLASSIF = 3) e a Classe é Imposto (FB_CLASSE = I)
F3_EXENTASExentos no GravadosValor do campo Valores Isentos (F3_EXENTAS)
F3_VLRIVAIVAValor Imposto Acumulado (F3_VALIMP + Campos Livro), dos impostos que possuem Classificação igual a IVA (FB_CLASSIF = 3) e a Classe é Imposto (FB_CLASSE = I)
F3_VLRIVAPIVA Percep.

Valor Imposto Acumulado (F3_VALIMP + Campos Livro), dos impostos que possuem Classificação igual ao IVA (FB_CLASSIF = 3) e a Classe é Percepção (FB_CLASSE = P)

F3_IIBBIIBB Percep.Valor Imposto Acumulado (F3_VALIMP + Campos Contábeis), dos tributos que possuem Classificação igual ao Lucro Bruto (FB_CLASSIF = 1) e a Classe é Percepção (FB_CLASSE = P)
F3_OUTRASOtrosValor Imposto Acumulado (F3_VALIMP + Campos Livro) dos Tributos que não entram na configuração dos campos anteriores.
Informações
titleInformação

Os cálculos só serão realizados se o campo Data de Cancelamento (F3_DTCANC) estiver vazio.


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

...