Marcos Gerene

Boa tarde a todos, Estou começando a implantar o TEF no meu sistema, já uso o ACBr a um tempo (NFe, CTe, MDFe e SPED), mas para comunicar com impressoras fiscais (ECF) uso DLLs. Abri o demo do ACBRTEFD para começar a estudar e notei uma ligação entre o ACBRECF e o ACBRTEFD, logo me surgiu algumas dúvidas iniciais. 1-) Eu sou "obrigado" a usar o ACBRECF ou consigo implementar somente o ACBRTEFD? 2-) Caso a resposta do 1 seja sim, o TEF em si só vai "entrar em ação" ao finalizar a venda e o cliente escolher uma forma de pagamento que seja cartão. Alguém tem alguma dica da melhor forma de lançar esses pagamentos (parciais ou total) e transmitir o mesmo? Desde já muito obrigado e boa tarde a todos

Beleza, vou testar e te dou um retorno Obrigado

Oi, desculpa a demora, estava testando Me parece que deu certo, o segundo erro era porque coloquei em homologação, consultando em produção deu certo. Muito obrigado pela ajuda

Bom dia, Mudei e me retornou outro erro

Bom dia a todos, Estou com um probleminha meio chato desde a semana passada, todo CT-e que tento consultar ou cancelar me retorna o erro 239. Ja troquei os Schemas mas não resolveu, estou mandando o schemas que estou usando e o ACBR.inc, além de um xml que estou tentando consultar e não consigo. Desde já muito obrigado 35120607968541000157570010000000111679117844-cte.xml

Bom dia, Quando imprimo o DACTE (pela primeira vez) consigo fazer o campo de observação pular linha usando a concatenação com #13, mas quando abro para reimprimir através do XML vem tudo em uma linha... reparei que o campo é um string, então ele viria seguido mesmo... mas existe algum "macete" ou algo assim no componente para fazer ele pular linha quando importo do XML?

Boa tarde novamente, acabei de postar e já conseguimos resolver... rsrs Foi dado um build all no projeto ao invés de somente compile e resolveu, não sei se é permitido, mas vou deixar a pergunta e a resposta juntos, vai que alguém tá na mesma... passamos uma boa parte da tarde nisso =x Abraços

Boa tarde, Depois que atualizei alguns clientes tive problemas com a NFe, quando tento transmitir ela me retorna um erro em branco, somente com um botão de OK... Olhei o forum falavam de problema de conexao em alguns lugares, desativei o firewall e desativei o anti-virus, mas não tive sucesso. Ao tentar consultar, ele funciona perfeitamente, logo acredito que esteja tudo ok com o certificado (que não expirou e funcionava até a atualização), porém ao transmitir ele retorna o mardito erro... rsrs Voltei o backup (do meu executavel) e tranmiitiu perfeitamente... PS: Atualizei o ACBR hoje Alguma ideia?

Bom dia, quanto ao xml de uma nota cancelada, ele fica como? Somente autorizado? Toda vez que eu der um load from file no xml para importar pro meu sistema eu tenho que consultar o mesmo para ver se está cancelado (pelos enventos)? Estou confuso, pois meus XMLs após o canecelamento continuam autorizados mas se consulto no SEFAZ ele me diz que está cancelado, como devo fazer a consulta para ver se o XML está cancelado ou não? o cStat do XML vai continuar 100, mesmo depois de cancelado?... S.O.S.

Boa tarde, No status retornou 135 e não 101, existe alguma forma de retornar 101 ou eu teria que fazer um if? Obrigado Edit: Mudei o código para funcionar com o retorno 135 mesmo, obrigado pela ajuda Ítalo

Como pego o retorno do cancelamento do MDFe? ACBrMDFe1.Manifestos.Clear; ACBrMDFe1.Manifestos.LoadFromFile(arquivo); with ACBrMDFe1.EventoMDFe.Evento.Add do begin infEvento.chMDFe := Copy(ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44); infEvento.CNPJ := FrmPrincipal.QryEmpresaAtiva.FieldByName('EMP_CNPJ').AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.nSeqEvento := 1; infEvento.detEvento.nProt := ACBrMDFe1.Manifestos.Items[0].MDFe.procMDFe.nProt; infEvento.detEvento.xJust := trim(justificativa); end; ACBrMDFe1.EnviarEventoMDFe(1); showmessage( 'recibo: '+inttostr(ACBrMDFe1.WebServices.Recibo.cStat)+#13+ 'consulta: '+inttostr(ACBrMDFe1.WebServices.Consulta.cStat)+#13+ 'retorno: '+inttostr(ACBrMDFe1.WebServices.Retorno.cStat)); Tenho certeza que o Mesmo está cancelando, pois sempre aparece cancelado quando consulto...

Bom dia Ítalo, Obrigado pela ajuda

Boa tarde a todos, Estou começando a desenvolver um módulo no sistema para MDF-e e olhando o exemplo do ACBr me surgiu uma dúvida. Hoje os meus clientes que fazem suas próprias entregas, apenas emitem na nota a placa e algumas informações, mas não emitem CTe desses transporte. No MDFe, existe a opção de acrescentar o CT-e, o mesmo é obrigatório em transportes próprios?

Boa tarde, Sobre a consulta pela chave no componente (vi agora que tinha essa opção no Demo - código do Demo abaixo) ACBrNFe1.WebServices.Consulta.NFeChave := vChave; ACBrNFe1.WebServices.Consulta.Executar; MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS); LoadXML(MemoResp, WBResposta); LoadConsulta201(ACBrNFe1.WebServices.Consulta.RetWS); O meu xml que teóricamente vai estar como assinado e estou consultando para ver se está transmitido será alterado pegando a tag de transmitido igual acontece quando consulto com o XML? O que faz essa função "LoadConsulta201"?

