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

---

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)