
Arnaldo Cruz
Membros Pro-
Total de ítens
583 -
Registro em
-
Última visita
-
Days Won
2
Tudo que Arnaldo Cruz postou
-
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
-
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
-
Valeu carlos obrigado vou instalar este e fazer os testes
-
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
-
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 ?
-
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
-
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 ?
-
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
-
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"
-
Erro Webservices.statusservico.executar
um tópico no fórum postou Arnaldo Cruz NFC-e - Nota Fiscal do Consumidor Eletrônica
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. -
O Buffer Do Usuario Não É Valido Para Operação Solicitada
um tópico no fórum postou Arnaldo Cruz ACBrNFe
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. -
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
-
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
-
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.
-
Falei besteiras o download é descompactado porem com os caracteres estranhos
-
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.
-
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
-
achei o problema faltava capturar o xml do retorno para depois carregar
-
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
-
Danfe Nfc-E Na Daruma Dr700
Arnaldo Cruz replied to Arnaldo Cruz's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
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. -
Danfe Nfc-E Na Daruma Dr700
um tópico no fórum postou Arnaldo Cruz NFC-e - Nota Fiscal do Consumidor Eletrônica
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 -
Delphi 2010 Module Load: Ntdll.dll. No Debug
um tópico no fórum postou Arnaldo Cruz Object Pascal - Delphi & Lazarus
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) -
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
-
ninguém ?
-
Ajuda Com A Impressora Mp-4200 Th Nao Fiscal
Arnaldo Cruz replied to Fausto's tópico in Object Pascal - Delphi & Lazarus
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