Boa tarde a todos, Estou a algum tempo tendo uma certa dificuldade sobre a consulta da NFe com XML pelo componente. Em alguns clientes (em torno de uns 4 ou 5) a nota está transmitida, consulto ela pelo site da Fazenda e está ok, porém quando consulto a NF-e pelo sistema a mesma está marcada apenas com a assinatura, sem transmissão. Baixei o XML transmitido do site do Sefaz, e coloquei para consultar pelo sistema (mesmo já estando com a tag de transmitido) e para minha surpresa a NF-e voltou para o sistema como não transmitido (apenas assinado como disse acima). Meu fonte do ACBr está atualizado e o Schemas do meu cliente também, o código da consulta segue abaixo (em Delphi): procedure TFrmNFE.BitBtn5Click(Sender: TObject); begin ACBrNFe1.NotasFiscais.Clear; If FileExists(Diretorio+'nfe\xml\'+Protocolo) Then ACBrNFe1.NotasFiscais.LoadFromFile(Diretorio+'nfe\xml\'+Protocolo) Else begin protocolo := VerificaProtocolo(BitBtn5); ACBRNFe1.NotasFiscais.LoadFromFile(Diretorio+'nfe\xml\'+protocolo); End; ACBrNFe1.Consultar; Memo1.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); LoadXML(Memo1, WebBrowser1); if Assigned(FrmVendas) Then Begin With QryProtocolo, SQL Do Begin ParamByName('PROTOCOLO').AsString := ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; ParamByName('VDA_CODIGO').AsInteger := StrToInt(FrmVendas.VDA_CODIGO.Text); ExecSQL; End; protocolo := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44)+'-nfe'; End Else begin ShowMessage('Protocolo: '+ACBrNFe1.WebServices.Consulta.Protocolo+#13+ 'Motivo: '+ACBrNFe1.WebServices.Consulta.XMotivo); if Application.MessageBox('Deseja visualizar a nota?', 'Confirmação', Mb_IconQuestion+MB_YESNO+MB_DEFBUTTON1)= mrYes Then ACBrNFe1.NotasFiscais.Items[0].Imprimir; end; end; O sistema não me retorna nenhum erro, mas após algumas consultas seguidas (meu cliente tentou consultar diversas vezes) ele me retorna consumo indevido (devido ao excesso de tentativas). Alguém tem uma dica sobre isso?

Boa tarde Regys Não tem nada de diferente entre as máquinas, conecta sem proxy sem nada... Hoje comecei a ter alguns problemas com a impressora de etiquetas nessa máquina então solicitei que a mesma fosse formatada. Muito obrigado a todos pela ajuda, até mais =)

Não, quanto ao firewall a transmissão e a consulta usam portas diferentes? (estou conseguindo transmitir) Você sabe me dizer a porta padrão? Desativei o Firewall e não funcionou =x O anti-virus "não apita" nada, mas vou adicionar o sistema na lista de exceções dele A máquina não tem anti-virus

Regys, não consegui reproduzir o erro, funcionou perfeitamente aqui. Liguei para o cliente e instalamos o certificado em outra máquina e nessa outra máquina funcionou perfeitamente, o que mata a desconfiança sobre o código, sistema, componente e afins. Mas como disse no primeiro post do tópico, existe algo além das DLLs da capicom que posso fazer no que diz respeito ao SO?

