Buffon

boa tarde, baixei esta semana os fontes... estou com o prob... NumeroSessao: 633872 - Resposta:633872|06001|0000|Código de ativação inválido.|| no emulador do sat das vendas conseg fazer a venda.. porem no delphi XE6 nao estou conseg..., nao alterei os fontes..pelo q li neste topico...esta versao jahe estaria correta ? obrigado

Alguem sabe se posso usar PAF em uma maquina e outra usar outro sistema para emissao NFCe ?

a funcao VerificarEADArquivo do TACBrEAD caso a validacao nao seja ok do arquivo ele gera um exception tenho q tratar se a ass nao eh valida com try except ?. .... a funcao nao deveria somente retornar false? por exemplo ... testei a funcoa com ead valido...funcoa retornou true... alterei algum valor do arquivo e testei nvoametne... deu exception .. if (not Result) then begin { Se o aqruivo foi assinado pelos fabricantes como: Bematech, Itautec, etc, então o MD5 é criptografado antes de rodar a criptografia do RSA (sic)... nesse caso não temos como conferir o MD5 a não ser usando a DLL do eECFc (que será desenvolvida) } raise EACBrEADException.Create( 'Não foi possível verificar a assinatura do arquivo:' + sLineBreak + sLineBreak + 'Verifique se a chave informada é mesmo a chave correta antes de continuar.' + sLineBreak + sLineBreak + 'Verifique também se o arquivo foi assinado com a DLL de algum fabricante de ' + 'impressoras fiscais, os fabricantes de impressoras fiscais criptografam o MD5 ' + 'do arquivo antes de efetuar a criptografia para a assinatura EAD o que torna ' + 'possível a verificação da assinatura somente utilizando o aplicativo eECFc, ' + 'somente este aplicativo possui as rotinas de descriptografia para cada fabricante.' ); end ;

neste seu teste ...se deixar extended fica Zero (errado) double e currency fica = 1 (certo) ok? agora teste add valorDouble := 0.48; writeln(trunc(valorDouble * 100)); writeln(valorDouble * 100); o trunc deveria ficar com 48...mas fica 47 com o currency fica certo (48)

