Juliomar Marchetti

não é que vá para o topo é que ele refaz o html no webbrowser para resolver isso eu usei ponteiros, ele não dá nem sinal, seja no xp, vista ou seven

A unit em anexo para alterar conforme repassado para análise a adição da modificação

No DANFE que segue está ocorrendo problema nas acentuações. Em todo ele, já fiz alguns testes mas igualmente não sai corretamente as acentuações estamos com a última versão do ACBrNFeMonitor Estou usando o comando imprimirdanfe desde já agradeço

Ramon você usa o codigo abaixo para rolar o espelho do cupom? procedure WB_ScrollToBottom(WebBrowser: TWebBrowser); var scrollpos: Integer; pw: IHTMLWindow2; Doc: IHTMLDocument2; begin Doc := WebBrowser.Document as IHTMLDocument2; pw := IHTMLWindow2(Doc.ParentWindow); scrollpos := pw.Screen.Height; pw.scrollBy(0, scrollpos); end;

Boa tarde Ivan estou com um Elgin X5 e estou tentando gerar o Arq. MFD e também a LMFC para o Cotepe 17/04 mas está dando erro nas chamadas que tem da dll, ao baixar os arquivos do site da elgin está me dizendo que devo utilizar outras 3 dlls pra trazer esses dados pra mim você tem mais informações?

Jovem o homologador me pediu pra gerar o arquivo referente a tabela de estoque nesse item. mas você deve se informar com o orgão homologador que fará os seus testes

Não encontrei ao certo, mas pelos rumores dentro de 90 dias sai o novo manual ou 60 não lembro ao certo.

Ontem dia 20/09/2011 foi publica o ER 01.09 http://www.fazenda.gov.br/confaz/confaz ... 039-11.htm dentro de 90 dias sai o manual

Boa tarde Vou postar por partes algumas alterações que estou fazendo para poder utilizar a Elgin X5 nos clientes com PAF-ECF primeiro ela possui 48 colunas e não como no caso de outras ecf´s que utilizam o FiscNet então no Ativar modifiquei o codigo abaixo: GetPAF ; FiscNETComando.NomeComando := 'LeTexto' ; FiscNETComando.AddParamString('NomeTexto','Marca') ; EnviaComando ; fpModeloStr := 'FiscNET: '+ FiscNETResposta.Params.Values['ValorTexto'] ; { Juliomar Marchetti - 20/09/2011 ******************************************} { adiciona para saber quando for elgin a quantidade de colunas é 48 } fsMarcaECF := FiscNETResposta.Params.Values['ValorTexto']; fsMarcaECF := LowerCase(Trim(fsMarcaECF)); {***************************************************************************} FiscNETComando.NomeComando := 'LeTexto'; FiscNETComando.AddParamString('NomeTexto','Modelo'); EnviaComando; fpModeloStr := fpModeloStr + ' - ' + FiscNETResposta.Params.Values['ValorTexto'] ; // Ajuste de Colunas na ThermoPrinter, por Fabio Farias // if FiscNETResposta.Params.Values['ValorTexto']='TPF2001' then fpColunas := 40; { Juliomar Marchetti - 20/09/2011 ******************************************} { adiciona para saber quando for elgin a quantidade de colunas é 48 } if (fsMarcaECF = 'elgin') and (FiscNETResposta.Params.Values['ValorTexto']='X5')then fpColunas := 48; {***************************************************************************} except Desativar ; raise ; end ; end; onde ele reconhece se for elgin X5 para trocar para 48 colunas, pois alguns relatorios estava saindo bagunçados. testei se era X5 mas acredito que seria só do caso de testar se é elgin no outro caso é no espelho da MFD procedure TACBrECFFiscNET.EspelhoMFD_DLL(DataInicial, DataFinal: TDateTime; NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet); procedure TACBrECFFiscNET.EspelhoMFD_DLL(COOInicial, COOFinal: Integer; NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet); nos dois casos na linha ArqTmp := ExtractFilePath( NomeArquivo ) ; está sem o nome do arquivo, só pega o path ArqTmp := ExtractFilePath( NomeArquivo ) + 'ACBr'; este seria o correto, agradeço a que faz commit para colocar essas alterações no ACBr estarei postando mais conforme for progredindo nos testes.

