gunafe

Bom dia, link para baixar o fonte http://www.4shared.com/dir/15524738/9b32a758/sharing.html []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Noite, Eu não sei quem é o autor, se alguem puder disponibilizar email pra eu mandar e depois postar em algum ftp, entre em contato, laugusto@acbusca.com.br []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia Lailton, Eu tenho rotina em vb, e estou disposto a doar para a devida conversão, desde que a mesma seja doada de volta, esta disposto? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

citação:Olá, Vc. poderia proporcionar um exemplo, para entender-mos melhor? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe "Burro Carregado de Açucar, Até o Fiofó é Doce" id=quote>id=quote>João, desta vez voce "matou o portugues" ou modificou a nova gramática por conta própria, argh!!! []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Tarde, Email : laugusto@acbusca.com msn : gunafe@yahoo.com []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa noite a Todos, Eu vi o roteiro que foi postado em dicas, e devo dizer que esta DEFASADA em 7 anos. É preciso entrar no site das operadoras e pegar os roteiros e check list mais atualizados, digo isso porque estive em São Paulo nos dias 21 e 22 de janeiro pra homologar TEF e a data do check list que tenho em mãos é de Agosto 2009, versão 6.2 do check list da visanet. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Me lembrei do Rei, será que esse cara é chegado(discipulo) dele??? De qualquer forma, não vi nenhuma das 5 dicas mesmo! []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Kapi, Qual barra voce esta usando, do teclado normal ou da calculadora( teclado numerico ) ? As vezes, o teclado normal, se configurado diferente do modo ABNT coloca a barra em um local diferente de onde esta o desenho da barra sobre a tecla, tendeu? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa tarde, Eu uso teclado sem fio, o conversor é ligado na usb e funciona normal, alias, em qualquer maquina que eu plugar funciona normalmente, já experimentou usar este teclado ai em outra cpu? Veja meu autoxec.nt @echo off REM AUTOEXEC.BAT nao ‚ usado para inicializar o ambiente MS-DOS. REM AUTOEXEC.NT ‚ usado para inicializar o ambiente MS-DOS, a nao REM ser que se especifique um arquivo de inicializa‡ao diferente REM no arquivo de informa‡oes de programa (PIF) do aplicativo. REM Instalar as extensoes CD ROM lh %SystemRoot%\system32\mscdexnt.exe REM Instalar o redirecionador da rede (carregar antes do dosx.exe) lh %SystemRoot%\system32\redir REM Instalar o suporte DPMI lh %SystemRoot%\system32\dosx id=code>id=code>[]´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Noite a Todos, Penso que o Reinaldo( apesar de eu já ter expressado uma opinião antes ), não foi feliz ao formular a pergunta, penso que o que ele queria perguntar esta diretamente relacionado ao fato de que os teclados modernos possuem 101 teclas, e pra ajustar esta "montoeira" de teclas, foi preciso um estudo profundo e sério. Mas, pesquisando minhas anotações e de outras pessoas também, chequei a conclusão que não seria realmente justo separar o ponto da virgula, por este motivo, discordo de algumas outras opiniões neste tópico. Considerando as atividades psiquicas e siripopéticas do rabo do jacaré, gostaria de dizer que não entendi a pergunta, por isso não tenho como formular uma resposta. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Se vai e vem vai e não volta... vai e vem não vai mais! Não entenderam? muito menos eu! Eita, cada doido que aparece neste forum.... []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Tarde, Veja se algum amigo que tenha empresa pode cadastrar a impressora pra voce, como é impressora para desenvolvedor, creio que não vai haver problema, em ultimo caso, use o emulador da bematech. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia, Neste caso ai, o jeito seria usar um truque do velho clipper, ou seja, posicione dois GETS um ao lado do outro, retornando no segundo GET o mes/ano e no primeiro o foco para o dia, depois, é só juntar as duas variaveis e voce tem a sua data completa. Espero que sirva. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia Marsan, Pra cancelar um item genérico, precisa passar o numero do item, veja exemplo abaixo: Bematech_FI_CancelaItemGenerico( nItem ) chamada do comando na dll DLL32 Function Bematech_FI_CancelaItemGenerico(NumeroItem As STRING); AS _INT PASCAL FROM "Bematech_FI_CancelaItemGenerico" LIB "BEMAFI32.DLL" id=code>id=code>No link abaixo voce vai encontrar as repostas para praticamente todas as suas duvidas, mas se precisar, é só falar. http://www.bematech.com.br/suporte/bemafi32/index.html '> http://www.bematech.com.br/suporte/bemafi32/index.html []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia Marsan, Penso que publicar o código fonte não vai acrescentar quase nada, até porque voce mesmo já o fez. Quanto ao comando para cadastrar aliquotas, faça assim: Altere estas linhas no seu código //VERIFICA SE TEM IMPRESSORA LIGADA ELSEIF nCmd = 10 IF ( nRet := BmPrintLig() ) = 1 iRetorno := Bematech_FI_ProgramaAliquota( "1200", 1 ) RETURN .T. ELSE RETURN .F. ENDIF e inclua as linhas abaixo DLL32 FUNCTION Bematech_FI_ProgramaAliquota( Aliquota AS STRING,; ICMS_ISS AS 7 ) AS LONG PASCAL; FROM "Bematech_FI_ProgramaAliquota" LIB "BEMAFI32.DLL" id=code>id=code>somente isso, nada mais. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Noite Marsan, Eu compilei o seu exemplo, o erro que deu, foi de aliquota não programada, então eu acrescentei o comando de inclusão de aliquotas( 12%, como esta no seu código ) e o emulador funcionou normalmente, mas pra isso, eu cliquei na tela do emulador com o botão direito do mouse e mandei restaurar as configurações iniciais. Estou postando em dicas o seu exemplo compilado pra voce testar ai, ok? Espero que agora funcione, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia, Provavelmente não esta funcionando porque voce tem que passar o valor em formato de texto sem formatação, ou seja: voce esta passando o valor assim: ' 50,00' deve passar assim : '5000' O resto dos parametros parece que estão corretos. Espero que ajude, []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Noite Marcelo, Veja abaixo exemplo fornecido pela bematech, mesmo escrito em delphi, da pra termos uma ideia de que, a rotina esta pegando todas as aliquotas, ZERADAS ou Não. Espero que ajude a esclarecer a sua duvida []´s procedure TForm1.Button8Click(Sender: TObject); //Comando para geração do relatório R03 var cModeloImp: String; cNumSerie: String; cUsuario: String; cDHUsuario: String; cSWBasico: String; cDadosReducao: String; cCRZ: String; cMFAd: Char; cAliquota: String; cTotalizador: String; cRetornotxt: TextFile; cLinhatxt: String; iRetorno: Integer; iACK: Integer; iST1: Integer; iST2: Integer; iST3: Integer; iRelatorio: Integer; iIndex: Integer; iInTotalizador: Integer; cBuffer: String; iTotal: Integer; iConta: integer; begin SetLength(cModeloImp,10); SetLength(cUsuario,4); SetLength(cDadosReducao,631); iRetorno := Bematech_FI_ModeloImpressora(cModeloImp); iRetorno := Bematech_FI_RetornoImpressora(iACK,iST1,iST2); If(Trim(cModeloImp) = 'MP20FI') or (Trim(cModeloImp) = 'MP40FI')then begin SetLength(cNumSerie,15); iRetorno := Bematech_FI_NumeroSerie(cNumSerie); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressora(iACK,iST1,iST2); end; iRetorno := Bematech_FI_NumeroSubstituicoesProprietario(cUsuario); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressora(iACK,iST1,iST2); end; iRetorno := Bematech_FI_MapaResumo(); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressora(iACK,iST1,iST2); AssignFile(cRetornotxt, 'c:\Retorno.txt'); Reset(cRetornotxt); Readln(cRetornotxt,cLinhatxt); end; iRetorno := Bematech_FI_DadosUltimaReducao(cDadosReducao); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressora(iACK,iST1,iST2); iRelatorio := 0; iIndex := 53; iConta := 0; iInTotalizador := 118; iTotal := 0; While (iRelatorio = 0)do begin cAliquota := Copy(cDadosReducao,iIndex,4); If(cAliquota <> '0000')then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + FormatFloat('00',iConta +1) + 'T' + cAliquota; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 14; iIndex := iIndex + 4; end Else begin iInTotalizador := 342; If(iInTotalizador = 342)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'I1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 14; iRelatorio := 1; end; If(iInTotalizador = 356)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'F1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 14; end; If(iInTotalizador = 370)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'N1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := 38; end; If(iInTotalizador = 38)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'DT'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := 603; end; If(iInTotalizador = 603)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'AT'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := 23; end; If(iInTotalizador = 23)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'Can-T'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := 385; end; If(iInTotalizador = 385)then begin iTotal := iTotal + StrToInt(Copy(cDadosReducao,385,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,400,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,415,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,428,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,442,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,456,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,470,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,484,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,498,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,512,14)); iTotal := iTotal + StrToInt(Copy(cDadosReducao,526,14)); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + ' '; cBuffer := cBuffer + ' '; cBuffer := cBuffer + cModeloImp + ' '; cBuffer := cBuffer + cUsuario; cBuffer := cBuffer + '00' + Copy(cLinhatxt,37,4); cBuffer := cBuffer + 'F1'; cBuffer := cBuffer + FormatFloat('00000000000000',iTotal); Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 14; end; end; end; end; end Else begin SetLength(cNumSerie,20); SetLength(cUsuario,4); SetLength(cDHUsuario,20); SetLength(cSWBasico,20); SetLength(cDadosReducao,1278); cMFAd := ' '; iRetorno := Bematech_FI_NumeroSerieMFD(cNumSerie); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressoraMFD(iACK,iST1,iST2,iST3); end; iRetorno := Bematech_FI_DataHoraGravacaoUsuarioSWBasicoMFAdicional(cDHUsuario,cSWBasico,cMFAd); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressoraMFD(iACK,iST1,iST2,iST3); end; iRetorno := Bematech_FI_NumeroSubstituicoesProprietario(cUsuario); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressoraMFD(iACK,iST1,iST2,iST3); end; iRetorno := Bematech_FI_DadosUltimaReducaoMFD(cDadosReducao); If(iRetorno = 1)then begin iRetorno := Bematech_FI_RetornoImpressoraMFD(iACK,iST1,iST2,iST3); cCRZ := Copy(cDadosReducao,9,4); end; iRelatorio := 0; iIndex := 1208; iInTotalizador := 335; iConta := 0; iTotal := 0; While (iRelatorio = 0)do begin cAliquota := Copy(cDadosReducao,iIndex,4); If(cAliquota <> '0000')then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + formatfloat('00',iConta+1) + 'T' + cAliquota; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 14; end Else begin iInTotalizador := 560; If(iInTotalizador = 560)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'I1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; iRelatorio := 1; end; If(iInTotalizador = 575)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'N1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 590)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'F1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 605)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'IS1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 620)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'NS1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 635)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'FS1'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 650)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'DT'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 665)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'DS'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 680)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'AT'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 695)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'AS'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 710)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'Can-T'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 725)then begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'Can-S'; cBuffer := cBuffer + cTotalizador; Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; If(iInTotalizador = 740)then begin While (iInTotalizador < 1132)do begin cTotalizador := Copy(cDadosReducao,iInTotalizador,14); iTotal := iTotal + StrToInt(cTotalizador); iInTotalizador := iInTotalizador + 14; end; iInTotalizador := iInTotalizador + 1; cTotalizador := Copy(cDadosReducao,iInTotalizador,14); iTotal := iTotal + StrToInt(cTotalizador); iInTotalizador := iInTotalizador + 15; cTotalizador := Copy(cDadosReducao,iInTotalizador,14); iTotal := iTotal + StrToInt(cTotalizador); cBuffer := 'R03'; cBuffer := cBuffer + cNumSerie; cBuffer := cBuffer + cMFAd; cBuffer := cBuffer + Trim(cModeloImp) + ' '; cBuffer := cBuffer + Copy(cUsuario,3,2); cBuffer := cBuffer + '00'; cBuffer := cBuffer + cCRZ; cBuffer := cBuffer + 'OPNF'; cBuffer := cBuffer + FormatFloat('0000000000000',iTotal); Memo1.Lines.Add(cBuffer); iInTotalizador := iInTotalizador + 15; end; end; iConta := iConta + 1; iIndex := iIndex + 4; end; end; end; id=code>id=code>Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

