Erro No Registro C170

[emsoft]

Amigos, fiz uma atualização pelo SVN e depois disso meus arquivos que antes eram todos validados agora vem com vários erros no CST_ICMS. No caso do itens abaixo o CST_ICMS é o 500 mas ele converteu para 1900 e segundo o guia este campo deve conter 3 caracteres apenas.

 

|C170|1|15812AD||1,00000|UN|25,32|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|25,32|1,6500|||0,42|53|25,32|7,6000|||1,92||

|C170|2|15815||1,00000|UN|13,15|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|13,15|1,6500|||0,22|53|13,15|7,6000|||1,00||

|C170|3|15816AD||1,00000|UN|23,41|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|23,41|1,6500|||0,39|53|23,41|7,6000|||1,78||

|C170|4|15817||2,00000|UN|26,30|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|53|26,30|1,6500|||0,43|53|26,30|7,6000|||2,00||

|C170|5|PW883||1,00000|UN|65,49|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|70|65,49||||0,00|70|65,49||||0,00||

|C170|6|PW885||2,00000|UN|62,90|0,00|0|1900|1403||0,00|0,00|0,00|0,00|0,00|0,00|0|00||0,00|0,00|0,00|70|62,90||||0,00|70|62,90||||0,00||

 

 

[]s

 

[emsoft]

O problema está na função nova criada a CstIcmsToStr(), aquii nos meus fontes eu voltei como era e voltou a funcionar corretamente. Mas peço que revisem esta função.

[netstart]

Estou com o mesmo problema as CSTs estão convertendo tudo errado...

[netstart]

Resposta para quem passar pela mesma situação, após a atualização a forma de alimentar o componente mudou para melhor :

 

Antes eu alimentava da seguinte forma : CST_ICMS    := sticmsEstrangeiraAdqMercIntCobradoAnteriormentePorST // gerando assim um case enorme.

 

 Agora a forma correta que deu certo : StrToCstIcms(IBQItens.FieldByName('cst_icms').AsString); // excelente...

[Isaque Pinheiro]

Exato Jorge, a mudança que houve é na tentativa de melhorar, vou averiguar o motivo do erro, pois mesmo havendo essa grande melhoria o que antes funcionava tem que continuar funcionando, essa é e sempre será a filosofia das melhorias do projeto ACBr, sempre tentar trazer dentro do possível compatibilidade para que nossos usuários não tenham que mudar seus códigos, ou se tiver que seja o mínimo possível.

 

Dessa forma vou analisar o problema, mas se algum de vocês já o tenha feito ou puder fazer pois estão com a mão na massa, por gentileza colabore conosco anexando a unit aqui que eu pego e a subo para o SVN.

 

Obrigado.

[emsoft]

Isaque, esta nova função CstICMSToStr abaixo quando passa o parâmetro por exemplo: sticmsSimplesNacionalCobradoAnteriormentePorST,  em vez de retornar 500 está retornando 1900. Mas eu desconheço esses novos CTS´s com 4 dígitos não sei qual é a finalidade. 

 

CstIcms:  array[0..167] of String = (

            '000','010','020','030','040','041','050','051','060','070','090','0101','0102','0103','0201','0202','0203','0300','0400','0500','0900',

            '100','110','120','130','140','141','150','151','160','170','190','1101','1102','1103','1201','1202','1203','1300','1400','1500','1900',

            '200','210','220','230','240','241','250','251','260','270','290','2101','2102','2103','2201','2202','2203','2300','2400','2500','2900',

            '300','310','320','330','340','341','350','351','360','370','390','3101','3102','3103','3201','3202','3203','3300','3400','3500','3900',

            '400','410','420','430','440','441','450','451','460','470','490','4101','4102','4103','4201','4202','4203','4300','4400','4500','4900',

            '500','510','520','530','540','541','550','551','560','570','590','5101','5102','5103','5201','5202','5203','5300','5400','5500','5900',

            '600','610','620','630','640','641','650','651','660','670','690','6101','6102','6103','6201','6202','6203','6300','6400','6500','6900',

            '700','710','720','730','740','741','750','751','760','770','790','7101','7102','7103','7201','7202','7203','7300','7400','7500','7900');

 

function CstIcmsToStr(AValue: TACBrCstIcms): string;

begin

   Result := CstIcms[ Integer( AValue ) ];

end;

Editado 5 Junho, 2013 por emsoft

[Isaque Pinheiro]

Essas CST são do simples nacional.

[EMBarbosa]

emsoft,

 

São CSOSN e não CST. Tem a mesma função, mas são diferentes.

[emsoft]

sim eu sei, mas no meu caso uma nota com csosn 0500 tem que constar no EFD PisCofins apenas como 500 (3 dígitos) se colocar 0500 (4 digitos) o PVA já grita. Mas está vindo como 1900 o que é pior ainda.

 

 

[]s

[asterix]

Ola Pessoal detectei o mesmo problema aqui, o lance e somente a ordem dos CST, pois a função converte para inteiro "Integer( AValue )" não pega o valor e sim a ordem.

