eneias.carvalho

Ok, tentarei faze-lo.

Imaginei tambem que poderia ser algum evento que deixou de ser programado, então programei todos os eventos do componente como os que estão no exemplo e mesmo assim o problema persiste, tive esse mesmo problema há um tempo atraz com o ACBrECF más não recordo como resolvi, em outros tópicos vi que alguns usuários tiveram problemas similares, porem mais voltados para o ACBrECF. Tentei criar o componente em tempo de execução, assim que o mesmo é criado o problema ocorre!

Pensando nisso eu desativei o antivirus mesmo assim o problema persiste.

Boa tarde, procurei no forum mas não encontrei nada pude-se me ajudar, iniciei um projeto novo e adicionei o ACBrECF e o ACBrTEFD, quando inicia a aplicação demora um pouco a mesma fecha sozinha, adicionei os componentes sem configurar e o problema ocorreu, exclui o .exe, configurei os componentes, quando abro o problema persiste, então resolvi retirar o componente de TEF, então a aplicação não fechou, depois coloquei novamente e observei que a aplicação fecha sempre que passo o ponteiro do mouse pela aplicação, algo bem estranho, se abro a aplicação e envio para o tray do windows, tudo ocorre normalmente, más se "chamo" a aplicação ao ponteiro do mouse passar por ela já fecha, utilizei o eurekalog más não retorna nenhum erro.

Bom dia, desativei tudo que poderia mais infelizmente o erro ainda persiste, já tentei em três maquinas diferentes, não sei o que pode ser, más com certeza algo nessas maquinas está bloqueando, afinal de contas não vejo mais ninguem relatando o problema aqui.

Bom dia, to com problema parecido, interrompi a execução de meu anti-virus no entanto não to conseguindo tb.

Algo eu percebi é que o XML não retornou com protocolo, alguem saberia me dizer o por que disso acontecer?

Bom dia, fiz o envio de uma NF-e com o monitor em produção, foi a primeira vez que fiz o envio, porem a danfe aparece com as mensagens de sem valor fiscal e informando que ainda não foi autorizada na sefaz, alguem saberia me dizer o por que disso? Lembrando que ja consultei na sefaz e ela esta la.

Bom dia, após realizar a última atualização tem ocorrido erro no ACBr, antes eu executava a função: ecf.ArquivoMFD_DLL(dDatIni, dDatFim, Arquivo); Normalmente, porem após a atualização minha aplicação começou à fechar sozinha, então fui debugar para tentar identificar onde poderia está o problema, cheguei até a seguintes funçõe: TACBrECFBematech.LoadDLLFunctions; na mesma existe a execução de outra função: if not FunctionDetect( sLibName, FuncName, LibPointer) then Então entrei nesta função, a mesma faz chamada à outra função: Result := FunctionDetect(LibName, FuncName, LibPointer, LibHandle); Por mim nesta última função que é chamada, ocorre erro na seguinte linha: if LoadLibrary(PChar(LibName)) = 0 then Após esta linha a aplicação simplesmente fecha, alguem passando por esta situação parecida? As DLL's que estou utilizando são as que acompanham sempre a última atualização do ACBr.

Daniel_FC, não consegui resolver o problema para gerar diretamente na pasta desejada, então deixei da maneira explicada acima, eu gero no disco "C:", em seguida faço uma cópia para a pasta do aplicativo e apago o que está no disco "C:" .

Para efeitos de homologação de PAF o correto então seria não permitir a venda de produtos cujo registro tenha sido alterado fora do aplicativo PAF-ECF?

Boa tarde Regys, estou fazendo da seguinte maneira, a cada vez que faço uma venda(atualizo o estoque) do produto, eu gravo um chave MD5 comparando os dados para o registro E2, então caso alguem altere qualquer um dos campos que fazem parte do E2 no banco de dados, ao passar os dados para o ACBrPAF, eu valido o MD5, caso o MD5 da validação seja diferente do MD5 constato no banco de dados, eu passo FALSE para RegistroValido. Minha outra dúvida em relação à isso é o seguinte: Como a cada vez que eu atualizo o estoque gero um novo MD5, mesmo que o registro do produto tenha sido alterado manualmente no banco de dados, após a próxima venda do produto, o mesmo ficará com um MD5 válido! Então o registro de alteração fora do PAF deve ser fixo? Ou seja, depois que outro a primeira alteração no banco de dados do registro, independente do que ocorra com o mesmo no decorrer do dia, ele deve constar no arquivo como alterado?

