Ir para conteúdo
  • Cadastre-se

Ivan de Souza

Membros
  • Total de ítens

    236
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Ivan de Souza

  1. Descobri que tinha uma unit JclWin32 antiga que não tinha essa constante. Apaguei tudo, reinstalei novamente e deu certo a compilação. Mas a instalação em si do ACBR não funcionou. Instalei tudo manualmente mesmo. Depois vejo o que posso ter feito de errado, pois estou me preparando para mais uma homologação!!! Vixe, que Deus me ajude e Nossa Senhora do Código Fonte me abençoe !!!

  2. Atualizei hoje de manhã. Desinstalei tudo, instalei de novo.

    Passo as chaves geradas pelo OpenSSL nos eventos: ACBrEAD1GetChavePrivada, ACBrEAD1GetChavePublica e ACBrPAF1PAFGetKeyRSA.

    Assino com ACBrPAF1.AssinaArquivoComEAD('c:\temp\teste.txt') e confiro com Acbrpaf1.EAD.VerificarEADArquivo('c:\temp\teste.txt');

  3. Pessoal, boa tarde!

    Certa vez coloquei uma dúvida aqui mas acabei encontrando a solução também e postando aqui.

    Porém como formatei meu computador não consegui resolver com a minha própria solução.

    Então aqui vai novamente a dúvida:

    Estou com problemas ao verificar assinatura com EAD de um arquivo. Eu consigo assinar, valida pelo aplicativo eEcf, mas a função EAD.VerificarEADArquivo não funciona. Gerei as Chaves Privada e Pública, coloquei nos eventos corretos. Não sei se pode ter a ver com a libEAY. Por isso já realoquei essa dll várias vezes do system para a pasta do executável e vice-versa.

    Perguntas: (utilizo Delphi XE com Windows 7 64 bits)

    - A libeay tem que estar no syswow64 ou na pasta do executável?

    - Tenho que ter somente uma cópia dessa DLL para funcionar?

    - Tenho que registrar essa dll? Tentei fazê-lo como administrador, mas não consegui.

    Qualquer ajuda é bem vinda.

    Obrigado a todos,

    Ivan

  4. Bom dia!

    Estou usando o ecfImpressora.InfoRodapeCupom.MinasLegal := True;

    Desse jeito está saindo assim:

    MINAS LEGAL: 99999999000199 18062012 120

    O CNPJ está saindo completo, e pelo roteiro deveria sair somente as oito primeiras posições.

    A data está saindo num dia anterior ao cupom. Esse cupom de 1,20 foi emitido no dia 19/06.

    Já foi corrigido isso ou eu tenho que montar a linha manualmente?

    Obrigado,

    Ivan

  5. Qual o comando que vocês usam para gerar a opção 4 do menu fiscal?

    Ato Cotepe 1704 Cat52

    PafMF_LMFC_Cotepe1704(edtData1.Date, edtData2.Date, cNomeArquivo); obs: não gera o E16, E17, E18, E19 e E20

    PafMF_MFD_Cotepe1704(edtData1.Date, edtData2.Date, cNomeArquivo); obs: não gera o E4, E5, E6, E7, E8, E9, E10, E11, E12 e E13

    Obrigado!

    Ivan

  6. Pessoal, bom dia!

    Alguém sabe me dizer o motivo do erro:

    0503 Data em intervalo invalido

    na hora de tirar a redução Z? Se deixar para tirar a redução Z no dia seguinte não acontece isso.

    Obrigado,

    Ivan

  7. Boa noite, pessoal!

    Tô implementando o Tef em um software já pronto utilizando SiTef Dedicado.

    Quando carrega a primeira tela pra selecionar o tipo de cartão ele simplesmente volta para a forma de pagamento.

    Ativei o log e me retornou isso:

    -- 27/02/12 20:52:58

    CliSiTef Inicializado CliSiTEF

    -- 27/02/12 20:52:58

    CliSiTef CancelarTransacoesPendentesClass

    -- 27/02/12 20:53:00

    *** IniciaFuncaoSiTefInterativo. Modalidade: 0 Valor: 10,00 Documento: 001770 Data: 20120227 Hora: 205300 Operador: Restricoes: [10]

    -- 27/02/12 20:53:00

    BloquearMouseTeclado: SIM

    -- 27/02/12 20:53:00

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:00

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = Conectando SiTef Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:00

    CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Conectando SiTef

    -- 27/02/12 20:53:00

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 13 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:05

    CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem:

    -- 27/02/12 20:53:05

    CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem:

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = SiTef Conectado Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:05

    CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: SiTef Conectado

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 4 TipoCampo = -1 Buffer = Selecione a forma de pagamento Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:05

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 21 TipoCampo = -1 Buffer = 1:Cartao de Debito;2:Cartao de Credito;3:Cartao Fininvest;4:Confirmacao de Pre-autorizacao;5:Credito Consumidor; Tam.Min = 1 Tam.Max = 2

    -- 27/02/12 20:53:05

    BloquearMouseTeclado: NAO

    -- 27/02/12 20:53:06

    BloquearMouseTeclado: SIM

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = 1

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 14 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 15 Buffer = Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 15 Buffer = Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 0 TipoCampo = 43 Buffer = Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:06

    ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer =

    -- 27/02/12 20:53:07

    ContinuaFuncaoSiTefInterativo, Retornos: STS = -43 ProximoComando = 0 TipoCampo = 43 Buffer = Tam.Min = 0 Tam.Max = 0

    -- 27/02/12 20:53:07

    *** ContinuaFuncaoSiTefInterativo, Finalizando: STS = -43

    -- 27/02/12 20:53:07

    BloquearMouseTeclado: NAO

    Alguém pode me dizer o porquê disso?

    Obrigado,

    Ivan

×
×
  • 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 10 segundos...