marcellocainelli

Bom dia. Vou entrar em contato com eles. Obrigado por enquanto.

Um detalhe Italo é que esse cliente esta utilizando ACBRNFSe (antigo) e esta por ele emite normalmente. procedure TNFSe.EnviaAssessorPublico; var vCodigoVerificacao: string; begin Try DmNFSe.ACBrNFSe.Enviar(DmNFSe.CDSNFSeID.AsInteger); except on E:Exception do begin If E.Message = '' then begin Sleep(3000); DmNFSe.ACBrNFSe.NotasFiscais.Clear; DmNFSe.ACBrNFSe.ConsultarLoteRps(DmNFSe.CDSNFSeID.AsString, vCodigoVerificacao); vCodigoVerificacao:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; If vCodigoVerificacao = EmptyStr then raise Exception.Create('O Código de verificação de envio retornou em branco - não foi possível enviar a NFSe.'); //Salva o Num NFse, Protocolo e Cod Verificacao DmNFSe.CDSNFSe.Edit; DmNFSe.CDSNFSeNUMNFISCAL.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; DmNFSe.CDSNFSeRPS_SERIE.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; DmNFSe.CDSNFSeCODIGOVERIFICACAO.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DmNFSe.CDSNFSePROTOCOLO.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo; DmNFSe.CDSNFSeSTATUS.AsString:= 'A'; DmNFSe.CDSNFSe.Post; DmNFSe.CDSNFSe.ApplyUpdates(0); DmNFSe.ACBrNFSe.NotasFiscais.Imprimir; end else raise Exception.Create(E.Message); end; End; end; Esse é o código de como estou fazendo pelo ACBRNFSe. Como esta funcionando por ele acredito que não seja com a Prefeitura a questão. Somente estou tentando migrar todos os meus clientes para o novo componente e nesse deu enrosco total. Tem mais alguma idéia ?

Então Italo, testei por ambos, ConsultarLoteRPS e ConsultarNFSe em um loop de 7 tentativas, não traz o xml da nota.

Bom dia Italo. Atualizei todos os fontes de todas as pastas e reinstalei o ACBr. O erro mudou, agora a nota esta sendo salva no site: Mas nem ao enviar o comando emitir e nem ao consultar traz o xml da nota. Tentei consultar pelo Lote e Por NFSe em um loop de 7 tentativas. Segue anexo os novos xmls NFSe.zip

Bom dia Italo. Desculpe pela demora no retorno mas na semana passada estava na Autocom e somente estou conseguindo retomar os testes agora. Meu problema mudou, não esta mais gerando a nota, esta sempre retornando "Lote não Encontrado". Por favor veja meu post de 08/04, anexei os xmls q estão retornando agora. Tentei também utilizar o Programa Exemplo para testar mas apesar de estar configurado corretamente para o provedor Assessor Público esta gerando o xml de envio diferente e dai retorna erro de usuário.

Boa tarde. Estou ficando maluco com esse provedor - simplesmente agora não gera mais notas, sempre me retorna o erro "Lote não Encontrado". O erro já retorna logo após o comando DmNFSeX.ACBrNFSeX.Emitir(FdsNFSe.DataSet.FieldByName('ID').AsString, meAutomatico, False); Estou enviando em anexo os xmls gerados. Tentei também utilizar o Programa Exemplo para testar mas apesar de estar configurado corretamente para o provedor Assessor Público esta gerando o xml de envio diferente e dai retorna erro de usuário. NFSe.zip

Boa tarde. Agradeço pelo retorno Daniel. Sim, recebo normalmente o xml (segue em anexo) e se colocar para imprimir automaticamente mostra o Danfe na tela. Somente ao tentar capturar as informações do DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.Numero ou qquer outra informação vem sempre vazio. Pelo programa exemplo pelo q vi não tem a opção de capturar essas informações. Alguma idéia ? 822-nfse.xml

Boa tarde. Estou gerando a NFSe para o provedor Assessor Público para cidade de Penápolis. A NFSe é gerada sem erros mas não consigo capturar os dados de retorno: procedure TNFSeX.EmitirAssessorPublico; var vProtocolo: string; iTentativas: Integer; begin DmNFSeX.ACBrNFSeX.Emitir(FdsNFSe.DataSet.FieldByName('ID').AsString, meAutomatico, False); Sleep(1000); ChecarResposta(tmGerar); vProtocolo:= DmNFSeX.ACBrNFSeX.WebService.Emite.Protocolo; If vProtocolo = EmptyStr then raise Exception.Create(memoLog.Text); for iTentativas := 1 to 7 do begin Sleep(1000); DmNFSeX.ACBrNFSeX.ConsultarLoteRps(vProtocolo, FdsNFSe.DataSet.FieldByName('ID').AsString); DmNFSeX.ACBrNFSeX.ConsultarNFSe; if DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.Numero <> '' then begin FdsNFSe.DataSet.Edit; FdsNFSe.DataSet.FieldByName('NUMNFISCAL').AsString:= DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.Numero; FdsNFSe.DataSet.FieldByName('RPS_SERIE').AsString:= DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; FdsNFSe.DataSet.FieldByName('PROTOCOLO').AsString:= DmNFSeX.ACBrNFSeX.WebService.Emite.Protocolo; FdsNFSe.DataSet.FieldByName('CODIGOVERIFICACAO').AsString:= vProtocolo; FdsNFSe.DataSet.FieldByName('STATUS').AsString:= 'A'; FQryNFSe.EntidadeBase.Salva; GravaXmlNoBanco(0); DmNFSeX.ACBrNFSeX.NotasFiscais.Imprimir; Break; end; end; if iTentativas = 8 then raise Exception.Create('Erro desconhecido'); end; Tentei emitir e capturar as informações diretamente, depois consulta por RPS passando o protocolo e lote e também a consulta por NFSe. Não consigo capturar o número da NFSe e a serie da RPS, aparentemente o objeto esta vazio.

