9523 - Erro no registro CR30 da Nova Gia de São Paulo.
Problema: Na validação da Nova Gia de São Paulo é apresentada a seguinte mensagem: Tabela 08, CR=30 - Campo Município não encontrado na tabela, posição 05.
Quando ocorre / onde se aplica: Na validação da Nova Gia de São Paulo.
Solução: Solução 9523: Os registros referentes a DIPAM são gerados de acordo com o comando SQL abaixo:
/*****************************************************************************************************************/
@ Listar DIPAM-B código 2.5 @
definir alfa xSqlCfop; @ Sql utilizado para @
definir alfa xAbrCfop; @ Abrangência montada @
xAbrCfop = 5153,6153,5251,5252,5253,5254,5255,5256,5257,5258,5299,6251,6252,6253,6254,6255,6256,6257,6258,6299,7251;
MontaAbrangencia(E660NFV.NOPOPE, xAbrCfop, xSqlCfop);
xSqlCfop = AND + xSqlCfop;
cur_CR30.SQL SELECT E008CEP.CODFIS, E008CEP.NOMCID, E660NFV.NOPOPE, E660NFV.VLRBIC, E660NFV.VLROIC, E660NFV.VLRIIC,
E660NFV.VLRFUN, E085CLI.CODCLI
FROM E660NFV, E085CLI, E008CEP, E001TNS
WHERE E660NFV.CODCLI = E085CLI.CODCLI AND
(E008CEP.CEPINI <= E085CLI.CEPCLI AND
E008CEP.CEPFIM >= E085CLI.CEPCLI) AND
E660NFV.CODEMP = E001TNS.CODEMP AND
E660NFV.CODTNS = E001TNS.CODTNS AND
E001TNS.CODEMP = E660NFV.CODEMP AND
E660NFV.CODEMP = :ECodEmp AND
E660NFV.CODFIL = :ECodFil AND
E660NFV.DATSAI >= :NDatIni AND
E660NFV.DATSAI <= :NDatFim AND
__Inserir(:xConZer_NFV)
E660NFV.SITNFV = '2'
__Inserir(:xSqlCfop) /
AND ((E001TNS.VENTCF <> 'V') OR ((E001TNS.VENTCF = 'V') AND ((E660NFV.CODEDC = '01') OR (E660NFV.CODEDC = '55')))) /
ORDER BY 1;
cur_CR30.AbrirCursor();
enquanto(cur_CR30.Achou) {
se (cur_CR30.CodFis = 0) {
vNomCid = cur_CR30.NomCid;
Grava_Log30();
}
O validador está acusando divergência em relação a posição 05 (Código de um Município Paulista).
De acordo com o SQL acima, essa informação é gerada com base no conteúdo do campo E008CEP.CODFIS.
No manual da nova GIA presente no site da secretária de SP menciona que o conteúdo deste campo deve atender os códigos da tabela 15.
Avalie o valor que está sendo apresentado na posição 05 da linha 37 e verifique se o mesmo é compatível com os valores válidos da tabela 15. O campo E008CEP.CODFIS pode estar em branco ou possuir um valor inválido em relação a tabela 15.
Anexo um exemplo.
Quando ocorre / onde se aplica: Na validação da Nova Gia de São Paulo.
Solução: Solução 9523: Os registros referentes a DIPAM são gerados de acordo com o comando SQL abaixo:
/*****************************************************************************************************************/
@ Listar DIPAM-B código 2.5 @
definir alfa xSqlCfop; @ Sql utilizado para @
definir alfa xAbrCfop; @ Abrangência montada @
xAbrCfop = 5153,6153,5251,5252,5253,5254,5255,5256,5257,5258,5299,6251,6252,6253,6254,6255,6256,6257,6258,6299,7251;
MontaAbrangencia(E660NFV.NOPOPE, xAbrCfop, xSqlCfop);
xSqlCfop = AND + xSqlCfop;
cur_CR30.SQL SELECT E008CEP.CODFIS, E008CEP.NOMCID, E660NFV.NOPOPE, E660NFV.VLRBIC, E660NFV.VLROIC, E660NFV.VLRIIC,
E660NFV.VLRFUN, E085CLI.CODCLI
FROM E660NFV, E085CLI, E008CEP, E001TNS
WHERE E660NFV.CODCLI = E085CLI.CODCLI AND
(E008CEP.CEPINI <= E085CLI.CEPCLI AND
E008CEP.CEPFIM >= E085CLI.CEPCLI) AND
E660NFV.CODEMP = E001TNS.CODEMP AND
E660NFV.CODTNS = E001TNS.CODTNS AND
E001TNS.CODEMP = E660NFV.CODEMP AND
E660NFV.CODEMP = :ECodEmp AND
E660NFV.CODFIL = :ECodFil AND
E660NFV.DATSAI >= :NDatIni AND
E660NFV.DATSAI <= :NDatFim AND
__Inserir(:xConZer_NFV)
E660NFV.SITNFV = '2'
__Inserir(:xSqlCfop) /
AND ((E001TNS.VENTCF <> 'V') OR ((E001TNS.VENTCF = 'V') AND ((E660NFV.CODEDC = '01') OR (E660NFV.CODEDC = '55')))) /
ORDER BY 1;
cur_CR30.AbrirCursor();
enquanto(cur_CR30.Achou) {
se (cur_CR30.CodFis = 0) {
vNomCid = cur_CR30.NomCid;
Grava_Log30();
}
O validador está acusando divergência em relação a posição 05 (Código de um Município Paulista).
De acordo com o SQL acima, essa informação é gerada com base no conteúdo do campo E008CEP.CODFIS.
No manual da nova GIA presente no site da secretária de SP menciona que o conteúdo deste campo deve atender os códigos da tabela 15.
Avalie o valor que está sendo apresentado na posição 05 da linha 37 e verifique se o mesmo é compatível com os valores válidos da tabela 15. O campo E008CEP.CODFIS pode estar em branco ou possuir um valor inválido em relação a tabela 15.
Anexo um exemplo.