kapiaba

Acho que este é um trabalho para o Super Vagner Wirts. Aguarde, que se ele não responder, eu vou 'dar' uma brincadinha no \samples.... Aguarde e confie. Não desanime. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Tente também, usando cTitle. Static ou Local cTitle. Dentro do mesmo IF... ENDIF, Voce troca o cTitle. DEFINE DIALOG oDlg TITLE cTitle IF ISSO... cTitle := 'Isso é o titulo...' Elseif cTitle := 'Isso não é o titulo...' Elseif cTitle := 'Isso é o Titulo Final...' Endif Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Editado por - kapiaba on 06/01/2005 15:52:57

if tpmsg="E" // Primeira Vez Quando Entrou DEFINE DIALOG oDlg RESOURCE "MemoEdit" oDlg:cCaption:="Primeira Vez Que Entrei" Else // Segunda Vez, Quando Clicou no Combo DEFINE DIALOG oDlg RESOURCE "MemoEdit" // TITLE "Respondendo a(o) //" + alltrim(MENSAFRE->NOME_REM) endif REDEFINE GET oGet VAR cText MEMO ID 101 OF oDlg oGet:bChange:={ |nKey,nFlags,Self| Salto(Self,oSay,oDlg)} REDEFINE SAY oSay Prompt "0" ID 102 OF oDlg if tpmsg="E" REDEFINE COMBOBOX oCombo ITEMS aUsuar_s ID 103 OF oDlg //ON CHANGE (oDlg:cCaption:="Enviar Mensagem para a(o) " + //alltrim(oCombo)) tpmsg="A" // Ou .F. // vai entrar no Else... oDlg:cCaption:="Enviar Mensagem para a(o) " + alltrim(oCombo)) // O Titulo Tem que assumir... Eu Acho... +- hehehe. endif Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Para Windows 2000 e XP MeuWinExec( "Start Iexplore.Exe www.fivewin.com.br/", 0 ) ) FUNCTION MeuWinExec( cParametro ) LOCAL cExecute := GetPvProfString( "" ) // NT, 2000 e XP IF IsWinNT() .OR. IsWin2000() cExecute := GetEnv( "COMSPEC" ) + " /C " ENDIF RETURN WinExec( cExecute + cParametro, 0 ) Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Tente mudar usando: // oDlg:cCaption := "Comentarios bla bla titulo, etc" Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

De novo... de novo... Show() Kleyton. Parabéns! Este menino vai longe! Deve ser usuário de THE BEST WORKSHOP.EXE Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Marcelo... Gentileza POSTAR arquivo novamente, em FORMATO.ZIP, pois a área de DICAS mais dicas, não aceita arquivos em FORMATO.ARJ. Obrigado e FELIZ ANO NOVO. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Voce esta usando CLIPPER 5.3B, entao, retire os excessos de Arquivos de Cabeçalhos que o seu sistema nao necessitam por enquanto, que a compilaçao passa... Procure na "BUSCA" por este 'ERRO' que já tem várias respostas a este respeito. Abraços. Ou então, compile com o CLIPPER 5.2E, que ele deixa entrar 'LIXO' no executável... Mas isso pode te causar transtornos no futuro. Você que decide. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Veja também: SETCOLOR e CHOOSECOLOR. De uma olhadinha neste tópico do Rossine. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=2131 Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

