Italo Giurizzato Junior

Igor, veja essa rotina: OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); end; OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); ACBrCTe1.Conhecimentos.ImprimirPDF; end; Inicialmente ela pede o primeiro XML, limpa o componente e carrega o XML. Depois pede o segundo XML (chave diferente do primeiro), carrega o XML e executa o método ImprimirPDF. Desta forma essa rotina gerou o PDF dos dois DACTE e salvou eles na pasta definida em PathPDF. A única diferença é que não gera um único PDF com os dois DACTE que acredito que é o que você deseja. Mas talvez seria possível criar uma rotina para gerar um ZIP com todos os PDF.

Boa tarde Igor, Analisando o código abaixo que se encontra na unit ACBrCTeDACTeRLClass, o componente deveria salvar em disco os PDF de cada CT-e carregado no componente. O local onde será salvo é definido na propriedade de configuração PathPDF e os nomes dos PDF seguem o seguinte formato: <chave>-cte.pdf for i := 0 to TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 do begin FPArquivoPDF := PathWithDelim(TACBrCTe(ACBrCTe).DACTE.PathPDF) + OnlyNumber(TACBrCTe(ACBrCTe).Conhecimentos.Items[i].CTe.infCTe.ID) + '-cte.pdf'; TACBrCTe(ACBrCTE).Conhecimentos.Items[i].NomeArqPDF := FPArquivoPDF; // if i < TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 then // FPArquivoPDF := FPArquivoPDF + sLinebreak; case TamanhoPapel of tpA5: TfrmDACTeRLRetratoA5.SalvarPDF(Self, TACBrCTe(ACBrCTe).Conhecimentos.Items[i].CTe, FPArquivoPDF); else TfrmDACTeRLRetrato.SalvarPDF(Self, TACBrCTe(ACBrCTe).Conhecimentos.Items[i].CTe, FPArquivoPDF); end; end;

Boa tarde Dercide, Realmente parece que não esta obedecendo a configuração. Vou analisar o problema.

ALA, Peça um XML completo com a tag <Envelope> de envio, consulta, cancelamento, etc.

Boa tarde Raylan, Favor configurar o componente para salvar os arquivos Soap. Configuracoes.WebServices.Salvar := True; Faça um novo teste e anexe os arquivos *-soap.xml

Boa tarde ALA, Abra a URL definida em defWSDL em um navegador, você vai encontrar as URLs do SoapAction. Essa URL definida em defURL já é a URL de homologação ou de produção, precisa descobrir depois. A parte mais chata vai ser descobrir como é o layout do <Envelope>

Gilvano, Muito obrigado pela colaboração, já enviei para o repositório.

Boa tarde Doni, Mesmo alterado o valor da propriedade GerarInfMDFeSupl não gera a Tag no XML?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Bom dia Gilvano, Favor anexar as Units alteradas para que possamos analisar.

Boa tarde Adair, É muito estranho, pois a Classe SSL é uma só para todos os modelos de Documentos Fiscais Eletrônicos.

Boa tarde Alberto, Qual é o erro?

Tatiane, Favor atualizar os fontes e faça novos testes.

ALA, Você precisa verificar quais campos desse provedor que não existe e incluir no pnfsNFSe.pas para ser utilizado no pnfsNFSeW_SigISS.pas

Boa tarde Dercide, No arquivo INI do provedor qual é o valor da propriedade QuebradeLinha?

Tatiane, Porque você esta executando o método GerarMDFe? O método Enviar executa o método Assinar que por sua vez gera o MDFe.

ALA, Você pode pegar qualquer unit: pnfseNFSeW_xxx.pas a titulo de exemplo para criar a nova unit para esse provedor. Uma coisa é certa, não vai ser rápido. Infelizmente a contratação dessas empresas pelas prefeituras são através de licitação e esse tipo de contrato tem prazo determinado. Ao fim do contrato uma nova licitação é feita e consequentemente outra empresa pode ganhar. E se a ganhadora não seguir o layout da ABRASF e não estiver implementado no componente o bicho pega.

Boa tarde, Temos mudança sim no arquivo ACBrMDFeServiços, pois agora temos um webservice especifico para recepcionar os MDF-e que forem enviados no modo Síncrono. E acredito que teremos que ter uma opção no ACBrMonitor onde você possa configurar se deseja Modo Síncrono ou Assíncrono. Pela que andei lendo futuramente teremos somente o envio no modo Síncrono do MDF-e, visto que o envio sempre foi unitário, ou seja, sempre foi enviado somente 1 MDF-e de cada vez.

Melissa, O nome do arquivo pegamos da seguinte forma: xNomeArq := ACBrNFSe1.NotasFiscais.Items[ x ].NomeArq; onde x varia de 0 até a quantidade -1 de notas enviadas. Por favor faça um teste de cancelamento, acredito que teremos que ajustar o cancelar também.

ALA, Esse arquivo INI foi feita uma cópia do IPM, e que fez essa cópia não alterou o nome do layout. Como eu disse esse arquivo INI esta incompleto. Vai ser necessário criar uma unit para esse provedor e depois ir fazendo os ajustes no arquivo INI para conseguir montar o envelope corretamente, bem como as URLs de homologação e de produção, bem como as URLs de SoapAction entre outras coisas.

Boa tarde ALA, Não faça isso, essa unit é para os provedores que seguem a versão 1 do layout da ABRASF. Se o provedor não segue nenhuma versão da ABRASF devemos criar uma unit exclusiva para ele.

Boa tarde Vinício, Note que o XML que o componente esta gerando é o de consulta a situação do lote, já o modelo que lhe passaram se refere a consulta ao lote. O componente possui um método para cada tipo de consulta.

Boa tarde Melissa, Note que agora não ocorre o erro referente a assinatura no retorno da consulta a situação. O erro de assinatura agora esta ocorrendo ao realizar a consulta ao lote. Veja bem: temos o envio e retorno do envio, consulta a situação do lote e retorno a consulta a situação, por fim temos a consulta ao lote e o seu respectivo retorno. Será necessário fazer a mesma alteração que fiz na montagem do XML da consulta a situação, só que agora no XML da consulta ao lote. Por favor, atualize novamente e faça novos testes.

Boa tarde Oliveira, Note que essa tag é opcional logo precisamos de um valor para dizer que ela não deve ser gerada. Sendo assim acrescentei o enumerador: prpNenhum que vale zero. Se não é para gerar a tag você deve atribuir esse valor ao respectivo campo ou um dos outros 2 disponíveis. Mesmo assim, muito obrigado por informar que estava gerando de forma errada.

Boa tarde Tatiane, Neste caso será necessário "debugar" a sua aplicação para descobrir o que esta ocorrendo.