Boa tarde. A Prefeitura de Promissão trocou de servidor do Kaingang para Guarani. Na NFSe antiga entrei no arquivo Fiorilli.ini e alterei: ; Promissao/SP RecepcaoLoteRPS_3541604=http://kaingang.comunicapromissao.com.br:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl para ; Promissao/SP RecepcaoLoteRPS_3541604=http://guarani.comunicapromissao.com.br:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Como alterar na nova ACBrNFSeX ?

Bom dia. Parece ser o problema que estava dando na NFCe com certificado A3. Com certificado A1 parece que esta funcionando.

Eu não estou usando o Fortes, apenas o EscPos. As duas impressões estão sendo usado o ACBrPosPrint, porem na impressão do SAT usando o ACBrSATExtratoESCPOS, o tamanho da fonte não esta sendo respeitado.

Estou usando o ACBrPosPrint para fazer algumas impressões em impressoras Bluetooth, esta funcionando tudo normal, porem quando tento usar o ACBrSAT com as mesmas configurações a impressão não respeita os parametros informados Estes são os parametros que estou usando para as duas impressões, só a impressão do SAT que não respeita o que eu estou fazendo de errado? with dt do begin pACBrPosPrinter.Desativar; pACBrSAT.Extrato:= pACBrSATExtratoESCPOS; pACBrSATExtratoESCPOS.PosPrinter:= pACBrPosPrinter; pACBrPosPrinter.Modelo := TACBrPosPrinterModelo.ppEscPosEpson; pACBrPosPrinter.PaginaDeCodigo := TACBrPosPaginaCodigo.pc850; pACBrPosPrinter.Porta := QParamIMPR_BLUETOOTH.AsString; pACBrPosPrinter.ControlePorta:= True; pACBrPosPrinter.ColunasFonteNormal:= 48; pACBrPosPrinter.EspacoEntreLinhas := 0; pACBrPosPrinter.LinhasEntreCupons := 0; pACBrPosPrinter.TipoCorte:= ctTotal; pACBrPosPrinter.CortarPapel(True); pACBrPosPrinter.ConfigLogo.KeyCode1 := 1; pACBrPosPrinter.ConfigLogo.KeyCode2 := 0; pACBrSAT.CFe.Clear; pACBrSAT.CFeCanc.Clear; pACBrSAT.CFe.AsXMLString := pArquivoXML; pACBrSATExtratoESCPOS.ImprimeQRCode := True; pACBrPosPrinter.Ativar; pACBrSAT.ImprimirExtrato; pACBrPosPrinter.Desativar; end;

Estou usando o ACBrPosPrint para fazer algumas impressões em impressoras Bluetooth, esta funcionando tudo normal, porem quando tento usar o ACBrSAT com as mesmas configurações a impressão não respeita os parametros informados Estes são os parametros que estou usando para as duas impressões, só a impressão do SAT que não respeita o que eu estou fazendo de errado? with dt do begin pACBrPosPrinter.Desativar; pACBrSAT.Extrato:= pACBrSATExtratoESCPOS; pACBrSATExtratoESCPOS.PosPrinter:= pACBrPosPrinter; pACBrPosPrinter.Modelo := TACBrPosPrinterModelo.ppEscPosEpson; pACBrPosPrinter.PaginaDeCodigo := TACBrPosPaginaCodigo.pc850; pACBrPosPrinter.Porta := QParamIMPR_BLUETOOTH.AsString; pACBrPosPrinter.ControlePorta:= True; pACBrPosPrinter.ColunasFonteNormal:= 48; pACBrPosPrinter.EspacoEntreLinhas := 0; pACBrPosPrinter.LinhasEntreCupons := 0; pACBrPosPrinter.TipoCorte:= ctTotal; pACBrPosPrinter.CortarPapel(True); pACBrPosPrinter.ConfigLogo.KeyCode1 := 1; pACBrPosPrinter.ConfigLogo.KeyCode2 := 0; pACBrSAT.CFe.Clear; pACBrSAT.CFeCanc.Clear; pACBrSAT.CFe.AsXMLString := pArquivoXML; pACBrSATExtratoESCPOS.ImprimeQRCode := True; pACBrPosPrinter.Ativar; pACBrSAT.ImprimirExtrato; pACBrPosPrinter.Desativar; end;

Bom dia. Obrigado pelo retorno. Vou testar com essa nova opção. Pode considerar como resolvido porque de qualquer maneira usando o InserirDeclaracaoXMLSeNecessario também esta salvando corretamente.

Boa tarde. E com relação a rejeição 873 da rastreabilidade ? Como estão informando as tags ?