volmirST

agora deu certo obrigado Régys

assim como tem pre-venda - dav e dav-os ficou a linha em branco entre pv e dav porem comentei a parte onde informa pv e dav-os ficom igual o meu sistema md5 linha em branco DAV00000000001

Testando com o demos acontece mesma coisa segue em enexo

pra setar o MD5 faço assim DM.ecf1.InfoRodapeCupom.MD5 := Trim(DM.aac1.IdentPAF.ArquivoListaAutenticados.MD5); e pra setar o nr do DAv faco assim DM.ecf1.InfoRodapeCupom.Dav:=FormatFloat('0000000000000',StrToFloat(dav));

Da uma olha entao pra min Regys ACBR_ECF.txt

boa tarde entao eu devo estar fazendo algo errado eu simplesmente setei esta propriedade como true nao fiz outro codigo qualquer simplesmente setei como true e ele sai assim

boa tarde pessoal percebi que temos ma nova propriedade no acbrECF chamada QuebraLinhaRodape porem se setar para true ela esta imprimindo uma linha em branco logo apos o MD5 ficando assim MD5xxxxxxxxxxxx DAV0000000001 o que posso estar informando errado?

blz

pessoal bom dia estou mais uma duvida se alguem ja passou por isso por favor assim tenho meu sistema minimizado ai se eu abrir aualquer outro programa ele restaura tambem e isso nao é bom pois atrapalha o usuario gostaria que ele só restaurasse se clicar no icone dele na barra de tarefas nao sei o que eu fiz de direfente neste sistema pois tenho outros sitemas em delphi e nao acontece isso

pessoal boa tarde estou com mais um problema ao tentar enviar um CRT esta mostrando CNP invalido utilizo o GP gpCliDTEF segundo o pessoal da daruma o problema esta no sistema o que pode ser isso? socorro meu cliente esta aguardando

na verdade o bloqieo deve ser por linhas entao pois eu posso ter 20 caracteres mas distribuido em 10 linhas por exemplo ai ja vai dar erro

mas todas suportam 8 linhas ?

daniel é isso mesmo porem pra evitar este erro gostaria se saber se existe elgum metodo que retorne a quantidade de caracter suportada em cada tipo de ECF ? com isso eu posso fazer minhas validacoes e enviar por exemplo somente a quantidade suportada evitando com isso o erro

verdade desculpa o md5 e dados do cliente sao tres linhas eu me referia a observacao adicional

como resolver fisto que achei que fosse campo de obs muito grande mas nem estou usando observacao alguma

ao finalizar cupom com elgin X5 apareceu este erro: "ErroCMDLinhasSuplementaresExedidas" o q pode ser isto ?

mas e estes erros ao carregar aliquotas e formas de pagamento regys o que significa sera que nao é isso que esta ocasionando esta mensagem de impressora nao responde ?

verdade regys acabei de testar aqui fiz assim carreguei as aliquotas e formas de pagamento ao inicializar o sistema ai agora nao chama mais ao finalizar o ccupom mas meu problema persiste impressora nao responde e ja ench de logs no meu sistema e olhando os logs do ACBREcf e nao encontrei nada o q sera que estou fazendo de errado

procedure TACBrECF.EfetuaPagamento(CodFormaPagto : String ; Valor : Double ; Observacao : AnsiString ; ImprimeVinculado : Boolean ; CodMeioPagamento : Integer) ; Var FPG : TACBrECFFormaPagamento ; Tratado : Boolean; begin CodFormaPagto := Trim(CodFormaPagto); Observacao := TrimRight(Observacao) ; { Tirando os #13 e #10 } Observacao := StringReplace(Observacao,CR,'',[rfReplaceAll]) ; Observacao := StringReplace(Observacao,LF,'',[rfReplaceAll]) ; Valor := RoundTo( Valor, -2) ; { Ajustando valores acima de 2 Decimais } ComandoLOG := 'EfetuaPagamento( '+CodFormaPagto+' , '+ FloatToStr(Valor)+' , '+Observacao+', '+ BoolToStr( ImprimeVinculado)+', '+IntToStr(CodMeioPagamento)+' )'; if Assigned( fsAAC ) then fsAAC.VerificaReCarregarArquivo; FPG := AchaFPGIndice( CodFormaPagto ) ; ///Aqui esta chamando o carregaFormasPagamento if FPG = nil then raise EACBrECFErro.Create( Format(ACBrStr(cACBrECFAchaFPGIndiceException), [ CodFormaPagto ])) ; if ImprimeVinculado and (not FPG.PermiteVinculado) then raise EACBrECFErro.Create( Format(ACBrStr(cACBrECFFPGPermiteVinculadoException), [ CodFormaPagto ])) ; if Assigned( fOnAntesEfetuaPagamento ) then fOnAntesEfetuaPagamento( CodFormaPagto, Valor, Observacao, ImprimeVinculado); try Tratado := False; fsECF.EfetuaPagamento( CodFormaPagto, Valor, Observacao, ImprimeVinculado, CodMeioPagamento ); except if Assigned( fOnErrorEfetuaPagamento ) then fOnErrorEfetuaPagamento(Tratado); if not Tratado then raise; end; {$IFNDEF NOGUI} if MemoAssigned then MemoEfetuaPagamento(FPG.Descricao, Valor, Observacao); {$ENDIF} if RFDAtivo then fsRFD.EfetuaPagamento( FPG.Descricao, Valor ) ; if Assigned( fOnDepoisEfetuaPagamento ) then fOnDepoisEfetuaPagamento( CodFormaPagto, Valor, Observacao, ImprimeVinculado); end;