volmir

bom dia, verdade juliomar era a versao do fortes report baixei e instalei a versao Fortes Report CE e funcionou certinho obrigado

pois é justamente este pacote nao consegui identificar do que se trata "frce" pensei que fosse pacote do fortes report mas ja instalei o fortesReport

boa tarde nao estou conseguindo achar uma saida pra um teste na homologacao do tef da Linx pois neste teste: Efetuar uma venda com cartão de crédito à vista sem taxas no valor de R$ 10,99 A transação deve ser aprovada e as 2 vias do cupom TEF impressas. Após impressão a automação deve apresentar mensagem perguntando ao operador se a impressão foi efetuada corretamente, Sim, Não ou Reimprime. Escolher a opção “Não”, a transação deve ser desfeita. nao estou conseguindo achar uma forma pra contornar esta situacao, pois nao consiguo usar o cancelarTransacoesPendentes visto que a transacao ja foi confirmada, pois preciso confirmar para imprimir os comprovantes de credito ou debito onde deve constar o NSU e o NSU somente é obtido apos confirmartransacaoPendente. como resolver isso alguem ja passou por isso? em anexo o roteiro para homologacao com impressora nao fiscal (NFCe) Roteiro Certificacao NAO FISCAL v1.0.xlsx

estou enviando em anexo a unit ACBrTEFDCliDTEF.pas que alterei pra conseguir cancelar uma transacao (CNC) ACBrTEFDCliDTEF.pas

bom dia daniel, nao consegui testar pois nao tenho o lazarus instalado ate instalei ele porem nao consegui instalar os componentes acbr onde necessitam de gerador de relatorios até instalei o fortes nele porem ao instalar o qualquer componete de relatorio gera este erro em anexo ai acabei desistindo.

hum deixa ver mas qual é o mais recomendado para a nfce ?

boa tarde, alguem ja conseguiu imprimir os comprovantes de credito ou debito usando uma impressora nao fiscal com TEF. se alguem consegui e tiver dispostos a compartilhar esta informacao pois nao estou conseguindo pois com impressora fiscal funciona normal porem pelo visto que dispara esta impressao é o componente acbrECF, como para a nfce nao tem impressora fiscal ai nao estou conseguindo imprimir este comprovante

