Juliomar Marchetti

Bom dia Efetuei mudanças na emissão de Comprovante Não Fiscal. notei que ao cancelar o comprovante ele não estava jogando no espelho do cupom que no caso o memo ou webbrowser. em anexo segue a unica para avaliação e também estou colando o trecho do código que alterei. procedure TACBrECF.CancelaNaoFiscal; Var Tratado : Boolean; OldEstado : TACBrECFEstado ; Docto : String ; SubTot : Double ; begin OldEstado := estDesconhecido ; SubTot := 0 ; Docto := '' ; {$IFNDEF CONSOLE} if MemoAssigned then begin OldEstado := Estado ; SubTot := Subtotal ; Docto := IntToStrZero( StrToInt(NumCupom) ,6) ; end ; {$ENDIF} ComandoLOG := 'CancelaNaoFiscal'; if Assigned( fOnAntesCancelaNaoFiscal ) then fOnAntesCancelaNaoFiscal(Self); try Tratado := False; fsECF.CancelaNaoFiscal ; except if Assigned( FOnErrorCancelaNaoFiscal ) then FOnErrorCancelaNaoFiscal(Tratado); if not Tratado then raise; end; {$IFNDEF CONSOLE} if MemoAssigned then begin fsMemoOperacao := 'CancelaNaoFiscal' ; if OldEstado in [estNaoFiscal] then begin MemoTitulo('* COMPROVANTE NÃO-FISCAL *'); MemoTitulo('*** CANCELADO ***'); if OldEstado = estVenda then MemoAdicionaLinha( ' TOTAL R$ '+FormatFloat('###,##0.00',SubTot)+' ') ; MemoAdicionaLinha( fsMemoRodape ); end else begin MemoAdicionaCabecalho ; MemoTitulo('* COMPROVANTE NÃO-FISCAL *'); MemoTitulo('*** CANCELADO ***'); MemoAdicionaLinha( ' COO do CNF Cancelado: '+Docto+' ' + sLineBreak + sLineBreak + ' Valor da Operacao R$: '+FormatFloat('#,###,##0.00',SubTot)+' ' + sLineBreak + sLineBreak + fsMemoRodape ) ; end ; end ; {$ENDIF} if RFDAtivo then fsRFD.Documento('NC'); if Assigned( FOnDepoisCancelaNaoFiscal ) then FOnDepoisCancelaNaoFiscal(Self); end; [/code]

Amigo veja o ER 01.09 já está corrigido

Bom dia Ao tentar ativar o acbr com essa impressora me retorna o erro: 0193-Falha de comunicação na transmissão das informações Sweda ST2500 ecfSwedaSTX Baud 115200 esse são dos dados usados para conectar também uso um adaptador usb/serial, mas creio não ser problema com ele, pois fiz testes com um Epson TM T81, Bematech MP 4000 th, Elgin X5, Daruma entre outras usando ele mesmo, somente com a sweda está ocorrendo erro de ao ativar o ACBr. Caso alguém tenha configurações diferenciadas, timeout, intervalos e comandos e funcionar corretamente poderiam me repassar para testar. vou continuar os testes e estou lendo os manuais tanto da ecf quanto da comunicação direta STX para ver ser pode ser algum problema. ps: não é sempre, as vezes ele conecta e quase sempre não. só pra complementar abaixo segue o log no ativar Ativar -- 09:12:15 RetornaInfoECF(I1) SwedaSTX VerificaFimLeitura: Verificando Bloco: [STX]+00!0000AA[130][128][130][128][128][ETX]w SwedaSTX VerificaFimLeitura: Bloco (!) Descartado: [STX]+00!0000AA[130][128][130][128][128][ETX]w TX -> [STX]+34|I1[ETX][141] 09:12:21 RX <- ----------------- ERRO ----------------- Impressora SwedaSTX não está respondendo ----------------------------------------

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.