AlexandreADC

Realmente, seria interessante saber como o Validador preenche o Bloco M internamente, pois tem alguns registros do bloco M (por exemplo o M410 e M810) não é gerado automaticamente... Colocar uma apuração equivalente dentro do componente ACBr auxiliaria e muito o preenchimento dos registros que não são gerados pelo validador...

sidnei_alves1, assim como na NFe, os descontos do Cupom devem estar a nível de item, pois elas reduzem o valor da base de cálculo do ICMS. Se o desconto da Venda não está impactando na base de cálculo do ICMS, então não poderá informar no SPED.

complicado que a versão completa é cara, e inviável. É realmente tão complicado assim dar uma melhoradinha para conseguir emitir usando os recursos básicos dele?

Disponha Comunidade é pra isso (Y)

Detalhe da conversão: LFill (Que retorna String) > Converte para AnsiString > strRegistroX999 >> WriteRegistroX999 > Converte para String > StringList ACBrFContBloco_0_Class.pas ACBrFContBloco_9_Class.pas ACBrFContBloco_I_Class.pas ACBrFContBloco_J_Class.pas ACBrFContBloco_M_Class.pas ACBrSpedFCont.pas

Vou trocar nos fontes da minha maquina e farei upload para o forum

Olá amigos, voltando ao mesmo problema que o ACBrSPED Contábil tinha, conversões implícita de AnsiString para String... Que na época diminuiu o tempo de geração do arquivo de 10 horas (não é brincadeira) para 15 minutos. Agora nossos clientes estão reclamando da demora para "gerar" o FCONT, e identificamos que 50% do tempo ele fica processando a rotina "SaveStringList" porque nela ele alimenta o StringList que é de natureza String, com textos gerados por "WriteRegistroX9999" que retornam todos AnsiString. Se trocarmos tudo pra String vai optimizar e muito a rotina. O que acham? Tópico onde discutimos a troca de AnsiString para String no SPED Contábil

Não, está tudo tranquilo, não houve reclamações a disponibilidade, mas teve um pouco de confusão porque tivemos que alterar a bpl quando a SEFAZ liberou para emitir no novo WebService. Achávamos que fosse mais automatizado o envio, mas tem que marcar um horário para a migração...

Obrigado Isaque Pinheiro! Ficou certinho 100% e melhorando!

analista.edilson: No nosso caso é proporcional, não tem outro jeito.

Estamos com problemas de comunicação então. Porque o problema é simples. Bem, vamos falar de outra maneira então. Está neste arquivo a correção. ACBrEPCBloco_0_Class.pas ACBrEPCBloco_0_Class.pas

Desculpa a arrogância, mas o DEMO está bem defasado e atende poucos casos. Tanto que as datas de lá estavam para 04/2011. Acho que o Demo deve ser usado para aprendizagem: para aprender COMO gerar o arquivo, e não para efetuar testes de erros.

O Registro 0110 fica assim: |0110|2||1|9| e o 0111 fica: |0111|0,00|0,00|0,00|0,00|0,00| Maioria dos nossos clientes estão reclamando deste registro que aparece, quando não deveria aparecer. PELO MANUAL: Obrigatório (se no registro 0110 o Campo “COD_INC_TRIB” = 1 ou 3 e o Campo “IND_APRO_CRED” = 2) Não Informado (se no registro 0110 o Campo “COD_INC_TRIB” = 2 ou o Campo “IND_APRO_CRED” =1) No meu caso o o COD_INC_TRIB = 1 e o IND_APRO_CRED = '' (vazio pois só é informado quando o COD_INC_TRIB = 1 ou 3) No componente gera SE Assigned(Reg0110.Registro0111), ou seja: Vai gerar SEMPRE. No DEMO gerou: |0000|002|0|0||01072012|31072012|NOME DA EMPRESA|11111111000191|ES|3200607|000000000|00|0| |0001|0| |0100|NOME DO CONTADOR|12345678909|123456|22222222000000|00000000|||||0000000000|0000000000||3200607| |0110|2||1| |0111|0,00|0,00|0,00|0,00|0,00| |0140|1|NOME DO ESTABELECIMENTO 1|11111111000191|ES||3200607||| |0150|1|NOME DO CLIENTE 1|1058||12345678909||3200607||ENDERECO DO CLIENTE 1|1|COMPLEMENTO DO CLIENTE 1|BAIRRO| |0150|2|NOME DO CLIENTE 2|1058||12345678909||3200607||ENDERECO DO CLIENTE 2|2|COMPLEMENTO DO CLIENTE 2|BAIRRO| |0150|3|NOME DO CLIENTE 3|1058||12345678909||3200607||ENDERECO DO CLIENTE 3|3|COMPLEMENTO DO CLIENTE 3|BAIRRO|