Boa tarde, pessoal estou com dúvidas quanto ao arquivo eletrônico de estoque, não compreendi muito bem qual de fato é a funcionalidade do arquivo e de como ele deve ser "alimentado", em 2011 homologuei PAF, na época eu gerava apenas o arquivo de estoque. Pelo que entendi eu tenho de ter esse arquivo para comparar alterações realizadas diretamente no banco de dados, mostrando informações com "?" quando houver alterações que não ocorram diretamente no PAF, esse informação confere?

Não sei se alguem já passou ou está passando por essa situação, más não estou conseguindo guardar valor nessa proprioedade: if (FileExists(ExtractFilePath(ParamStr(0)) + 'CONFIG.txt')) then begin try aac.NomeArquivoAux := ExtractFilePath(ParamStr(0)) + 'CONFIG.txt'; aac.AbrirArquivo; aac.IdentPAF.ArquivoListaAutenticados.Nome := 'listaMD5.txt'; aac.IdentPAF.ArquivoListaAutenticados.MD5 := ead.MD5FromFile(ExtractFilePath(ParamStr(0)) + aac.IdentPAF.ArquivoListaAutenticados.Nome); executaveis := TStringList.Create; executaveis.LoadFromFile('lista.txt'); aac.IdentPAF.OutrosArquivos.Clear; for i := 0 to executaveis.Count -1 do begin with aac.IdentPAF.OutrosArquivos.New do begin Nome := Copy(executaveis.Strings[i], 35, 50); MD5 := Copy(executaveis.Strings[i], 01, 32); end; end; executaveis.Free; except ShowMessage( 'Parâmetros do sistema inválidos!' + #13 + 'Entre em contato com o suporte.' + #13 + ' - Erro: Arquivo "CONFIG.txt" não configurado!' ); Exit; end; end else begin ShowMessage( 'Parâmetros do sistema inválidos!' + #13 + 'Entre em contato com o suporte.' + #13 + ' - Erro: Arquivo "CONFIG.txt" não localizado!' ); Exit; end; Quando passo pelo campo ele fica com o MD5 do arquivo, más ai quando executo a identificação do PAF, o mesmo não é impresso, já debuguei e verifiquei que o valor fica vazio, o nome do arquivo permanece, porem o MD5 do arquivo não permanece.

Sim Daniel, tudo atualizado, tambem achei muito estranho isso, não há dlls soltas na system, está tudo configurado na pasta da app.

Pesquisei no forum e vi que várias pessoas estão/estavam com um problema parecido com o meu, quando utilizo a função PafMF_MFD_Cotepe1704, se eu indicar um caminho diferente de "C:\" para o nome do arquivo, é retornada a mensagem: Erro na execução de xBematech_FI_ArquivoMFD. Para não ficar parado neste problema eu resolvi criar o arquivo no disco "C:\" e em seguida fazer uma cópia para a pasta do app paf-ecf. Alguém consegue utilizar a função com o caminho direto da app?

Já as postei trocadas, grato!

Como eu não sabia fiz o teste incluindo: "-----BEGIN RSA PRIVATE KEY-----" + sLineBreak + e "-----END RSA PRIVATE KEY-----"; Agora deu CERTO!

Acredito que sim: procedure TFrmCheckoutPAF.eadGetChavePrivada(var Chave: String); begin Chave := 'MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDezc+OWPcdUad2qAAZ31ilVfAK' + sLineBreak + '3zEq69+B7pZwfcQ3f0cxtLLH0LPRNnxw1BLYR9UXtZKtrpP1Ml5+AGqFQvEEJzrb' + sLineBreak + '1h9nSa5bDRIS0gT9XWPx9owDvzbMhkeWnkN8S/RFHKbjPTZE4CqtJVqD5wIDAQAB' + sLineBreak + '1+Op3eEVx2p+WQD0IThrYHRU1h9nSa5bDRIS0gT9XWPx9owDvzbMhkeWnkN8S/RF' + sLineBreak + 'jvaaZzy74RWKjQLOQ0aHSdtX4VY3Sxn/ysvlsm2I34xXZywgwU261A51LHJUSOsM' + sLineBreak + 'C5SynK9/vN40p+mEPpXUZRfX0+dCXICEyw8ZWqsxizr+NBECQQD9LWPU5eJ5Qt+1' + sLineBreak + 'JhvW876rXURDhUKbUcU1uzLSXhZwCEY6U19Un3DqbEztipS11iiT/CyILQadWUYH' + sLineBreak + 'Ywae7bIPAkEA4Um67mmkNcaMN6ub5PJFTJhvyvIuDaFwRw2IoUcStHkc3WdbV8Ms' + sLineBreak + 'KAqbk5azh9cDPU6W0veXWvKPx6edRqiIqQJAT9rENT95CmRUaS+m8kqZJjXZtS5Q' + sLineBreak + 'Dutgt4ze/8lbbGS/ud/YHrnXhKk6LmZad2wgCmUsqpsBDho9Y1ERook4cwJBAK7Z' + sLineBreak + 'OmuvMfNKlajfV67pGT/JT3qDW5rYoPuEVXZWYv4OwYhUn2AN6kdpdDWn0M6s4abD' + sLineBreak + 'R+uUnbPIbi7WuAoO44ECQELjlPv6OOeyGVbDmJeFhzYxaOyJgZRaEia6KRCg4WQ3' + sLineBreak + 'Xp/UsJZ+4q64CsS9bgR3XstUSAXJmciP0iS0XYsgmA4='; end; procedure TFrmCheckoutPAF.eadGetChavePublica(var Chave: String); begin Chave := 'MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDezc+OWPcdUad2qAAZ31ilVfAK' + sLineBreak + '0LPRNnxw1BLYR9UXtZKtrpP1Ml5+AGqFQvEEJzrb1+Op3eEVx2p+WQD0IThrYHRU' + sLineBreak + 'C5SynK9/vN40p+mEPpXUZRfX0+dCXICEyw8ZWqsxizr+NBECQQD9LWPU5eJ5Qt+1' + sLineBreak + 'HKbjPTZE4CqtJVqD5wIDAQAB'; end;

EMBarbosa, tentarei tirar essa dúvida com a UFPI que é onde irei realizar a minha homologação.

Boa tarde, gostaria de saber como utilizar corretamente o componente ACBrEAD, pois fiz o seguinte, em minha aplicação tenho o ACBrAAC aparentemente configurado corretamente, ACBrEAD implementado os metodos OnGetChavePrivada e OnGetChavePublica, onde passo a chave privada e publica para o seu correspondente metodo, o ACBrPAF com o ACBrAAC e ACBrEAD devidamente informados nele, a propriedade AssinarArquivo como True, o ACBrECF onde o ACBrEAD e ACBrAAC estão devidamente informados, quando tento gerar uma leitura da memoria fiscal completa por periodo(ecf.PafMF_LMFC_Espelho(StrToDate(edInicial.Text), StrToDate(edFinal.Text), 'LMFC_Espelho_Periodo.txt'), tenho um erro na unit ACBrEAD.pas na linha: 502(raise), com a seguinte mensagem: Erro ao ler Chave. No debug o problema ocorre aqui: try A := nil ; if Privada then //Aqui ao que tudo indica ocorre o erro por a BioKey esta devidamente preenchida com a chave que passei //após fsKey pegar o retorno da função, a mesma fica como nil fsKey := PEM_read_bio_PrivateKey( BioKey, {$IFDEF USE_libeay32}A{$ELSE}nil{$ENDIF}, nil, nil) else fsKey := PEM_read_bio_PUBKEY( BioKey, A, nil, nil) ; finally LiberarBIO( BioKey ); end ;

Entrei em contato com a Bematech e me informaram que isso é normal, pois isso ocorre quando não há nenhum movimento fiscal(sangria, suprimento, venda, etc...) perguntei sobre os requisitos do PAF quanto à essa situação e o Sidney me informou que não há problema, pois todos os requisitos pedem a RZ quando há movimento, não recordo se realmente há algum requisito que fuja dessa regra.

Daniel, neste caso não seria interessante retornar a data do dia? Más quanto aos requisitos do PAF como ficam?

Bematech MP-2100 TH FI versão: 01.01.01. Quanto ao teste farei no final do dia, pois ja fiz muitas reduções hoje para outros testes do PAF.

Desde 6ª feira(22/02) que o ECF estava sem movimentação, hoje fiz a RZ do mesmo, após fazer a RZ fui pegar os dados da mesma: var DadosReducaoStr : string; begin try ecf.ReducaoZ; except on e : EACBrECFErro do begin ShowMessage(e.Message); Exit; end; end; DadosReducaoStr := ecf.DadosUltimaReducaoZ; Após isso o erro é retornado, justamente no trecho que informei na mensagem anterior, para simular o erro novamente coloquei o ECF em intervenção, adiantei a data, voltei da intervenção e efetua a RZ novamente debugando, então encontrei o erro.