boa tarde a todos, estou desenvolvendo minha rotida de tef com a nfce estou usando o tef Daruma hoje pertencente a Linx uso para isso o ACBrTEFD nao sei se é eu que estou fazendo algo errado mas nao estava conseguindo cancelar visto que uso uma impressora nao fiscal Bematech MP4200 mas tive que alterar uma funcao do componete e ai consegui efetuar o cancelamento segue funcao onde tive que mexer pra analize Function TACBrTEFDCliDTEF.FazerRequisicao( Funcao : Integer; AHeader : AnsiString = ''; Valor : Double = 0; Documento : AnsiString = ''; QuantidadeCheques : AnsiString = ''; PeriodicidadeCheques : AnsiString = ''; DataPrimeiroCheque : AnsiString = ''; CarenciaPrimeiroCheque : AnsiString = '') : Integer ; Var ValorStr, DataStr, HoraStr : AnsiString; ANow : TDateTime ; pValorTransacao, pNumeroCupomVenda, pNumeroControle, pQuantidadeCheques, pPeriodicidadeCheques, pDataPrimeiroCheque, pCarenciaPrimeiroCheque : AnsiString; SL, ArquivoResposta : TStringList; Voltar, Parar : Boolean; ItemSelecionado : integer; begin if fpAguardandoResposta then raise Exception.Create( ACBrStr( 'Requisição anterior não concluida' ) ) ; if AHeader = 'CRT' then begin ItemSelecionado := -1 ; fOnObtemInformacao( ItemSelecionado ) ; if ItemSelecionado > 0 then Funcao := ItemSelecionado else raise EACBrTEFDErro.Create( ACBrStr( 'Tipo de cartão não informado' ) ); end; if AHeader = 'ADM' then begin SL := TStringList.Create; try SL.Add('Cancelamento'); SL.Add('Consulta de Parcelas'); SL.Add('Reimpressão'); SL.Add('Resumo das Vendas'); SL.Add('Resgate de Prêmios'); Parar := False; while not Parar do begin if ItemSelecionado = 30 then Exit; Voltar := False; ItemSelecionado := -1; OnExibeMenu( 'Selecione a operação desejada', SL, ItemSelecionado, Voltar ) ; if (not Voltar) then begin if (ItemSelecionado >= 0) and (ItemSelecionado < SL.Count) then begin case ItemSelecionado of 0: Funcao := 6; 1: Funcao := 9; 2: Funcao := 7; 3: Funcao := 8; 4: Funcao := 11; end; Parar := True; end; end; end; finally SL.Free ; end ; end; Result := -1 ; ANow := Now ; DataStr := FormatDateTime('YYYYMMDD', ANow ); HoraStr := FormatDateTime('HHNNSS', ANow ); ValorStr := FormatFloat( '0.00', Valor ); ValorStr := StringReplace( ValorStr, ',', '', [rfReplaceAll]) ; ValorStr := StringReplace( ValorStr, '.', '', [rfReplaceAll]) ; fDocumentosProcessados := '' ; GravaLog( '*** IniciaFuncaoDPOS. Modalidade: '+AHeader+ ' Valor: ' +ValorStr+ ' Documento: ' +Documento+ ' Data: ' +DataStr+ ' Hora: ' +HoraStr) ; pValorTransacao := PadLeft(ValorStr, 12, '0') ; pNumeroCupomVenda := PadLeft(Documento, 6, '0') ; pNumeroControle := HoraStr ; if Funcao = 1 then // Cartão de Crédito Result := xTransacaoCartaoCredito( PAnsiChar( pValorTransacao ), PAnsiChar( pNumeroCupomVenda ), PAnsiChar( pNumeroControle ) ); if Funcao = 2 then // Cartão de Débito Result := xTransacaoCartaoDebito( PAnsiChar( pValorTransacao ), PAnsiChar( pNumeroCupomVenda ), PAnsiChar( pNumeroControle ) ); if Funcao = 3 then // Cartão Voucher Result := xTransacaoCartaoVoucher( PAnsiChar( pValorTransacao ), PAnsiChar( pNumeroCupomVenda ), PAnsiChar( pNumeroControle ) ); if Funcao = 5 then // Cheque begin pQuantidadeCheques := '00' ; pPeriodicidadeCheques := '000' ; pDataPrimeiroCheque := '00000000' ; pCarenciaPrimeiroCheque:= '000' ; Result := xTransacaoCheque( PAnsiChar( pValorTransacao ), PAnsiChar( pNumeroCupomVenda ), PAnsiChar( pNumeroControle ), PAnsiChar( pQuantidadeCheques ), PAnsiChar( pPeriodicidadeCheques ), PAnsiChar( pDataPrimeiroCheque ), PAnsiChar( pCarenciaPrimeiroCheque ) ); end; if Funcao = 6 then //Volmir begin //pNumeroControle := ' '; //Aqui tive que comentar pois dava erro "acess violation"" Result := xTransacaoCancelamentoPagamento( PAnsiChar( pNumeroControle ) ); end; if Funcao = 7 then Result := xTransacaoReimpressaoCupom; if Funcao = 8 then Result := xTransacaoResumoVendas( PAnsiChar( pNumeroControle ) ); if Funcao = 9 then Result := xTransacaoConsultaParcelas( PAnsiChar( pNumeroControle ) ); if Funcao = 10 then Result := xTransacaoCartaoFrota( PAnsiChar( pValorTransacao ), PAnsiChar( pNumeroCupomVenda ), PAnsiChar( pNumeroControle ) ); if Funcao = 11 then Result := xTransacaoResgatePremio( PAnsiChar( pNumeroCupomVenda), PAnsiChar( pNumeroControle ) ); if Result <> 0 then raise EACBrTEFDErro.Create( ACBrStr( 'Retorno DTEF -> ' + IntToStr(Result) ) ) else if Funcao <> 11 then begin Resp.Clear; with TACBrTEFDRespCliDTEF( Resp ) do begin fpIDSeq := fpIDSeq + 1 ; if Documento = '' then Documento := IntToStr(fpIDSeq) ; ArquivoResposta := TStringList.Create; try if ((Funcao = 7) or (Funcao = 9)) then begin ArquivoResposta.LoadFromFile(ArqResp + 'ULTIMO.PRN'); DeleteFile(ArqResp + 'ULTIMO.PRN'); ImprimirComprovantes(ArquivoResposta); ApagaEVerifica( ArqBackup ); end else begin ArquivoResposta.LoadFromFile(ArqResp + pNumeroControle + '.' + NumeroTerminal); if Funcao = 8 then begin ImprimirComprovantes(ArquivoResposta); ApagaEVerifica( ArqResp + pNumeroControle + '.' + NumeroTerminal ); end; if Funcao = 6 then begin ImprimirComprovantes(ArquivoResposta); ApagaEVerifica( ArqResp + pNumeroControle + '.' + NumeroTerminal ); ApagaEVerifica( ArqBackup ); xConfirmaCartaoCredito( PAnsiChar( pNumeroControle ) ); xFinalizaTransacao; end else begin MontaArquivoResposta(pNumeroControle, ArquivoResposta); Conteudo.Conteudo.Text := ArquivoResposta.Text; Conteudo.GravaInformacao(899,100, AHeader ) ; Conteudo.GravaInformacao(899,101, IntToStr(fpIDSeq) ) ; Conteudo.GravaInformacao(899,102, Documento ) ; Conteudo.GravaInformacao(899,103, IntToStr(Trunc(SimpleRoundTo( Valor * 100 ,0))) ); Conteudo.GravaInformacao(899,104, IntToStr(Funcao) ); Conteudo.GravaInformacao(899,130, 'IMPRIMINDO...' ) ; Resp.TipoGP := fpTipo; end; end; finally try ArquivoResposta.Free; //volmir except //Aqui tive que colocar um Try Except pois dava erro "acess violation"" end; end ; end; end; end; fazendo isso consegui cancelar lembrando que cacenlei pelo ADM => cancelamento unit ACBrTEFDCliDTEF;

