Arnaldo Cruz

cara parece brincadeira - mas perguntei a todos os contatos do skype sobre ter mim vendido o exemplo e todos dizem que não foi ele, mas lembro que em um post eu citei o nome do sujeito e passei o skype dele, pesquisa aqui no forum que tu acha. QUalquer coisa mim dá um alô.

Estive observando o comportamento do componente NF-e. Executo a consulta FDataModule.ACBrNFe1.DistribuicaoDFe( StrToInt(vsEdtIBGEUF),CnpjEmpresa,edtNSU.Text,''); Retorna 10 notas a maior data de 3 dias anterior a data atual todas dentro de 15 dias. Quando executo a manifestação while not cdsManifesto.Eof do begin FDataModule.ACBrNFe1.EventoNFe.Evento.Clear; with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := edtChave.Text; infEvento.CNPJ := CnpjEmpresa ; infEvento.dhEvento := Date; infEvento.tpEvento := teManifDestConfirmacao; end; FDataModule.ACBrNFe1.EnviarEvento(1); with FDataModule.AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do begin lMsg:= IntToStr(cStat); end; if (lMsg ='135') or (lMsg ='136') or (lMsg ='573') then begin Manisfestada; end; end; Algumas notas não manifestam nem a pau No Download das manifestadas while not cdsManifesto.Eof do begin if cdsManifestoSITUACAO.AsString = 'Confirmada' then begin with FDataModule.ACBrNFe1.DownloadNFe.Download.Chaves.Add do begin chNFe := cdsManifestoCHAVE.AsString ; end; try FDataModule.ACBrNFe1.DownloadNFe.Download.CNPJ := CnpjEmpresa; MesNome := FormatDateTime('MMMM', cdsManifestoEMISSAO.AsDateTime); AnoAr := FormatDateTime('yyyy', cdsManifestoEMISSAO.AsDateTime) ; Caminho := gsAppPath + 'XMLRecebido\' + MesNome + AnoAr ; if not DirectoryExists(Caminho) then begin ForceDirectories(Caminho); end; Caminho := Caminho + '\' ; FDataModule.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := Caminho; FDataModule.ACBrNFe1.Configuracoes.Arquivos.DownloadNFe.PathDownload := Caminho; FDataModule.ACBrNFe1.Download; stat := FDataModule.ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.cStat; if (stat = 139 ) or (stat = 140 ) then begin Efetuou download end; end; end; Algumas notas não faz o download nem a pau Alguem já passou por isso Obrigado

Na NFC-e não utllizo o componente ECF, , mas na verdade quem mim ensinou foi um camarada aqui do forum, eu comprei um exemplo dele usando o ACBRTEF na NFC-e

Eu utilizo somente o componente TEFD, já homologuei paygo e estou no final da homologação CAPPTA

Instalei o Delphi Berlim em uma maquina, levou 3 dias pra baixar todos todos SDKs pelo Tools. depois percebi que instalei na maquina errada. Pergunto. Se eu instalar o Delphi berlim na maquina correta e copiar apenas a pasta do sdk "C:\Users\Public\Embarcadero\Studio\18,0\PlataformSDKs\android-sdk-windows" e "C:\Users\Public\Embarcadero\Studio\18,0\PlataformSDKs\android-ndk-r9c" o delphi vai funcionar corretamente nos projetos android ? Obrigado

colegas podem mim tirar uma duvida emito uma NFC-e no modo Off-line quando a internet volta carrego o xml e faço a transmissão <tpImp>4</tpImp> <tpEmis>9</tpEmis> <cDV>3</cDV> <tpAmb>1</tpAmb> <finNFe>1</finNFe> <indFinal>1</indFinal> <indPres>1</indPres> <procEmi>0</procEmi> <verProc>ACBrNFe</verProc> <dhCont>2016-08-04T09:09:26-03:00</dhCont> <xJust>Problemas tecnicos no envio do cupom eletronico</xJust> A Nfc-e é recepcionada pelo sefaz, pego numero de protocolo,recibo e data de recebimento. Porem quando mando imprimir não sai no rodape o protocolo da nfc-e. fui depurando o fonte do ACBr e cheguei na parte do código abaixo // protocolo de autorização if FpNFe.Ide.tpEmis <> teOffLine then begin FPosPrinter.Buffer.Add(ACBrStr('<c>Protocolo de Autorização')); FPosPrinter.Buffer.Add('<c>'+Trim(FpNFe.procNFe.nProt) + ' ' + IfThen(FpNFe.procNFe.dhRecbto <> 0, DateTimeToStr(FpNFe.procNFe.dhRecbto), '') + '</fn>'); end; Se o modo for offline o acbr não imprime, ai não teria que ter uma condição a mais tipo como abaixo if (FpNFe.Ide.tpEmis <> teOffLine) or Trim(FpNFe.procNFe.nProt) <> '' then Qualquer dica será bem vinda