Gostaria de destacar que para os emissores que estavam emitindo para o SVRS devem comunicar a SEFAZ-PR e agendar a migração do WebService. ESTADO DO PARANÁ SECRETARIA DE ESTADO DA FAZENDA COORDENAÇÃO DA RECEITA DO ESTADO www.fazenda.pr.gov.br Boletim Informativo nº 023/2012 CT-e: Interrupção Permanente da Utilização do Ambiente da SEFAZ Virtual do Rio Grande do Sul para os Contribuintes Paranaenses Publicado em 28/8/2012 Informamos a publicação da Norma de Procedimento Fiscal – NPF nº 076/2012 que estabelece a migração dos contribuintes paranaenses, que emitem CT-e no Ambiente da Sefaz Virtual do Estado do Rio Grande do Sul – SVRS, para o Ambiente Próprio da Secretaria da Fazenda do Estado do Paraná – SEFA/PR. Para a referida migração, os contribuintes usuários de sistemas emissores proprietários devem cumprir as seguintes etapas: 1. Os estabelecimentos terão prazo até 1º de novembro de 2012 para adaptar seus sistemas emissores, redirecionando os arquivos para o Ambiente Próprio da SEFA/PR. 2. O estabelecimento deverá enviar correspondência eletrônica ao endereço [email protected], com antecedência mínima de 24 horas, solicitando o agendamento de sua habilitação no Ambiente Próprio da SEFA/PR e simultânea desabilitação do Ambiente da SVRS. 2.1. Na correspondência eletrônica, deverá constar: o CNPJ e CAD/ICMS do estabelecimento que irá efetivar a migração, o nome, o e-mail e telefone de contato, a data e hora agendadas conforme opções definidas no item 2.2. 2.2. A SEFA/PR oferecerá duas opções semanais para o agendamento, durante todo o período de migração: às 14:00 horas das segundas-feiras ou às 10:00 horas das quintas-feiras. 2.3. O contribuinte, obrigatoriamente, deverá alterar os endereços de envio de seu sistema emissor de CT-e para o Ambiente Próprio da SEFA/PR, na data e hora definidas no agendamento. 3. Decorrido o prazo para a migração, a SVRS deixará de autorizar CT-e para contribuintes paranaenses. 4. Ressaltamos a necessidade de realizar testes no ambiente de homologação da SEFA/PR, antes de agendar a migração, pois no ambiente da SVRS algumas validações não ocorrem, especialmente as relacionadas com os dados cadastrais dos contribuintes paranaenses e que são executadas no Ambiente Próprio da SEFA/PR. 5. As orientações acima não se aplicam aos contribuintes que se utilizam do Emissor Gratuito de CT-e. Em breve, e com prévio aviso, os endereços do ambiente de produção serão atualizados para este aplicativo de forma a direcionar automaticamente a transmissão de CT-e dos contribuintes paranaenses aos endereços do Sistema Próprio de CT-e da SEFA/PR. Desse modo, a migração será transparente a estes contribuintes, não havendo necessidade de agendamento do dia e hora para a migração. 6. Os endereços do Ambiente Próprio da SEFA/PR estão disponíveis no Portal SPED/PR no menu CT-e(http://www.sped.fazenda.pr.gov.br/modul ... onteudo=10). 7. Maiores informações sobre o projeto CT-e estão disponíveis no Portal da SPED/PR em http://www.sped.fazenda.pr.gov.br/modul ... conteudo=2 . Se houver alguma dúvida, entre em contato com o SAC: Serviço de Atendimento ao Cidadão da Secretaria da Fazenda do Estado do Paraná

Desculpe a demora para responder Italojr, eu estava de férias (viajando para o Rio de Janeiro! Que maravilha!). Acabei de passar para nossos testadores verificarem... Assim que testarmos daremos uma resposta. Obrigado!

Na SEFAZ estão todos perdidos, quando peço: - Como que vou corrigir um CT-e? eles respondem: - Com carta de correção. daí peço: - e tem Carta de correção para o CT-e? eles respondem: - verifique no manual de contribuição. Mas NEM LAYOUT TEM! Muito menos o Webservice para recepção. O que os clientes de vocês fazem a respeito de correções do CT-e?

Boa tarde, logo logo a SEFAZ do Paraná estará colocando em Produção seu serviço de recepção do CT-e Atualmente só está no ar servidores de homologação. http://www.sped.fazenda.pr.gov.br/modul ... onteudo=10 Trarei por meio deste tópico notícias da disponibilização das URL's de servidores de produção e peço para que os companheiros que adicionem ao CTEUtil a seguinte função: class function CTeUtil.GetURLPR(AAmbiente: Integer; ALayOut: TLayOut): WideString; begin case ALayOut of LayCTeRecepcao: Result := CTeUtil.SeSenao(AAmbiente = 1, GetURLSVRS(AAmbiente,ALayOut) , 'https://homologacao.cte.fazenda.pr.gov.br/cte/CteRecepcao'); //?WSDL LayCTeRetRecepcao: Result := CTeUtil.SeSenao(AAmbiente = 1, GetURLSVRS(AAmbiente,ALayOut) , 'https://homologacao.cte.fazenda.pr.gov.br/cte/CteRetRecepcao'); //?WSDL LayCTeCancelamento: Result := CTeUtil.SeSenao(AAmbiente = 1, GetURLSVRS(AAmbiente,ALayOut) , 'https://homologacao.cte.fazenda.pr.gov.br/cte/CteCancelamento'); LayCTeInutilizacao: Result := CTeUtil.SeSenao(AAmbiente = 1, GetURLSVRS(AAmbiente,ALayOut) , 'https://homologacao.cte.fazenda.pr.gov.br/cte/CteInutilizacao'); LayCTeConsultaCT: Result := CTeUtil.SeSenao(AAmbiente = 1, GetURLSVRS(AAmbiente,ALayOut) , 'https://homologacao.cte.fazenda.pr.gov.br/cte/CteConsulta'); LayCTeStatusServico: Result := CTeUtil.SeSenao(AAmbiente = 1, GetURLSVRS(AAmbiente,ALayOut) , 'https://homologacao.cte.fazenda.pr.gov.br/cte/CteStatusServico'); //?WSDL end; end; e que alterem a linha onde tem 41: Result := CTeUtil.GetURLSVRS(AAmbiente, ALayOut); //PR - Paraná para: 41: Result := CTeUtil.GetURLPR(AAmbiente, ALayOut); //PR - Paraná Obrigado!

Beleeeza cara! Gerou rapidinho, e sem pontos de interrogação! Ficou 100% Muito obrigado Isaque Pinheiro!

Não vejo a hora de poder contribuir, nem que seja testando o componente!

Como eu disse anteriormente, depois que eu troquei para String nos blocos que estavam dando problemas, parou de aparecer caracteres estranhos no meio e melhorou a performance de 4h para 10 minutos da geração do arquivo. Não troquei em tudo por falta de tempo mesmo...

Tudo bem, fiz a alteração do ACBr aqui na minha empresa, mas fica a solução no forum se alguém mais tiver os mesmos problemas que tivemos quando há grande volume de dados.

Pelo que disse nosso colega italojjr, String no Delphi 7 é ShortString. Daí sim a necessidade de usar o AnsiString.

achei uma matéria interessantíssima sobre a perda de desempenho nas conversões implícitas. http://www.bobswart.nl/weblog/Blog.aspx?RootId=5:3294 E outra, quando compilo o ACBr, sempre vem warnings alertando: [DCC Warning] ACBrEFDBloco_0_Class.pas(1001): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString' Então já é esperado essa perda de dados... A geração pelo DEMO não criou os "?" no meio do arquivo... Quem saiba por não fazer tanto processamento pesado já que fiz um "for" em vez de pegar os dados de um ClientDataSet... E quanto ao tipo STRING: http://docwiki.embarcadero.com/RADStudi ... ring_Types Entendo a necessidade de Usar AnsiString para quem usa Delphi 7, mas o uso no Delphi XE só causa dores de cabeça... Eu ainda não entendo porque adicionar aquelas diretivas é tão prejudicial ao projeto...

Vou tentar simular no DEMO... Vou colocar lá uns for até 100000 pra aumentar a quantidade de movimentos... Como eu falei, vai ser difícil debugar porque o erro dá lá depois de milhares de registros... O erro não é fixo com um ou outro registro, mas SEMPRE acontece com volumes grandes de dados. Mas não ocorre em todas as linhas, só em dezenas, as vezes centenas de linhas... E com a mudança que fiz deixou de aparecer os "?" no meio do arquivo. To esperando o DEMO gerar o arquivo, vai durar algumas horas sem minha alteração :S

Sei que a maioria usa Delphi 7, mas os que usam Delphi 2009* ~ XE2 não devem ser esquecidos!