crie um Flag... Coloque os Says dentro deste Flag... Quando iniciar o módulo, o Flag := .T., Quando Voltar do processamento, o Flag := .F. Eu acho... Say lá... Tente! Abraços. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Gentem... Tem um FORUM da hora neste SITE... Descobri sem querer... É sobre FIVEWIN... Maior Barato... Já me cadastrei... O Lay-Out do Forum, é uma GRACINHA... Gostei... Parabéns ao Senhor Toya... E um Abraço para o Senhor Evandro de Curvelo. http://www.toyanet.com.br/ -> Forum Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Ser foi o CORGET.PRG E O CORGET.CH, basta incluir CORGET.PRG no RMK e no LNK, nos MODULOS que voce tem GETS, inclua CORGET.CH é só isso, ele assume automatico. Abraços. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Jão? Quem lhe deu essa liberdade? Não entendi... Que é Jão... Tá louco? O Senhor está errado, o THE BEST WORKSHOP.EXE pode ser baixado gratuitamente, direto do SITE do fabricante do mesmo. Só que para acha-lo lá, é o maior inferno. Melhor é pegar o DELPHI(bleargghh) com um amigo. Mas que é FREE, é FREE... Se o senhor não manja de THE BEST WORKSHOP.EXE, porque está se 'metendo', fique na sua sô... hahahaha. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Sr. Vagner... Pode-se usar a vGet.Prg com WORKSHOP.EXE ?? Sem nenhum problema? Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Senhor José Carlos... O MARAVILHOSO FIVEWIN, não é FREE... Já o THE BEST WORKSHOP.EXE é FREE... Então... Não entendi sua comparação... perdoe-me. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Show() Kleyton. Parabéns! Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

//---------------------------------------------------------------------------// // Testando FiveWin com os Comandos CurDrive() e SetCurDrive() // // Do Original de TESTDRV.PRG -> Modificado por Kapiaba. // // Cortesia By Kapiaba -> kapiaba@brfree.com.br Data: 05/01/2005 // //---------------------------------------------------------------------------// #Include "FiveWin.ch" Function Main() LOCAL nFreeBytes := 0, nTotalSize := 0, nTotalFree := 0 // MsgInfo( CurDrive() ) // Retorna C:\ // SetCurDrive( "D:" ) // Liga o Drive D:\ SetCurDrive( "A:" ) // Liga o Drive A:\ // MsgInfo( CurDrive() ) // Mostra o Drive A:\ // Se Tiver Disquete no Drive A:\ If GetDiskFreeSpaceEx( "A:\", @nFreeBytes, @nTotalSize, @nTotalFree ) MsgInfo( nFreeBytes ) MsgInfo( nTotalSize ) MsgInfo( nTotalFree ) Endif // Se Nao Tiver Disquete no Drive A:\ If !GetDiskFreeSpaceEx( "A:\" ) MsgInfo( "Opa! Insira Disquete Primeiro Mano!", "Aviso by Kapiaba..." ) Endif Return Nil // Fim do Programa -> Brinque com o FW..\Samples... Sempre! Abraços. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

// Ola... De uma olhada neste exemplo, Nao Importa o Tamanho do Meu DBF //----- Definicao de comando SAY para TdosPrn ----------------------- // #xcommand @ , SAY ; OF ; => ; :Say(, , ) //-------------------------------------------------------------------------// // Imprime o Produtos ou Qualquer coisa que eu quiser... //-------------------------------------------------------------------------// STATIC FUNCTION Imprimir( oDbf1, oDbf2 ) FIELD CODIGO, DESCRICAO, MARCA, VALOR, PRCUSTO, ICMS, REDUCAO, MESSAGE LOCAL LINHA, PAG, oPrn LINHA := 0 PAG := 1 EXTERNAL ISPRINTER IF !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 ir para um arquivo .txt (teste) oPrn:= TDosPrn():New( "RELAT.TXT" ) // Este Comando, Liga a Impressora. Nao Tirar Nunca oPrn:StartPage() // da Start(inicializa) na p gina. // Mensagens no CABECALHO do Texto SELECT (oDbf2:cAlias) WHILE !EOF() // CABECALHO do Texto 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 ( oDbf1:cAlias ) DBGOTOP() WHILE !EOF() SysRefresh() IF EOF() EXIT ENDIF // Cabe‡alho Se a Linha For Maior Que 60 Repete Certo Mano IF LINHA >= 60 LINHA := 0 PAG := PAG + 1 // Mensagens no CABECALHO do Texto 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 ( oDbf1: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) + ; CODIGO+"-"+DESCRICAO+"-" + ; MARCA+"-"+STR(ICMS)+"-"+REDUCAO+"-" + ; TRAN( PRCUSTO, "@E 999,999.99" )+"-" + ; TRAN( VALOR , "@E 999,999.99" ) 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 LINHA:=LINHA+1 DBSKIP() ENDIF ENDDO @ LINHA,00 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) OF OPRN oPrn:EndPage() oPrn:End() // Como voce nao vai imprimir na impressora, ignore estas linhas... //--- 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 //----------------------------------------------------------------------------// // Funcao : ImpSpool( cFileTxt, cPorta, lErase ) // Autor : Ednaldo Rolim edrol@pop.com.br // Descricao : Envia um arquivo TXT criado pela TDosPrn para uma // porta de Impressora. //----------------------------------------------------------------------------// Function ImpSpool( cFileTxt, cPorta, lErase ) Default cPorta:= Alltrim( PrnGetPort() ), lErase:= .t. If !File( cFileTxt ) return .F. Endif If Len( cPorta ) <= 5 .and. Left( Upper(cPorta), 4) = "LPT1" //--- Spool Local cPorta:= "PRN" WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) Else //--- Spool Remoto WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 ) Endif If lErase FErase( cFileTxt ) Endif Return .T. // FIM DO PROGRAMA Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

