-
Total de ítens
9.335 -
Registro em
-
Última visita
-
Days Won
117
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que EMBarbosa postou
-
Componente em delphi que faz a conexão coma sefaz
EMBarbosa replied to gracielaboschetti's tópico in Dúvidas Gerais sobre o ACBr
veja viewtopic.php?f=6&t=1204 -
[MODERAÇÃO] Favor criar novos tópicos para dúvidas diferentes, mesmo que elas se refiram ao mesmo componente ou unit.
-
Verifique o library Path do Options do Delphi. [MODERAÇÃO] Favor criar novos tópicos para dúvidas diferentes, mesmo que elas se refiram ao mesmo componente ou unit.
-
Bem. Esse não é bem o erro acusado. O que acontece é que o seu programa não está encontrando a versão do libeay32.dll correta. Você deve ter alguma versão diferente da libeay32.dll em alguma pasta definida no path do Windows e isto está fazendo com que o programa carregue a versão incorreta. Copie a versão correta usada pelo ACBr da libeay32.dll para a pasta do seu executável. Isso deve corrigir o problema. Explicação do processo de carregamento das dlls no windows: http://msdn.microsoft.com/en-us/library/ms684184 Veja um exemplo do mesmo erro e a explicação do porque ele ocorre em: http://www.zeroc.com/faq/incompatibleLIBEAY32.html Poste aí o resultado.
-
Olá mais uma vez, Eu fiz verificação em campos com definições parecidas (ex.: SUFRAMA do Bloco 0 Registro 0000) e notei que em todos os que eu verifiquei o componente estava fazendo como você sugeriu. Então vou fazer a alteração hoje mesmo. EDIT: Alterado em Registro 0005 e Registro 0100.
-
Pois é, deu pra entender que é um conflito com a Libeay32.dll. Mas sem a mensagem de erro fica difícil de saber exatamente o que está ocorrendo... Informe também, além da mensagem de erro, a versão do seu Panda antivirus.
-
Qual a mensagem de erro?
-
link 'Relatar Caso' inexistente, para enviar bug
EMBarbosa replied to robsonsx's tópico in Dúvidas Gerais sobre o ACBr
Pra relatar um bug aqui é só você criar um post no fórum do ACBrNFe colocando as informações sobre o bug. viewforum.php?f=6 Se quiser pode usar também o Mantis: http://www.djsystem.com.br/acbr/mantis -
CF-e (cupom fiscal eletrônico) entra no SPED
EMBarbosa replied to EMBarbosa's tópico in Legislação Fiscal e Tributária
Até onde eu sei, não há nada ainda... Mas deverá funcionar de um modo intermediário entre a NF-e e a NFS-e. -
Erro: ...rtl70.bpl não foi encontrado !
EMBarbosa replied to Sérgio Assunção's tópico in Object Pascal - Delphi & Lazarus
Há uma possibilidade de ter ficado algum lixo e alguma parte do seu aplicativo estar sendo "linkado" com os pacotes. Marque a opção, faça um Build All. Desmarque a opção e Faça um Build All novamente. Salve o projeto. Isso deve corrigir... -
Erro: ...rtl70.bpl não foi encontrado !
EMBarbosa replied to Sérgio Assunção's tópico in Object Pascal - Delphi & Lazarus
Existe uma opção do projeto que define se o aplicativo vai ter esse código dentro do EXE ou se vai buscar de uma bpl. Altere essa opção. Vai aumentar o tamanho do seu executável, mas vai corrigir. Acho que é "Build with runtime packages"... http://www.delphigroups.info/2/12/1021559.html http://forums.devshed.com/delphi-progra ... 92352.html -
veja: viewtopic.php?f=5&t=22
-
Em geral isso é incompatibilidade de versões da BPL. Verifique se existe esse arquivo em outras pastas, que o Delphi poderia estar acessando. Se houver, remova-os. Depois faça um Build no pacote do synapse.
-
Olá, Obrigado pela resposta. Desculpe ainda não ter feito a alteração, mas é que estou analisando aqui. Quando fiz o merge do seu arquivo com o atual no SVN acho que ele indicou diferença no campo NUM, foi daí que eu me confundi. Me desculpe Mas então, agora que eu entendi melhor o que você quis dizer, fiquei com uma dúvida... o campo FONE e o campo FAX estão definidos com tamanho fixo de 10 Caracteres. Note que há um asterisco ao lado do tamanho do campo. 08 FONE Número do telefone. C 10* - Agora veja o item 2.3.1 em especial a letra a): Pelo que eu entendi: Se você preencher o campo com telefone completo digamos AA-BBBB-CCCC ficariam dez números preenchidos corretamente "|AABBBBCCCC|". Se você não colocar nada o componente deveria fazer como vazio "||". Mas se colocar parcialmente o número, omitindo por exemplo o DDD da localidade, o número ficaria preenchido com zeros. Exemplo: TEL := "1234-5678" ficaria "|0012345678|". Me ajude a esclarecer, pois estou tentando dar uma mão ao Isaque mas não posso alterar nada sem ter certeza. Obrigado pela paciência e boa disposição em ajudar.
-
Se o campo sempre for preenchido com 32 caracteres não vai mesmo fazer diferença... Então acho que não precise ser alterado...
-
Corrigido, foi pro SVN... Favor conferir...
-
Sim. Me parece que você precisa primeiro criar um Registro E100 antes do Registro E110... Se assim for, o DEMO está errado... vou tentar verificar...
-
Olá Iran, Estou tendo alguns problemas em acessar a DLL aqui... vou descobrir o que é e depois disso faço as alterações ok? Embora concorde plenamente com as alterações, não quero arriscar já que outros já estão usando o sistema atual...
-
Olá, Eu verifiquei isso, mas parece que o campo tem mesmo tamanho agora, veja a nota no Ato Cotepe 09/08 http://www.fazenda.gov.br/confaz/confaz ... 009_08.htm
-
Foi pro SVN, favor conferir... P.S: Sugestão Gr@ç@... quando postar códigos use a tag "code". Fica mais fácil pra ler pois o fórum mantém o layout do seu texto. Obrigado mais uma vez.
-
SPED REGISTRO D110 - Itens do Documento NF de Transp(serieA)
EMBarbosa replied to Gr@c@'s tópico in ACBrSPEDFiscal
Foi pro SVN, favor conferir... Obrigado Gr@ç@. -
Foi pro SVN, favor conferir...
-
Olá, as sugestões foram adaptadas e subidas para o SVN. Favor verificar se era isso mesmo. A propósito, no registro N3, para o campo MD5, não deveria ser RFill? Ou não vai fazer diferença? strRegistroN3 := strRegistroN3 + LFill('N3') + RFill(NOME_ARQUIVO, 50) + RFill(MD5, 32) + // #13#10;[/code]
-
Olá Gr@ç@, Eu estou bem por fora dos detalhes sobre CTE. Mas acredito que haja uma solução bem simples. Existe algum jeito de sabermos, no quando da execução do método TBloco_D.WriteRegistroD100 se a Nota foi cancelada ou não? Não seria só verificar se o campo COD_SIT é 02, 03, 04 ou 05 ? Isso permitiria escrevermos uma rotina alternativa só pra esses casos... exemplo: procedure TBloco_D.WriteRegistroD100(RegD001: TRegistroD001) ; var intFor: integer; strIND_FRT: AnsiString; strCOD_SIT: AnsiString; begin if Assigned( RegD001.RegistroD100 ) then begin for intFor := 0 to RegD001.RegistroD100.Count - 1 do begin with RegD001.RegistroD100.Items[intFor] do begin case IND_FRT of tfPorContaTerceiros: strIND_FRT := '0'; tfPorContaEmitente: strIND_FRT := '1'; tfPorContaDestinatario: strIND_FRT := '2'; tfSemCobrancaFrete: strIND_FRT := '9'; tfNenhum: strIND_FRT := ''; end; case COD_SIT of sdRegular: strCOD_SIT := '00'; sdExtempRegular: strCOD_SIT := '01'; sdCancelado: strCOD_SIT := '02'; sdCanceladoExtemp: strCOD_SIT := '03'; sdDoctoDenegado: strCOD_SIT := '04'; sdDoctoNumInutilizada: strCOD_SIT := '05'; sdFiscalCompl: strCOD_SIT := '06'; sdExtempCompl: strCOD_SIT := '07'; sdRegimeEspecNEsp: strCOD_SIT := '08'; end; //No Caso abaixo não deve informar todos os campos... if COD_SIT in [sdCancelado, sdCancelado, sdDoctoDenegado, sdDoctoNumInutilizada] then begin Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + LFill( '' ) + //COD_PART LFill( COD_MOD ) + LFill( strCOD_SIT ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( CHV_CTE ) + LFill( '' ) + //DT_DOC LFill( '' ) + //DT_A_P LFill( '' ) + //TP_CT_e LFill( '' ) + //CHV_CTE_REF LFill( '' ) + //VL_DOC LFill( '' ) + //VL_DESC LFill( strIND_FRT ) + LFill( '' ) + //VL_SERV LFill( '' ) + //VL_BC_ICMS LFill( '' ) + //VL_ICMS LFill( '' ) + //VL_NT LFill( '' ) + //COD_INF LFill( '' ) ) ; //COD_CTA end else Add( LFill('D100') + LFill( Integer(IND_OPER), 0 ) + LFill( Integer(IND_EMIT), 0 ) + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( strCOD_SIT ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( CHV_CTE ) + LFill( DT_DOC ) + LFill( DT_A_P ) + LFill( TP_CT_e ) + LFill( CHV_CTE_REF ) + LFill( VL_DOC,0,2 ) + LFill( VL_DESC,0,2 ) + LFill( strIND_FRT ) + LFill( VL_SERV,0,2 ) + LFill( VL_BC_ICMS,0,2 ) + LFill( VL_ICMS,0,2 ) + LFill( VL_NT,0,2 ) + LFill( COD_INF ) + LFill( COD_CTA ) ) ; end; /// Registros FILHOS WriteRegistroD110( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD130( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD140( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD150( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD160( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD170( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD180( RegD001.RegistroD100.Items[intFor] ) ; WriteRegistroD190( RegD001.RegistroD100.Items[intFor] ) ; RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1; end; /// Variavél para armazenar a quantidade de registro do tipo. FRegistroD100Count := FRegistroD100Count + RegD001.RegistroD100.Count; end; end;[/code] Substitua esse IF acima no seu código do TBloco_D.WriteRegistroD100 do arquivo ACBrECFBloco_D_Class.pas e veja se resolve por favor... Se resolver eu já subo pro SVN... Você pode também me indicar onde você encontrou essa informação de preenchimento? Só pra efeito de depois alguém questionar as alterações?
-
Daniel, Posso assinar em baixo do seu comentário também? hehe