Rogério Ricardo Santos

Ok, obrigado, vou testar... Rogério

Estou fazendo assim: ACBrNFSe1.NotasFiscais.Clear; AlimentaComponente(vAux); // Para abrir para imprimir ACBrNFSe1.Enviar(vNumLote, True); Sleep(4000); sRetorno := UTF8Encode(ACBrNFSe1.WebServices.EnviarLoteRPS.RetWS); cProtocolo := ACBrNFSe1.WebServices.EnviarLoteRPS.Protocolo; Envia mas não grava o retorno na pasta e nem sei quando enviou... Mas se consultar no site da prefeitura a nota foi enviada... Grato, Rogério E-mail: [email protected]

Não estou conseguindo pegar o retorno do arquivo para o provedor SJP no Trunk2...Mas a nota está sendo enviada...No site da Prefeitura o RPS está enviado... No Trunk1 retornava na pasta, (Nota n. 5, por exemplo): \201601\NFSe\5-nfse.xml Para Curitiba retorna normalmente na pasta: \Docs\201601\NFSe\Notas\5-nfse.xml Porque para SJP não está gravando o retorno ? E Nem abrindo para imprimir após o envio... Como saberei se foi enviado o lote corretamente para São José dos Pinhais / PR ? Grato, Rogério E-mail: [email protected]

Simplesmente instalei o Delphi 7 em outra máquina com Windows 8 e funcionou normalmente na outra máquina... Na outra máquina tudo funciona no Trunk2 menos o SatTeste...Dá esse erro do rlink32.dll Se tiver alguma solução me avise... Acho que a melhor saída seria conseguir o rlink32.dll do Delphi 10 e substituir, mas não consegui essa dll... Rogério E-mail: [email protected]

Exatamente isso que ocorreu com todos os detalhes... Consegui compilar fazendo exatamente dessa forma sem tirar nem por... Mas ainda não testei se está funcionando como funcionava com o Trunk 1...Espero que funcione sem problemas... Grato, Rogério E-mail: [email protected]

Na verdade a nota não está sendo enviada... E o protocolo vem vazio... Para pegar o protocolo fazia: sRetorno := ACBrNFe1.WebServices.Enviar.RetWS; strretg := ''; // Pega o retorno pela string if (Length(Trim(sRetorno)) > 0) then begin if ((Pos('<' + 'nProt' + '>', sRetorno) > 0) or (Pos('<' + '/nProt' + '>', sRetorno) > 0)) then begin strretg := Copy(sRetorno, Pos('<' + 'nProt' + '>', sRetorno) + Length('<' + 'nProt' + '>'), Length(sRetorno)); strretg := Copy(strretg, 1, Pos('</nProt>', strretg)-1); if (Length(Trim(strretg)) > 0) then cProtocl := strretg; end; end;

Resolvido o problema da gravação da contingência...Coloquei para gravar na pasta de outra forma... Agora não consigo enviar a nota... Da a mensagem: "A Nota Fiscal não foi enviada corretamente para a Sefaz! Mantem o arquivo par uma nova tentativa mais tarde ?" E fica em loop sem parar... ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := TpcnVersaoDF(cbVersaoDF.ItemIndex); // Le a nota ACBrNFe1.NotasFiscais.LoadFromFile(meuarquivo, False); // Ambiente normal ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teNormal; ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi := now; ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dSaiEnt := now; ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.hSaiEnt := now; ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID := ''; ACBrNFe1.Enviar(vNumLote,True,True);

O estranho é que mesmo enviando em Contingencia parece que grava uma cópia na pasta de envio mensal... \201512 Gostaria que salvasse somente se fosse concluida a operação de envio on-line e corretamente nessa pasta... E gravasse na \201512 somente quando envio tudo ok em modo normal ? Grato, Rogério

Caros Colegas, Não estou entendendo a contingência no Trunk2... No Trunk1 fazia: ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Validar; ACBrNFe1.NotasFiscais.Imprimir; Só não dava o comando para enviar: ACBrNFe1.Enviar(vNumLote,True,Sincrono); Depois pegava o arquivo da pasta 'logs\' + Trim(chavenfe) + '-nfe.xml' e copiava para a minha pasta de contingencia para depois enviar mais tarde... Agora no Trunk2 não consigo achar o arquivo gerado em contingência que fiz e ele já vai para os enviados ... O que estou fazendo errado ? Grato, Rogério E-mail: [email protected]