havia pensado em imprimir o evento porem ele so existe para papel A4

bom dia como fica a questao do cancelamento da nfce existe uma forma de imprimir algum comprovante de cancelamento sem que seja aquele do evento da nfe pois preciso imprimir em uma impressora nao fiscal bematech MP4200

boa tarde UF da empresa consultada = SP UF da empresa configurada (UF webservice = RS)

boa tarde daniel; o que eu fiz foi configurar o demo do acbr da pasta \..\ACBR\Exemplos\ACBrDFe\ACBrNFe\Delphi\ configurando certificado - dados empresa etc.. ai clico no botao Consulta cadastro cuja codificacao é esta: procedure TForm1.btnConsCadClick(Sender: TObject); var UF, Documento : String; begin if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:', UF)) then exit; if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)', Documento)) then exit; Documento := Trim(OnlyNumber(Documento)); ACBrNFe1.WebServices.ConsultaCadastro.UF := UF; if Length(Documento) > 11 then ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := Documento else ACBrNFe1.WebServices.ConsultaCadastro.CPF := Documento; ACBrNFe1.WebServices.ConsultaCadastro.Executar; MemoResp.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS; LoadXML(ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS, WBResposta); pgRespostas.ActivePageIndex := 1; MemoDados.Lines.Add(''); MemoDados.Lines.Add('Consulta Cadastro'); MemoDados.Lines.Add('versao: ' +ACBrNFe1.WebServices.ConsultaCadastro.versao); MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.ConsultaCadastro.verAplic); MemoDados.Lines.Add('cStat: ' +IntToStr(ACBrNFe1.WebServices.ConsultaCadastro.cStat)); MemoDados.Lines.Add('xMotivo: ' +ACBrNFe1.WebServices.ConsultaCadastro.xMotivo); MemoDados.Lines.Add('DhCons: ' +DateTimeToStr(ACBrNFe1.WebServices.ConsultaCadastro.DhCons)); end; porem o que percebi é se eu colocar nas configuracoes ACBrNFe1.Configuracoes.Geral.VersaoDF:=ve310; nao funciona, tenho que colocar ACBrNFe1.Configuracoes.Geral.VersaoDF:=ve200; encontrei isso no manual da nfe versao 2.00 e no manual da versao 3.10 nao encontrei nada por isso acredito que deve ser enviado com a versao 200 Método: consultaCadastro2 4.7.1 Leiaute da Mensagem de Entrada Entrada: Estrutura XML para consulta ao cadastro de contribuintes ICMS. Schema XML: consCad_v2.00.xsd

