Alain da Silva Posted May 4, 2007 Report Share Posted May 4, 2007 Ola pessoal, é o seguinte. Estou tentando fazer um arquivo texto da seguinte forma. OPRN:= TDOSPRN():NEW(NOMEARQUIVO) OPRN:SAY(LIN,0,"testedearquivotexto') o meu arquivo é criado da seguinte forma: PW0F5testedearquivotexto. O que são estes caracteres no inÃcio, alguém poderia me dizer o que está errado.Obrigado. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 4, 2007 Author Report Share Posted May 4, 2007 Ola pessoal, é o seguinte. Estou tentando fazer um arquivo texto da seguinte forma. OPRN:= TDOSPRN():NEW(NOMEARQUIVO) OPRN:SAY(LIN,0,"testedearquivotexto') o meu arquivo é criado da seguinte forma: PW0F5testedearquivotexto. O que são estes caracteres no inÃcio, alguém poderia me dizer o que está errado.Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 4, 2007 Report Share Posted May 4, 2007 incremente as linhas que eles somem. inclusive ao final da impressão. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted May 4, 2007 Author Report Share Posted May 4, 2007 Valeu kapiaba, mas eu não entendi sobre incrementar as linhas inclusive no final. por favor neste exemplo que eu fiz, como seria? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 4, 2007 Report Share Posted May 4, 2007 //-> Exemplo Simples: // ---------------------------------------------------------------------------- //----- Definicao de comando SAY para TdosPrn --------------------------------- // #xcommand @ , SAY ; OF ; => ; :Say(, , ) //-------------------------------------------------------------------------// // Imprime os Clientes. //-------------------------------------------------------------------------// STATIC FUNCTION Imprimir( lAppend, oDbf, oDbf2 ) FIELD RAZ_MATRIC, DEST_NOME, END, BAI, CID, CEP, TEL, TEL2, TEL3, CGC FIELD VENDEDOR, CLI_DESDE, IE, CONTATO, DTNASC, NOME_ARTIS FIELD RG, IDADE, CIC_CPF, INDICACAO, MESSAGE LOCAL LINHA, PAG, oPrn LINHA := 0 PAG := 1 EXTERNAL ISPRINTER IF .NOT. ISPRINTER() SndPlaySound(".\Erro.wav" ) Checa_Imp() // Checar Se a Impressora Est Ativa.. Return Nil ENDIF SndPlaySound(".\Lembrete.wav" ) IF MsgYesNo( "Atenção Por Favor:" + CRLF + ; "Posso Imprimir?" + CRLF + ; "Impressora Já Está Ligada?", ; "Por Favor, Confirme!!!" ) = .F. RETURN NIL ENDIF // Para Rede de Computadores // oPrn:New("\\seuterminal\suaimpressora\LPT1") oPrn:= TDosPrn():New( "RELAT.TXT" ) // para ir para um arquivo .txt (teste) // Este Comando, Liga a Impressora. NÆo Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. SELECT (oDbf2:cAlias) // CABCLALF.DBF WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF IF !EOF() IF BOF() @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(14) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ELSE @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ENDIF ENDIF DBSKIP() ENDDO SELECT ( oDbf:cAlias ) SET ORDER TO 2 DBGOTOP() WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF //AQUI PULO DE PAGINA SE MAIOR QUE 60 IF LINHA >= 60 LINHA := 0 PAG := PAG + 1 SELECT (oDbf2:cAlias) DBGOTOP() DBSKIP(-1) WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF IF !EOF() IF BOF() @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(14) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ELSE @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; MESSAGE OF oPrn LINHA:=LINHA+1 ENDIF ENDIF DBSKIP() ENDDO SELECT ( oDbf:cAlias ) ENDIF IF !EOF() @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "MATRICULA:" + " - " + STR(Raz_Matric) + " - " + ; Dest_Nome + " - " + ; "DATA: " + " - " + ; Dtoc(Cli_Desde) OF OPRN // Para Pegar 30 Caracteres a Esquerda // Left( Dest_Nome, 30 ) // Para Pegar 20 Caracteres a Direita // Right( Dest_Nome, 20 ) // Thanks Ednaldo Rolim // So Para Completar se quizer no Meio // Result = Substr( campo, posicao, qtd ) // qtd = quantidade de caracteres // campo = dado para se extrair a string // posicao = posicao na string que deseja comercar a ler LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "ENDEREC,O: " + " - " + End + " - " + ; "BAIRRO: " + " - " + Bai + " - " + ; "CIDADE: " + " - " + Cid OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "C.E.P: " + " - " + Cep + " - " + ; "FONE1: " + " - " + Tel + " - " + ; "FONE2: " + " - " + Tel2 + " - " + ; "FONE3: " + " - " + Tel3 OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "C.G.C: " + " - " + Cgc + " - " + ; "INSC. EST.: " + " - " + Ie + " - " + ; "CONTATO: " + " - " + Contato OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "VENDEDOR: " + " - " + VENDEDOR + " - " + ; "NASC.: " + " - " + dtnasc + " - " + ; "IDADE: " + " - " + Idade + " - " + ; "CPF: " + " - " + Cic_Cpf OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + CHR(15) + ; "RG: " + " - " + Rg + " - " + ; "INDIC: " + " - " + Indicacao + " - " + ; "NOME ART: " + " - " + Nome_Artis OF OPRN LINHA:=LINHA+1 @ LINHA,01 SAY CHR(27)+"H" + CHR(27)+"W"+CHR(0) + ; CHR(20) + CHR(18) + CHR(27)+"-"+CHR(0) + ; CHR(27)+"F" + CHR(27)+"5"+CHR(27)+"W"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"-"+CHR(0) + ; CHR(27)+"5"+CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; CHR(27)+"W"+CHR(0)+CHR(27)+"-"+CHR(0) + ; REPLICATE("-",76) OF OPRN //-> Ultimo Incremento -> Tira o 'Esquisito' do Final da Pagina-CARRIAGE RETURN. LINHA:=LINHA+1 DBSKIP() ENDIF ENDDO DBGOTOP() //-> Reconfigura a Epson - LX-300 //OPRN:Say(LINHA, 00, CHR(18)+CHR(27)+"2"+CHR(27)+"H" ) // Clipper Puro @ LINHA,00 SAY CHR(18)+CHR(27)+"2"+CHR(27)+"H" OF OPRN oPrn:EndPage() oPrn:End() //--- imprime no spool do windows, liberando o micro para trabalhar. ImpSpool( "RELAT.TXT",, .T. ) //--- opcionamente pode-se apagar o arquivo passando .t. no 3o. parametro. RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Skype: fw_kapiaba FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.