TiaoFW e Leandroptu( ptu = paracatu ou ptu de coração partido por ter saido da SEGUNDONA???, hein!) Vamos la meus amigos, consegui gerar o arquivo, o path já esta setado, o problema estava com a dll, alias, ainda não esta totalmente resolvido o caso das dll´s. É assim, eu atualizei a dll na semana passada, só que não funcionou, dai figuei brigando o fim de semana todo, e hoje me liguei nisso, e troquei a dll novamente e agora funcionou, vamos ver até quando. Valeu mesmo pela ajuda amigos, grande abraço, Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

TiaoFW, Usei a declaração conforme a sua sintaxe, mas ainda estou com problemas, não gera nada. Estou confuso, o que será que estou fazendo que não da certo? Tem alguma ideia? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia TiãoFw, Obrigado por responder, vou verificar o que esta diferente no meu comando em relação aos que voce implementou. Quanto as dll´s da daruma, estou com a última versão e minha impressora já esta atualizada, eles me mandaram um chip com a ultima versão, ou seja, a 1.05. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Ninguem ?? TiãoFW, voce que já certificou PAF-ECF, como resolveu esta parada? []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Boa Noite Marsan, Baixe daqui http://www.kroysom.com.br/gunafe/ToolFS600.zip o programa, com ele, é possivel setar a quantidade de casas decimais da impressora. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Bom dia Marsan, Eu tenho um programa da daruma que pode corrigir o problema, mas como eu disse antes, não sei se funiconaria em IF lacrada, mas, se quiser tentar avise que mando no seu email. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"

Marsan, O problema é que sua impressora não esta com as casas decimais corretamente setadas. Para o caso de impressoras lacradas não sei se é possivel corrigir sem intervenção, veja com suporte da daruma. []´s Luiz Augusto São José dos Pinhais - PR xHarbour + Fivewin + Workshop + Sql via Odbc Vamos Aderir:"Retorne avisando se a dica funcionou"