conpete

Companheiros Como faço para mudar a ordem de focus dos meus GET. P. Exemplo: ******************* REDEFINE GET oData VAR dData ID 101 OF oDlg REDEFINE GET oDocumento VAR cDocumento ID 102 OF oDlg valid chdocumento(cDocumento) picture "@!" REDEFINE GET oCodigo VAR cCodigo ID 103 OF oDlg valid chcodigo(cCodigo,0) REDEFINE GET oDescricao VAR cDescricao When(.f.) ID 104 OF ODlg REDEFINE GET oValor VAR cValor ID 105 **************** No meu caso o focus estão na seguinte ordem : ID 101 ID 102 ID 105 ID 103 ID 104 Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Valeu Capiaba. Também detesto um PRG com Problemas. Comecei a usar o Clipper Atrium (?) e fui ate 5.1 onde parei por besteira minha. Você não sabe o tempo que perdi tentando usar outras linguagens. Tenho copia de avaliação do FiveWin desde 1998 e não acreditava nele, parei na primeira compilação. Agora, com a ajuda de vocês, to vendo a potencialidade do FiveWin e a MD que fiz em perder este tempo todo. Abração e obrigado a todos Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Eu, por exemplo, não utilizo X.DBF. Uso a extensão do arquivo para identificar o usuário (P.Exp: J J da Silva @ Cia uso arquivox.JJS). Como Protejo o arquivo utilizando artifícios de programação, as pessoas desavisadas não vão poder abrir utilizando as ferramentas disponíveis. Tente comparar o handle do arquivo em questão com um DBF, utilizando um utilitário para tal (Debug do Windows p.ex) Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

citação: 288K available Compiling ALMOWIN.PRG ALMOWIN.PRG(104) Warning C1004 Ambiguous reference, assuming memvar: 'VDAT' ALMOWIN.PRG(145) Warning C1003 Ambiguous reference: 'VDAT' ALMOWIN.PRG(145) Warning C1004 Ambiguous reference, assuming memvar: 'VDAT' ALMOWIN.PRG(151) Warning C1003 Ambiguous reference: 'VQ01' ALMOWIN.PRG(151) Warning C1004 Ambiguous reference, assuming memvar: 'VQ01' 5 warnings Code size 2849, Symbols 720, Constants 1231 Christiano e demais Companheiros Como Resolver e porque estes avisos. No meus caso só dar este com a diretiva Clipper meuprograma /w/n (clipper53b e Blinker7) apesar de ter declarados as variáveis corretamente (imagino). Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Marcelo e Companheiros Já estou usando o Workshop. O que, na verdade, não sei como fazer tal procedimento utilizando um dialog, desde a declaração das variáveis (não se se devo trabalhar com Var LOCAL, PUBLIC, STATIC... Etc.) ao procedimento de programação para obter o efeito desejado utilizando REDEFINR GET. Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Beto e os outros companheiros.. Funcionou do jeito que o Beto me orientou porem, gostaria de usar algo assim.... Function Cadlanca() LOCAL oFld , oDlg , oConta, oDescricao Local cCodigo, cDescircao,vQuantida Sele 1 Use Produtos Index on codigo to xCodprod Sele 2 Use movimentos DEFINE DIALOG oDlg RESOURCE "DIALOGO_1" // Onde id 101 = codigo id 102 = descricao id 103 = valor // cCodigo = space(len(movimentos->codigo)) cDescricao = space(len(movimentos->descricao)) nQantidade=0 REDEFINE GET dCodigo ID 101 OF oDlg valid chcodigo(cCodigo) REDEFINE SAY cDescricao ID 102 OF oDlg REDEFINE GET vQuantidade ID 103 OF oDlg valid chconta(cConta) .or. lastkey()=5 O SAY acima é apenas para ilustração do meu desejo, não sei se é permitido em Dialog Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Companheiros... No velho Clipper eu faço assim: FUNCTION Function Cadlanca() Sele 1 Use Produtos Index on codigo to xCodprod Sele 2 Use movimentos cCodigo = space(len(movimentos->codigo)) cDescricao = space(len(movimentos->descricao)) nQantidade=0 @10,2 say “01 – Código.....†@11,2 say “02 - Descrição..†@12,2 say “03 - Quantidade...†@10,20 get cCodigo pict “99999†valid chcodigo(cCodigo) @12,20 gey nQaintidade read function chcodigo(cCodigo) sele 1 seek cCodigo if eof() @10,20 “ Codigo não encontrado†sele 2 return .f. else @11,20 say produtos->descricao sele 2 return .t. endin return nil Como posso Utilizar um dialog para ter o mesmo efeito acima.. ou seja, Mostrar o nome do produto após digitado o código do mesmo.. Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Hilton Informe a sua Versão do FiveWin, Clipper e Blinker Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