ACBrNFe1.NotasFiscais.Clear; If FileExists(Diretorio+'nfe\xml\'+Protocolo) Then ACBrNFe1.NotasFiscais.LoadFromFile(Diretorio+'nfe\xml\'+Protocolo) Else begin OpenDialog1.InitialDir:=Diretorio+'nfe\xml\'; if Not OpenDialog1.Execute Then Abort Else ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); End; ACBrNFe1.Consultar; Memo1.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS); LoadXML(Memo1, WebBrowser1); if Assigned(FrmNFRemessa) Then Begin if length(ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe') >= 44 Then begin With FrmNFRemessa.SP_NF_PROTOCOLO Do Begin Close; ParamByname('EMP_CODIGO').AsINteger:=Empresa; ParamByName('VEN_NF').AsInteger:=StrToInt(FrmNFRemessa.VEN_NF.Text); ParamByName('VEN_SERIE').AsString:=FrmNFRemessa.VEN_SERIE.TExt; ParamByName('VEN_PROTOCOLO').AsString:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; ExecProc; End; FrmNFRemessa.Protocolo:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; FrmVendaProdutos.NFE_ALTERACAO:=True; End; End else if Assigned(FrmFaturarPedidos) Then Begin if length(ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe') >= 44 Then begin With FrmFaturarPedidos.SP_NF_PROTOCOLO Do Begin Close; ParamByname('EMP_CODIGO').AsINteger:=Empresa; ParamByName('VEN_NF').AsInteger:=StrToInt(FrmFaturarPedidos.VEN_NF.Text); ParamByName('VEN_SERIE').AsString:=FrmFaturarPedidos.VEN_SERIE.TExt; ParamByName('VEN_PROTOCOLO').AsString:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; ExecProc; End; FrmFaturarPedidos.Protocolo:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; end; End else if Assigned(FrmVendaProdutos) Then Begin if length(ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe') >= 44 Then begin With QryProtocolo, SQL Do Begin ParamByName('PROTOCOLO').AsString := ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; ParamByName('VEN_CODIGO').AsInteger := StrToINt(Copy(FrmVendaProdutos.VEN_NUMERO.Text,3,6)); ExecSQL; End; FrmVendaProdutos.Protocolo:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; FrmVendaProdutos.VEN_NF.ReadOnly:=True; FrmVendaProdutos.NFE_ALTERACAO:=True; end; End Else if Assigned(FrmNFAvulsa) Then Begin if length(ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe') >= 44 Then begin With FrmNFAvulsa.SP_NF_PROTOCOLO Do Begin Close; ParamByname('EMP_CODIGO').AsINteger:=Empresa; ParamByName('VEN_NF').AsInteger:=StrToInt(FrmNFAvulsa.VEN_NF.Text); ParamByName('VEN_SERIE').AsString:=FrmNFAvulsa.VEN_SERIE.TExt; ParamByName('VEN_PROTOCOLO').AsString:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; ExecProc; End; FrmNFAvulsa.Protocolo:=ACBrNFe1.WebServices.Consulta.NFeChave+'-NFe'; end; End Else begin ShowMessage('Protocolo: '+ACBrNFe1.WebServices.Consulta.Protocolo+#13+ 'Motivo: '+ACBrNFe1.WebServices.Consulta.XMotivo); if Application.MessageBox('Deseja visualizar a nota?', 'Confirmação', Mb_IconQuestion+MB_YESNO+MB_DEFBUTTON1)= mrYes Then ACBrNFe1.NotasFiscais.Items[0].Imprimir; end; Acima o Código completo, o XML está em anexo. 35131204004029000100550010000043171000043173-nfe.xml

Claro que sim, vou acessar o cliente e pegar o xml, um momento por favor

Olá Ricardo, quanto ao SO é windows é XP, 32 bits e está com as DLLs no System32. Você já teve esse problema?

Bom dia a todos, Ontem a tarde tive um problema com um cliente que não consegue consultar NFe. Aparentemente, ele consegue até fazer a transmissão de NF-e mas não consegue consultar, retorna o seguinte erro: "não foi possível encontrar o procedimento especificado". De início\ achei que fosse minha máquina que tinha recem atualizado o ACBr, então compilei em outra máquina, mas o erro continuou, procurei ajuda e achei algumas orientações no próprio forum sobre as DLLs da Capicom, registrei as DLLs e mesmo assim não obtive sucesso. Alguém pode me orientar se devo analisar meu código/minha instalação do ACBr ou a máquina do cliente? Desde já, muito obrigado =)

Bom dia, Sempre foi emitido a NFe apenas com serviços, não sabia dessa mudança... Bom, muito obrigado vou orientar o cliente a manda a emitir uma NFSe pelo site da prefeitura... Valeu =)

na verdade não tem ICMS por ser serviço, aquele 900 do CST é ignorado (vide código e XML).

Boa tarde, Não consigo transmitir uma NFe com um único ítem (serviço) ele me retorna este erro: Na minha programação, quando é serviço eu nem chamo o icmssn... if (FrmNFAvulsa.QryNF_ItensNFI_CF.AsString = '00') then begin prod.IndTot:=itNaoSomaTotalNFe; With imposto Do Begin with ISSQN Do begin vBC:=Prod.vProd; vAliq:=FrmNFAvulsa.QryNF_ItensNFI_ICMS.AsFloat; vISSQN:=StrtoFloat(FormatFloat('0.00', vBC * (vAliq/100))); cMunFG:=strtoint(Dado_Empresa(EMP_CODIGO__, 'CID_CODIGO_IBGE')); if Query.Fields[0].AsString <> '' Then cListServ:= Query.Fields[0].AsString//StrToIntDef(Query.Fields[0].AsString, strtoint(Dado_Empresa(EMP_CODIGO__, 'EMP_COD_SERVICO_ISS'))) else cListServ:= Dado_Empresa(EMP_CODIGO__, 'EMP_COD_SERVICO_ISS'); End; end; end else begin With imposto Do Segue o XML teste.xml