mansur

Olá, Revendo novamente o Requisito XI, fiz novos ajustes na geração do XML: - Retirada a tag "PAFNFCe"; - Deixado "menuFiscal" como raiz; - "nroArquivo", "data", "hora", "arqBD" e "arqSist" passam a ser atributos da tag "arquivo". Com estes ajustes, imagino agora ser este o layout esperado. Em anexo as alterações e os XML gerados. ACBrPAFNFCe.v3.zip XMLexemplo.v3.zip

Oi. Fiz uns ajustes devido a esta situação: - Gero o XML; - Assino e copio a assinatura; - Gero novamente o XML e anexo a assinatura. Em anexo as alterações, exemplo pra geração do XML e os XML gerados. Desde já agradeço. ACBrPAFNFCe.v2.zip ACBrPAFNFCe_exemplo.zip XMLexemplo.zip

Olá, Para atender o Requisito XI, implementei o componente "ACBrPAFNFCe" para geração do arquivo XML assinado. Este componente é baseado no ACBrBlocoX e fica dentro de "...\Fontes\ACBrDFe\ACBrPAFNFCe". Em anexo (ACBrPAFNFCe.zip) com o componente para quem quiser alterar e corrigir. Agora uma dúvida quanto a tag "arquivo" (A02) que deve ter os dados com base64. Utilizando este componente, gerei um XML utilizando um arquivo .txt com tamanho 1KB, gerou todas as tag. Mas ao gerar um XML com um arquivo com tamanho 12MB, somente é gerada a tag "arquivo" e as tag de assinatura (anexo XMLTeste.zip). Há algo que posso estar fazendo errado? ou é alguma limitação na geração do XML? Desde já agradeço. ACBrPAFNFCe.zip XMLteste.zip

Elton, atualizei o SVN, e vou deixar como string para realizar novos testes. Volto a reportar se ocorrer algum problema. Luciano.

O anexo correto é este. Luciano. ACBrBlocoX.zip

Realizados ajustes e correções nos componentes: 1. Em TRetConsultaArquivoBlocox foi acrescentado FSituacaoOperCod e FSituacaoOperStr, e retirado FMensagem (que não é utilizado). Essa alteração é devido ao retorno estar diferente do layout. 2. Para algumas propriedades foi utilizado {$IFDEF VER300}AnsiString{$ELSE}String{$ENDIF}. Isso é porque estou compilando no Delphi 10, e devido ao tamanho do arquivo de estoque, com String fica limitado. 3. Incluído "ExtairArquivo" em "TDownloadArquivoBlocoX", para descompactar e salvar o conteúdo do XML. 4. Correções na leitura de algumas tags de retorno em "pcnRetEnvBlocoX". 5. Nos "TratarResposta" em "ACBrBlocoX_WebServices", foi alterado de: FPRetWS := Trim(ParseText(SeparaDados(FPRetornoWS, '..Response'))); Para: FPRetWS := Trim(ParseText(SeparaDados(FPRetornoWS, '..Result'))); Essa alteração é útil para abrir o retorno quando o mesmo é salvo em arquivo. Exemplo utilizando '...Response', o conteúdo extraído é: <ConsultarHistoricoArquivoResult><?xml version="1.0" encoding="utf-8"?> <RespostaConsultarHistoricoArquivo> <SituacaoOperacaoCodigo>0</SituacaoOperacaoCodigo> <SituacaoOperacaoDescricao>OK</SituacaoOperacaoDescricao> <Recibo>...</Recibo> <Eventos> <Evento> <DataHora>2019-06-13T14:52:53</DataHora> <Codigo>0</Codigo> <Descricao>Arquivo recepcionado, arquivo aguardando processamento</Descricao> </Evento> <Evento> <DataHora>2019-06-13T14:57:29</DataHora> <Codigo>2</Codigo> <Descricao>Erro no processamento do arquivo</Descricao> <Motivo>Erro ...</Motivo> </Evento> </Eventos> </RespostaConsultarHistoricoArquivo></ConsultarHistoricoArquivoResult> Exemplo utilizando '...Result', o conteúdo extraído é: <?xml version="1.0" encoding="utf-8"?> <RespostaConsultarHistoricoArquivo> <SituacaoOperacaoCodigo>0</SituacaoOperacaoCodigo> <SituacaoOperacaoDescricao>OK</SituacaoOperacaoDescricao> <Recibo>...</Recibo> <Eventos> <Evento> <DataHora>2019-06-13T14:52:53</DataHora> <Codigo>0</Codigo> <Descricao>Arquivo recepcionado, arquivo aguardando processamento</Descricao> </Evento> <Evento> <DataHora>2019-06-13T14:57:29</DataHora> <Codigo>2</Codigo> <Descricao>Erro no processamento do arquivo</Descricao> <Motivo>Erro ...</Motivo> </Evento> </Eventos> </RespostaConsultarHistoricoArquivo> Em anexo para novas validações. Luciano. ACBrBlocoX.zip