[Isaque Pinheiro]

Vou analisar o motivo do erro esse final de semana, e acredito já subir a correção.

[asterix]

Isaque Saiu alguma legislação a qual permite que saia CSOSN pois até onde sei "Código da Situação Tributária referente ao ICMS, conforme a 

Tabela indicada no item 4.3.1" somente permite 3 caracteres, quer que eu ja faça a alteração para o funcionamento?

seria simples apenas alteração da classe ACBrSpedUtils no array "CstIcms:  array[0..167] of String =( ...."  retirando os CSOSN pois tentei procurar aqui e não encontrei legislação alterando para que possa sair também os CSOSN conforme foi feita a alteração, inclusive os itens do array "ACBrSpedUtils" não condizem com o enum da classe "ACBrEPCBlocos" TACBrCstIcms

[Isaque Pinheiro]

ok, pode fazer em seguida anexe aqui que subo para o SVN, obrigado.

 

Na verdade não saiu Lei alguma para isso, sendo que quem está no Simples Nacional nem gera SPED, realmente deve ter somente as CSTs.

[asterix]

Ola Isaque Boa Tarde

fiz uma alteração paliativa aqui, pois como não conheço muito o projeto não sei onde o array "CstIcms" existente na classe "ACBrSpedUtils" pois esta classe e comum a todos os projetos SPED e uma alteração impensada nesta classe pode trazer vários problemas para o projeto, no entanto observando a forma como e feito no Sped Fiscal onde não e utilizado via "enum" e sim uma variável do tipo string onde so se passa o valor do campo e nada mais, acho esta forma mais eficiente, pois traz menas manutenção no projeto, oque você acha?

TACBrCstIcms = (

sticmsTributadaIntegralmente = 0 , // '000' // Tributada integralmente

sticmsTributadaComCobracaPorST , // '010' // Tributada e com cobrança do ICMS por substituição tributária

sticmsComReducao , // '020' // Com redução de base de cálculo

sticmsIsentaComCobracaPorST , // '030' // Isenta ou não tributada e com cobrança do ICMS por substituição tributária

sticmsIsenta , // '040' // Isenta

sticmsNaoTributada , // '041' // Não tributada

sticmsSuspensao , // '050' // Suspensão

sticmsDiferimento , // '051' // Diferimento

sticmsCobradoAnteriormentePorST , // '060' // ICMS cobrado anteriormente por substituição tributária

sticmsComReducaoPorST , // '070' // Com redução de base de cálculo e cobrança do ICMS por substituição tributária

sticmsOutros , // '090' // Outros

sticmsSimplesNacionalTributadaComPermissaoCredito , // '101' // Simples Nacional - Tributada pelo Simples Nacional com permissão de crédito

sticmsSimplesNacionalTributadaSemPermissaoCredito , // '102' // Simples Nacional - Tributada pelo Simples Nacional sem permissão de crédito

sticmsSimplesNacionalIsencaoPorFaixaReceitaBruta , // '103' // Simples Nacional - Isenção do ICMS no Simples Nacional para faixa de receita bruta

sticmsSimplesNacionalTributadaComPermissaoCreditoComST , // '201' // Simples Nacional - Tributada pelo Simples Nacional com permissão de crédito e com cobrança do ICMS por substituição tributária

sticmsSimplesNacionalTributadaSemPermissaoCreditoComST , // '202' // Simples Nacional - Tributada pelo Simples Nacional sem permissão de crédito e com cobrança do ICMS por substituição tributária

sticmsSimplesNacionalIsencaoPorFaixaReceitaBrutaComST , // '203' // Simples Nacional - Isenção do ICMS no Simples Nacional para faixa de receita bruta e com cobrança do ICMS por substituição tributária

sticmsSimplesNacionalImune , // '300' // Simples Nacional - Imune

sticmsSimplesNacionalNaoTributada , // '400' // Simples Nacional - Não tributada pelo Simples Nacional

sticmsSimplesNacionalCobradoAnteriormentePorST , // '500' // Simples Nacional - ICMS cobrado anteriormente por substituição tributária (substituído) ou por antecipação

sticmsSimplesNacionalOutros , // '900' // Simples Nacional - Outros

sticmsEstrangeiraImportacaoDiretaTributadaIntegralmente , // '100' // Estrangeira - Importação direta - Tributada integralmente

sticmsEstrangeiraImportacaoDiretaTributadaComCobracaPorST , // '110' // Estrangeira - Importação direta - Tributada e com cobrança do ICMS por substituição tributária

sticmsEstrangeiraImportacaoDiretaComReducao , // '120' // Estrangeira - Importação direta - Com redução de base de cálculo

sticmsEstrangeiraImportacaoDiretaIsentaComCobracaPorST , // '130' // Estrangeira - Importação direta - Isenta ou não tributada e com cobrança do ICMS por substituição tributária

sticmsEstrangeiraImportacaoDiretaIsenta , // '140' // Estrangeira - Importação direta - Isenta

sticmsEstrangeiraImportacaoDiretaNaoTributada , // '141' // Estrangeira - Importação direta - Não tributada

sticmsEstrangeiraImportacaoDiretaSuspensao , // '150' // Estrangeira - Importação direta - Suspensão

sticmsEstrangeiraImportacaoDiretaDiferimento , // '151' // Estrangeira - Importação direta - Diferimento

sticmsEstrangeiraImportacaoDiretaCobradoAnteriormentePorST, // '160' // Estrangeira - Importação direta - ICMS cobrado anteriormente por substituição tributária

sticmsEstrangeiraImportacaoDiretaComReducaoPorST , // '170' // Estrangeira - Importação direta - Com redução de base de cálculo e cobrança do ICMS por substituição tributária

sticmsEstrangeiraImportacaoDiretaOutros , // '190' // Estrangeira - Importação direta - Outras

sticmsEstrangeiraAdqMercIntTributadaIntegralmente = 42 , // '200' // Estrangeira - Adquirida no mercado interno - Tributada integralmente

sticmsEstrangeiraAdqMercIntTributadaComCobracaPorST = 43 , // '210' // Estrangeira - Adquirida no mercado interno - Tributada e com cobrança do ICMS por substituição tributária

sticmsEstrangeiraAdqMercIntComReducao = 44 , // '220' // Estrangeira - Adquirida no mercado interno - Com redução de base de cálculo

sticmsEstrangeiraAdqMercIntIsentaComCobracaPorST = 45 , // '230' // Estrangeira - Adquirida no mercado interno - Isenta ou não tributada e com cobrança do ICMS por substituição tributária

sticmsEstrangeiraAdqMercIntIsenta = 46 , // '240' // Estrangeira - Adquirida no mercado interno - Isenta

sticmsEstrangeiraAdqMercIntNaoTributada = 47 , // '241' // Estrangeira - Adquirida no mercado interno - Não tributada

sticmsEstrangeiraAdqMercIntSuspensao = 48 , // '250' // Estrangeira - Adquirida no mercado interno - Suspensão

sticmsEstrangeiraAdqMercIntDiferimento = 49 , // '251' // Estrangeira - Adquirida no mercado interno - Diferimento

sticmsEstrangeiraAdqMercIntCobradoAnteriormentePorST = 50 , // '260' // Estrangeira - Adquirida no mercado interno - ICMS cobrado anteriormente por substituição tributária

sticmsEstrangeiraAdqMercIntComReducaoPorST = 51 , // '270' // Estrangeira - Adquirida no mercado interno - Com redução de base de cálculo e cobrança do ICMS por substituição tributária

sticmsEstrangeiraAdqMercIntOutros = 52 // '290' // Estrangeira - Adquirida no mercado interno - Outras

);

