Ir para conteúdo
  • Cadastre-se

Marcelo Bill

Membros
  • Total de ítens

    411
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Marcelo Bill postou

  1. Olá Estou de volta, acabei de atualizar o acbr e tentei a mesma operação de consultar um NFE que contem 1 evento de alteração de endereço de entrega Após o retorno da consulta eu tento imprimir o evento e ele imprime normalmente, porém se eu tentar abrir o xml usando o navegador ele da a seguinte mensagem A página XML não pode ser exibida Não é possível exibir a entrada XML usando a folha de estilos XSL. Corrija o erro e clique no botão Atualizar ou tente novamente mais tarde. Caractere inválido encontrado no texto. Erro ao processar o recurso 'file:///D:/CLIENTES/HOMOLOGA/NFE/110110351510680503500... só que o texto que tem na CC-e é exatamente este "CORRECAO DO ENDERECO DE ENTREGA" ou seja, nenhum caracter especial, nenhum acento, nenhuma quebra de linha, enfim nada. Esse fato, está gerando um problema, quando mando enviar o xml de evento tanto ao destinatario quanto ao contador, pois eles não conseguem abrir ou importar o xml. abraço
  2. Ola Isaque, valeu pela resposta, porém encontrei uma outra forma de Salvar o XML em arquivo, afinal, eu tenho ele salvo no Banco, então nas interrogações acima eu fiz o seguinte. qEvento.FieldByName('xml').SaveToFile(tpEvento+Chave+IdEvento+'-procEventoNFe.xml'); Deu certinho. Testei o que voce respondeu mas infelizmente não fez absolutamente nada, estou definindo Salvar Evento, salvar aquivos, etcc.. ainda no mesmo assunto, porém em situação diferente. veja: Agora estamos falando da Consulta. Como eu faço a consulta da NFe cuja também não tenho nenhum problema, seguindo no caso de evento. Tenho uma nfe validada em (homologação) e junto dela tenho uma CC-e, tipo (alteração de dados da entrega), no portal está correto, tudo certinho. Supomos que por algum motivo, após o envio do evento, o sistema não tenha conseguido salvar o XML do evento no momento do envio, e como padrão, os clientes já se acostumaram enviar novamente até receber a mensagem de Duplicidade, bom neste caso, o cliente faz uma consulta, com a consulta, faço seguinte: Se no banco de dados não existir o xml gravado, mando gerar+validar+assinar e em seguida recebo a resposta do portal quanto a validade da xml, de outra forma, se a xml existir no banco, simplesmente digo ao sistema que a nfe é legal. Porém, seguindo adiante, eu ja li bastante que quando se faz a consulta, os xmls dos eventos também descem junto, o que eu não estou conseguindo fazer agora é essa junção do xml orginal com a resposta do SEFAZ, ou seja, quando mando salvar xml evento no banco o que consegui pegar pelo componente, parece ser um xml de evento todo quebrado. Veja, sei que não tem nada de errado no componente, é só um pedido de ajuda para ver se eu me sincronizo com as coisas. Veja a resposta que estou conseguindo, e se puder me auxiliar, de forma que eu consiga construir o XML do evento de forma completa, agradeço muito. O mais engraçado é que quando é o caso de cancelamento, ele traz certinho, mas quando CCe não to conseguindo trazer Veja como cancelamento faço assim: VarXml := acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML; como CC-e não funciona do mesmo jeito.. Bom, a ultima atualização que fiz foi dia 01/10/2015, vou atualizar novamente o componente pra ver o que acontece. abraços XMLEventoCapturadopeloComponente.bmp
  3. Boa tarde pessoal D7+FB+3Camandas+Capicom Estou modificando minha aplicação para salvar os XMLs no banco e agora me surgiu uma grande duvida. Fiz o envio do evento, já consegui salvar no banco de dados, agora, vou mandar os XMLs ao contador, então estou fazendo o seguinte: Faço um looping na tabela de NFe e até ai tudo bem, com a NFe não estou tendo nenhum problema, mas dentro do looping da NFe eu faço a pesquisa para ver se essa nota tem algum evento, uma vez encontrado um ou mais evento, entro num segundo looping para passar por todos os eventos da nota, já consegui carregar o XML do banco para dentro do componente em eventos, o que está complicado agora é que uma vez que o evento esteja carregado com o xml de evento, não estou sabendo como fazer para gerar um arquivo XML/PDF do evento para poder anexar ao email que estou enviando ao contador. Ficou mais ou menos assim: vLista=TStringlist vLista.clear qNotas.Filtrados qEventos.Filtrados while not qNotas.eof do begin acbrNFe.NotasFiscais.Clear; acbrNFe.NotasFiscais.LoadFromString(qNotas.FieldByName('XML').AsString); acbrNFe.NotasFiscais.GravarXML(Path_NFe+qNotas.FieldByName('Danfe').AsString+'-nfe.XML'); acbrNFe.NotasFiscais.ImprimirPDF; if FileExists(Path_NFe+qNotas.FieldByName('DANFE').AsString+'-nfe.pdf') then begin vLista.Add(Path_NFe+qNotas.FieldByName('DANFE').AsString+'-nfe.pdf'); end; vLista.Add(Path_NFe+qNotas.FieldByName('DANFE').AsString+'-nfe.xml'); qEventos.Pesquisar While not qEventos.eof do begin acbrNFe.EventoNFe.Evento.Clear; acbrNFe.EventoNFe.LerXMLFromString(qEventos.fieldByName('XML').AsString); ??? aqui como posso Salvar o XMLEvento que está carregado no componente ??? acbrNFe.ImprimirEventoPDF; if FileExists(Path_NFe+qEventos.FieldByName('TpEvento').AsString+qEventos.FieldByName('Chave').AsString+FormatFloat('00',qEventos.FieldByName('IdEvento').AsInteger)+'-procEventoNFE.PDF') then begin vLista.Add(Path_NFe+qEventos.FieldByName('TpEvento').AsString+qEventos.FieldByName('Chave').AsString+FormatFloat('00',qEventos.FieldByName('IdEvento').AsInteger)+'-procEventoNFE.PDF'); end; vLista.Add(Path_NFe+qEventos.FieldByName('TpEvento').AsString+qEventos.FieldByName('Chave').AsString+qEventos.FormatFloat('00',qEventos.FieldByName('IdEvento').AsInteger)+'-procEventoNFE.XML'); qEventos.Next end; qNotas.next; End; Obrigado pela atenção
  4. Italo boa tarde Foi bastante claro. Só uma coisa, desde quando eu comecei a desenvolver NFe, na 2.00, quando a XML validada e apos cancelada, a mesma sofria alteração e na parte dos protocolos ficava registrado o cstat de retorno. Quando mudou o cancelamento por evento, juro a voce que não prestei mais a atenção nisto. E por isso hoje faço essa pergunta besta, pois realmente fiquei confuso. Estou tentando estruturar as pastas de armazenamento dos XMLs, mas surgiu tanta duvida nas propriedades do componente que não saberei nem por onde começar. Mas com essa informação, tomei a decisão de armazenar o XML no Proprio registro da NFe e demais registros no bd, pois assim não terei mais nenhuma dependência de arquivo fora do banco de dados. Isso me permitira efetuar acesso remoto sem nenhum problema, pois tem alguns clientes que adoram trabalhar em casa, a noite, de pijama... Fala sério, trabalhar a noite é coisa pra programador e não para empresário rsrsrsr. abraço meu querido, muito obrigado
  5. Boa tarde pessoal Estou modificando meu sistema e tentando deixa-lo apto a funcionar o bd nas nuvens, porem, com isso, não vai ser possivel armazenar arquivos nas nuvens e somente o bd. Tenho percebido que o pessoal esta gravando XML no banco e que tem funcionado. Minha duvida em geral seria a seguinte: Quando uma XML é gerada, Assinada Enviada eu vou salvar no meu registro da minha Nota em questão, até ai blz Caso eu venha fazer um evento de cancelamento desta nota, precisarei salvar tambem o XML do Evento na tabela de eventos conforme o numero sequencial do evento e o XML da nota que havia sido vailidada acima tambem deverá ser regravado com a nova imagem do XML apos o cancelamento, é isso? Quais são as propriedades que me permitem Salvar e recuperar o arquivo.xml no e do bd ? obrigado
  6. Boa tarde Ressuscitando o assunto, também estou com erro em um cliente quanto tento usar essa função para gerar o NFP impressora termica dm00.ECF.PafMF_MFD_Cotepe1704(Data1.DateTime,Data2.DateTime,vDestino) aparentemente o erro ocorre quando vai gravar o arquivo xBematech_FI_ArquivoMFDPath Dll peguei as DLLs que estão no componente cujo atualizei a 5 dias Será que já surgiu alguma solução? Obrigado
  7. Bom dia Daniel IDE Delphi SO XP NFE Nº 1 CCe Nº 1 Antes de mais nada muito obrigado pela paciencia. Já é madrugada, e eu não sai do lugar. Abri demo do acbrNFE ele deu um erro por falta de um componente que não me lembro qual é agora, mas, assim mesmo, copiei o projeto num novo projeto delphi, configurei igualzinho, agora a mensagem é "Rejeição: Versão dos Dados não suportada", visto isso lá por volta das 20:00, depois disso, já mudei a versão para 2, 3, 3.1 e nada, ai com o tempo fui percebendo que o Schema da CCe só existe na versão 1.00. Bom, estou testando enviar no ambiente homologação SP e com essas tentativas, o arquivo de 11-eve-soap.xml está sendo criado com Erro, é o que eu estou tentando lhe passar desde o princípio. Juntamente com esse, ele cria também o arquivo 11-ped-eve-soap.xml, o qual está aparentemente correto. O primeiro arquivo quando se tenta abrir usando o navegador, aparece erro na linha 1 coluna 645, conforme a imagem.jpg. Bom, hora vai hora vem, decidi atualizar o acbr, ai a coisa mudou de figura, lembrando que estou tentando enviar pelo ambiente de homologação. Após atualizar o componente e reconstruir o codigo fonte, tentei enviar e deu uma outra mensagem conforme a imagem2.jpg "Erro interno 12002, Erro Http: 4 Erro Requisição não enviada", então visto isso, decidi verificar o XML criado, usando o IE Imagem3.jpg, curioso, abrir a mesma XML com o crhome imgem4.jpg Bom meus clientes já estão aguardando essa correção a dois dias, então vou subir a atualização e rezar para que esse erro seja somente no ambiente de homologação. por hora ufa, acho que chega por hoje.
  8. Daniel nao entendi muito bem o que disse qdo estar usando uma versao desatualizado acbrNFeServicos.ini, se puder esmiuçar o assunto, agradeço, independente disso, vou usar meu certificado eletronico em ambiente de homolagação e simular envio de notas e em seguida enviar a carta CCe Vamos lá, a luta madrugada a fora novamente.
  9. Daniel, desculpe se não me expressei corretamente, mencionei sobre os schemas pois a msg se tratava do assunto, então quiz dar uma posição do que ja havia sido feito e que ainda não tinha resolvido. Tentei explicar que o meu problema inicial e atual é:"493 Rejeição : Evento não atende o Schema XML específico" E conforme voce ja me orientou, ja adicionei suas dicas no sistema, porém o erro continua, realmente não sei o que fazer. Só lembrando que isso ocorreu depois da migração para o trunk2, já tentei localizar as alterações ocorridas no trunk2 dentro da pasta do componente, mas também não estou encontrando, esse é o motivo de estar assim desatualizado da informação. Veja como está a config no inicio da aplicação, quem sabe podes ver algo em que eu estaja pecando. -----------Config---------- NFe_Ambiente:=iif(dm.SETUP.FieldByName('AMBIENTE').Asstring='T',taHomologacao,taProducao); NFe_TipoDanfe:=iif(dm.SETUP.FieldByName('VISUALNFE').AsString='S',true,False); if dm.SetupVERSAOXML.AsString='' then begin dm.Setup.Edit; dm.SetupVERSAOXML.AsString:='3.1'; dm.Setup.Post; dm.Setup.ApplyUpdates(-1); end; case AnsiIndexStr(dm.SetupVERSAOXML.AsString, ['1.0', '2.0', '3.0', '3.1']) of 0:cnfe.Configuracoes.Geral.VersaoDF:=ve200; 1:cnfe.Configuracoes.Geral.VersaoDF:=ve200; 2:cnfe.Configuracoes.Geral.VersaoDF:=ve300; 3:cnfe.Configuracoes.Geral.VersaoDF:=ve310; end; case AnsiIndexStr(dm.SetupVERSAOXML.AsString, ['1.0', '2.0', '3.0', '3.1']) of 0:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve200'; 1:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve200'; 2:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve300'; 3:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve310'; end; if not DirectoryExists(cnfe.Configuracoes.Arquivos.PathSchemas) then begin cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas'; end; cnfe.Configuracoes.Certificados.NumeroSerie :=dm.EMPRESA.FieldByName('CERTIFICADO').AsString; cnfe.Configuracoes.WebServices.Ambiente :=NFe_Ambiente; cnfe.Configuracoes.Geral.SSLLib :=libCapicom; cnfe.Configuracoes.Geral.ModeloDF :=moNFe;{moNFe moNFCe} cnfe.Configuracoes.Geral.Salvar :=true; cnfe.Configuracoes.Arquivos.PathSalvar :=LerINI('ACESSO','XMLNFE'); cnfe.Configuracoes.Arquivos.PathNFe :=LerINI('ACESSO','XMLNFE'); cnfe.Configuracoes.Arquivos.PathInu :=LerINI('ACESSO','XMLNFE'); cnfe.Configuracoes.Arquivos.PathEvento :=LerINI('ACESSO','XMLNFE')+'Eventos'; cnfe.DANFE.PathPDF :=LerINI('ACESSO','XMLNFE'); cnfe.DANFE.TipoDANFE :=NFe_TipoDanfe; cnfe.DANFE.MargemDireita :=dm.SetupA023.AsFloat;//Margem Direira cnfe.DANFE.MargemEsquerda :=dm.SetupA024.AsFloat;//Margem Esquerda cnfe.DANFE.MargemSuperior :=dm.SetupA025.AsFloat;//Margem Superior cnfe.DANFE.MargemInferior :=dm.SetupA026.AsFloat;//Margem Inferior cnfe.Configuracoes.WebServices.UF :=dm.EMPRESAESTADO.AsString; cnfe.Configuracoes.WebServices.Visualizar :=NFe_TipoDanfe; cnfe.Configuracoes.WebServices.AguardarConsultaRet:=2000; cnfe.DANFE.Logo :=LerINI('ACESSO','MARCA'); DanfeRav.ImprimirTributosItem :=True; -------------- --------------Para Criar o Registro ------------ mBox = Semelhante messagebox ListaCCorrecao compo de acesso a tabela if mBox('Tem certeza de Gerar uma Carta de Correção?','Q',[mbsim,mbnao])=True then begin dm15.ListaCCorrecao.Append; dm15.ListaCCorrecaoNOTA.AsInteger :=dm15.NFENOTA.AsInteger; dm15.ListaCCorrecaoSERIE.AsString :=dm15.NFESERIE.AsString; dm15.ListaCCorrecaoEMISSAO.AsDateTime :=DataServidor; dm15.ListaCCorrecaoHORA.AsDateTime :=time; dm15.ListaCCorrecaoCHAVE.AsString :=dm15.NFEDANFE.AsString; dm15.ListaCCorrecaoCODUF.AsInteger :=dm.EmpresaCODUF.AsInteger; dm15.ListaCCorrecaoCNPJ.AsString :=dm.EmpresaCNPJ.AsString; dm15.ListaCCorrecaoTPEVENTO.AsInteger :=110110; dm15.ListaCCorrecaoIDEVENTO.AsInteger :=dm15.ListaCCorrecao.RecordCount+1; dm15.ListaCCorrecaoVERSAO.AsString :='1.00'; dm15.ListaCCorrecaoDESCEVENTO.AsString:='Carta de Correção'; dm15.ListaCCorrecaoCORRECAO.AsString :='Informações a serem alteradas'; dm15.ListaCCorrecaoCONDICAO.AsString :=F10Condicao.Text; dm15.ListaCCorrecao.Post; end; ----------------- ----------------Para Enviar----------- NumeroLote:=dm15.NFENOTA.AsString+dm15.ListaCCorrecaoIDEVENTO.AsString; dm00.CNFE.EventoNFe.Evento.Clear; with dm00.CNFE.EventoNFe.Evento.Add do Begin infEvento.cOrgao := dm15.ListaCCorrecaoCODUF.AsInteger; infEvento.tpAmb := iif(dm.SETUPAMBIENTE.Asstring='T',taHomologacao,taProducao); infEvento.CNPJ := dm15.ListaCCorrecaoCNPJ.AsString; infEvento.chNFe := dm15.ListaCCorrecaoCHAVE.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dm15.ListaCCorrecaoIDEVENTO.AsInteger; infEvento.versaoEvento := dm15.ListaCCorrecaoVERSAO.AsString; infEvento.detEvento.xCorrecao := RemoveEspXml(dm15.ListaCCorrecaoCORRECAO.AsString); infEvento.detEvento.xCondUso := RemoveEspXml(dm15.ListaCCorrecaoCONDICAO.AsString); end; Try dm00.CNFE.EnviarEvento(StrToInt(NumeroLote)); except on E: exception do Begin Dedoduro('ERRO-CCE','Erro '+e.ClassName+' - '+e.Message,dm.LoginFANTASIA.AsString); mBox('Erro '+e.ClassName+' - '+e.Message,'E',[mbok]); End; end; ------------------ Daniel, agradeço mesmo sua atenção e a de todos deste portal, tomara que eu consiga receber uma boa noticia. Abraços Realmente não sei dizer o que está ocorrendo, porem, acima, postei o XML que está sendo gerado e o mesmo, só abre com erro no navegador, ou seja, ou eu estou apontando o schema pro lugar errado ou estou pegando schema errado na pasta do componente. (Acbr\Exemplos\ACBrDFe\ACBrNFe\Schemas);
  10. IDE Delphi 7 S.O. são todos pois no momento são tres clientes que estao com o mesmo problema "493 Rejeição : Evento não atende o Schema XML específico" Nestes três tenho XP, W7 e W8 XP e W7 usam Certificado Cartao com leitora A3, W8 usa Token A3 UF webservice todos SP Desculpe, a minha IDE Delphi 7 e Meu Sistema Operacional XP
  11. Daniel Já adicionei o acbrNFE.Configuracoes.Geral.SSLLib:=libCapicomDelphiSoap; já atualizei schemas; já removi os acentos da do texto da correção e da condição e até agora nada, veja esta gerando o XML com defeito. 1101103515096240430600016055001000000984100000984001-procEventoNFe.xml
  12. Daniel nem tinha reparado nisso, TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap); Vou chutar, acho que isso é que determina se eu estou usando Capicom ou OpenSSL tah, mas porque voce me disse para tentar usar a libCapicomDelphiSoap, qual a diferencça entre libCapicomDelphiSoap e libCapicom ? obrigado
  13. Nooooosssa Daniel, por favor, explique isso melhor obrigado
  14. Boa tarde a todos Mudei para Trunk2 depois disso começou a dar Rejeição cStat 493 Rejeição : Evento não atende o Schema XML específico a) Já atualizei o schemas junto do aplicativo b.) Verifiquei o Exemplo de Evento CCe no pacote de exemplo do ACBR e efetuei as modificações conforme o exemplo ai passou a dar um erro feio ###################### Erro Interno: 12002 Erro HTTP: 0 Requisição não enviada 12002 Tempo Limite da operação foi atinigdo ###################### Estou usando desta forma ----------------------------- NumeroLote:=dm15.NFENOTA.AsString+dm15.ListaCCorrecaoIDEVENTO.AsString; dm00.CNFE.EventoNFe.Evento.Clear; with dm00.CNFE.EventoNFe.Evento.Add do Begin { // infEvento.cOrgao := dm15.ListaCCorrecaoCODUF.AsInteger; // infEvento.tpAmb := iif(dm.SETUPAMBIENTE.Asstring='T',taHomologacao,taProducao); } infEvento.chNFe := dm15.ListaCCorrecaoCHAVE.AsString; infEvento.CNPJ := dm15.ListaCCorrecaoCNPJ.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dm15.ListaCCorrecaoIDEVENTO.AsInteger; infEvento.versaoEvento := dm15.ListaCCorrecaoVERSAO.AsString; infEvento.detEvento.xCorrecao := dm15.ListaCCorrecaoCORRECAO.AsString; end; Try dm00.CNFE.EnviarEvento(StrToInt(NumeroLote)); except on E: exception do Begin Dedoduro('ERRO-CCE','Erro '+e.ClassName+' - '+e.Message,dm.LoginFANTASIA.AsString); mBox('Erro '+e.ClassName+' - '+e.Message,'E',[mbok]); End; end; --------------- Agradeço se alguem puder dar uma dica
  15. Daniel Obrigado pela informação
  16. Daniel bom dia ainda não tive tempo para procurar e nem nunca soube, como eu posso dizer que esse assunto foi resolvido ? vou postar isso e qq coisa me informa que farei direitinho nos proximos, é que eu sou novinho ainda, preciso aprender muita coisa abraço a todos [RESOLVIDO]
  17. Bom dia Amarildo Acredito que não terei problema com esses detalhes que voce colocou, eu só tenho clientes de pequeno porte, pequeno mesmo, tipo no maximo o cara tem umas 10 masquinas, mais a maioria é de 1 a 3 maquinas, e também não faço uso de TEF em nenhum cliente, então acredito que se tudo der certo, poderemos compartilhar o SAT via acbr Muito obrigado por responder
  18. Daniel Peço desculpas em 1000 Desculpas em atrapalhar o seu trabalho. Foi uma leve desviada no pensamento nas madrugadas de trabalho até as 5:00 da manhã que me permitiu errar desse jeito. Estava errando no preenchimento da forma de pagamento, onde iniciei um While infinito veja Iniciei o ciclo com dmSat.CFESubRec.Eof sem ter colocado o dmSat.CFESubRec.next, ou seja o .Next estava sendo executado com outra SQL dmSat.CFESubRec_Ler.next ##################### dmSat.CFESubRec_Ler.Close; dmSat.CFESubRec_Ler.Params.ParamByName('pVenda').AsInteger:=dmSat.CFE.FieldByName('Venda').AsInteger; dmSat.CFESubRec_Ler.Open; While not dmSat.CFESubRec.Eof do begin with Pagto.Add do begin Case dmSat.CFESubRec_Ler.FieldByName('Genero').AsInteger of 1:cMP := mpDinheiro; 2:cMP := mpCheque; 3:cMP := mpCartaodeCredito; 4:cMP := mpCartaodeDebito; 5:cMP := mpOutros; 6:cMP := mpOutros; 7:cMP := mpOutros; 8:cMP := mpOutros; 9:cMP := mpOutros; Else cMP := mpDinheiro; end; vMP := dmSat.CFESubRec_Ler.FieldByName('Valor').AsFloat; // cAdmC := 999; Desnecessário end; dmSat.CFESubRec_Ler.Next; end; #################### Envergonhado Procedure que Gera XML.txt Procedure que Envia.txt
  19. Daniel Não acredito que seja a DLL Veja o Log dá pra perceber direitinho As 16:22 quando Enviou e deu rejeição: foi enviado pelo SATTeste As 16:59 eu enviei pelo aplicativo, veja que ele nem chega a registrar o LOG dizendo que tentei enviar algo, simplesmente aperece como Consulta ##################### 20150909162239|AC-SAT|info|nvl 2:(ConsultarSAT) mensagem recebida 20150909162239|SAT-AC|info|nvl 2:(ConsultarSAT) mensagem enviada 20150909162239|AC-SAT|info|nvl 2:(EnviarDadosVenda) mensagem recebida 20150909162239|SAT-AC|erro|nvl 1:(EnviarDadosVenda) falha na geracao do CF-e-SAT (6010|1999|Rejeição: Erro não identificado) 20150909162239|SAT-AC|info|nvl 2:(EnviarDadosVenda) mensagem enviada 20150909162806|SAT|info|nvl 2:(dispatcher) nenhum CF-e-SAT na memoria interna 20150909162806|SAT|info|nvl 2:(dispatcher) aguarda proxima transmissao (tempo:010000) 20150909162809|SAT-SEFAZ|info|nvl 2:(CFeComandos) acessado o webservice 20150909162811|SEFAZ-SAT|info|nvl 2:(CFeComandos) assinatura da SEFAZ validada com sucesso 20150909162811|SEFAZ-SAT|info|nvl 2:(CFeComandos) não existem comandos pendentes 20150909162811|SAT|info|nvl 2:(comando) aguarda proxima verificacao de comandos na SEFAZ (tempo:010000) 20150909165905|AC-SAT|info|nvl 2:(ConsultarSAT) mensagem recebida 20150909165905|SAT-AC|info|nvl 2:(ConsultarSAT) mensagem enviada 20150909165905|AC-SAT|info|nvl 2:(ExtrairLogs) mensagem recebida ##################### Agora vou verificar o que exatamente ele esta gerando como XML, isso ainda não parei para ver. Obrigado
  20. Daniel Desculpe o incomodo mas poderia dar uma olhadinha neste XML que gerei com o SATTeste.exe ########################## ACBrSAT.Inicializado Venda Gerada -- 16:16:43:656 - numeroSessao: 587030 - Comando: EnviarDadosVenda( <?xml version="1.0" encoding="UTF-8"?> <CFe> <infCFe versaoDadosEnt="0.06"> <ide> <CNPJ>68050350000104</CNPJ> <signAC>u8zrOk1frJVkOjjm05UENPq8UHsMwcRQAS2vtMjrNjSj/7TMMtCl0//bJdRVmbcosQybKhev6HzjtBpDp6gd3qmgr2cbsSNMje6pYxWZdYzY5gR8LngiZABhEC57CvpeUHWvQuDZ0AEyA4g+e+xcLrc9tUNA/wdncW6Ep4cUBSPqYcCKPOPvO9rIMJzilgo6Wf8aJG0E2D9lm15tocWT3hxrskgAQ1FWuKEJ9mEOnXWfkhnZN1ocnQNIjJib5+GIOy5RM8/coX6fJXo9gnqRmmL3ZcIYjc6MhSwFpWuBKF2bHL1hB41kUO5cq8komC2j3TeqLkQi2xyyOrm9l3sOig==</signAC> <numeroCaixa>001</numeroCaixa> </ide> <emit> <CNPJ>54763792000185</CNPJ> <IE>528022397115</IE> <indRatISSQN>S</indRatISSQN> </emit> <dest> <CNPJ>05481336000137</CNPJ> <xNome>D.J. SYSTEM AEIOUaeiouCc</xNome> </dest> <entrega> <xLgr>logradouro</xLgr> <nro>112233</nro> <xCpl>complemento</xCpl> <xBairro>bairro</xBairro> <xMun>municipio</xMun> <UF>RJ</UF> </entrega> <det nItem="1"> <prod> <cProd>ACBR001</cProd> <cEAN>6291041500213</cEAN> <xProd>Assinatura SAC</xProd> <NCM>99</NCM> <CFOP>5120</CFOP> <uCom>UN</uCom> <qCom>1.0000</qCom> <vUnCom>120.00</vUnCom> <indRegra>A</indRegra> <vDesc>1.00</vDesc> <obsFiscoDet xCampoDet="campo"> <xTextoDet>texto</xTextoDet> </obsFiscoDet> </prod> <imposto> <vItem12741>14.40</vItem12741> <ICMS> </ICMS> <PIS> <PISSN> <CST>01</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>01</CST> </COFINSSN> </COFINS> </imposto> <infAdProd>Informacoes adicionais</infAdProd> </det> <det nItem="2"> <prod> <cProd>6291041500213</cProd> <cEAN>6291041500213</cEAN> <xProd>Outro produto Qualquer, com a Descricao Grande. Ok, vamos deixar a descricao realmente Grande, para testar a impressao</xProd> <CFOP>5529</CFOP> <uCom>un</uCom> <qCom>1.1205</qCom> <vUnCom>1.21</vUnCom> <indRegra>A</indRegra> <vOutro>2.00</vOutro> </prod> <imposto> <vItem12741>0.41</vItem12741> <ICMS> </ICMS> <PIS> <PISSN> <CST>03</CST> </PISSN> </PIS> <PISST> <qBCProd>1.3558</qBCProd> <vAliqProd>1.0223</vAliqProd> </PISST> <COFINS> <COFINSSN> <CST>03</CST> </COFINSSN> </COFINS> </imposto> </det> <det nItem="3"> <prod> <cProd>abc123</cProd> <cEAN>6291041500213</cEAN> <xProd>ACBrSAT rules</xProd> <NCM>99</NCM> <CFOP>5844</CFOP> <uCom>un</uCom> <qCom>1.1205</qCom> <vUnCom>1.21</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <ICMS> <ICMSSN102> <Orig>1</Orig> <CSOSN>102</CSOSN> </ICMSSN102> </ICMS> <PIS> <PISSN> <CST>04</CST> </PISSN> </PIS> <PISST> <qBCProd>1.3558</qBCProd> <vAliqProd>1.1826</vAliqProd> </PISST> <COFINS> <COFINSSN> <CST>06</CST> </COFINSSN> </COFINS> </imposto> <infAdProd>Informacoes adicionais</infAdProd> </det> <total> <DescAcrEntr> <vDescSubtot>5.00</vDescSubtot> </DescAcrEntr> <vCFeLei12741>1.23</vCFeLei12741> </total> <pgto> <MP> <cMP>03</cMP> <vMP>61.36</vMP> </MP> <MP> <cMP>01</cMP> <vMP>71.36</vMP> </MP> </pgto> <infAdic> <infCpl>Acesse www.projetoacbr.com.br para obter mais;informacoes sobre o componente ACBrSAT;Precisa de um PAF-ECF homologado?;Conheca o DJPDV - www.djpdv.com.br</infCpl> </infAdic> </infCFe> </CFe> ) NumeroSessao: 587030 - Resposta:DLLSAT.dll necessita zlib.dll ########################## Não sei o que fazer, essa ZLIB.DLL vem junto com a instalação do D-Sat, já coloquei ela no system32, na pasta do aplicativo agora estou revisando o que fiz no aplicativo obrigado
  21. Valeu Verissimo muito obrigado vou testar aqui
  22. Daniel ou alguem ai Por gentileza será que alguem tem um SATTeste.EXE já compilado para me fornecer, estou atrasando demais meus clientes, gostaria de testar rapidamente o problema usando o SATTeste, pois estou tendo problemas ao compilar esse fonte. obrigado
  23. Daniel estou tentando gerar EXE do SatTeste e está dando a seguinte mensagem: isso, tanto faz, se eu tentar executar o projeto ou se tentar criar um EXE veja Sem contar que quando mandei compilar ele deu aquele lance de incompatibilidade de AnsiString com String ai eu deixei como String no eventos aguardo apoio obrigado
  24. Daniel Estou com o aparelho aqui, e de fato ocorre o congelamento quando mando acbrSat.enviarDadosVenda; (percebi que o Led de AC do aparelho, nem pisca, quando antes ele ficava piscando quando enviava uma venda) no acbrSAT tem os eventos, embora eu use XP com D7, eu reparei que tem o ongetcodigodeAtivacao, ongetSignAC e por ser XP eu não consigo mudar para AnsiString eles estão como String, mas independente disso, antes de avaliar esse fato estava funcionando mesmo com String. ta travando no EnviarDadosVenda; Depois de 3 min ela da msg Out Of Memory Ja atualizei o componente duas vezes Por favor, me dê uma Luz Obrigado
  25. Esse é que é o Problema, no Log, onde deveria aparecer tipo "Tentou enviar....", aparece "Consultar SAT" Veja Daniel, o LOG eu peguei direto do da DLL Até 8:41 ele estava enviando normal, inclusive esse ultimo envio ocorreu um errro que não tem nada haver. Depois das 9:00 eu atualizei o Sistema, obviamente que com o ACBR atualizado. Depois disso onde devia aparecer EnvioDadosdeVenda, aparece Consultar SAT Achei que o problema era do Aparelho, mas agora complicou, pois os outros clientes tb atualização o sistema e todos na mesma situação. Veja, não vamos nos descabelar, talvez eu tenho pego uma versao do ACBR com problemas e logo em seguida, alguem ja corrigiu o problema. Bom. infelizmente terei que pegar o aparelho para fazer a tentativa de envio por aqui. Vou fazer o teste e retorno log Dimep.txt
×
×
  • 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.