Neste tópico, há algumas alterações no Bloco X. No retorno da consulta de processamento do arquivo, parece que há diferenças com relação ao que está documentado no layout do Bloco X, mas tem de ser verificado.

Anexados mais alguns ajustes e correções. Falta tratar os retornos que possuem mais de um registro, como: histórico, lista de arquivos e pendências do contribuinte e desenvolvedora. Pablo, com relação a consulta, estou utilizando desta maneira: //Monta o XML da consulta ACBrBlocoX1.ConsultarProcessamentoArquivo.Recibo := Numero_Recibo_Transmitido; ACBrBlocoX1.ConsultarProcessamentoArquivo.RemoverEncodingXMLAssinado := True; ACBrBlocoX1.ConsultarProcessamentoArquivo.GerarXML(True); //Executa a consulta do processamento do arquivo ACBrBlocoX1.WebServices.ConsultarProcessamentoArquivoBlocoX.XML := ACBrBlocoX1.ConsultarProcessamentoArquivo.XMLAssinado; ACBrBlocoX1.WebServices.ConsultarProcessamentoArquivoBlocoX.UsarCData := True; ACBrBlocoX1.WebServices.ConsultarProcessamentoArquivoBlocoX.Executar; ACBrBlocoX.1.zip

Em anexo algumas alterações para utilização dos novos WebServices: http://webservices.sathomologa.sef.sc.gov.br/wsDfeSiv/BlocoX.asmx Luciano. ACBrBlocoX.zip

Em CalcularHashCSRT, altere para: Result := EncodeBase64(SHA1(ACSRT + AChave));

Antes de perguntar eu não havia visto: https://www.projetoacbr.com.br/forum/topic/48886-sobre-a-a-nota-técnica-2018005-ja-existe-algo-disponibilizado/?tab=comments&_fromLogin=1&ct=1550690311 Então agora é só aguardar.

Alterando para AsciiToHex(SHA1(ACSRT + AChave)) em CalcularHashCSRT, resulta em: 696BFA2DE10CE17EAEE3EA8123639867C82B8A0C (idem exemplo da NT). Mas é rejeitado novamente na validação porque está acima do tamanho máximo que é 28 carateres. O exemplo da NT também está errado se o hashCSRT é para ser 28 caracteres. E agora?

Oi. Estou realizando alguns testes para a geração do responsável técnico, mas ocorre e o seguinte erro ao validar o XML: Falha na validação dos dados da nota: 122 TAG:<infRespTec> ID:#087/hashCSRT(Hash do CSRT - Código de Segurança do Responsável Técnico) - Tamanho menor que o mínimo permitido [ikú-á á~®ãê#c˜gÈ+Š ]. 1824 - Element '{http://www.portalfiscal.inf.br/nfe}hashCSRT': 'iku-a a~ ae #c gE+' is not a valid value of the local atomic type. Para os testes no pcnNFeW, estou utilizando de forma fixa o CSRT e a chave da NF-e que estão na NT2018.005. Gerador.wCampo(tcStr, '#087', 'hashCSRT', 28, 28, 1, CalcularHashCSRT('G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO', '41180678393592000146558900000006041028190697'), DSC_HASHCSRT); Segundo o exemplo da NT (item 2.4) o resultado deveria ser: 696bfa2de10ce17eaee3ea8123639867c82b8a0c. Mas retorna 'iku-a a~ ae #c gE+'. O que pode ser?

Olá, O meu aplicativo (.exe compilado com Delphi) trabalha com dll para execução de alguns processos. Atualmente as dll utilizam a libeay32.dll na versão 0.9.8.x sem problemas. Me solicitaram para atualizar a libeay32 da versão 1.0.2.x, e na emissão da NF-e (que utiliza o ACBr) funcionou, mas acabou causando conflito nas outras dll. Como posso utilizar as duas versões da libeay32 sem causar conflitos? Exceto a emissão de NF-e, as outras dll não podem ser alteradas devido as fontes desatualizadas ou serem de propriedade de terceiros (ex.: bemafi32). Atenciosamente, Luciano.

Em uma análise rápida, foram acrescentados os itens: 3.5.4 Mensagem de Resposta da Validação de Redução Z e de Estoque e 4. Desbloqueio de Contigência do PAF-ECF