Vou postar aqui minhas configuracoes entao: Ambiente:homologacao Uf Webservice:RS Forma Emissao:normal Modelo documento fiscal : moNFe versao documento fiscal : ve310 emitente de SC (certificado digital A1) rotina: ACBrNFe1.WebServices.ConsultaCadastro.UF := 'MG'; ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := '50116185001225'; ACBrNFe1.WebServices.ConsultaCadastro.Executar; são este os dados informado e retornou este erro que postei anteriormente desculpa pessoal descobri o que era para o consulta cadastro tive que mudar aqui versao documento fiscal : ve310 acredito que este servico ainda esteja na versao 200 pois mudei para versao documento fiscal : ve200 e ai funcionou

bom dia resolvi usar o consulta cadastro da nfe mas nao estou conseguindo ja pesquizei aqui no forum mas nao consegui resolver o problema simulei no demo e retorna esta mensagem: Consulta Cadastro versao: 3.10 verAplic: 13_2_88_MQ7 cStat: 239 xMotivo: Rejeicao: Cabecalho - Versao do arquivo XML nao suportada DhCons: 27/10/2015 10:09:07 o xml esta em anexo ret.xml

boa tarde estou com um problema desenvolvi um sistema pra emisao de boletos mas nenhum componente gerador de relatorios reconhece um impressora hp multifuncional em um de meus clientes a impressora nao esta instalada no proprio micro esta instala em um outro micro da rede. porem meu sistema ERP reconhece normalmente sem problemas em meus gerodores de relatorio utilizo o FastReport e funciona normal, porem nao sei porque com o acbrBoleto nao reconhece ja pesquizei aqui no forum porem nada que conseguisse resolver meu problema

ok. Obg Problema resolvido.

bom dia a todos estou com problema apos atualizar meu fontes do acbr ao enviar uma nfce acontece a seguiente mensagem 1824 - Element '{http://www.portalfiscal.inf.br/nfe}uTrib': 'PC' is not a valid value of the local atomic type. atualizei os schemas peguei os mesmos do demo da nfe e nao resolveu ai baixei da zefas e nao resolveu pesquizando aqui no forum vi alguns post dizendo pra alterar os schemas mas fiquei com duvida se isso seria o correto utilizo openssl delphi xe3

Ok. agora consegui resolver deveria ser algum .dcu pois limpei tudo o que encontrei e agora resolveu

bom dia atualizei meu fortes report e agora estou com um problema ao imprimir um cte na minha maquina funciona normal porem em meus clientes aparece esta mensagem ja pesquizei aqui no forum mas nao consegui uma solucao para o problema

Hum mesmo em homologação ?

boa tarde oq vcs colocaram com CSC estou colocando assim: DM.NFe1.Configuracoes.Geral.IdCSC:='000001'; DM.NFe1.Configuracoes.Geral.CSC :=''; porem esta retornando um erro de CSC nao cadastrado na Sefaz

Blz Agora nao deu mais erros de validacao do xml na sefaz resolveu com o cIdToken porem a mesagem de erro do sefaz persiste

Hum, Vou arumar isso entao Obg

Bom dia tamebem estou com mesmo problema porem pra min ao validar meu xml na sefaz retornou este erro: Resultado da Validação do Schema e de Regras de Negócio: Parser XML: Nenhum erro encontrado Tipo de Mensagem: Documento de NF-e Schema XML: The 'http://www.portalfiscal.inf.br/nfe:qrCode' element is invalid - The value 'https://www.sefaz.rs.gov.br/NFCE/NFCE-COM.aspx?chNFe=43151091241034000123650020000000991000000063&nVersao=100&tpAmb=2&cDest=14372807000160&dhEmi=323031352D31302D30325430383A33353A33342D30333A3030&vNF=142.02&vICMS=0.00&digVal=675A374667446E5734566D42324D4744586D565A743564434346733D&cIdToken=&cHashQRCode=3BF4F2E6EB165A60543DEC37EE1A3BFE901A0C2E' is invalid according to its datatype 'String' - The Pattern constraint failed.Caminho: NFe[1]/infNFeSupl/qrCode/

Bom dia. esta era minha duvida, se o manual que estou usando é realmente o ultimo atualizado, pois o pessoal do banco aqui nao souberam me responder ou me deixaram com duvidas mas se é este entao realmente temos que corrigir o componente pois esta errado, seria interassante tambem revisar a parte que gera o arquivo, pois é possivel tambem que haja falhas;