A impressão está sendo gerada em arquivo. Portanto, não precisa de fazer quebra de página, é um arquivo de layout bancário Por favor explique melhor o que voce quer dizer com Lay-Out Bancário. Quando voce abre o Arquivo.txt, tem algum caracter extranho ao texto, ou ele está 'LIMPO'??? Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Editado por - kapiaba on 04/01/2005 17:58:51

Sr. Vagner... Promessa é divida. Tamos esperando. Abraços. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Elinet Meu querido, nao querendo abusar de sua boa vontade, o senhor poderia postar um exemplinho para eu ver, pois nao achei nada a respeito. Caso nao seja possivel, nao esquente, tá tudo bem. Obrigado. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

ola. nao gere todo o texto de uma vez só, va gerando 1 por 1, para detectar onde ele possivelmente esta gerando um CRLF (enter> nao pode ter este CRLF no arquivo texto. Nao consegui visualizar, onde voce zera a variavel para que ele de o pulo de pagina... em dicas mais dicas, tem exemplo postado, que ensina a usar a TDOSPRN.PRG Va gerando linha por linha, que voce descobre o seu erro, nao deixe(por enquanto) que o texto ultrapasse a COLUNA 79 da pagina(onde provavelmente esta gerando um CHR(13) ) Leia com calma a sua logica... dá para fazer de outra forma. Direcione o texto para o SPOOL do windows, para que quando o usuário estiver imprimindo, possa continuar trabalhando, também é recomendável, que voce use a TXTPREVIEW.PRG by Mister Ednaldo Alves Rolim. O Sr. Marllon, é usuário da mesma, e pode te ajudar bastante. Ou o próprio AUTOR. Por acaso, ele é membro permanente deste FORUM MARAVILHOSO. Abraços. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

hi.la.ri.an.te adj. m. e f. Que produz alegria, riso. -> hahahahaha. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Vagner... Você entendeu o que eu quis dizer, nao banca o experto não... Eu quis dizer, que os ITENS que eu mostro, já 'falam' por si próprio... Não que sejam TOOLTIPS, e sim os 'TOOLTIPS' da ListBox()... Você não sabe 'ler' quando está entre ""?? Santa inteligencia BatMan... Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Ola. Acho que a única solução, seria o senhor criar o primeiro campo do seu banco de dados como VAZIO... Ex: FIELD NOME... SORTEI ou INDEX pelo NOME que o DBCOMBO assume o primeiro registro em branco... Fica legal. Abraços. Bad Boy - The HuntsMan Of E.A.J. Automação Comercial. kapiaba@brfree.com.br FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE