Hetosoft Sistemas

Sim, Foi no Componente, Segue em anexo. função ACBrNFSe.ConsultarSituacao(AProtocolo: String; const ANumLote: String): Boolean; ACBrNFSe.pas

Bom dia!!! Isso mesmo Italo, esta ocultando as mensagem de erro. E a principio eu estou utilizando o Provedor da Abaco que segue a versao 1. Entao voce acha que consegue verificar se pode comentar esse try, no GitHub para nós? No meu caso aqui, Resolveu!

Boa tarde!!! Pessoal eu to com problema, de estar usando a função ACBrNFSe.ConsultarSituacao(AProtocolo: String; const ANumLote: String): Boolean; e quando esta dando erro, tem um try Except que esta escondendo a msg o Raise Exception que tem dentro de WebServices.ConsultaSituacao(AProtocolo, ANumLote); A minha pergunta é: tá Certo esse: try Result := WebServices.ConsultaSituacao(AProtocolo, ANumLote); except Result := False; end; Porque pra mim ter o retorno correto tive que tirar esse try except. Pelo q vi esse false ja esta tratado dentro da funcao principal.

Nao, Ocorre esse outro: URL não definida para: TNFeConsultaCadastro.

Boa tarde!!! Ao tentar executar esse procedimento: ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := CNPJ; ACBrNFe1.WebServices.ConsultaCadastro.UF := UF; ACBrNFe1.WebServices.ConsultaCadastro.Executar; Estou obtendo seguinte resultado: É necessário um certificado para concluir a autenticação do cliente - URL:https://homologacao.sefaz.mt.gov.br/nfews/v2/services/CadConsultaCadastro2?wsdl - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2. Ja realizei a configuracao do meu componente AcbrNFe completa, Certificado valido, etc, Consigo ate Emitir nota, mas nao consigo consultar o cadastro. Alguem ja passou por isso? tem alguma ideia do que seja?

Entao Italo, Beleza tenho o FSituacao que me informa esses 4 Status, mas imagine que na emissao de um RPS, me Retorne FSituacao = 3 (Processado com Erro), o Cliente precisa saber que erro é esse pra corrigir, Se é um Erro de Aliquota, Inscricao Municipal Invalida ... Etc; e é esse o real motivo do erro. Se nao ele vai ter que deixar uma aplicacao para acessar um Site para ver essa informação. Mas para quem tiver esse mesmo problema, Resolvi da seguinte forma. ACBrNFSe1.ConsultarSituacao(Protocolo, Lote); Se autorizado aqui fica o FSituacao -> ACBrNFSe1.WebServices.ConsSitLoteRPS.Situacao; e Se não Processado com Sucesso é Gerado um Exception com o Verdadeiro Erro Ex: E30 RPS: 796 - Item da lista de serviço inexistente

Bom dia, Obrigado @Italo Jurisato Junior, Eu entrei em contato com a Abaco e ela informou que devemos usar o WS "aconsultarsituacaoloterps" para ter retorno do erro, que no componente é a funcao: ACBrNFSe1.ConsultarSituacao(Protocolo, Lote); Até ai blz, mas eu consultei a nota e peguei no arquivo Retornos.txt dentro Exemplos\ACBrDFe\ACBrNFSe e lá diz assim: Obter o Resultado da Consulta ... ConsultarSituacao ----------------- ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno[ x ].Codigo ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno[ x ].Mensagem ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno[ x ].Correcao Apos eu realizar a consulta olhei nessas tres opcoes, no item [0] que sempre utilizo e estao Inacessivel. Pelo que eu entendi quando Chamo a funcao ConsultarSituacao , Ela é independente do RPS(NFSE) no componente, Ate porque eu informo Lote e protocolo como parametro. Se eu estiver errado, me corrija! Segue os XMLS. 9D238E33BBBF3241CCD544C8DBE0D381-con-sit.xml 9D238E33BBBF3241CCD544C8DBE0D381-sit.xml

Boa tarde! Alguma Solucao ? Estou com Mesmo Problema e nao estou conseguindo obter mais informacoes. Ja tentei olhar nos schemas da Abaco e Funcoes no Componente. @Wanderson Paiva; @Juliomar Marchetti

Obrigado Italo, eu tinha alterado o provedor no INI Provedor=Abaco Só tinha esquecido de : NomeURL_H=varzeagrande NomeURL_P=varzeagrande Agora ja Esta Ok!

Boa tarde!!! Desde o dia 17/07/2017 a Prefeitura de Varzea Grande - MT trocou o Provedor de NFS-e , que antes era "Betha", para "Ábaco". Gostaria de Saber quando sera disponibilizado as Alteracoes referentes no GitHub ? Anexo Manual e Novos Links disponibilizados pela Abaco! Arquivos Abaco.rar

Pelo visto ninguém fez o Roteiro de pre homologacao impressora nao fiscal SiTef, em mato grosso eu uso simulador impressora nao fiscal , acbrECF, para usar acbrTEFD em NFC-e aqui os cliente usa tudo NFC-e, alguém poderia me dizer algo sobre isso, agradeco desde ja.

brigadoooooooooooo

Não tem mais a opcao de finalizar um topico?

Roteiro de pre homologacao impressora nao fiscal SiTef Consegui o roteiro com software express tem 7 testes, alguem ja fez? como conseguirao colocar o dialogo O cupom TEF foi Impresso corretamente? Sim - Confirma a transacao (que esta pendente) Não - Cancela a transacao (que esta pendente) Reimprime - Reimprimi as 2 vias de novo (e depois repeti o dialogo...) sabendo que quando executado a funcao ImprimirTransacoesPendentes ja confirma a transacao automatica. obrigado pela atencao. link para dowload da pre-homologacao

ja to usando esse demo. mais blz, vou abre outro tópico.

obrigado pela atenção. o problema é que nao posso confirma automático, só isso, alguma dica para confirma manualmente, depois das impressões? ou vou ter que muda algo nas unit do acbr? outra pegunta, vc conhece ou ja vil falar sobre o roteiro de pre-homologacao impressora nao-fiscal do sitef, achei bem estranho.

e agora, pelo roteiro de pre-homologação impressora nao-fiscal da sitef, pede para depois das impressões mostra um mensagem de dialogo. O cupom TEF foi Impresso corretamente? Sim - Confirma a transacao (que esta pendente) Não - Cancela a transacao (que esta pendente) Reimprime - Reimprimi as 2 vias de novo (e depois repeti o dialogo...) achei estranho mais é o que vou ter que fazer. alguma dica ?

blz, vamos la, fis uma transacao cartao credito 2,00. e vou finalizar usando ACBrTEFD1.ImprimirTransacoesPendentes; 1- a pegunta é, apos ACBrTEFD1.ImprimirTransacoesPendentes; ele confirma a transacao automatica certo? 2-tem como nao confirma automático?

na verdade, peguei o roteiro de pre-homologação para impressora nao-fiscal, e la dis que ao deligar o pc, o sitema ao iniciar tem que autorizar todas transacoes pendentes, entao ta ok. a questao agora é outra, no roteiro pede para mostra a mensagem Sim, Nao,.Reimprime a cada termino das impressoes das vias, sim para confirma que imprimiu as 2 vias certinho, ai sim Confirma as transacoes, mais a cada ACBrTEFD1.ImprimirTransacoesPendentes; ja confirma a transacao automatico. como faço para eu pode usar ACBrTEFD1.ConfirmarTransacoesPendentes; quando eu quizer. muito obrigado pela antencao, desde ja.

