Ir para conteúdo
  • Cadastre-se

Arnaldo Cruz

Membros Pro
  • Total de ítens

    583
  • Registro em

  • Última visita

  • Days Won

    2

Tudo que Arnaldo Cruz postou

  1. Tenho dois clientes Presumido e Lucro Real. Estou começando a desenvolver usando o componente do ACBr. Minha duvida está especificamente no bloco M Em que Blocos Lanço as entradas de NFE ? Em que Blocos Lanço as Saidas de NFE ? Em que Blocos Lanço as Devolução de Vendas de NFE ? Em que Blocos Lanço as Devolução de Compras de NFE ? Em que Blocos Lanço as Vendas do ECF ? Li o guia mas não consegui entender se alguem puder mim dá umas dica eu agradeço Obrigado
  2. Carlos Tedex Desinstalei o ACBR, executei o arquivo apagarAcbr.bat, deletei todas as pastas do ACBR. limpei o ACBR da library path etc., delete o ACBR do Users. Instalei o ACBR que vc mim enviou., Fiz a instalação com sucesso e sem erro. Quando vou abrir o Delphi aparece as mensagens de erro abaixo Se eu clico em YES , abro o meu projeto faço um Build e não acontee nenhum erro. então as mensagens de erro aparecem na abertura do Delphi e quando tento abrir qualquer form em modo designer Tudo ref. NFE está funcionando, Status do serviço,NDEDestinadas blz. porem quando eu tento abrir um formulario em modo designer estas mensagens começão a aparecer. vc aberia mim dizer como eu faço pra corrigir Obrigado
  3. Valeu carlos obrigado vou instalar este e fazer os testes
  4. lá Carlos Tedex vi que a minha versao é a 8909 se vc puder disponibilizar um link para eu baixa a tua versao eu agradeço. Detalhe nesta versao que estou usando ta com prblema na NFE destinadas e ma consulta Status serviço. Fui no cliente e voltei para o executavel anterior e tudo voltou a funcionar, então conclui que o erro está no ACBr, alguma coisa foi alterada e não está de acordo, ou alguma propriedade do computador está imcompativel com a nova versão. joscru01@bol.com.br skype arnaldocsc
  5. Verifiquei no ACR todos os Links estão corretos já atualizados. corrgindo em Produção não dá erro na consulta status, somente na NFE destinadas. Com o Certificado modelo A1 não da erro em nada Carlos Tedex como eu faço para saber qual versao do ACBR estou usando, e tem comobaixar a versão anterior ?
  6. Estou com um problema em todos osclientes que usam certificado A3 WebService Produção ConsultaNFeDest FDataModule.ACBrNFe1.ConsultaNFeDest(CnpjEmpresa,inTodas,ieTodos,edtNSU.Text); Na Emissao da NF-e(produção) FDataModule.ACBrNFe1.WebServices.StatusServico.Executar; Em todos os clientes, se eu alterar para Homologação não dá erro na consulta status e na emissao da NF-e. outro detalhe se eu comentar a consulta status no modo produção a NF-e é transmitida. O que percebi é que o problema está localizado no modo produção em NfeDestinadas e na consulta Status Serviço NfeDestinadas o exception ocorre nesta procedure TWebServicesBase.EnviarDados; Na Consulta NF-e Destinada Na Consulta StatusServico
  7. Estou montando o xml com os ddos do banco de dados, para tanto eufaço uma consulta pela chave da nfe para recuperar o digVal e a data de recebimento. a data do recebimento vem = '2015-04-10T11:01:38-03:00'; dta := '2015-04-10T11:01:38-03:00';// preciso passar esta data pro ACBr pra que o xml montado fique igual ao original FDataModule.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto = StrtoDateTime(dta); sempre dá erro. Alguem sabe como passar este parametro pro componente ?
  8. Colegas estou co duvidas na implantação deste requisito, já li reli o ato cotepe e não consegui interpretar. Perfil W,X,Y,ND Primeira situação A - O ECF entra em estado somente consulta, por emissao da redução Z ou por defeito. B - Emito a Nota manual em papel C - Em uma tela a parte faço o lançamento no sistema da Nota manual usando CFOP 5929 D - Quando o ECF voltar a funcionar emito o cupom fiscal Automaticamente ou seleciono cada Nota emitida ? Segunda Situação A - O ECF entra em estado somente consulta, por emissao da redução Z ou por defeito. B - Emito a Nota manual em papel C -Quando o ECF volta a funcionar, seleciono cada Nota em papel emitida e emito o cupom fiscal na mesma tela de venda,informando o numero da Nota manual D - Não faço lançamento da Nota manual no Sistema. Terceira Situação A - O ECF entra em estado somente consulta, por emissao da redução Z ou por defeito. B - Emito a Nota manual em papel C - Emito a Nota manual e faço o lançamento no sistema em uma tela a parte D - Não emito cupom fiscal QUaldestas situação devo adotar ? Obrigado
  9. usei ACBrInstall Bom para executar a consulta do status na pasta do ACBR\Fontes\ACBrcomum\ACBr.inc descomentei a linha {DEFINE SOAPHTTP} Pronto consigo enviar NF-e e NFC-e porém agora quando vou fazer um cancelamento de NF-e ou NFC-e recebo a seguinte mensagem abaixo "O buffer do usuário não é válido para operação solicitada"
  10. Estou migrando do Delphi 2010 para o Delphi XE6 com ACBr atualizado em 10/03/2015 nas duas plataformas na aplicação delphi 2010 está funcionando normalmente a nfc e nfe já no XE6 funciona somente a NF-e quando vou testar a NFc e dou o comando "WebServices.StatusServico.Executar" sempre volta o erro abaixo "Inativo ou inoperante - Erro - Requisição não enviada 12045 - A autoridade de certificação não é valida ou está incorreta logo em seguida vou na outra maquina que está o Delphi 2010 faço o mesmo teste "WebServices.StatusServico.Executar" e volta Operante e consigo transmitir a NFC alguém poderia mim dá umas dicas do que pode está acontecendo. obrigado.
  11. tenho um projeto no Delphi 2010 que estou migrando para Delphi XE6 usando a mesma versão do ACBr baixado a um mês No Delphi XE6 Quando tento enviar uma NFE sefaz MG recebo a mensagem de erro do componente. "O Buffer de usuário é invalido para operação solicitada." No Delphi 2010 que está enviando sem erro.
  12. Esta Falta de carga vc diz tipo em um banco de dados do gerenciador padrão ou pin-pad, quero dizero isso não tem nada haver com minha aplicação. obrigado
  13. colegas o itau entrou forte na minha regiao com cartao HIPER - Bandeira RedeCard Porem agora em todos os clientes quando é colocado o cartão "HIPER" no Pin-Pad já aparece uma mensagem de erro. Todos os outros cartões passam sem problemas. Se alguem puder mim dá uma dica do que pode está ocorrendo eu agradeço. Obrigado
  14. consegui resolver o problma dos caracteres usando uma função pra remover os acentos. porem agora faço o manifesto de todas as nfe (300 nfe) quando vou executar o download , é feito até a 10(decima nota) ai aparece uma mensagem(Rejeição 215 falha no esquema do XML). ai fecho o sistema e começo novamente da 11(decima primeira) quando chega na 20 dá o mesmo erro. Alguem sabe o porque disso A pasta de esquema está atualizada pois baixei o delphi semana passada.
  15. Falei besteiras o download é descompactado porem com os caracteres estranhos
  16. Estou fazendo o download das nfe destinadas já confirmadas. O download é feito em um arquivo zipado , porem quando vou tentar visualizar o arquivo ele não abre porque o texto que tem acentos é substituido por caracteres extranho. Tipo <xNome>DNAC - Tecnologia e Automação Ltda - EPP</xNome> vem <xNome>DNAC - Tecnologia e Automa "Caracterestranho" Ltda - EPP</xNome> Em todas as palavras acentuadas.
  17. Arnaldo Cruz

    Estado Da Impressora

    Estou com um problema com uma impressora bematech mp-2100-th fi no meu sistema eu tenho um configurador que se conecta com a impressora >>> OK abro e fecho as configurações. tenho o sistema de caixa quando vou abrir é feita a conexao porem quando chamo a função abaixo Estado := UECF.Estados[FDataModule.ACBrECF.Estado]; só mim volta 'Não Inicializada' ========= Porem eu coloco a impressora em outra maquina que usa o mesmo sistema a chamo a mesma função Estado := UECF.Estados[FDataModule.ACBrECF.Estado]; ai volta = Livre Outra coisa estranha quando mando o comando abaixo FDataModule.ACBrECF.Ativar; a impressora imprime "Identificaçao do aplicativo" ALguem já teve algum problema assim
  18. achei o problema faltava capturar o xml do retorno para depois carregar
  19. Estou tentando imprimir o XML do retorno da Carta de correção em fastReport (EVENTOS.fr3) O envio acontece normalmente FDataModule.ACBrNFe1.NotasFiscais.LoadFromFile(cdsNFETransmiCAMINHOXML.AsString); FDataModule.ACBrNFe1.EventoNFe.Evento.Clear; with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.cOrgao := UFIBGEEmpresa; infEvento.chNFe := cdsNFETransmiCHAVE_ACESSO.AsString; infEvento.CNPJ := CnpjEmpresa; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := NumSeq; infEvento.detEvento.xCorrecao := Trim(frase); end; FDataModule.ACBrNFe1.EnviarEventoNFe(idLote); MemoResp.Lines.Text := UTF8Encode(FDataModule.ACBrNFe1.WebServices.EnvEvento.RetWS); frase := 'Duplicidade'; with FDataModule.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0] do begin CaminhoCCe := gsAppPath + 'Carta\' + OnlyNumber(FDataModule.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.id) + '-procEventoNFe.xml'; if ( RetInfEvento.cStat = 135 ) then begin MemoResp.Lines.SaveToFile(CaminhoCCe); FDataModule.ACBrNFeDANFEFR1.MostrarPreview := True; FDataModule.ACBrNFe1.NotasFiscais.Clear; FDataModule.ACBrNFe1.NotasFiscais.LoadFromString(cdsNFETransmiCAMINHOXML.AsString ); FDataModule.ACBrNFe1.EventoNFe.Evento.Clear; FDataModule.ACBrNFe1.EventoNFe.LerXML(CaminhoCCe); FDataModule.ACBrNFe1.ImprimirEvento; end; O XML é criado no local certo Porem recebo a mensagem de campo cOrgao não informado o erro está porque a função abaixo não ler o xml function TEventoNFe.LerXMLFromString(const AXML: string): Boolean; var RetEventoNFe : TRetEventoNFe; begin RetEventoNFe := TRetEventoNFe.Create; try RetEventoNFe.Leitor.Arquivo := AXML; Result := RetEventoNFe.LerXml; with FEvento.Add do begin infEvento.ID := RetEventoNFe.InfEvento.id;//'131150044754450'; infEvento.cOrgao := RetEventoNFe.InfEvento.cOrgao;//31;// infEvento.tpAmb := RetEventoNFe.InfEvento.tpAmb;//taHomologacao;// infEvento.CNPJ := RetEventoNFe.InfEvento.CNPJ;//'10852339000170';// infEvento.chNFe := RetEventoNFe.InfEvento.chNFe;//'31150111914502000144550010000002141000002144';// infEvento.dhEvento := RetEventoNFe.InfEvento.dhEvento;//Now;// infEvento.tpEvento := RetEventoNFe.InfEvento.tpEvento;//teCCe;// infEvento.nSeqEvento := RetEventoNFe.InfEvento.nSeqEvento;//10;// infEvento.VersaoEvento := RetEventoNFe.InfEvento.VersaoEvento; ( este vem preenchido) daqui para baixo volta valor end; Se eu preenche manualmente os dados o como no codigo acima ,o DANFE é aberto com todos os campo preenchidos exceto o texto da correção, que fica vazio. Agradeço qualquer ajuda
  20. Fiz os testes com Daruma,Bematech e Epson Bematech e Daruma Está OK. Observação. Na NFC pode entrar no campo codigo tanto o codigo interno quanto o codigo de barras; Quando incluido o código de barras uma linha por produto é insuficiente, tanto quanto, quando o valor Unitário for superior a 1.000,00 ou valor total do Item for superior a 9.000,00 Epson Fiz os testes em uma TM-T81 - Fica desconfigurado todo layout Observação Os comandos ESC/pos tem alguns que não funciona pra epson. Por a maioria usarem somente Daruma e Bematech vou deixar a Epson pra depois e vou focar no TEF pra NFC, este será a parte mais complexa pra mim, após terminar volto no DANFe da Epson.
  21. Estou fazendo os testes da impressão do Danfe em 3 Impressoras usando O TACBrNFeDANFeESCPOS MP4200TH Bematech DR700 Daruma TM-T81 Epson Instalei o Driver de spooler da Bematech Instalei o Driver de spooler da Daruma Epson ainda não fiz nada MP4200 Impressão Tudo OK FDataModule.ACBrNFe2.NotasFiscais.Clear ; ACBrNFe2.DANFE := DanfeNfc; if impGerencial = False then begin DanfeNfc.TipoDANFE := tiNFCe; DanfeNfc.Device.Porta := impPorta=(COM3 Daruma com4 Bematech); DanfeNfc.Device.Baud := 115200; if AnsiContainsStr(UpperCase(impCompartilha), 'BEMATECH') then begin DanfeNfc.MarcaImpressora := iBematech ; end else if AnsiContainsStr(UpperCase(impCompartilha), 'EPSON') then begin DanfeNfc.MarcaImpressora := iEpson ; end else if AnsiContainsStr(UpperCase(impCompartilha), 'DARUMA') then begin DanfeNfc.MarcaImpressora := iDaruma; end; DanfeNfc.Device.Ativar; end; FDataModule.ACBrNFe2.NotasFiscais.LoadFromFile('C:\USOFT\Envio\Novembro2014\31141111914502000144650010000000531000000533-NFe.xml'); FDataModule.ACBrNFe2.NotasFiscais.Imprimir; Quando usado na Impressora Daruma DR700 DanfeNfc.Device.Ativar; da o seguinte mensagem Communication erro 5 : Acesso negado
  22. Estou fazendo os testes da mimnha NFC-e Compilei a aplicação e fechei o delphi. Instalei os driver da Daruma 64bits Abri o Delphi Quando tento executar não abre mais mostra as mensagens abaixo. (Observação só para um sistema) os demais abrem inclusive os que usam a DarumaFramework) Module Load: ntdll.dll. No Debug Info. Base Address: $778D0000. Process USOFT.exe (4624) Module Load: KERNEL32.dll. No Debug Info. Base Address: $77380000. Process USOFT.exe (4624) Module Load: KERNELBASE.dll. No Debug Info. Base Address: $75FA0000. Process USOFT.exe (4624) Module Load: OLEAUT32.dll. No Debug Info. Base Address: $759F0000. Process USOFT.exe (4624) Module Load: ole32.dll. No Debug Info. Base Address: $755B0000. Process USOFT.exe (4624) Module Load: msvcrt.dll. No Debug Info. Base Address: $75DD0000. Process USOFT.exe (4624) Module Load: GDI32.dll. No Debug Info. Base Address: $75D40000. Process USOFT.exe (4624) Module Load: USER32.dll. No Debug Info. Base Address: $75EA0000. Process USOFT.exe (4624) Module Load: ADVAPI32.dll. No Debug Info. Base Address: $75B80000. Process USOFT.exe (4624) Module Load: SECHOST.dll. No Debug Info. Base Address: $77250000. Process USOFT.exe (4624) Module Load: RPCRT4.dll. No Debug Info. Base Address: $75710000. Process USOFT.exe (4624) Module Load: SspiCli.dll. No Debug Info. Base Address: $75440000. Process USOFT.exe (4624) Module Load: CRYPTBASE.dll. No Debug Info. Base Address: $75430000. Process USOFT.exe (4624) Module Load: LPK.dll. No Debug Info. Base Address: $75FF0000. Process USOFT.exe (4624) Module Load: USP10.dll. No Debug Info. Base Address: $75AE0000. Process USOFT.exe (4624) Module Load: MSIMG32.dll. No Debug Info. Base Address: $728B0000. Process USOFT.exe (4624) Module Load: VERSION.dll. No Debug Info. Base Address: $75070000. Process USOFT.exe (4624) Module Load: MPR.dll. No Debug Info. Base Address: $71420000. Process USOFT.exe (4624) Module Load: COMCTL32.dll. No Debug Info. Base Address: $72580000. Process USOFT.exe (4624) Module Load: SHLWAPI.dll. No Debug Info. Base Address: $754A0000. Process USOFT.exe (4624) Module Load: WININET.dll. No Debug Info. Base Address: $77270000. Process USOFT.exe (4624) Module Load: Normaliz.dll. No Debug Info. Base Address: $77370000. Process USOFT.exe (4624) Module Load: urlmon.dll. No Debug Info. Base Address: $758B0000. Process USOFT.exe (4624) Module Load: CRYPT32.dll. No Debug Info. Base Address: $75C20000. Process USOFT.exe (4624) Module Load: MSASN1.dll. No Debug Info. Base Address: $770C0000. Process USOFT.exe (4624) Module Load: iertutil.dll. No Debug Info. Base Address: $761A0000. Process USOFT.exe (4624) Module Load: SHELL32.dll. No Debug Info. Base Address: $763A0000. Process USOFT.exe (4624) Module Load: COMDLG32.dll. No Debug Info. Base Address: $75800000. Process USOFT.exe (4624) Module Load: WINSPOOL.DRV. No Debug Info. Base Address: $71E70000. Process USOFT.exe (4624) Module Load: LIBEAY32.dll. No Debug Info. Base Address: $10000000. Process USOFT.exe (4624) Module Load: WSOCK32.dll. No Debug Info. Base Address: $75080000. Process USOFT.exe (4624) Module Load: WS2_32.dll. No Debug Info. Base Address: $77480000. Process USOFT.exe (4624) Module Load: NSI.dll. No Debug Info. Base Address: $00030000. Process USOFT.exe (4624) Module Load: MSVCR80.dll. No Debug Info. Base Address: $71380000. Process USOFT.exe (4624) Module Load: WINMM.dll. No Debug Info. Base Address: $72460000. Process USOFT.exe (4624) Module Load: DarumaFramework.dll. No Debug Info. Base Address: $015E0000. Process USOFT.exe (4624) Module Load: apphelp.dll. No Debug Info. Base Address: $738A0000. Process USOFT.exe (4624) Module Load: IMM32.dll. No Debug Info. Base Address: $75A80000. Process USOFT.exe (4624) Module Load: MSCTF.dll. No Debug Info. Base Address: $76FF0000. Process USOFT.exe (4624)
  23. Arnaldo Cruz

    Subtotalizacupom

    Estou fazendo a verificação de mesas abertas após a redução Z UECF.AbreCupom('','','',''); UECF.VendeItem(TPreVendaDetalheVO(ListaPreVendaDetalhe.Items[j]).CodigoInterno), TPreVendaDetalheVO(ListaPreVendaDetalhe.Items[j]).NomeProduto, TPreVendaDetalheVO(ListaPreVendaDetalhe.Items[j]).ECFICMS, TPreVendaDetalheVO(ListaPreVendaDetalhe.Items[j]).Quantidade, TPreVendaDetalheVO(ListaPreVendaDetalhe.Items[j]).ValorUnitario); UECF.SubTotalizaCupom(); UECF.EfetuaFormaPagamento(FDataModule.ACBrECF.FormasPagamento[0].Indice,TPreVendaCabecalhoVO(ListaPreVendaCabecalho.Items).Valor); Nesta chamada "UECF.SubTotalizaCupom();" ele já está cancelando o cupom
  24. ninguém ?
  25. Bom já passou algum tempo da abertura do tópico mas vou acrescentar minha dica. Nas impressora não fiscal da Bematech e Daruma existe as dll MP2032(Bematech) e DarumaFrameWork para impressora Daruma. usando as dlls basta ir passado a impressão pelas funções da dll , informar a porta, morem existe a dependencia das dll do fabricante. Observação. pelas dlls tem como verificar se a impressora está ligada, modelo,tamanho do papel etc. usando o FastReport Basta passar o nome do compartilhamento, porem para Bematech tem que alterar a propriedade do relatório PrintMod para pmSplit para que todo relatório seja impresso até o fim corretamente, já para Daruma só imprime até 70 itens se for impresso 71 a impressora trava. nem o suporte da daruma conseguiu resolver este problema. Para resolver definitivamente o problema fiz tudo com o GenericText como Segue abaixo var Cupom : TStringList begin Cumpom := TStringList.Create; Cupom.add(Texto ou variavel); Cupom.SafeToFile(NomedoCompartilhamento); Cupom Free; #ficaadica
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 9 segundos...