Quando gero o xml conforme abaixo mesmo eu alterando o numero da NFC-e está gerando o mesmo numero de chave FDataModule.ACBrNFe1.NotasFiscais.Clear ; Ide.cNF := FrmCaixa.lbCupom.AsInteger ; Ide.nNF := FrmCaixa.lbCupom.AsInteger; FDataModule.ACBrNFe1.NotasFiscais.Items[0].GravarXML('',NomeA) ; o arquivo e gerado correto com a chave correta não se repete pra pegar a chave da nfc-e tentei desse jeito pra pegar a chave Resposta.Chave := Copy(FDataModule.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); tentei assim tambem Chave := ExtractFileName(FDataModule.ACBrNFe1.NotasFiscais.Items[0].NomeArq) ; Resposta.Chave := LeftStr(ChangeFileExt( Chave , ''),44) algumas vezes chega a repetir a mesma chave pra 3 notas com números diferentes a sequencia no meu fonte está como descrito acima ;

Estou gerando os boleto como segue if GerarTitulos then begin Adiciono os titulo(gero 50 boletos com vencimentos diferentes e clientes diferentes) end; ACBrBoleto1.Imprimir ; cada boleto ganha um documento composto por 'M MM YYYY CCCC' M = Tipo de Boleto MM = Mes YYYY = Ano CCCC = codigo do cliente Estou querendo salvar cada boleto em PDF como o nome do conteudo do Documento Obrigado

1 - Dá pra usar sim com a nfe 2 - Sim 3 - Não precisa de homologação - vc precisa somente homologar o seu TEF, paygo,softexpress,cappta etc.

Já tentaram na chamada da forma de pagamento com cartão limpar transações pendentes. tipo if formaDePagemnto = 'CARTAO' then begin if falhar( ACBrTEFD.CancelarTransacoesPendentes;) begin Veriricar se tem arquivo e deletar end if end if

Para inicializar o gerenciador do TEF no meu caso, tenho Pay&Go e CAPPTA ACBrTEFD.Inicializar(TACBrTEFDTipo(StrToInt(TIPOGP))); 1 - PayGo Abre para que seja selecionado a bandeira. 2 CAPPTA abre a tela do gerenciador para selecionar se o cartão é débito ou crédito. como no acbr tem as formas de pagamento cartão débito e cartão credito, tem como passar a forma de pagamento na chamada do Gerenciador ? ou logo em seguida ? Observação - isso já é um teste do roteiro de homologação da CAPPTA. Obrigado

Já descobri o problema só acontece com uma empresa especifica, fiz o teste com 30 empresas dois xmls por empresa, todos deram certo, menos os xml de uma empresa chamada DST, com os xml gerados por ela o protocolo da consulta sempre volta vazio, porem eu consulta a nfe no sefaz e ele aparece como autorizado.

Colegas Estou emitindo minha NFC tudo ok Acontece que o usuário excluiu de propósito ou acidentalmente os xml do mês de julho/2016 eu criei uma função que recria o xml pelos dados do banco de dados. consigo criar os xmls porem não estou conseguindo criar esta parte do xml abaixo <protNFe versao="3.10"> -<infProt> <tpAmb>2</tpAmb> <verAplic>SVRSnfce201607200811</verAplic> <chNFe>25160710852339000170650010000003431000003439</chNFe> <dhRecbto>2016-07-25T12:07:44-03:00</dhRecbto> <nProt>325160000056616</nProt> <digVal>g3FR45IXY/8aDv4vQkN2LOwM/wc=</digVal> <cStat>100</cStat> <xMotivo>Autorizado o uso da NF-e</xMotivo> </infProt> </protNFe> e sem esta parte quando mando uma reimpressão não aparece o número do protocolo. Alguém saberia mim dizer como que eu faço para criar esta parte do xml. Abrigado.

