Juliomar Marchetti

Efetuei alterações para compatibilizar a emissão de alguns relatórios do PAF a unit em anexo para análise

Amigo estive analisando os manuais antes e veja o ER 1.08 e 1.09 ele tem que validar os registros quantidades, incluída e excluída, até ai sim poderia ser usado o mesmo RegistroValido, mas no caso do R01 já possui, e se refere ao registro e não ao banco, então se eu usar o mesmo e não for exclusão de registro estarei colocando ??? na denominação da empresa desenvolvedora evidenciando algo que não ocorreu que no caso não foi a exclusão do registro e sim a alteração dele, e vice versa. acredito eu você não ter notado isso nos novos manuais. até pensei em colocar TabelaValida.

Bom dia anexo as units com as alterações para validas os registros D1, E1, P1, C1 E R01 colocando ??? nos espaços em branco da "Razão Social" no caso dos D1, E1, P1, C1 e "Denominação da empresa desenvolvedora" no R01 Modificado as units: ACBrPAFRegistros.pas ACBrPAF_C_Class.pas ACBrPAF_D_Class.pas ACBrPAF_E_Class.pas ACBrPAF_P_Class.pas ACBrPAF_R.pas ACBrPAF_R_Class.pas

Com qual ECF você está usando?

Desculpa a pergunta mas pra que você precisa de uma caixinha _______________________________________________ | | | | _______________________________________________ seria algo assim no relatório gerencial?

amigo o que ocorre é que ao enviar para a ECF o ACBr troca o | por #13 ou seja quebra de linha

Disponha Estou em um processo de reformulação do sistema e estou verificando tudo no ACBr as correções e novos recursos estarei repassando através do fórum para melhorar ainda mais o projeto.

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