Editado 7 Junho, 2013 por asterix

[Isaque Pinheiro]

Anexe a Unit.

[asterix]

Em anexo Unit com solução paliativa para acerto dos índices do enum

ACBrEPCBlocos.pas

[Isaque Pinheiro]

Vou baixar analisar se tem algum ajuste a ser feito e subo para o repositório, muito obrigado.

[Isaque Pinheiro]

Pessoal, primeiro quero agradecer a todos pelas informações e ajuda disponibilizada.

 

Bom, fiz as mudanças que creio ter resolvido o problema, baseado em informações dos colegas pesquisei e a constante CstIcms foi alterada para ter somente os códigos referente a tabela indicada no item 4.3.1, e no no tipo TACBrCstIcms foram adicionadas os tipos dos novos códigos dando assim a mesma ordem e quantidade da contante CstIcms.

 

Peço que atualizem e façam um teste, se houver algum  problema reportem aqui que darei total prioridade para solução desse problema, obrigado a todos.

[emsoft]

Pelo SVN ainda não veio a alteração.

[Isaque Pinheiro]

Vc atualizou o novo link para baixar? Tivemos uma mudança de link do repositório.

[emsoft]

atualizado e resolvido. Obrigado Isaque pela ajuda.

[Isaque Pinheiro]

Disponha, qualquer dúvida continue o esse post.

[Dangelo2010]

Isaque, qual o novo link?

[Dangelo2010]

Consequi mais cadê o resto ou seja cadê o ICMS Simples Nacional?

 

CstIcms:  array[0..97] of String = (
            '000','010','020','030','040','041','050','051','060','070','090',
            '100','110','120','130','140','141','150','151','160','170','190',
            '200','210','220','230','240','241','250','251','260','270','290',
            '300','310','320','330','340','341','350','351','360','370','390',
            '400','410','420','430','440','441','450','451','460','470','490',
            '500','510','520','530','540','541','550','551','560','570','590',
            '600','610','620','630','640','641','650','651','660','670','690',
            '700','710','720','730','740','741','750','751','760','770','790',
            '101','102','103','201','202','203','300','400','500','900');
 

[Isaque Pinheiro]

Não existe mais códigos que esses veja a tabela 4.3.1 do SPED.