A única diferença e que vc terá que usar os arquivos c:\windows\system32\autoexec.nt e c:\windows\system32\config.nt Esta e a configurarão do meu autoexec.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 Redirecionador de rede de instalação REM lh %SystemRoot%\system32\nw16 lh %SystemRoot%\system32\vwipxspx set lib=c:\clip53\lib;c:\clip52\lib;c:\clipper5\lib;d:\blinker7\lib;c:\fweval\lib set include=c:\clip53\include;c:\clip52\include;c:\clipper5\include;c:\fweval\include set pll=c:\clipper5\pll set path=c:\clip53\bin;d:\blinker7\bin,%path% Esta é a comfiguracao do meu config.nt (c:\windows\system32\config.ne) dos=high, umb device=%SystemRoot%\system32\himem.sys files=150 Veja tambem http://www.fivewin.com.br/forum/topic.asp?whichpage=2&ARCHIVE=&TOPIC_ID=3885 Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Tente usar, em vez do eject, @ 0, 0 say ҠComigo funcionou. Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Necessito de uma dica sobre editor de programa pois ainda utilizo o centenários SideKIck (alguém daí lembra dele?). Mangueira Clipper53b/Blinker7/fweval mangueira@ig.com.br

Meu nobre companheiro.. Não importa em que pastas ou dispositivos a sua biblioteca necessária para compilar e linkar seus programas estejam. O que importa é que,ao compilar e linkar, as Variáveis de Ambiente LIB, INCLUDE, PLL e outras que se façam necessários, estejam apontando para o local onde elas estejam armazenadas. Exp: SET LIB=C:\clip53\lib;d:\Blinker\lib;e:\fw23\lib;G:\clip52\lib;D:\rtlink\lib Uma boa política e definir estas variáveis no autoexec ou equivalente do sistema que se esteja usando. Porem temos de tomar os seguintes cuidados: 1) Algumas instalações de compiladores e linkes fazem, automaticamente este apontamento que, as vezes, é um problema pois, anula o definido no autoexec ou outro método de configuração. 2) Ao utilizar arquivos BAT, LNK, RMK tenha sempre o cuidado de verificar se no corpo destes arquivos não contem comandos de definição de variáveis de ambientes que modifique o seu ambiente projetado. 3) Utilize na definição das variáveis de ambiente a ordem de prioridade, ou seja: Se VC tiver utilizando CLP52 e tem algumas LIBs em CLP53 que você utiliza junto ao CLP52, defina o Exp acima como: SET LIB=C:\clip52\lib;d:\Blinkert\lib;e:\fw24\lib;G:\clip53\lib;D:\rtlink\lib Mangueira Clipper53b/Blinker7/fweval

Turma ... To nesta a menus de uma semana já sei que e kara é sabão mesmo. É um, é dois , é três e quem sabe, já é quatro.. Mangueira

Marcio O Capiaba tem razão . O alltrim resolve grande parte do seu problema entretanto você deve trabalhar os espaços internos criando uma função para eliminar os mais de um espaço tanto nas entradas como nas pesquisas Mangueira

A todos que me ajudaram O “Hello†Saio hoje.. O problema era se set lib. Não estava incluindo as lib do blinker Preparem-se agora para novas seção de saco. Mangueira