olá colegas aqui no meu estado pode emitir nfe com nfce referenciada. Como minha cidade fica na fronteira de 3 estados, acontece da empresa do cliente emitir varias nfc-e durante o mês para prefeituras dos estados vizinhos. e no final do mês emitir uma nfe com as nfce emitidas para pode receber. A duvida é a seguinte. como a A prefeitura é um consumidor final(não contribunte) e está em outro estado, como fica o calculo da DIFAL ? Pode-e emitir cupom ou nfe referenciada para fora do estado ?

Colegas tem uma duvida cruel. Tenho um cliente que possue duas empresa 1 Lucro Real e outra Simples Nacional, ambas vende para Órgãos públicos. fora do Estado. todos os órgãos tem CNPJ e não tem inscrição Estadual. todos os Produtos vendidos tem com CST 60 e 00, 102 e 500 Gostaria de saber se nesses casos é calculado o DIFAL ? Em que situação citada acima eu não calculo o DIFAL ? Obrigado

Geralmente Nota Fiscal de Remessa para conserto não movimenta estoque, o que se pode fazer é um controle a parte, agora se fosse uma devolução ai sim haveria movimento de estoque. se seu sistema não tiver este controle a parte a solução é vc emitir uma nota fiscal de entrada e depois emitir a remessa

Colegas estou conseguindo fazer o download dos xml porem a pasta de salvamento fica com uma subpasta DOwn minhas configurações FDataModule.ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True; FDataModule.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := Caminho; FDataModule.ACBrNFe1.Configuracoes.Arquivos.Salvar := True; FDataModule.ACBrNFe1.Configuracoes.Arquivos.DownloadNFe.PathDownload := Caminho; === Caminho;= C:\PastaSistema\XMLRecebidos\Mes\ FDataModule.ACBrNFe1.Configuracoes.Geral.Salvar := True ; Os xmls são salvos como segue C:\PastaSistema\XMLRecebidos\Mes\ Downl\............xmls baixados quando deveria ser C:\PastaSistema\XMLRecebidos\Mes\............xmls baixados se alguém puder mim dá uma dica eu agradeço

O meu processo de download do XML é como segue 1 - Consulto as notas informando o ultimo NSU FDataModule.ACBrNFe1.ConsultaNFeDest(CnpjEmpresa,inTodas,ieTodos,edtNSU.Text); Gravo no banco o NSU 2 - Faço a manisfestação de todas as notas encontradas While Notas.eof do with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := edtChave.Text; infEvento.CNPJ := CnpjEmpresa ; infEvento.dhEvento := Date; infEvento.tpEvento := teManifDestConfirmacao; end; FDataModule.ACBrNFe1.EnviarEvento(1); Notas.Next; end; 3 - Faço o Download do XML das NF-e While Notas.eof do with FDataModule.ACBrNFe1.DownloadNFe do begin Download.CNPJ := CnpjEmpresa; Download.Chaves.Clear ; with Download.Chaves.Add do begin chNFe := cdsManifestoCHAVE.AsString; end; end; FDataModule.ACBrNFe1.WebServices.DownloadNFe.Executar; Notas.Next; end; Na forma que é Hoje não mudou o 1 e 2 passos, somente o terceiro.mudou. Alguns dos colegas poderia mim passar como eu faria agora ? eu agradeço. estou perdidaço, já reli a nota técnica, já olhei o exemplo do acbr. a unica coisa que consegui foi pelo comando abaixo ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,ultNSU,ANSU); que retornou o xml abaixo <?xml version="1.0" encoding="UTF-8" ?> - <retDistDFeInt xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>1</tpAmb> <verAplic>1.1.6</verAplic> <cStat>138</cStat> <xMotivo>Documento localizado</xMotivo> <dhResp>2016-07-06T15:20:38</dhResp> <ultNSU>000000000000340</ultNSU> <maxNSU>000000000000340</maxNSU> - <loteDistDFeInt> <docZip NSU="000000000000295" schema="resNFe_v1.00.xsd">H4s</docZip> <docZip NSU="000000000000296" schema="resNFe_v1.00.xsd">H4s</docZip> <docZip NSU="000000000000297" schema="resNFe_v1.00.xsd">H4s</docZip> <docZip NSU=".......ate 340 " schema="resNFe_v1.00.xsd">H4sI</docZip> </loteDistDFeInt> </retDistDFeInt> O meu processo de download do XML é como segue 1 - Consulto as notas informando o ultimo NSU FDataModule.ACBrNFe1.ConsultaNFeDest(CnpjEmpresa,inTodas,ieTodos,edtNSU.Text); Gravo no banco o NSU 2 - Faço a manisfestação de todas as notas encontradas While Notas.eof do with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := edtChave.Text; infEvento.CNPJ := CnpjEmpresa ; infEvento.dhEvento := Date; infEvento.tpEvento := teManifDestConfirmacao; end; FDataModule.ACBrNFe1.EnviarEvento(1); Notas.Next; end; 3 - Faço o Download do XML das NF-e While Notas.eof do with FDataModule.ACBrNFe1.DownloadNFe do begin Download.CNPJ := CnpjEmpresa; Download.Chaves.Clear ; with Download.Chaves.Add do begin chNFe := cdsManifestoCHAVE.AsString; end; end; FDataModule.ACBrNFe1.WebServices.DownloadNFe.Executar; Notas.Next; end; Na forma que é Hoje não mudou o 1 e 2 passos, somente o terceiro.mudou. Alguns dos colegas poderia mim passar como eu faria agora ? eu agradeço. estou perdidaço, já reli a nota técnica, já olhei o exemplo do acbr. a unica coisa que consegui foi pelo comando abaixo ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,ultNSU,ANSU); que retornou o xml abaixo <?xml version="1.0" encoding="UTF-8" ?> - <retDistDFeInt xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>1</tpAmb> <verAplic>1.1.6</verAplic> <cStat>138</cStat> <xMotivo>Documento localizado</xMotivo> <dhResp>2016-07-06T15:20:38</dhResp> <ultNSU>000000000000340</ultNSU> <maxNSU>000000000000340</maxNSU> - <loteDistDFeInt> <docZip NSU="000000000000295" schema="resNFe_v1.00.xsd">H4s</docZip> <docZip NSU="000000000000296" schema="resNFe_v1.00.xsd">H4s</docZip> <docZip NSU="000000000000297" schema="resNFe_v1.00.xsd">H4s</docZip> <docZip NSU=".......ate 340 " schema="resNFe_v1.00.xsd">H4sI</docZip> </loteDistDFeInt> </retDistDFeInt>