Tenho um SOFT PDV usando a demo E:\Componentes\ACBr_XE6\Exemplos\ACBrTEFD\Delphi que inclui cupom fiscal, e no SOFT RETAGUARDA estou usando E:\Componentes\ACBr_XE6\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF , pois usamos só NFC-e a questão é, a Venda é 3,00 e passei um cartao de 1,00 , e fico aguardando o resto do pagamento 2,00, no Relatorios de Transacoes do SiTEF, fica 1,00 Pendente, ok desligo o PC, reinicio o PC, e uso a funcao ACBrTEFD1.Inicializar(TACBrTEFDTipo(4)); no PDV mostra a mensagem ( TRANSACAO NAO EFETUADA. FAVOR RETER O CUPOM) na RETAGUARDA mostra a mensagem ( TRANSACAO TEF EFETUADA. FAVOR REIMPRIMIR ULTIMO CUPOM NSU: 0000011111 ) o certo seria iqual o PDV, ( TRANSACAO NAO EFETUADA. FAVOR RETER O CUPOM) pois o processo foi o mesmo, autorizar um cartao e nao finalizar a venda, e reiniciar o pc. o que devo fazer. obrigado pela atenção desde ja.

Brigadoooooooooooooooooooooooooo, era isso que eu queria "PathBackup", blz

Sim entendi blz, a questão é, os espelho dos comprovantes do tef procedure TDalAcBrTEF.ACBrTEFD1ComandaECFImprimeVia(TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer; ImagemComprovante: TStringList; var RetornoECF: Integer); begin try case TipoRelatorio of trGerencial: begin FrmPrincipal.MemoCupomTEF.Lines.Add('GERENCIAL:' + ImagemComprovante.Text ImagemComprovante.Text Fica uma copia em arquivo no pc na pasta TEF, para manipulação, ex: se deligar a maquina quando volta imprimir etc. e fica com o nome fixo da transacao 1. como sao varias usuarios mais no mesmo pc, teria como eu manipular os nomes desses arquivos? obrigado pela atencao.

Tenho o TEFD CliSiTEF com impressoras fiscal e ecfNaoFiscal em meu PDV , tudo ok, so que quero coloca TEFD CliSiTEF COM NFC-e em minha retaguarda pois alguns cliente nao precisa usar o PDV, com isso temos 1 servidor e 3 ponto de venda (conexao remota) pegunta, é possivel ter TEFD CliSiTEF em 1 pc só, mais 3 usuario(conexao remota ) usando?, pois os arquivo do espelho do Comprovante TEF é por maquina? sabendo que a parte do pinpad ja configurei para conexao remota, tudo ok. agradeço desde de ja a atencao. obrigado.

verdade, acho que to com versão antiga, porque quando compilo fala que o evento é incompativel e manda excluir o evento. vou atualizar tudo e testa, obrigadoooo.

sim programei coloquei o mesmo do exemplo D:\Componentes\ACBr_XE6\Exemplos\ACBrTEFD\Delphi mais mesmo assim, da o mesmo erro. e no demo exemplo do ACBrTEFD ta tudo ok, procedure TForm1.ACBrTEFD1AguardaResp(Arquivo : String; SegundosTimeOut : Integer; var Interromper : Boolean); var Msg : String ; begin Msg := '' ; if (ACBrTEFD1.GPAtual in [gpCliSiTef, gpVeSPague]) then // É TEF dedicado ? begin if (Arquivo = '23') and (not bCancelarResp.Visible) then // Está aguardando Pin-Pad ? begin if ACBrTEFD1.TecladoBloqueado then begin ACBrTEFD1.BloquearMouseTeclado(False); // Desbloqueia o Teclado // TODO: nesse ponto é necessário desbloquear o Teclado, mas permitir // um clique apenas no botão cancelar.... FALTA CORRIGIR NO DEMO end ; Msg := 'Tecle "ESC" para cancelar.'; bCancelarResp.Visible := True ; fCancelado := False; end; end else Msg := 'Aguardando: '+Arquivo+' '+IntToStr(SegundosTimeOut) ; if Msg <> '' then StatusBar1.Panels[2].Text := Msg; Application.ProcessMessages; if fCancelado then Interromper := True ; end;