henning

Olá, Ainda não recebi da Virtual Object o CD com a documentação em PDF, pois comprei o FiveWin a uma semana atrás, alguém teria essa documentação que vem no Cd para me enviar, ou teria algum material interessante sobre o FiveWin para ir devorando o FiveWin por aqui, pode ser em inglês, espanhol ou algum site. Agradeço desde já a todos... Editado por - henning on 01/11/2003 20:25:00

Obrigado, Deu certo era o que eu precisava...

Olá, Obrigado pela ajuda mas infelizemente não funcionou, segue o código que tentei testar, o que acontece é que o dialog não fecha depois que cria o arquivo.. #include Static oWnd Function Main() Set Date British cVersao = '0.1-01112003' Criando() Define Window oWnd From 0,0 to 40,100 Title "Teste" SET MESSAGE OF oWnd ; TO "Versão:"+cVersao CLOCK DATE KEYBOARD Activate Window oWnd MAXIMIZED Return Nil Function Criando() Local oDlg DEFINE DIALOG oDlg FROM 07,03 TO 31,97 ; TITLE "Manutenção de Arquivos- Controle de Comissão" ; STYLE nOr( WS_CAPTION, WS_MINIMIZEBOX, WS_SYSMENU, ; WS_THICKFRAME ) // Este Comando, Desliga Aquela ? Chata da Dialog que Pede o Help. ODLG:LHELPICON := .F. IF !FILE('CCV00.DBF') // Controle de Comissão Aviso( oDlg ) _DBF:={} AADD(_DBF,{'CCV_CodVen','C',4,0}) AADD(_DBF,{'CCV_DATA','D',8,0}) AADD(_DBF,{'CCV_DATAP','D',8,0}) AADD(_DBF,{'CCV_VALOR','N',14,2}) AADD(_DBF,{'CCV_Op','C',1,0}) AADD(_DBF,{'CCV_Situ','C',1,0}) AADD(_DBF,{'CCV_DOC','C',10,0}) DBCREATE('CCV00',_DBF) ENDIF USE CCV00 IF !FILE('CCV001.NTX') Aviso( oDlg ) INDEX ON CCV_CODVen TO CCV001 ENDIF ACTIVATE DIALOG oDlg CENTERED Release All oDlg:End() Return Nil FUNCTION AVISO( oDlg ) @ 07, 43.0 Say ( OemToAnsi( "Texto Centralizado! " ) ) ; SIZE 100,050 OF oDlg ; CENTER RETURN( .T. ) Editado por - henning on 01/11/2003 18:39:28 Editado por - henning on 01/11/2003 18:40:42

Olá, Comprei o FWH a poucos dias e só ontem consegui começar a estudá-lo, estou com uma dúvida. Como faço para que um Dialog abra, e execute uma série de comandos e depois que esses comandos forem completados feche automaticamente este Dialog. Ex.: Abre_Dialog @ 00,00 Say "Criando Arquivo xxxx" Ai aqui as rotinas de Criação de Arquivos e Ãndices, etc; etc. etc... Depois que criar todos os arquivo fechar o dialog. Tentei, tentei, procurei nos Exemplos mas não consegui, alguma luz.... Uso o xHarbour / FWH / Win98 No xHarbour/Clipper eu fazia assim !! IF !FILE('CCV00.DBF') // Contrle de Comissão Aviso("Criando Arquivo CCV00.dbf") _DBF:={} AADD(_DBF,{'CCV_CodVen','C',4,0}) AADD(_DBF,{'CCV_DATA','D',8,0}) AADD(_DBF,{'CCV_DATAP','D',8,0}) AADD(_DBF,{'CCV_VALOR','N',14,2}) AADD(_DBF,{'CCV_Op','C',1,0}) // Operação v=Venda, c=Contas Recebidas AADD(_DBF,{'CCV_Situ','C',1,0}) // Situacao p=Pago, a=A pagar e e=Esperando AADD(_DBF,{'CCV_DOC','C',10,0}) // Lançamento de Contas a Receber ou venda DBCREATE('CCV00',_DBF) ENDIF USE CCV00 IF !FILE('CCV001.NTX') Aviso("Criando Arquivo CCV001.ntx") INDEX ON CCV_CODVen TO CCV001 ENDIF **************************** PROCEDURE AVISO ************************************************************* Objetivo:.Apresente um aviso centralizado em uma linha da * tela * * Parametros:O texto do aviso e a linha onde devera ser * apresentado ******************************************************************** PARAMETERS AVISO PRIVATE CENTRO CENTRO=(80-LEN(AVISO))/2 * Centraliza o texto do aviso na tela setcolor(CorTitulo) @ 18,04 to 20,71 @ 19,05 say space(66) @ 19,CENTRO SAY AVISO SET COLOR TO RETURN Editado por - henning on 01/11/2003 17:17:27

Olá, Você encontra o Clipper para comprar em http://www.grafxsoft.com/cgi-shl/grx_store.exe?category=C $ 179,00