Colegas Hoje Consultei alguma notas e Manifestei todas as consultadas. Após Manifestar executei a função ACBrNFe.WebServices.DownloadNFe.Executar Não dá erro nenhum porem o xml não é baixado. baixei um novo ACBr 06/07/2016 14:30 - ai percebi que não mais existe o botão de download no exemplo. Pergunto : O Sefaz retirou a opção de fazer o download dos xml manifestados ? Obrigado

bom dia sergio já consegui a tabela,obrigado

Tenho interesse na atualização de preço pela tabela da abcfarma, com opção de download skype analdocruz

colegas estou enviando transmitindo o xml da nfc-e. exemplo 1 - gero um xml com a chave 25160507050201000142650010000000051000000059 e Ide.tpEmis := teNormal; na transmissão quando o componente retorna Cstat diferente de 100,103 e gero outro xml porem com Ide.tpEmis := teOffLine; nesse caso o componente está gerando outro numero de chave 25160507050201000142650010000000059000000054 imprimo duas vias da nfce. com a chave 25160507050201000142650010000000059000000054 ; Quando vou consulta a nfc recebo a seguinte mensagem. Rejeicao: Codigo Numerico informado na Chave de Acesso difere do Codigo Numerico da NF-e [25160507050201000142650010000000051000000059] então no caso a primeira tentativa de envio foi efetuada . Pergunto além do 100 e 103 quais códigos representa a transmissão com sucesso da nfc-e.; ou to fazendo o procedimento errado ? Obrigado.

todas as impressoras possuem a condição de ler o status. Bematech pelo MP2032 Daruma pela Daruma_framework. Epson existe via codigo. conversei com o suporte da daruma e eles mim passaram os comandos para ler o status sem usar o framework. Já o suporte da Bematech ficou de analisar meu pedido. assim que eu tiver a reposta da bematech eu implanto do componente e posto pra quem quiser.

com a NFc usando as mini impressora não fiscais, as mais comuns são Bematech e Daruma. Não seria interessante poder capturar o status da impressora pelo componente. Hoje eu faço isso usado as dll dos fabricante, os moderadores não poderiam colocar isso no componente do ACBr ?

Colegas tem como enviar um email pelo componente do ACBr conforme estilo Abaixo (Imagem) Texto da mensagem Atenciosamente Nome do Emitente do Email Nome da Empresa emitente Obrigado