Estou com essa mensagem também no Trunk2 ... "Sistema não esta de acordo com a Versão do Fortes Report Versão Atual 3.72B". Estou utilizando com a NFCe com o Fortes... A versão do fortes minha não é antiga...Baixei semana passada... O que fazer para eliminar essa mensagem ? O estranho é que tudo sai perfeitamente depois que pressiona o OK nas mensagens... Grato, Rogério E-mail: [email protected]

Apaguei todos os arquivos e nada... .res e demais arquivos que não seja *.pas *.dfm e *.dpr O estranho é que o projeto ACBrNFe_demo que também está no Trunk2 compila normalmente... So o SATTeste que não... Rogério E-mail: [email protected]

Não entendi... Quando peço para abrir o projeto exemplo na pasta (Trunk2) C:\acbr\Exemplos\ACBrDFe\ACBrNFSe\Delphi Demo_ACBrNFSe Me da a pergunta: Class TAcBrNFSeDANFSeQR not found...Ignore the error and continue ? Grato, Rogério

Mas os outros projetos compilam normalmente...Somente do SAT do Trunk2 que não esta compilando... Já vi sobre outras pessoas com o mesmo problema que removeram o Delphi, instalaram novamente e nada...

Mas irá funcionar o ACBrNFSe do jeito que está ? Teria que eliminar as referencias a classe TAcBrNFSeDANFSeQR senão nem compila... Depois funciona normalmente ? Grato, Rogério E-mail: [email protected]

Mas ele pede pela classe: TAcBrNFSeDANFSeQR ao abrir o projeto do ACBrNFSe.... O que pode ser feito ? Rogério

Alguem teria a rlink32.dll do Delphi 10 para me enviar ? Grato, Rogério E-mail: [email protected]

Passei do Trunk para o Trunk2 no SAtTeste e estou com o seguinte problema ao tentar compilar o projeto: No SATTeste, por exemplo: Error: RLINK32: Too many resources to handle O que fazer ? Grato, Rogério E-mail: [email protected]

Assim: ACBRNFe1.DANFE := ACBrNFeDANFCeFortesA41; Não aparece o ACBrNFeDANFCeFortes1 ? Não deveria aparecer ? TipoDanfe := tiNFCe; Grato, Rogério E-mail: [email protected]

Caros Colegas, Converti meu código de Trunk para Trunk2... A impressão está saindo como A4... Notei que o componente está como: ACBrNFeDANFCeFortesA41 e não como: ACBrNFeDANFCeFortes1 Acho que deveria instalar esse package no Delphi, não ? ACBrDANFCeFortesFr.PAS O que fazer para sair como no Trunk 1 ? Grato, Rogério E-mail: [email protected]

Estou com o mesmo problema da mensagem com o Trunk2: Error: RLINK32: Too many resources to handle. Somente no modulo do ACBrSAT Já apaguei os .res, compilei novamente e nada... Alguem tem alguma ideia ? Grato, Rogério E-mail: [email protected]

Se trocar sobre a pasta: PCNComum No ACBR do trunk2 para o meu ACBR irá funcionar e ter a tag CEST ? Quais arquivos (.PAS) tenho que trocar para a tag CEST ? Eu altero o código, então não poderei trocar todos os módulos... Grato, Rogério E-mail: [email protected]

A unit seria a AcbrNfeUtil.pas Basta trocar ela...

Não envia mais...Tem que atualizar os endereços... O que precisa alterar ? Em qual Unit ? Não posso atualizar a versão, já mexi bastante coisa no código... Poderia me enviar somente a Unit com os novos endereços ? Grato, Rogério E-mail: [email protected]

Caros Colegas, Estou utilizando o componente ACBrNFe para o envio da NFCe... Estou com um problema na impressão da NFCe em uma impressora Bematech pela porta COM4. Estou utilizando a opção da ACBrNFeDANFeESCPOS pela serial... "Comunication error 9997 - Timeout during operation" Porém a NFCe envia normalmente para a Sefaz... Esse erro parece que ocorre somente com uma nota com quantidade de 18 itens ou mais...Quando tem menos itens está indo normalmente... O que pode ser feito ? Grato, Rogério E-mail: [email protected]

Caros, Estou usando o componente para emitir a NFCe... Na saida serial estou usando o metodo: ImprimirRelatorio em ACBrNFeDANFeESCPOS1 ACBrNFeDANFeESCPOS1.ImprimirRelatorio(vincult, 1, false, false); E está saindo um comprovante vinculado corretamente... Agora preciso usar pela USB na impressora instalada no Windows, para isso vou utilizar o: ACBrNFeDANFCeFortes Mas ele não tem o metodo para: ImprimirRelatorio Como faço para sair o vinculado com esse componente ? Grato, Rogério E-mail: [email protected]