Régys Desculpa mas isso eu sabia, só queria saber se teria um padrão dentro do fonte por todos os outros estarem com zero e somente este último adicionado com o 1 mas mesmo assim obrigado

Boa tarde Noite o seguinte, todo os outros estão com o indice 0 e somente o ultimo está com o indice 1 procedure PafMF_RelIdentificacaoPafECF( IdentificacaoPaf: TACBrECFIdentificacaoPAF = nil; const IndiceRelatorio: Integer = 0); procedure PafMF_RelParametrosConfiguracao( const AInfoPafECF: TACBrECFInfoPaf; const AIndiceRelatorio: Integer = 1); quase passei batido, isso é na Unit ACBrECF.pas

Rodrigo Não foi necessário alterar nada no componente para homologar os problemas que decorrem é da forma de uso do componente e também seguir os roteiros a risca.

Resolvido e achado o problema. Em conversa com o Daniel vi que o problema está nas novas ECF´s que vem com a velocidade superior Então a solução é ter a configuração da porta serial e mudar o Baud de 38400 para 115200 isso serve para as novas versões de ECF da Epson e Daruma ou melhor para as novas ecf fabricadas mesmo do modelo anterior que é esse o meu caso vem com a velocidade alterada e assim não funciona no valor default que possui na Unit da Epson Pode fechar o tópico

Estive olhando o codigo e inicia o valor fpDevice.Baud := 38400; para epson fiz alguns testes e tive que mudar para 115200 e funcionou alguém sabe me dizer se isso se confirma? e até me enganei de ECF o modelo é uma TM-T81F

Ainda não Régys. To esperando ela chegar pra ver

Boa tarde Alguém conseguiu utilizar essa ECF com o ACBr? um cliente comprou e não consegui rodar, estou trazendo ela para a empresa pra fazer testes se alguém souber algo e conseguir repassar agradeço senão postarei a solução

Olha essa semana devo de estar recebendo emprestado da sweda um ST2500 e farei todos os testes necessários ao paf e uso da mesma. Se achar problema e corrigir repasso.

Como te falei no e-mail ele é só impresso, se você ver o manual está descrito nele que é para imprimir.

Novo quando é criado o DAV Emitido é quando você emite ele na ecf em relatorio gerencial e Faturado quando é emitido o Cupom fiscal do Orçamento

Sim pode o DAV(orçamento) só possui 3 status, novo, emitido e faturado.

Depende se estiver a opção para fechar automatico o cupom ele não precisa no DEMO

Boa noite no item 5 temos o 5.2 que é opcional, gostaria de saber dos colegas que homologarão eu posso selecionar quais os produtos eu quero, mas não posso alterar a quantidade certo? e na pré-venda que seria o requisito anterior eu não posso selecionar os produtos, tenho que mesclar para uma nova pré-venda com todos os itens de todas as pré-vendas que selecionei.

Bom dia Daniel Fui ver a versão dos meus arquivos e estavam corretas, mas mesmo assim apaguei eles e baixei novamente abrir o arquivo e o erro continua lá na unit ACBrECFBematech.pas

Estou trabalhando com uma parte do sistema que utiliza Cupom não fiscal e achei um bug, estou enviando o codigo abaixo para ser corrigido procedure TACBrECFBematech.AbreNaoFiscal( CPF_CNPJ, Nome, Endereco: String ); begin if fs25MFD then begin AguardaImpressao := True ; CPF_CNPJ := TrimRight(CPF_CNPJ) ; if CPF_CNPJ <> '' then begin CPF_CNPJ := padL(CPF_CNPJ,29) ; if Nome <> '' then begin Nome := padL(Nome,30) ; if Endereco <> '' then Endereco := padL(Endereco,80) ;// está linha estava no lugar de Endereco com o Nome end ; end ; EnviaComando( #77 + CPF_CNPJ + Nome + Endereco , 5 ) ; end ; { Linhas acrescentadas por Marciano Lizzoni } fsNFValor := 0; fsNFCodCNF := ''; fsTotalizadoresParciais := '' ; end;

Amigo é só retirar e recompilar que o delphi vai reconhecer a versão que tu tens e adicionando para você por isso a remoção das mesmas.