leacarbonera

Testei como você falou, e a propriedade Baud continua em 115200 depois de configurar, mas percebi que quando chega na função TACBrDevice.DeviceToString na primeira vez, a propriedade Baud ainda esta em 9600 ai na proxima vez que executo ai sim ela muda para 115200..

Hum.. não tinha percebido, mas na verdade eu já configuro os parametros antes de ativar, olha só.... Try ACBrECF.Desativar; ACBrECF.Porta := cdsECFPORT_ECF.AsString; ACBrECF.Device.Baud := cdsECFVELOCIDADE.AsInteger; ACBrECF.GavetaSinalInvertido := cdsECFINVR_GAVT.AsBoolean; ACBrECF.IntervaloAposComando := cdsECFINTR_COMN.AsInteger; ACBrECF.TimeOut := 3; if cdsECFMODL_ECF.AsString = 'Procurar' then begin if not ACBrECF.AcharECF(True,False) then begin Funcoes.Informacao('Nenhum ECF encontrado.'); Exit; end; end else ACBrECF.Modelo := TACBrECFModelo(GetIndiceECF(dtmECF.cdsECFMODL_ECF.AsString)); ACBrECF.Ativar; Finally Result := ACBrECF.Ativo; End; não sei como esta vindo o 9600 no primeiro... até tentei deixar fixo 115200 no componente mas deu a mesma coisa...

Coloquei o TimeOut para 10 como vc pediu mas continua a mesma coisa... E se eu aumentar o IntervaloAposComando, tambem estou usando o padrao (100)????

Olá, de ums dias pra cá, minha impressora começou a retornar o erro "Impressora Daruma não está respondendo", sempre no primeiro comando que é enviado, por exemplo, se eu abrir o sistema e mandar uma leitura X dá o erro, ai se mando denovo sai certo, e é a mesma coisa com o cupom fiscal, se mando imprimir um cupom dá o erro, ai depois o proximo sai certo. O que pode ser.... (obs. minha impressora é uma Daruma FS600). em anexo arquivo de log. ACBrECF.txt

ops.. desculpa... vou criar um topico novo então..

ok... já faço essa configuração antes de ativar o ACBrECF, mas tudo bem... Outra coisa, que começou de uns dias pra cá.... quando vou imprimir um cupom, no caso o primeiro, ele retorna um erro dizendo que a impressora não responde, ai na pergunta "Deseja tentar novamente" eu digo que não e mando imprimir o cupom novamente depois... ai funciona certo... o que será???? pelo Demo do ACBr nem ativa o ECF....

Bom dia a todos... Consegui uma Daruma FS-600 para realizar teste com relação ao CAT52. A principio gerou certo... pelo menos no validador passou. Porem agora a impressora parou de comunicar... Qualquer comando que eu envie me retorno "A Impressora Daruma não responde".. o que podera ser????

hum... blz.. muito obrigado pelas dicas.. Abraço..

Bom dia Daniel... tudo trankilo... Então pela função CAT52 eu consigo gerar o arquivo sem precisar disponibilizar a DLL do fabricante??? É isso??

hehehehehe.. Deixa quieto.... já resolvi o problema... Setei a propriedade ACBrNFeDANFEFR.ShowDialog := True, ai funcionou blz...

Olá João.... Estive fazendo ums testes e percebi que apos mostrar o preview da DANFE (utilizando o DANFE.fr3) quando eu clico no botão para imprimir, não abre a tela de seleção de impressora. Você saberia me dizer o pq???

Valeu João... realmente era o arquivo .fr3, eu estava com uma versão antiga... atualizei o ACBr e funcionou show de bola mesmo com o arquivo DANFE.fr3. Muito obrigado pela dica... Abraço..

Olá, bom dia a todos... Estou migrando minha aplicação do Rave para o fastreport e encontrei uma dificuldade para exportar a Danfe para PDF. Na verdade consegui fazer, mas tive que fazer uma manobra utilizando o ImprimirDANFEPDF pqo botão que existe no preview da Danfe não faz nada. Alguem já passou por essa situação????