Paulo Não é uma boa política usar campo dia/mês, mas, na premissa que o ano é o corrente ou identificado de outro modo, você deve fazer uma critica da data. Aqui vai uma sugestão que pode ser melhorada ************************************** diames="0000" @10,10 get diames pict "@r 99/99" valid chdiames(diames) read func chdiames para _dt1 local vrmes vlmes=val(substr(_dt1,3,2)) vldia=val(substr(_dt1,1,2)) ano=year(date()) do case case vlmes = 0 .or. vlmes > 12 return .f. case vlmes=2 if int(ano/4)-(ano/4) = 0 if vldia < 30 .and. vldia> 0 return .t. endif else if vldia < 29 .and. vldia> 0 return .t. endif endif return .f. case vlmes = 1 .or. vlmes = 3 .or. vlmes = 5 .or. vlmes = 7 .or. vlmes = 8 .or. vlmes = 10 .or. vlmes = 12 if vldia < 32 .and. vldia > 0 return .t. endif case vlmes = 4 .or. vlmes = 6 .or. vlmes = 9 .or. vlmes = 11 if vldia < 31 .and. vldia > 0 return .t. endif endcase return .f. ************************************** Mangueira

Pos é meus amigos, o “hello†ainda não aconteceu. Agradeço a ajuda de vocês e vamos aguardar a compra de versão 2.6 para ver se o hello sai. Marcos Mangueira marcos@conpete.com.br mangueira@ig.com.br Manaus - Amazonas