eu alterei para double nos meus fontes... porem hoje testando novamnte passando um valor 0,48 .. no arquov esta gerando 00047 ... teste ... nao retorna zero... var a : currency; b : double; begin a := 0.48; b:= 0.48; showmessage(floattostr(a-) e a funcao dentro do lfill qdo dah um trunc passando como parametro trunc(0,48 *100) o 100 eh o calculo do acbr for intFor := 1 to Decimal do begin intP := intP * 10; end; esta passando ,47 no trunc... acho q teria q rever esta forma de conversao ... jah que alguns depende de mais casas decimais na funcao

qual o nome do arquivo a ser salvo gerando este manulamento pelo menu ? verificar requisito testes XXVI passo 22 nome do arquivo CCCCCCNNNNNNNNNNNNNNDDMMAAAA.txt onde N numero de serie ... e se deve conter todas as vendas de todas ecf... como proceder? qdo eh o memso arquivo apos a z que consta somenmte da ecf...td bem ... obrigado

favor fechar topico ... resolvido... era problema d um obj meu

bom dia... alguem jah passou pelo erro... estou abrindo o sistema no cliente para testar uma versao e dando o erro --------------------------- --------------------------- Erro ao Executar Função! Invalid file name - %s --------------------------- OK --------------------------- jah atualiz as dlls...etc..nao estou achando o erro... nao sei c pode ser do openssl ... alguem tem alguma ideia?

pelo topico do problema inicial de ele havia testado jah com double... cfme no cod q ele postou ...mas dae vc´s alterarm para extended...

boa tarde... funciona...mas acho q nao seria a melhor forma para correcao... e..ate eh no proprio cod da acbr que faz o * 1000 ..onde 1000 eh o parametro das casas decimais segue o cod linha 275 for intFor := 1 to Decimal do begin intP := intP * 10; end; a alteracao foi feita devido mas currency..tudo bem...4 casas pouco... mas o double se nao me engano eh 16 casas seria possivel alterar o codigo para double ?

acho q o extended suporte muita precisao que o calculo 0,001 * 1000 em vez de ficar 1 fica 0,99999999 etc ... faca um teste simples no delphi segue codigo... procedure TForm6.Button1Click(Sender: TObject); var a : double; b : extended; begin a := 0.001 * 1000; b := 0.001 * 1000; showmessage(floattostr(a-); end; teoricamente deveria de dar zero ..certo ? procurei hoje d manha mas nao achei no forum..vou dar mais uma olahda na tarde...

e não pode ser alterado para double em vez de currency.... double jah resolve... senao terei que alterar meus fontes aqui mesmo....

a chamada da funcao function TACBrTXTClass.LFill(Value: Extended; Size: Integer; Decimal: Integer = 2; Nulo: Boolean = false; Caracter: Char = '0'; Mascara: String = ''): String; via a classe ACBrPAF_R_Class no ponto LFill(QTDE_ITEM, 7, QTDE_DECIMAL) linha 523 qtde_item = 0,001 e qtd decimal = 3 dentro dela chama novamente Result := LFill(Trunc(Value * intP), Size, Nulo, Caracter); linha 283 classe ACBrTXTClass passando Result := LFill(Trunc(0,001 * 1000), Size, Nulo, Caracter); o retorno eh de 0000000 em vez de 0000001

boa tarde, estou com prob na funcao LFill para formatar valor e por texto com 3 casas decimais o problema pelo q vi eh no tipo da variavel Extended passado no parametro da funcao ... ACBrTXTClass function TACBrTXTClass.LFill(Value: Extended; Size: Integer; Decimal: Integer = 2; Nulo: Boolean = false; Caracter: Char = '0'; Mascara: String = ''): String; Result := LFill(Trunc(Value * intP), Size, Nulo, Caracter); ela nao guarda o valor 1 em (0,001 * 1000) deve guardar tipo ... 0,999999999999999..... entao no trunc zera.... se alterar o tipo para currency ou double funciona.... para ver esta dif pode ser feito var1 : extended var2 : currency e um showmessage var1 - var2 .. pra mim deu --------------------------- Project3 --------------------------- -2,08581863261371E-20 --------------------------- OK --------------------------- provavelmmt teria q trocar os fontes de Extended para double

fiz uns teste.... o problema pelo q vi eh no tipo da variavel Extended ... ela nao guarda o valor 1 em (0,001 * 1000) deve guardar tipo ... 0,999999999999999..... entao no trunc zera.... se alterar o tipo para currency ou double funciona.... para ver esta dif pode ser feito var1 : extended var2 : currency e um showmessage var1 - var2 .. pra mim deu --------------------------- Project3 --------------------------- -2,08581863261371E-20 --------------------------- OK ---------------------------

boa tarde, estou com problema na geracao do arquivo R5 ... no arquivo esta saindo a quantidade = 0000000 porem estou passando a quanitdade 0,001 QTDE_DECIMAL = 3 vi que na funcao LFill (WriteRegistroR05) ocorre a linha Result := LFill(Trunc(Value * intP), Size, Nulo, Caracter); entrando nesta funcao (F7)...o valor do value do parametro (0,001 * 1000) com o trunc esta zerado... alguem sabe o pq? obrigado

bom dia... entao, devendo gerar o arquivo incluindo todo o cadastro de produto nele apos a z, alguem teria uma ideia na seguinte situacao: para desenvolvimento exclusivo proprio do paf.. tenho cadastro na matriz dos produtos (torno 300mil). Tenho varias lojas, porem destes, somente uns 10 mil cadastro ativos que sao movimentados nas lojas...os cadast restantes sao produtos criados errados, inativos, nao enviados para lojas, etc... porem os q nao sao movimetnados...a loja teria que ver este cadsatro para consulta pensei em criar duas tabelas ..uma de "produtos" e outra "produtos matriz", onde a de produtos, somente iria constar o q já houve algum movimento...gerando no arquivo somente desta... ou..dae nao sei se permitido, por algum campo em uma unica tabela identificando, para poder gerar somente no arquivo estes 10mil cadastros... será q consegui me explicar e alguem me ajudar? obrigado.

bom dia...ref ao cupom manual, em quais arquivos de movimentos e tipo deve constar ele ? pois por ex. no R4 o layout solicita nnuemro fabricacao ecf..coo ..etc;... obrigado.

bom dia Régys, não seria este flash de estoque... é o arquivo necessario gerar automaticamente apos a Z (REQUISITO XXVI - 5)

tenho em torno de 250/300 mil registros entre ativos/inativos... alem do tempo ..ira ser um "arquivao" tinha ideia de q estes itens seria necessarios apenas na tela registros do paf ecf... fazendo manualmente... da reducao z apenas os R´s ... mas entao eh todos!? estaria pegando estes dados da rede e nao stand alone

isto...requisito do paf-ecf

REQUISITO XXVI item 5. Os registros previstos neste requisito devem ser gerados também automática e imediatamente após a emissão do documento Redução Z, contendo dados relativos ao movimento do dia a que se refere o documento Redução Z emitido, devendo ser criado e mantido um arquivo para cada dia de movimento de cada ECF

boa tarde, desculps se alguem jah questionou ...mas nao achei aqui... o arquivo apos a Z ..deve ser gerado completo do anexo IV .. todo estoque/produto ...etc?... e como tenho muitos cadastro de produtos...ira ficar dmorado... eh assim mesmo ? obrigado.

aproveitando... neste "arquivao" (registros do paf ecf)...sairam os E1 P1 ...etc... de onde pega o cnpj para E2 P2 .... drrepende nao daria para modificar e pegar do U caso nao informado no E1 ?

ok..obrigado é q li onde mostra o lay out do arquivo (R4) "nota fiscal de venda a consumidor" 6.24. REGISTRO TIPO R04 - CUPOM FISCAL, NOTA FISCAL DE VENDA A CONSUMIDOR E BILHETE DE PASSAGEM