Ir para conteúdo
  • Cadastre-se

elixandre

Membros
  • Total de ítens

    84
  • Registro em

  • Última visita

Tudo que elixandre postou

  1. Hoje fiz a atualização do fontes do acbr do trunk2 como sempre faço, desinstalei minha versão instalada que já é também os fontes do trunk2, fui fazer a compilação do ECFDemo, ele até copila mas ao carregar ele dá um erro e fala que não conseguiu carregar o arquivo libeay32.dll, que na minha máquina por ser windows 7 64 bits está na pasta C:\Windows\SysWOW64. Já apaguei desta pasta, coloquei na pasta do demo, mas o erro persiste. O que pode ser feito para resolver este problema ? Quando faço um break no código é na linha vermelha que o problema ocorre : procedure OpenSSL_add_all_algorithms; var hLibeayDLL: THandle; Add_all_algorithms_procedure: TOpenSSL_InitFunction; LibPointer : Pointer ; begin {$IFDEF FPC} hLibeayDLL := dynlibs.LoadLibrary(LIBEAY_DLL_NAME) ; {$ELSE} hLibeayDLL := GetModuleHandle(LIBEAY_DLL_NAME); //o erro ocorre aqui !!!! {$IFEND} if hLibeayDLL = 0 then raise Exception.Create('libeay32.dll not loaded'); // Try to load new version LibPointer := GetProcAddress(hLibeayDLL, 'OPENSSL_add_all_algorithms_noconf'); // Fallback to old version if LibPointer = nil then LibPointer := GetProcAddress(hLibeayDLL, 'OpenSSL_add_all_algorithms'); if LibPointer <> nil then begin Add_all_algorithms_procedure := TOpenSSL_InitFunction(LibPointer) ; Add_all_algorithms_procedure; end else raise Exception.Create('OpenSSL_add_all_algorithms procedure not defined in libeay32.dll'); end;
  2. Obtive este o erro : o erro : "579 - Rejeição: A data do evento nao pode ser menor que a data de autorização para NF-e nao emitida em contingencia" em um cliente na hora e enviar o evento de cancelamento, não consegui cancelar no dia nem algumas horas depois, só no dia seguinte o cancelamento foi aceito. Hoje o mesmo problema em cancelar outra nota, passei quase duas horas depois do envio tentando cancelar, então habilitei a opção de visualizar as mensagem do webservice, verifiquei que o serviço da sefaz estava 12 minutos menor que a hora da máquina do cliente, então coloquei a hora da máquina do cliente para 12 minutos a menos e então enviei o evento de cancelamento, desta forma o cancelamento foi autorizado. Bem, resolvendo o problema estou satisfeito, mas pintou a dúvida .... como vou antecipar este problema para não mais acontecer? tem alguma forma de pegar a data e hora do serviço da sefaz para fazer algum ajuste ? Existe algua tolerância de diferença entre a máquina emissora e serviço da sefaz ?
  3. Obrigado Italo, vou fazer assim mesmo, tentativa e erro !!!
  4. Estou precisando gerar um CT-e substituto, porém estou com seguinte caso : A empresa responsavél pela NF-e, referenciada no CT-e, fez uma única nota de anulação discriminando os três conhecimentos que estou precisando substituir .... porém no componente tenho informar a chave do CT-e que será substituido e a nota de anulação (NF-e), pelo que vi , tenho que fazer o conhecimento substituto um à um (no caso serão três) mas só tenho um nota de anulação ("que no caso foi discriminado os três ct-e") ... ao informar a mesma chave na NF-e de anulação em cada CT-e substituto não terei problemas ?
  5. Pesquisei muito aqui no fórum e no google mas só fiquei com mais dúvidas. A tabela do IBPTpode ser usado em todos regimes ? Vi noticias que caso a empresa seja o simples nacional devo ultilizar a calculadora que o sebrae disponibiliza , mas em relação ao sistema preciso criar as regras e o que faço ? Posso usar o IBPT para todos os regimes, inclusive os optantes por simples nacional ? ou tenho mesmo fazer está separação ? Juro que pesquisei , pesquisei , e só tenho mais dúvidas o que fazer para tratar as diferenças de regimes.
  6. Galera estou tendo alguns problemas nos arquivos do fastreport dos boletos , e já vi até em um tópico que parte dos erros foram resolvido , mas não foram adicionado nos fontes originais, por isto estou atualizado no svn e colocando sempre depois os arquivos fr3 que foram disponibilizado no fórum em outros tópicos já corrigidos. Ao carregar os arquivos fr3 nos projetos que uso boleto, até consigo abrir o editor do fast mas como carrego em tempo de projeto não tenho acesso as dados que são criados dinamicamente em tempo de execução, então qualquer alteração feita nos arquivos do fast tem ser testada no aplicativo em execução. Assim como existe o comando : ACBrBoleto1.Imprimir; não seria interressante ter o seguinte comando : ACBrBoleto1.Editar; assim poderiamos fazer as correções de maneira mais rápida com dados carregados dentro do proprio projeto em execução. Fiz uma alteração para poder me ajudar nisto : procedure TACBrBoletoFCFR.Editar; var DmBoleto: TdmACBrBoletoFCFR; begin inherited Imprimir; // Verifica se a lista de boletos está vazia DmBoleto := TdmACBrBoletoFCFR.Create(Self); try with DmBoleto do begin cdsBanco.EmptyDataSet; cdsCedente.EmptyDataSet; cdsTitulo.EmptyDataSet; if PrepareReport(DmBoleto) then begin frxReport.PrintOptions.ShowDialog := MostrarSetup; if Length(Impressora) > 0 then frxReport.PrintOptions.Printer := Impressora; frxReport.DesignReport; end; end; finally DmBoleto.Free; end; end; Fora está mudaça que fiz tem alguma forma hoje de abrir o editor com os dados carregados para edição do arquivos do fast, ou realmente está mudaça que fiz foi necessária ?
  7. Estou homologando o boleto com o banco itaú , nos arquivos que envie (pdf + arquivo de remessa), me foi retornado um problema no boleto gerado : A Lei Federal nº 12.039, que já está em vigor, exige a inclusão do endereço, da razão social e do CNPJ/CPF do beneficiário ou sacador Avalista* em todos os boletos de cobrança, no recibo do pagador, com o intuito de identificar o prestador do serviço/produto (emitente da nota) e facilitar o contato do pagador com o emissor, quando necessário; Porém onde informo isto ? Estou usando o fastreport e no campo correspondente percebo que ele não é alimentado. Alguém pode ajudar ?
  8. Estou usando o fastreport para impressão do boleto, porém temos 4 modelos, estou usando cada modelo de layout para cada arquivo de relatório do fast encontrado nos exemplos do ACBrBoleto, estou fazendo assim : lPadrao -> BoletoFR.fr3 lCarne -> BoletoCarne.fr3 lFatura -> BoletoFatura.fr3 lPadraoEntrega -> Boleto.fr3 Porém o ICarne e IFatura que respectivamente na minha configuração são : BoletoCarne.fr3 e BoletoFatura.fr3 retorna o seguinte erro ao imprimir com eles: First chance exception at $75B0C41F. Exception class EVariantTypeCastError with message 'Could not convert variant of type (String) into type (Double). porém se usar o IPadrao e IPadraEntrega visualizo e imprimo normalmente. O que pode está errado ? Alguém já teve este problema ?
  9. Depois de muito pesquisar encontrei o erro, mas mesmo assim obrigado, foi erro mesmo de análise minha.
  10. Estou recorrendo ao forum porque já tentei de tudo e não conseguir identificar porque acontece o erro ao enviar o arquivo XML do manifesto para site. já ultilizo a algum tempo o componente de conhecimento (CT-e) sem nenhum problema, tive agora que implementar o manifesto eletrônico, é bem parecido toda a parte de configuração com o do CT-e, estou conseguindo fazer todas as etapas, Criando o MDF-e mas ao enviar acontece o seguinte erro : Access violation at address 01219D15 in module 'SysTransp.exe'. Read of address 000002C8 no código onde faço o processo esta assim : xLogEtapa := 'Salvando o arquivo XML do manifesto no computador antes do envio para o fisco'; ACBrMDFe1.Manifestos.Items[0].SaveToFile; //salva sem nenhum problema ... xLogEtapa := 'Enviado o manifesto para o fisco ...'; ACBrMDFe1.Enviar(ALote, False); //o erro ocorre ao executar aqui ... xLogEtapa := 'Consultando o retorno do manifesto enviado'; MemoResp.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.Retorno.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); consigo até salvar o xml antes de enviar ...antes coloquei os comandos de assinar e validar antes do comando enviar só para ver se passava sem erro, e realmente nada acontece, passa sem nenhum problema , mas ao enviar o erro acontece e como faço os teste na maquina do cliente com o certificado dele não sei onde pode esta acontecendo o problema , só para constar o componente configuro todos paths, esta marcado salvar .... não sei se estou fazendo algo de errado.
  11. Fiz a importação do XML gerando pelo sistema no sistema gratuito da sefaz, e fiz o cancelamento por lá e deu certo .... mas não queria ficar usando desta forma ... queria ficar usando pelo mesmo sistema que gera envia o xml .... se alguém tiver alguma noticia agradeço a ajuda.
  12. Estou tentando usando a versão 1.04, e não estou conseguindo enviar o evento de cancelamento na hora de enviar o comando "ACBrCTe1.EnviarEventoCTe" é retornado o seguinte erro : the system cannot locate the object specified o cliente é do estado do ceará. Já mexi na configuração do scherma "CBrCTe1.Configuracoes.Geral.PathSchemas" como foi indicado em outros post do forum ... a propriedade "ACBrCTe1.Configuracoes.Arquivos.PathEvento" também foi corretamente configurada... mas o problema persiste, alguém tem alguma luz ? O envio do CT-e não esta dano problema ... esta certo ... só do evento ....
  13. Ao mudar para o cancelamento em eventos aproveitei e incorporei a carta de correção eletrônica pelo sistema, mas estou tendo dificuldade em pegar o nome do arquivo completo do xml de evento gerado. no sistema fiz assim : //se o xml existe salva no registro do evento no banco ... if (FilesExists(EventoRetorno.retEvento.Items[0].RetInfEvento.XML)) then begin //esta função cola o arquivo no campo blob da tabela de evento da nota SalveParaCampoBlob(EventoRetorno.retEvento.Items[0].RetInfEvento.XML, 't_nf_evento', 'xml_evento', 'seq_evento=' + AChavePrimaria, D_Modulo.QrySQL); end; só que ele nunca salva, pesquisei na net e vi um uma informação que "RetInfEvento.XML" não é o caminho do arquivo salvo e sim a propria extrutura do xml de evento, bem isto estando correto onde pego o nome do arquivo gerado do evento assim como o caminho da nota como no exemplo "ACBrNFe1.NotasFiscais.Items[0].NomeArq" quando autorizamos a nf-e? Vi um exemplo assim aqui no fórum : ACBrNFe1.Configuracoes.Arquivos.PathCan + '\' + ACBrNFe1.EventoNFe.Evento.Items[i].InfEvento.chNFe + ACBrNFe1.EventoNFe.Evento.Items[i].InfEvento.TipoEvento + IntToStr(ACBrNFe1.EventoNFe.Evento.Items[i].InfEvento.nSeqEvento) + '-procEventoNFe.xml'; Porém ao gerar um evento dentro da pasta configurada para evento existe um subpasta chamada cancelamento então nem é usado ACBrNFe1.Configuracoes.Arquivos.PathCan, para salvar as notas ... e as cartas de correções que nome da pasta é criada dentro da pasta de eventos ?
  14. No infEvento.chNFe estou informando a chave da nota fiscal eletrônica em questão, ele pega de edit que esta na aplicação , mas eu refiz o exemplo só não pude testar mas acho que o erro esta em infEvento.nSeqEvento , usei a mesma informação do lote, vi no seu exemplo no seu blog que este campo é um sequencial por nota permitindo até 20 eventos , então os números devem ir de 1 à 20 e ao colocar o controle do lote passou muito esta faixa. Mas Obrigado assim mesmo , irei testar hoje no cliente.
  15. Coloquei a opção de enviar o evento da carta de correção. Estou usando seguinte código : with D_Modulo do begin //Número do Lote , estou usando como o exemplo. NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); //preenchimento dos dados da carta de correção ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.idLote := NumeroLote; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := NUM_NFE_KEY.Text; //Chave da Nf-e Emitida infEvento.CNPJ := aLoginGeral.MyCNPJ; //CNPJ do Cliente Emissor ... infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := NumeroLote; infEvento.detEvento.xCorrecao := DSC_NFE_CCE.Text; end; Porém é relatado o seguinte erro : Falha na validação dos dados do Envio de Evento 'ID110110231307036680410001495500100000185910000185971307171405' violates pattern constraint of 'ID[0-9]{52}'. The attribute 'Id' with value 'ID110110231307036680410001495500100000185910000185971307171405' failed to parse. Pelo que entendi o ID deveria ter 52, e a chave Id esta maior. Onde podemos mexer nisto ?
  16. O cliente ainda me passou que seria uma nota de devolução usando o modelo 55 ele me passou até a lei : Como a Legislação que altera é recente, muito provável seu cliente irá questionar nossa solicitação, sendo assim já disponho o embasamento Legal para que ele possa verificar junto à seu contador. Segue: Seção VIII Das Obrigações Acessórias Subseção I Dos Documentos e Livros Fiscais e Contábeis Art. 57. A ME ou EPP optante pelo Simples Nacional utilizará, conforme as operações e prestações que realizar, os documentos fiscais, inclusive os emitidos por meio eletrônico, autorizados pelos entes federados onde possuir estabelecimento. (Lei Complementar nº 123, de 2006, art. 26, inciso I e § 4º) ............ § 7º Na hipótese de emissão de Nota Fiscal Eletrônica (NF-e), modelo 55, não se aplicará o disposto nos §§ 5º e 6º, devendo a base de cálculo e o ICMS porventura devido ser indicados nos campos próprios, conforme estabelecido em manual de especificações e critérios técnicos da NF-e, baixado nos termos do Ajuste SINIEF que instituiu o referido documento eletrônico. (Lei Complementar nº 123, de 2006, art. 26, inciso I e § 4º) Resolução Comitê Gestor do Simples Nacional nº 94, de 29 de novembro de 2011 (*) Mas estou meio confuso como farei no sistema, alguém já passou por isto ?
  17. Bom dia estou com problema em um cliente, ele é optante pelo simples nacional então sigo o processo de preenchimento dos imposto de acordo com manual no sistema na parte de icms fica algo assim : //tributação normal ... if (QrySelect.FieldByName('cod_sit').AsInteger < 100) then begin with ICMS do begin //valores dos itens ... CST := StrToCSTICMS(Ok, QrySelect.FieldByName('cod_sit').AsString); modBC := dbiPrecoTabelado; pICMS := pTempICMS; vICMS := FiscalTributacao.ItemTributacao.vIcms; vBC := FiscalTributacao.ItemTributacao.vBaseIcms; vBCST := FiscalTributacao.ItemTributacao.vBaseSubst; vICMSST := FiscalTributacao.ItemTributacao.vSubst; end; end else //tributação simples nacional ... begin with ICMS do begin CSOSN := StrToCSOSNIcms(Ok, QrySelect.FieldByName('cod_sit').AsString); modBC := dbiPrecoTabelado; pCredSN := pTempICMS; vCredICMSSN := FiscalTributacao.ItemTributacao.vIcms; vBC := 0.00; vICMS := 0.00; vBCST := FiscalTributacao.ItemTributacao.vBaseSubst; vICMSST := FiscalTributacao.ItemTributacao.vSubst; end; end; como no codigo acima , se for CST para simples nacional não preencho a base de calculo, nem o valor de icms .... e se ele é mesmo simples nacional destaca imposto preenchendo as tags pCredSN,, vCredICMSSN mas fui informado pela cliente que houve uma mudança e temos agora preencher a base de calculo e de icms assim como é feito nas empresas normais ... isto realmente esta ocorrendo ? E como é certo agora preencher ?
  18. Deu certo com o reset da impressora, obrigado pela dica Daniel !!!!! E para pessoal do fórum um feliz natal e próspero ano novo e este ano seja um ano de luz para gente que sofre tanto nesta profissão !!!!!!!!!
  19. Olá galera !!!! Estou tendo um problema para gerar uma etiqueta pela impressoar argox usando PPLA , tudo esta funcionado, conectado, enviados os dados , imprimindo ... Mas não conseguindo mudar o avanço enter etiquetas ... tipo ... se mando imprimir duas linhas ... qua no caso seria duas etiquetas .... entre as etiqueta ... fica um espaço de duas etiquetas .... se mando 4 etiquetas ... entre cada etiqueta fica as mesmas duas etiquetas em branco ... já mudei o valor de avanço quando mando imprimir ... já coloquei 600 (que vem no exemplo) , 300, 100 e até zerei .... mas sempre pula duas etiquetas ... Esta aqui parte do código que estou usando : if ACBrETQ.Ativo then begin ACBrETQ.Desativar; end; //aqui coloco o avanço que quero ... vAvanco=600; ACBrETQ.Avanco := vAvanco; ACBrETQ.Ativar; //etiqueta 1 ACBrETQ.ImprimirTexto(orNormal,2,2,2,190,20,'COSTA LESTE'); ACBrETQ.ImprimirTexto(orNormal,2,2,1,158,25,'AGM4010002'); ACBrETQ.ImprimirTexto(orNormal,2,2,1,90,25,'ABAFADOR/PROTETOR DE RUIDOS-AB'); ACBrETQ.ImprimirTexto(orNormal,2,3,2,15,100,'R$:'); ACBrETQ.ImprimirTexto(orNormal,2,3,3,15,210,'17,99'); //etiqueta 2 ACBrETQ.ImprimirTexto(orNormal,2,2,2,190,510,'COSTA LESTE'); ACBrETQ.ImprimirTexto(orNormal,2,2,1,158,515,'AGM4010002'); ACBrETQ.ImprimirTexto(orNormal,2,2,1,90,515,'ABAFADOR/PROTETOR DE RUIDOS-AB'); ACBrETQ.ImprimirTexto(orNormal,2,3,2,15,590,'R$:'); ACBrETQ.ImprimirTexto(orNormal,2,3,3,15,700,'17,99'); ACBrETQ.Imprimir(2, vAvanco); Neste caso mando sempre como fosse duas etiquetas lado a lado pq é modelo de etiqueta ... Neste exemplo mando imprimir duas linhas ... totalizado 4 etiquetas ... entre a linha 1 e 2 ... perco duas etiquetas pq sai em branco como fosse um avanço entre elas ... mas eu queria que saísse um abaixo da outra ... o que estou fazendo de errado ????
  20. só para deixar aqui como ajuda para outros desenvolvedores, entrei no site da sefaz que tinha um mensagem falando sobre realmente a atualização para o padrão V2 da cadeia dos certificados e até vi que o arquivo foi criado com data do dia 14/03/2012 ... então baixei do site a cadeia do certifcado ... e instalei ... mas o erro pesistiu ... então pesquisa no forum vi um tópico que alguns desenvolvedores também tiveram este problema ... solução ... além de instalar a cadeia do certificado foi necessario instalar o pack 3 de atualização se a máquina fosse XP , fiz isto , reniciei ... e quando voltei ....deu certo .... voltou a funcionar . obrigado pelas dicas no forum .
  21. sim uso capicon , mas mesmo assim segui sua dica reeinstalei ... mas o problema pesiste !!!!
  22. fiz um teste instalei o sistema da sefaz de emissão de nota ... coloquei uma chave de nf-e par consultar e ele consulta perfeito ... mas se fizer pelo sistema dá o erro acima ... mesmo q seja problema na atualização da cadeia do certficado pq o sistema da sefaz consegue consultar e o sistema usando o componente não ?
  23. começou hoje em cliente os seguinte erros a baixo na hora do enviou ...consulta ... status do serviço .... até ontem estava ok ... e hoje est erro : erro ao enviar a nota : Erro na tentativa de validar e enviar a NFE A assinatura do certificado não pode ser verificada. - URL:https://nfe.sefaz.ce.gov.br/nfe2/services/NfeRecepcao2 - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2 erro ao consultar o serviço : WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - A assinatura do certificado não pode ser verificada. - URL:https://nfe.sefaz.ce.gov.br/nfe2/services/NfeStatusServico2 - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 o que será que pode esta acontecendo ??? na minha maquina fiz um teste com certificado A1 ... esta ok ... pleo menos a verificação do status do serviço .... alguém pode dar uma luz ????
  24. obrigado por toda ajuda !! mas só para provar que o negocio é estranho .... fiquei ontem a note toda comparando os dois xml acima achando diferença como foi montado, para justificar pq um foi aceito e outro ñ ... fiz a alteração como foi sugerido acima .... mas a minha supresa, antes de atualizar no cliente o sistema , o cliente me liga dizendo q deu certo o envio da nota , e das outras q estaavm com o mesmo problema ... aí ñ acreditei .... então ele me mandou o xml que foi autorizado .... estou postando aqui os dois xml ... o que foi gerado ontem e ñ foi autorizado e o mesmo enviado hoje e autorizado sem erro ... e detalhe ... e o cliente esta emitindo as outras sem desconto na nota sem problema , só as com desconto estava dando problema... ainda fiz assim ... entrei no site da fazenda de natal e usei a opção de validar o xml de lá .... e incrivelmente o de ontem quando mando criticar dar o mesmo erro ... a rejeição 630 ... e que foi autorizado hoje quando colo o xml ele valida sem erro .... e abrindo os dois , pelo menos os dados de produto estão igual ... gente como isto pode ???? vou perder os resto dos cabelos antes do tempo. 23120203990773000150550010000019791000019830-NFe_ERRO.xml 23120203990773000150550010000019791000019830-NFe.xml
×
×
  • 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.