Meu caro Gilmar.. Com a modificação o problema passou a ser este: *************************** Mensagem de erro do likeador C:\DEMO> [36mblinker @teste1 __ __ (®¯) (®¯) BLINKER DOS Extender and Windows Linker 4.10 ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-96 All Rights Reserved. Serial # BR-055704. Fax (804) 747-4200. BLINKER : 1115 : FIVE.LIB(ERRSYSW) : 'RDDLIST' : unresolved external BLINKER : 1115 : FIVE.LIB(ERRSYSW) : 'RDDNAME' : unresolved external BLINKER : 1115 : FIVE.LIB(ERRSYSW) : 'ORDNAME' : unresolved external BLINKER : 1115 : FIVEC.LIB(FIVEFIX) : '__FSCREATE' : unresolved external BLINKER : 0 Warning error(s), 4 Fatal error(s) TESTE1.EXE (not created) (1.5 seconds) Mangeira

Alo vocês... O os procedimentos sugeridos pelos colegas já foram feitos... O problema e que o “linkeador†não encontra a fivewin.lib. Pelo menos na versão que baixei não encontrei. As libes que constam são: Five.lib Fivec.lib Objects.lib WinApi.lib Mangueira marcos@conpete.com.br

Passei, hoje, dia (17/0502005) tentando compilar e linkar meu primeiro prg usando FiveWin para poder decidir qual “visual†irei adotar após permanecer prg com clipper desde verão 87 (acho que teve um inverno antes). Apesar das grandes digas dos Colegas do Fórum, não obtive sucesso. Já faço alguma coisa em Delphi (nada comercial), mas, acho, que não é a mesma coisa do domínio que tinha e tenho sobre o CLIPPER Estou pronto pra pagar os R$ 1178,00 fw Clipper 2.6, entretanto, gostaria de ver compilado, linkado e funcionando aquele velho prg “hello†Pelas respostas que obtive hoje no fórum FiveWin tenho certeza que vocês vão me ajudar a da o primeiro passo, ou seja, escrever “alo†na tela do meu PC usando clipper52e e o fweval Dados sobre minha configuração Clipper = cliper52E Blinker = 4.10 Fivewin = 192eval Sietema operacional = winxp pack 0 Programa compilado teste1 // Our first Window in Windows !!! //----------------------------------------------------------------------------// // FiveWin - Tutorial // © A.Linares, F.Pulp¢n 1993-4 // // Contruir con BUILD Tutor02 // Build with BUILD Tutor02 //----------------------------------------------------------------------------// // ­­­ Nuestra primera ventana en Windows !!! #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oWnd, oSay DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ; TITLE "Wellcome to FiveWin" ; COLOR "W+*/R" @ 2, 2 SAY oSay PROMPT "Hello" DESIGN OF oWnd @ 4, 2 BUTTON "&Change Color" SIZE 120, 25 OF oWnd ; ACTION oSay:SelColor() ACTIVATE WINDOW oWnd return nil Arquivo teste1.lnk BLINKER INCREMENTAL OFF // MAP A,S NOBELL FI teste1 DEFBEGIN name FiveWin description 'Clipper for Windows library' exetype Windows 3.1 code preload moveable data preload moveable stacksize 8500 heapsize 8500 DEFEND LIB fivewin, OBJECTS, WinApi, Clipper, Extend, DbfNtx //, DbfCdx, DbfMdx, DbfNdx, DbPx, Terminal Msg erro na linkagem C:\DEMO> [36mcopy teste1.lnk *.txt 1 arquivo(s) copiado(s). C:\DEMO> [36mblinker @teste1 __ __ (®¯) (®¯) BLINKER DOS Extender and Windows Linker 4.10 ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-96 All Rights Reserved. Serial # BR-055704. Fax (804) 747-4200. BLINKER : 1109 : unable to open file FIVEWIN.LIB Mangueira marcos@conpete.com.br

Prez Kapiaba Desculpe-me a cessação de saco. Fiz seguinte... Detonei fivewin eval baixado anteriormente e pastas criadas Peguei nova copia aval de fivewin.com.br e reinstalei tudo, porem ainda não foi desta vez que obtive sucesso. OBS. Não encontrei o arquivo fivewin.lib em \fweval\lib ERRO LINKANDO C:\DEMO> [36mclipper teste1 Clipper ® 5.2e Copyright © 1985-1995, Computer Associates International, Inc. Microsoft C Floating Point Support Routines Copyright © Microsoft Corp 1984-1987. All Rights Reserved. 243K available Compiling TESTE1.PRG Code size 259, Symbols 240, Constants 45 C:\DEMO> [36mblinker @teste1 __ __ (®¯) (®¯) BLINKER DOS Extender and Windows Linker 4.10 ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-96 All Rights Reserved. Serial # BR-055704. Fax (804) 747-4200. BLINKER : 1109 : unable to open file FIVEWIN.LIB ******* Arquivo prg #include "FiVEWIN.CH" function main() local ow define window ow from 0,0 to 10,80 title "CA-Clipper" @ 1,1 say "Estou programando em Windows!" activate window ow return(nil) *************** arquivo LNK BLINKER INCREMENTAL OFF // MAP A,S NOBELL FI X DEFBEGIN name FiveWin description 'Clipper for Windows library' exetype Windows 3.1 code preload moveable data preload moveable stacksize 8500 heapsize 8500 DEFEND LIB FiveWin,OBJECTS, WinApi, Clipper, Extend, DbfNtx //, DbfCdx, DbfMdx, DbfNdx, DbPx, Terminal Mangueira

BLINKER CLIPPER SYMBOL OFF fi x out meumome.exe PACKCODE PACKDATA DEFBEGIN name MeuNome description 'este é meu programa' exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 10000 heapsize 1024 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND NOBELL sear Five, FiveC, Objects sear WinApi, Clipper, Extend, DbfNtx, Terminal

citação:Poste o seu arquivo.lnk. Ele está fazendo chamadas ao FIVE SUPERIOR. 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 id=quote>id=quote>

Depois de longos anos usando o clipper resolvi enfrentar a realidade e partir para o visual . Baixei a versão de avaliação do fivewin e, segundo os passos de um manual também baixado na Internet enfrentei na primeira tentativa o problema mostrado abaixo.. alguém pode me ajudar? Mangueira mangueira@ig.com.br C:\DEMO> [36mblinker @x (__) (__) BLINKER DOS Extender and Windows Linker 4.10 ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-96 All Rights Reserved. Serial # BR-055704. Fax (804) 747-4200. BLINKER : 1115 : FIVE.LIB(ERRSYSW) : 'RDDLIST' : unresolved external BLINKER : 1115 : FIVE.LIB(ERRSYSW) : 'RDDNAME' : unresolved external BLINKER : 1115 : FIVE.LIB(ERRSYSW) : 'ORDNAME' : unresolved external BLINKER : 1115 : FIVEC.LIB(FIVEFIX) : '__FSCREATE' : unresolved external BLINKER : 0 Warning error(s), 4 Fatal error(s) MEUMOME.EXE (not created) (1.8 seconds)