Histórico da Página
...
- MASTER - Tabela CJV
- VIEW_CAB
- GRID - Tabela CJW
- VIEW_LANC
- Campos: CJW_CODTAB|CJW_CODLAN|CJW_VIGINI|CJW_VIGFIM
- VIEW_VLR
- Campos: CJW_CODLAN|CJW_REGAPU|CJW_ORIVLR|CJW_TRIB|CJW_VALOR|CJW_TRILEG
- VIEW_LANC
- Consulta Padrão
- Campo CJW_TRIB - Utilizando a Consulta Padrão - F2B3
- Campo CJW_VALOR - Considera Valor ICMS - CIN3 ( Nova Consulta Criada)
- Funções de COMBOBOX
X315ChgF3 - Função para alterar a consulta padrão do campo CJW_CODTAB onde irá
trazer a tabela 5.1.1 ou 5.2- XTabLanc - Função para Retornar conteudo para combo do campo CJW_CODTAB
- XRegraApu - Função para Retornar conteudo para combo do campo CJW_REGAPU
- XOrigVlr - Função para Retornar conteudo para combo do campo CJW_ORIVLR
- XTribLeg - Função para Retornar conteudo para combo do campo CJW_TRILEG
- Funções de Validações:
- Função VigIniFIm que verifica se data inicial e data final já existem no cadastro de regras.
- ChangeLine , essa função atualiza o GRID entre abas , identificando a linha posiciona na ABA e replicando a mesma posição para as outras abas, dessa forma o usuário saberá em qual linha da aba Anterior esta alterando ou Visualizando.
- EdtTRIB- Função para ler o conteudo o campo CJW_ORIVLR e tratar o prenchimento do campo CJW_TRIB,
quando este for Trbuto Legado. - EdtTrileg - Função para ler o conteudo o campo CJW_ORIVLR e tratar o prenchimento do campo CJW_TRILEG,
quando este for Configurador de Tributos - VldCodigo - Validação do código da regra, para não aceitar caracteres especiais no codigo
- Fsa315MCpo - Função que valida os campos, quando alterar o conteudo do CJW_CODTAB, limpar os campos
CODLAN,e Data de Vigencia. - Fsa315M2Cpo - Função que valida os campos, quando alterar o conteudo do CJW_REGAPU, limpa o campo
CJW_TRIB, CJW_VALOR e CJW_TRILEG - Fsa315M3Cpo - Função que valida os campos, quando alterar o conteudo do CJW_ORIVLR, limpa o campo
CJW_TRIB, CJW_VALOR e CJW_TRILEG - ValidLanc - Função que valida que o Codigo de Lançamento informado consta nas tabelas
CDO e CDY.
...
Gerando um array com os lançamentos de ajuste e as notas fiscais de saída canceladas para lançar na apuração de ICMS e gravar na tabela CDA.
Campos da CDA, que serão gravados com dados da SFT e dados da CJW.
"CDA_FILIAL"
"CDA_TPMOVI"
"CDA_ESPECI"
"CDA_NUMERO"
"CDA_SERIE "
"CDA_CLIFOR"
"CDA_LOJA "
"CDA_CODLAN"
"CDA_VALOR "
"CDA_ORIGEM"
"CDA_NUMITE"
"CDA_CALPRO"
"CDA_FORMUL"
"CDA_BASE"
"CDA_ALIQ"
"CDA_TPLANC"
"CDA_SDOC"
"CDA_SEQ"
Criado o Array aLancAjuste que será utilizado para montar as informações que serão utilizados no aCDAIC para apuração do ICMS:
(aLancAjuste ,{;
cCodLan,; //0 - Código do Ajuste
cDescLanc,; //1 - Descrição destino
cValIcm,; //6 - Valor Acumulado
cBaseIcm}) //11 - Base ICM
-----------------------------------------------------------------------------------------------------------------------------------
MATA953 - Apuração de ICMS
Objetivo e escopo
As chamadas RetRegApu e BuscaLanc são funções que estão sendo utilizadas no código fornecido C:\Fontes_Azure_Gitea\livros_fiscais\Livros Fiscais\Retnfcanc.prw .
LancAjuste - Criado o Json jLancAjuste que será utilizado para montar as informações que serão utilizados no aCDAIC para apuração do ICMS:
jLancAjuste[cCodLan] := {"CDA_CODLAN": cCodLan,; //0 - Código do Ajuste
"CDA_DESCR": cDescLanc,; //1 - Descrição destino
"CDA_VALOR": cValIcm,; //6 - Valor Acumulado
"CDA_BASE": cBaseIcm} //11 - Base ICM
---------------------------------------------------------------------------------------------------------------------------
DelCDA - Esta função deleta registros de uma tabela CDA
Função Deleta a CDA das notas canceladas na SFT do periodo anterior com origem 6 e data de cancelamento.
Essa função e chamada no BUSCALANC antes da chamada da função RetNfCanc.
---------------------------------------------------------------------------------------------------------------------------
ConvModxEsp - Função para converter modelo de nota em espécie
Função criada pelo time de escrita para maxima e retornar a especie, utilizamos ela nas query onde preciso filtrar o modelo 63 (BPe)
Nas funções -RetNfCanc e RetCdaLanc.
---------------------------------------------------------------------------------------------------------------------------
MATA953 - Apuração de ICMS
Objetivo e escopo
As chamadas RetRegApu e BuscaLanc são funções que estão sendo utilizadas no código fornecido C:\Fontes_Azure_Gitea\livros_fiscais\Livros Fiscais\Retnfcanc.prw .
Adicionamos na função a953Apura a chamada das funções abaixo , porem foi preciso realizar proteções de dicionario
Criamos a validação
lBuscaLanc := FindFunction("BuscaLanc") .and. FindFunction("RetRegApu")
if lUsaSped .and. lBuscaLanc .and. aApurSX2[AI_CJV].and. aApurSX2[AI_CJW]
aRegApur:= RetRegApu(dDtIni)
if Len(aRegApur) > 0
BuscaLanc(dDtIni,@aRegApur,@aCDAIC, cNrLivro)
endif
Endif
RetRegApu: Essa função recebe um parâmetro dDtIni e retorna um array de registros de apuração. O objetivo dessa função é obter os registros de apuração com base na data de início da apuração de ICMS (dDtIni).
...
Este array ira ser utilizado para lancar os valores das notas canceladas , codigo de lançamento e Descrição do Codigo de Lançamento, alem de gerar uma CDA que será utilizada pra gerar os Registros E113.toc
FISA315 - Cadastro de Regra de Apuração
...