heheeh, esqueci de te perguntar, então vou ter que disponibilizar as DLLs dos fabricantes(Bematech, Daruma, etc) junto com a aplicação???

blz Juliomar... muito obrigado pelas dicas, vou dar uma olhada... Abraço

Olá Daniel... gostaria de saber se vc conseguiu gerar o arquivo da NFG. Estou na mesma situação que vc, mas quando tento gerar utilizando a função ACBrECF.PafMF_GerarCAT52, me retorna um erro "Erro ao carregar a função Bematech_FI_ArquivoMFD de Bemafi32.dll"... o que será isso... Será que o ACBr utiliza alguma coisa da DLL da bematech??? Estou testando com o emulador..

Cara utilizo o Rave, e pesquisando na internet encontrei em outro forum o seguinte: na linha 835 do arquivo ACBrNFeDANFERave.pas tem o seguinte: dmDanfe.RvSystem1.SystemOptions:=[soShowStatus,soAllowPrintFromPreview,soPreviewModal]; eu só inclui a opção: soAllowSaveFromPreview e funcionou blz... mas muito obrigado pela atenção.

Tche.... realmente era a configuração do papel da impressora... estava como Carta... configurei para A4 e funcionou legal... muito obrigado.

Olha só o preview...

Estive fazendo uns testes e o que acontece é o seguinte. Tenho alguns relatorios gerados com o Rave, se eu visualizar um relatorio primeiro e depois mandar imprimir a DANFE, funciona certinho... agora se eu mandar imprimir primeiro a danfe, os dados adicionais ultrapassam os limites do tamanho da pagina.

Alguem teve a situação de o botão salvar no preview da danfe ficar desabilitado???

Olá, alguem por acaso percebeu ou já passou pelo problema de os dados adicionais da danfe cobrir a impressão da data e hora de impressão no rodapé da DANFE? Pra mim esta aparecendo como se o campo Dados adicionais fosse maior que a página, cobrindo essa informação, inclusive os créditos do ACBr...

Tche.... mil desculpas... Cagada minha... pra variar... Erro de Ctrl_C + Ctrl_V... Coloquei o comando ACBrSPEDContabil.Bloco_0.LimpaRegistros dentro do bloco onde gero o Registro I... ai Limpava tudo... tire e funcionou perfeitinho... Valeu Pela atenção.. Abraço

quando chamo o Registro0007.New ele vai para o construtor normal... como acontece nos outros... Acredito que esteja certo..

Pois é.. testei o Demo e lá funcionou... copie toda a estrutura do Demo, e continua não gravando o registro 0007... dá uma olhada ai no codigo: Try SpedContabil.Bloco_0.LimpaRegistros; mmoDetalhes.Lines.Add('Adicionando Bloco 0'); mmoDetalhes.Refresh; with SpedContabil.Bloco_0 do begin // Bloco 0 - Identificação e referências with Registro0000 do begin DT_INI := StrToDate(edtDataIni.Text); DT_FIN := StrToDate(edtDataFim.Text); NOME := dtmEmpresas.cdsEmpresasNOME_EMPR.AsString; CNPJ := Funcoes.RemoveCaracteres(dtmEmpresas.cdsEmpresasCNPJ_EMPR.AsString); UF := Trim(dtmEmpresas.cdsEmpresasUF_EMPR.AsString); IE := Funcoes.RemoveCaracteres(dtmEmpresas.cdsEmpresasIE_EMPR.AsString); COD_MUN := IntToStr(dtmCidades.GetCodgMunicipio( dtmEmpresas.cdsEmpresasCIDD_EMPR.AsString, Trim(dtmEmpresas.cdsEmpresasUF_EMPR.AsString))); IM := ''; IND_SIT_ESP := '0'; end; Registro0001.IND_DAD := 0; //bloco com dados informados = 0 | sem dados inf = 1 with Registro0007.New do begin COD_ENT_REF := 'PR'; COD_INSCR := '1100002511'; end; end; Finally ProgressBar.Position := 0; End;