Retorno do cursor (Como proceder?)

[Paulo1361303230]

Boa Tarde a todos e bom Domingo tambem!

Colegas

Estou com um pequeno problema mas com uma grande dificuldade em solucionar.

01)Em um determinado campo informo o codigo do atendente.

Até aí tudo bem o cursor está no local indicado.

02)Após os procedimentos, digamos de uma determinada venda,

retorna para o codigo do atendente, só que sem o cursor,

para mostrar o cursor, sou obrigado a utilizar do mouse

e clicar no campo para que o mesmo fique ativo.

03)Existe uma forma de solucionar este problema?

Abaixo o fonte:

*consult7.prg - Consigna‡ao/revendas

#include "FiveWin.ch"

#include "dbtnBMP.ch"

*******************************************

function revenda()

*******************************************

local oDlg

local olbx

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,20 TO 18,80 TITLE "TERMINAL DE CONSULTAS - CONSIGNAÇÃO/REVENDAS"

sele a

use cadreven

if ! neterr()

set inde to cadreven,alfareve

else

msginfo('Arquivo não Disponível (Cadreven)','Atenção')

close all

return nil

endif

wrev:='REVENDEDOR'

winic:=0

wnome:='Quem será?'

wfunc:=0

watend:=0

oatend:=watend:=0

DEFINE FONT bFont NAME "Italic" SIZE 15,22 BOLD && Fonte como no MS-WORD

@24,18 SAY oSay PROMPT 'Código do Revendedor(a)' SIZE 350,16 PIXEL OF odlg FONT bfont color('b+/w')

@04,14 GET oatend var watend of odlg pict '99999' valid confrev(watend) when watend=0

@115,26 DBUTTON "&Confirmar" FILE "edit2.BMP" OF oDlg ACTION revarqu(olbx) SIZE 50,13 when watend>0

@115,136 DBUTTON "&Esc para retornar" FILE "DBSALIR.BMP" OF oDlg ACTION odlg:end() SIZE 76,13

ACTIVATE DIALOG oDlg center

watend:=0

close all

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

*************************************

static function confrev(olbx)

*************************************

local odlg

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

if watend=0

return .f.

endif

if watend<>0

dbseek(watend)

if eof()

beep(3)

msgalert('Código Inexistente!','Informação Inválida!')

set order to 2

go top

DEFINE DIALOG oDlg FROM 08,11 TO 31,87 TITLE "Consultas de Revendedores"

@0,1 SAY "&Relação de Funcionários" OF oDlg

@1,1 LISTBOX oLbx FIELDS cadreven->(str(cod,5)),cadreven->nom,cadreven->end HEADERS "Código", "Nome do(a) Revendedor(a)","Endereço" FIELDSIZES 30,370,50 SIZE 284,137 OF oDlg

@155,076 DBUTTON "&1-Confirma" FILE "DBSALIR.BMP" OF oDlg ACTION oDlg:End() SIZE 50,13

@155,176 DBUTTON "&2-Busca" FILE "FIND2.BMP" OF oDlg ACTION buscarev(olbx) size 50,13

ACTIVATE DIALOG oDlg

set order to 1

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

endif

endif

set order to 1

watend:=cod

wnome:=nom

if sexo='F'

wrev:='REVENDEDORA - '+alltrim(wnome)

else

wrev:='REVENDEDOR - '+alltrim(wnome)

endif

nome_foto=cadreven->foto // foto do cliente

ffoto:=alltrim(nome_foto)+'.bmp'

if nome_foto=space(10)

ffoto:='fotofun.bmp'

endif

return .t.

*******************************************

function revarqu(olbx)

*******************************************

local oDlg

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,00 TO 38,100 TITLE "CONSIGNAÇÃO/REVENDAS - "+wrev

semfoto:='paulo.bmp'

wtota:=alltrim(str(wtot,12,2))

DEFINE FONT bFont NAME "arial" SIZE 15,16 bold && Fonte como no MS-WORD

@01,09 SAY oSay PROMPT alltrim(usraz) SIZE 350,16 PIXEL OF odlg FONT bfont color('n/w') center

@01.5,25 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

@01.5,01 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

wdia:=date()

whor:=time()

@27,11 SAY oSay PROMPT alltrim(uscon) SIZE 180,16 PIXEL OF odlg FONT bfont color('b+/w*') center

@40,54.5 SAY oSay PROMPT dtoc(wdia) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*') center

@51,74.5 SAY oSay PROMPT subs(whor,1,5) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*')

DEFINE FONT bFont NAME "arial" SIZE 20,28 bold && Fonte como no MS-WORD

@41,205 say oSay PROMPT 'Total R$' SIZE 090,16 PIXEL OF odlg FONT bfont color('r+/w*')

@41,295 say oSay2 PROMPT wtota SIZE 090,16 PIXEL OF odlg FONT bfont color('b*/w*')

@17,14 TO 19.2,30 LABEL "&Código ou descrição do Produto" OF oDlg color('r+/w')

prod_nom:=space(20)

oprod_nom:=prod_nom:=space(20)

@19,15 get oprod_nom var prod_nom of odlg pict '@!' valid buscades(prod_nom)

wdbf:=dbf()

*@06,1 LISTBOX oLbx FIELDS &wdbf->(strzero(item,3)),&wdbf->descric,&wdbf->(str(valunit,10,2)),&wdbf->(str(quantid,4)),&wdbf->(str(vlsdesc,10,2)),&wdbf->(str(desconto,5,2)),&wdbf->(str(vlcdesc,10,2)),&wdbf->(str(valtota,10,2)) HEADERS "Item","Descrição do Produto","PV.Unitário","Qtde.","Tot.s/Desconto","Desc.%","Desconto R$","Total do Item R$" FIELDSIZES 35,220,80,40,100,60,87,60 SIZE 380,150 OF odlg

vlbx:=olbx

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

@241.0,245 DBUTTON "&1-Finaliza" FILE "...\FIND2.BMP" OF oDlg ACTION finaliza(odlg:end()) SIZE 50,13

@256.0,245 DBUTTON "&2-Excluir Item" FILE "...\DBSALIR.BMP" OF oDlg ACTION excluit(olbx) SIZE 50,13

@241.0,305 DBUTTON "&3-Lista ABC" FILE "...\DBSALIR.BMP" OF oDlg ACTION listabc(olbx) SIZE 50,13

*@256.0,305 DBUTTON "&4-Cancela" FILE "...\FIND2.BMP" OF oDlg ACTION cancela(odlg:end()) SIZE 50,13

ACTIVATE DIALOG oDlg center

wtot:=0

witem:=0

watend:=0

oatend:setfocus(0)

oatend:setpos(0)

oatend:refresh()

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

sele a // drprodt

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

Obrigado à todos e bom fim de semana apesar de estarmos trabalhando.

[Paulo1361303230]

Boa Tarde a todos e bom Domingo tambem!

Colegas

Estou com um pequeno problema mas com uma grande dificuldade em solucionar.

01)Em um determinado campo informo o codigo do atendente.

Até aí tudo bem o cursor está no local indicado.

02)Após os procedimentos, digamos de uma determinada venda,

retorna para o codigo do atendente, só que sem o cursor,

para mostrar o cursor, sou obrigado a utilizar do mouse

e clicar no campo para que o mesmo fique ativo.

03)Existe uma forma de solucionar este problema?

Abaixo o fonte:

*consult7.prg - Consigna‡ao/revendas

#include "FiveWin.ch"

#include "dbtnBMP.ch"

*******************************************

function revenda()

*******************************************

local oDlg

local olbx

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,20 TO 18,80 TITLE "TERMINAL DE CONSULTAS - CONSIGNAÇÃO/REVENDAS"

sele a

use cadreven

if ! neterr()

set inde to cadreven,alfareve

else

msginfo('Arquivo não Disponível (Cadreven)','Atenção')

close all

return nil

endif

wrev:='REVENDEDOR'

winic:=0

wnome:='Quem será?'

wfunc:=0

watend:=0

oatend:=watend:=0

DEFINE FONT bFont NAME "Italic" SIZE 15,22 BOLD && Fonte como no MS-WORD

@24,18 SAY oSay PROMPT 'Código do Revendedor(a)' SIZE 350,16 PIXEL OF odlg FONT bfont color('b+/w')

@04,14 GET oatend var watend of odlg pict '99999' valid confrev(watend) when watend=0

@115,26 DBUTTON "&Confirmar" FILE "edit2.BMP" OF oDlg ACTION revarqu(olbx) SIZE 50,13 when watend>0

@115,136 DBUTTON "&Esc para retornar" FILE "DBSALIR.BMP" OF oDlg ACTION odlg:end() SIZE 76,13

ACTIVATE DIALOG oDlg center

watend:=0

close all

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

*************************************

static function confrev(olbx)

*************************************

local odlg

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

if watend=0

return .f.

endif

if watend<>0

dbseek(watend)

if eof()

beep(3)

msgalert('Código Inexistente!','Informação Inválida!')

set order to 2

go top

DEFINE DIALOG oDlg FROM 08,11 TO 31,87 TITLE "Consultas de Revendedores"

@0,1 SAY "&Relação de Funcionários" OF oDlg

@1,1 LISTBOX oLbx FIELDS cadreven->(str(cod,5)),cadreven->nom,cadreven->end HEADERS "Código", "Nome do(a) Revendedor(a)","Endereço" FIELDSIZES 30,370,50 SIZE 284,137 OF oDlg

@155,076 DBUTTON "&1-Confirma" FILE "DBSALIR.BMP" OF oDlg ACTION oDlg:End() SIZE 50,13

@155,176 DBUTTON "&2-Busca" FILE "FIND2.BMP" OF oDlg ACTION buscarev(olbx) size 50,13

ACTIVATE DIALOG oDlg

set order to 1

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

endif

endif

set order to 1

watend:=cod

wnome:=nom

if sexo='F'

wrev:='REVENDEDORA - '+alltrim(wnome)

else

wrev:='REVENDEDOR - '+alltrim(wnome)

endif

nome_foto=cadreven->foto // foto do cliente

ffoto:=alltrim(nome_foto)+'.bmp'

if nome_foto=space(10)

ffoto:='fotofun.bmp'

endif

return .t.

*******************************************

function revarqu(olbx)

*******************************************

local oDlg

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,00 TO 38,100 TITLE "CONSIGNAÇÃO/REVENDAS - "+wrev

semfoto:='paulo.bmp'

wtota:=alltrim(str(wtot,12,2))

DEFINE FONT bFont NAME "arial" SIZE 15,16 bold && Fonte como no MS-WORD

@01,09 SAY oSay PROMPT alltrim(usraz) SIZE 350,16 PIXEL OF odlg FONT bfont color('n/w') center

@01.5,25 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

@01.5,01 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

wdia:=date()

whor:=time()

@27,11 SAY oSay PROMPT alltrim(uscon) SIZE 180,16 PIXEL OF odlg FONT bfont color('b+/w*') center

@40,54.5 SAY oSay PROMPT dtoc(wdia) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*') center

@51,74.5 SAY oSay PROMPT subs(whor,1,5) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*')

DEFINE FONT bFont NAME "arial" SIZE 20,28 bold && Fonte como no MS-WORD

@41,205 say oSay PROMPT 'Total R$' SIZE 090,16 PIXEL OF odlg FONT bfont color('r+/w*')

@41,295 say oSay2 PROMPT wtota SIZE 090,16 PIXEL OF odlg FONT bfont color('b*/w*')

@17,14 TO 19.2,30 LABEL "&Código ou descrição do Produto" OF oDlg color('r+/w')

prod_nom:=space(20)

oprod_nom:=prod_nom:=space(20)

@19,15 get oprod_nom var prod_nom of odlg pict '@!' valid buscades(prod_nom)

wdbf:=dbf()

*@06,1 LISTBOX oLbx FIELDS &wdbf->(strzero(item,3)),&wdbf->descric,&wdbf->(str(valunit,10,2)),&wdbf->(str(quantid,4)),&wdbf->(str(vlsdesc,10,2)),&wdbf->(str(desconto,5,2)),&wdbf->(str(vlcdesc,10,2)),&wdbf->(str(valtota,10,2)) HEADERS "Item","Descrição do Produto","PV.Unitário","Qtde.","Tot.s/Desconto","Desc.%","Desconto R$","Total do Item R$" FIELDSIZES 35,220,80,40,100,60,87,60 SIZE 380,150 OF odlg

vlbx:=olbx

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

@241.0,245 DBUTTON "&1-Finaliza" FILE "...\FIND2.BMP" OF oDlg ACTION finaliza(odlg:end()) SIZE 50,13

@256.0,245 DBUTTON "&2-Excluir Item" FILE "...\DBSALIR.BMP" OF oDlg ACTION excluit(olbx) SIZE 50,13

@241.0,305 DBUTTON "&3-Lista ABC" FILE "...\DBSALIR.BMP" OF oDlg ACTION listabc(olbx) SIZE 50,13

*@256.0,305 DBUTTON "&4-Cancela" FILE "...\FIND2.BMP" OF oDlg ACTION cancela(odlg:end()) SIZE 50,13

ACTIVATE DIALOG oDlg center

wtot:=0

witem:=0

watend:=0

oatend:setfocus(0)

oatend:setpos(0)

oatend:refresh()

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

sele a // drprodt

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

Obrigado à todos e bom fim de semana apesar de estarmos trabalhando.

[Paulo1361303230]

Boa Tarde a todos e bom Domingo tambem!

Colegas

Estou com um pequeno problema mas com uma grande dificuldade em solucionar.

01)Em um determinado campo informo o codigo do atendente.

Até aí tudo bem o cursor está no local indicado.

02)Após os procedimentos, digamos de uma determinada venda,

retorna para o codigo do atendente, só que sem o cursor,

para mostrar o cursor, sou obrigado a utilizar do mouse

e clicar no campo para que o mesmo fique ativo.

03)Existe uma forma de solucionar este problema?

Abaixo o fonte:

*consult7.prg - Consigna‡ao/revendas

#include "FiveWin.ch"

#include "dbtnBMP.ch"

*******************************************

function revenda()

*******************************************

local oDlg

local olbx

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,20 TO 18,80 TITLE "TERMINAL DE CONSULTAS - CONSIGNAÇÃO/REVENDAS"

sele a

use cadreven

if ! neterr()

set inde to cadreven,alfareve

else

msginfo('Arquivo não Disponível (Cadreven)','Atenção')

close all

return nil

endif

wrev:='REVENDEDOR'

winic:=0

wnome:='Quem será?'

wfunc:=0

watend:=0

oatend:=watend:=0

DEFINE FONT bFont NAME "Italic" SIZE 15,22 BOLD && Fonte como no MS-WORD

@24,18 SAY oSay PROMPT 'Código do Revendedor(a)' SIZE 350,16 PIXEL OF odlg FONT bfont color('b+/w')

@04,14 GET oatend var watend of odlg pict '99999' valid confrev(watend) when watend=0

@115,26 DBUTTON "&Confirmar" FILE "edit2.BMP" OF oDlg ACTION revarqu(olbx) SIZE 50,13 when watend>0

@115,136 DBUTTON "&Esc para retornar" FILE "DBSALIR.BMP" OF oDlg ACTION odlg:end() SIZE 76,13

ACTIVATE DIALOG oDlg center

watend:=0

close all

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

*************************************

static function confrev(olbx)

*************************************

local odlg

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

if watend=0

return .f.

endif

if watend<>0

dbseek(watend)

if eof()

beep(3)

msgalert('Código Inexistente!','Informação Inválida!')

set order to 2

go top

DEFINE DIALOG oDlg FROM 08,11 TO 31,87 TITLE "Consultas de Revendedores"

@0,1 SAY "&Relação de Funcionários" OF oDlg

@1,1 LISTBOX oLbx FIELDS cadreven->(str(cod,5)),cadreven->nom,cadreven->end HEADERS "Código", "Nome do(a) Revendedor(a)","Endereço" FIELDSIZES 30,370,50 SIZE 284,137 OF oDlg

@155,076 DBUTTON "&1-Confirma" FILE "DBSALIR.BMP" OF oDlg ACTION oDlg:End() SIZE 50,13

@155,176 DBUTTON "&2-Busca" FILE "FIND2.BMP" OF oDlg ACTION buscarev(olbx) size 50,13

ACTIVATE DIALOG oDlg

set order to 1

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

endif

endif

set order to 1

watend:=cod

wnome:=nom

if sexo='F'

wrev:='REVENDEDORA - '+alltrim(wnome)

else

wrev:='REVENDEDOR - '+alltrim(wnome)

endif

nome_foto=cadreven->foto // foto do cliente

ffoto:=alltrim(nome_foto)+'.bmp'

if nome_foto=space(10)

ffoto:='fotofun.bmp'

endif

return .t.

*******************************************

function revarqu(olbx)

*******************************************

local oDlg

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,00 TO 38,100 TITLE "CONSIGNAÇÃO/REVENDAS - "+wrev

semfoto:='paulo.bmp'

wtota:=alltrim(str(wtot,12,2))

DEFINE FONT bFont NAME "arial" SIZE 15,16 bold && Fonte como no MS-WORD

@01,09 SAY oSay PROMPT alltrim(usraz) SIZE 350,16 PIXEL OF odlg FONT bfont color('n/w') center

@01.5,25 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

@01.5,01 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

wdia:=date()

whor:=time()

@27,11 SAY oSay PROMPT alltrim(uscon) SIZE 180,16 PIXEL OF odlg FONT bfont color('b+/w*') center

@40,54.5 SAY oSay PROMPT dtoc(wdia) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*') center

@51,74.5 SAY oSay PROMPT subs(whor,1,5) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*')

DEFINE FONT bFont NAME "arial" SIZE 20,28 bold && Fonte como no MS-WORD

@41,205 say oSay PROMPT 'Total R$' SIZE 090,16 PIXEL OF odlg FONT bfont color('r+/w*')

@41,295 say oSay2 PROMPT wtota SIZE 090,16 PIXEL OF odlg FONT bfont color('b*/w*')

@17,14 TO 19.2,30 LABEL "&Código ou descrição do Produto" OF oDlg color('r+/w')

prod_nom:=space(20)

oprod_nom:=prod_nom:=space(20)

@19,15 get oprod_nom var prod_nom of odlg pict '@!' valid buscades(prod_nom)

wdbf:=dbf()

*@06,1 LISTBOX oLbx FIELDS &wdbf->(strzero(item,3)),&wdbf->descric,&wdbf->(str(valunit,10,2)),&wdbf->(str(quantid,4)),&wdbf->(str(vlsdesc,10,2)),&wdbf->(str(desconto,5,2)),&wdbf->(str(vlcdesc,10,2)),&wdbf->(str(valtota,10,2)) HEADERS "Item","Descrição do Produto","PV.Unitário","Qtde.","Tot.s/Desconto","Desc.%","Desconto R$","Total do Item R$" FIELDSIZES 35,220,80,40,100,60,87,60 SIZE 380,150 OF odlg

vlbx:=olbx

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

@241.0,245 DBUTTON "&1-Finaliza" FILE "...\FIND2.BMP" OF oDlg ACTION finaliza(odlg:end()) SIZE 50,13

@256.0,245 DBUTTON "&2-Excluir Item" FILE "...\DBSALIR.BMP" OF oDlg ACTION excluit(olbx) SIZE 50,13

@241.0,305 DBUTTON "&3-Lista ABC" FILE "...\DBSALIR.BMP" OF oDlg ACTION listabc(olbx) SIZE 50,13

*@256.0,305 DBUTTON "&4-Cancela" FILE "...\FIND2.BMP" OF oDlg ACTION cancela(odlg:end()) SIZE 50,13

ACTIVATE DIALOG oDlg center

wtot:=0

witem:=0

watend:=0

oatend:setfocus(0)

oatend:setpos(0)

oatend:refresh()

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

sele a // drprodt

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

Obrigado à todos e bom fim de semana apesar de estarmos trabalhando.

[Kleyton]

Basta colocar o comando abaixo, ao retornar...

oatend:SetPos(0,0)

Kleyton

Clipper5.2E+Clipper5.3b+Blink7+FW2.0d

cleitonbala@bol.com.br

[Paulo1361303230]

Ok Kleyton

Obrigado pela força

Abraços

Paulo

[Kleyton]

Só pra complementar, o comando SetPos(0,0) você irá colocar na variável objeto em questão, me referi na variável "oatend", foi porque olhei superficialmente no seu código fonte...

oatend:SetPos(0,0)

Kleyton

Clipper5.2E+Clipper5.3b+Blink7+FW2.0d

cleitonbala@bol.com.br

[Paulo1361303230]

Oi Kleyton

Talvez eu não tenha entendido direito, porem procedí conforme orientado e mesmo assim não deu certo.

Segue o fonte:

*******************************************

function revarqu(olbx)

*******************************************

local oDlg

local oget

local aHBitMaps:= { ReadBitmap( 0, "Level1.bmp" ), ; // BitMaps de 14 x 32

ReadBitmap( 0, "Level2.bmp" ), ;

ReadBitmap( 0, "Level3.bmp" ), ;

ReadBitmap( 0, "Level4.bmp" ),;

ReadBitmap( 0, "Level5.bmp" ) }

DEFINE DIALOG oDlg FROM 00,00 TO 38,100 TITLE "CONSIGNAÇÃO/REVENDAS - "+wrev

semfoto:='paulo.bmp'

wtota:=alltrim(str(wtot,12,2))

DEFINE FONT bFont NAME "arial" SIZE 15,16 bold && Fonte como no MS-WORD

@01,09 SAY oSay PROMPT alltrim(usraz) SIZE 350,16 PIXEL OF odlg FONT bfont color('n/w') center

@01.5,25 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

@01.5,01 BITMAP oBmp FILENAME semfoto ADJUST SIZE 187,50 && OF oWnd // size=largura+altura

wdia:=date()

whor:=time()

@27,11 SAY oSay PROMPT alltrim(uscon) SIZE 180,16 PIXEL OF odlg FONT bfont color('b+/w*') center

@40,54.5 SAY oSay PROMPT dtoc(wdia) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*') center

@51,74.5 SAY oSay PROMPT subs(whor,1,5) SIZE 90,16 PIXEL OF odlg FONT bfont color('r+/w*')

DEFINE FONT bFont NAME "arial" SIZE 20,28 bold && Fonte como no MS-WORD

@41,205 say oSay PROMPT 'Total R$' SIZE 090,16 PIXEL OF odlg FONT bfont color('r+/w*')

@41,295 say oSay2 PROMPT wtota SIZE 090,16 PIXEL OF odlg FONT bfont color('b*/w*')

@17,14 TO 19.2,30 LABEL "&Código ou descrição do Produto" OF oDlg color('r+/w')

prod_nom:=space(20)

oprod_nom:=prod_nom:=space(20)

@19,15 get oprod_nom var prod_nom of odlg pict '@!' valid buscades(prod_nom)

wdbf:=dbf()

*@06,1 LISTBOX oLbx FIELDS &wdbf->(strzero(item,3)),&wdbf->descric,&wdbf->(str(valunit,10,2)),&wdbf->(str(quantid,4)),&wdbf->(str(vlsdesc,10,2)),&wdbf->(str(desconto,5,2)),&wdbf->(str(vlcdesc,10,2)),&wdbf->(str(valtota,10,2)) HEADERS "Item","Descrição do Produto","PV.Unitário","Qtde.","Tot.s/Desconto","Desc.%","Desconto R$","Total do Item R$" FIELDSIZES 35,220,80,40,100,60,87,60 SIZE 380,150 OF odlg

vlbx:=olbx

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

@241.0,245 DBUTTON "&1-Finaliza" FILE "...\FIND2.BMP" OF oDlg ACTION finaliza(odlg:end()) SIZE 50,13

@256.0,245 DBUTTON "&2-Excluir Item" FILE "...\DBSALIR.BMP" OF oDlg ACTION excluit(olbx) SIZE 50,13

@241.0,305 DBUTTON "&3-Lista ABC" FILE "...\DBSALIR.BMP" OF oDlg ACTION listabc(olbx) SIZE 50,13

*@256.0,305 DBUTTON "&4-Cancela" FILE "...\FIND2.BMP" OF oDlg ACTION cancela(odlg:end()) SIZE 50,13

ACTIVATE DIALOG oDlg center

wtot:=0

witem:=0

watend:=0

prod_nom:=space(20)

oprod_nom:setpos(0)

oprod_nom:refresh()

oatend:setpos(0,0) <<<======================

oatend:refresh()

sele a // drprodt

AEval(aHBitmaps,{|hBmp|DeleteObject(hBmp)})

return nil

Será que devo modificar a variável de caracter para numérica?

Um detalhe, conseguí desenvolver o meu sistema graças ao CD

que vc me enviou mais ou menos há uns dois anos atrás.

Ref. XEROX

Obrigado

Paulo

[pauloaraujo]

Xará, tudo bem??

watend:=0

"Será que devo modificar a variável de caracter para numérica?"

Primeiramente, a pergunta está ao contrário, né?? (desculpe-me a brincadeira).

Segundo, este é o terceiro tópico sobre o mesmo assunto em

que afirmo em que há um "bug" quando se dá um refresh()

numa variável numeríca em que o cursor tenha que focar nela.

Já tive que dar nó em pingo d'agua contornar esse problema.

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4028

Não lembro qual o segundo tópico, mas acho que era em xHarbour.

Só para completar o que você colocou, comigo, o cursor vai

para a posição correta após o SETPOS(0,0), mas depois de

teclar qualquer coisa ele vai para a posição errada,

obrigando-se a usar o mouse.

Com certeza 2 PAULOs tenham mais força que um. Né??

Não deixe que esse tópico morra sem que haja pelo menos uma

resposta definitiva. Tô contigo até o fim.

Um abraço

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Editado por - pauloaraujo on 07/08/2005 15:54:32

[Paulo1361303230]

Oi Xará

Mais uma vez obrigado pela força.

Realmente a pergunta era prá ser feita ao contrário, mas pode acreditar já estou aqui desde às 06:00 da manhã e já são 17:05, não sei nem a que horas vou parar.

Mas temos que lutar não é?

Abraços

Paulo

[pauloaraujo]

Paulo,

Aguenta até 2ª Feira.

Tudo o que você se aprende com luta, pode se dar aula depois.

Quem conseguir domar o cursor no exemplo abaixo, irá ajudar 2 Paulo's.

Coloquem qualquer coisa no código e tentem digitar 1000 na quantidade sem usar o mouse ou seta a esquerda.

** TESTE.PRG

#include "FiveWin.ch"

PRIV wfonte_FixedSys

DEFINE FONT wfonte_FixedSys NAME "FixedSys" SIZE 10,10

PRIV oProdu,oQt,oVrun,oDlg

PRIV wProdu:=spac(10),wQt:=0,wVrun:=0

DEFINE DIALOG oDlg FROM 0, 0 TO 300,450 TITLE "Pedidos - Produtos" PIXEL ;

FONT wfonte_FixedSys

@ 01,10 GET oProdu VAR wProdu PICT "@!" OF oDlg SIZE 44,10 VALID PESQPRODU( oDlg )

@ 03,10 GET oQt VAR wQt PICT "999999" OF oDlg SIZE 28,10 VALID PESQQT( oDlg )

@ 05,10 GET oVrun VAR wVrun PICT "999,999.99" OF oDlg SIZE 44,10

@ 07,10 BUTTON "&Sair" OF oDlg ACTION ( oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

CANCEL

FUNC PESQPRODU( oDlg )

IF wProdu=spac(10)

retu(.f.)

ELSE

wQt:=1

oQt:Varput(wQt)

oQt:SetPos(0)

oQt:Refresh()

wVrun:=8.95

oVrun:Varput(wVrun)

oVrun:SetPos(0)

oVrun:Refresh()

retu(.t.)

ENDIF

FUNC PESQQT( oDlg )

IF wQt=0

retu(.f.)

ELSE

if wQt < 100

wVrun:=10.00

else

wVrun:=8.95

endif

oVrun:Refresh()

retu(.t.)

ENDIF

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Editado por - pauloaraujo on 07/08/2005 18:27:29

[evandro]

Olá,

Digitei um código e em seguida digitei 1000 sem qualquer problema. A única diferença para vocês é que uso o xHarbour.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 2.5+PellesC+xBuild+xHarbour.org 0.99.3

[pauloaraujo]

Evandro, Beleza??

Obrigado pelo retorno.

Então temos que aguardar outra boa alma com FW puro para vermos no que dá.

De preferência, mudar a pict para "999999" para não confundir com o "." do decimal.

@ 03,10 GET oQt VAR wQt PICT "999999" OF oDlg SIZE 28,10 VALID PESQQT( oDlg )

Um abraço

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

[pauloaraujo]

citação:

Paulo,

Aguenta até 2ª Feira.

Tudo o que você se aprende com luta, pode se dar aula depois.

Quem conseguir domar o cursor no exemplo abaixo, irá ajudar 2 Paulo's.

Coloquem qualquer coisa no código e tentem digitar 1000 na quantidade sem usar o mouse ou seta a esquerda.

** TESTE.PRG

#include "FiveWin.ch"

PRIV wfonte_FixedSys

DEFINE FONT wfonte_FixedSys NAME "FixedSys" SIZE 10,10

PRIV oProdu,oQt,oVrun,oDlg

PRIV wProdu:=spac(10),wQt:=0,wVrun:=0

DEFINE DIALOG oDlg FROM 0, 0 TO 300,450 TITLE "Pedidos - Produtos" PIXEL ;

FONT wfonte_FixedSys

@ 01,10 GET oProdu VAR wProdu PICT "@!" OF oDlg SIZE 44,10 VALID PESQPRODU( oDlg )

@ 03,10 GET oQt VAR wQt PICT "999999" OF oDlg SIZE 28,10 VALID PESQQT( oDlg )

@ 05,10 GET oVrun VAR wVrun PICT "999,999.99" OF oDlg SIZE 44,10

@ 07,10 BUTTON "&Sair" OF oDlg ACTION ( oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

CANCEL

FUNC PESQPRODU( oDlg )

IF wProdu=spac(10)

retu(.f.)

ELSE

wQt:=1

oQt:Varput(wQt)

oQt:SetPos(0)

oQt:Refresh()

wVrun:=8.95

oVrun:Varput(wVrun)

oVrun:SetPos(0)

oVrun:Refresh()

retu(.t.)

ENDIF

FUNC PESQQT( oDlg )

IF wQt=0

retu(.f.)

ELSE

if wQt < 100

wVrun:=10.00

else

wVrun:=8.95

endif

oVrun:Refresh()

retu(.t.)

ENDIF

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Editado por - pauloaraujo on 07/08/2005 18:27:29

---

id=quote>id=quote>

Amigos,

Tem como alguém compilar esse exemplo em FW puro e retornar como se comporta o cursor.

Coloquem qualquer coisa no código e tentem digitar 1000 na quantidade sem usar o mouse ou seta a esquerda.

O Evandro já retornou que em xHarbour o problema não ocorre.

Estarão ajudando 2 Paulo's.

Obrigado

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Editado por - pauloaraujo on 08/08/2005 10:45:31

[betovsp]

Paulo, comigo também ocorreu o problema, na funcão pesqprodu(), tirei essa variavel e funcionou legal:

oQt:Varput(wQt). Tenta aí.

Abraços.

Beto

betovsp@hotmail.com

(16)9148-1515

CL53B + FW2.0 + @ SAY + BLINKER 7

Ribeirão Preto/SP

[Paulo1361303230]

Valeu Beto

Vou tentar tb

Obrigado

Paulo

[pauloaraujo]

citação:

Paulo, comigo também ocorreu o problema, na funcão pesqprodu(), tirei essa variavel e funcionou legal:

oQt:Varput(wQt). Tenta aí.

Abraços.

Beto

betovsp@hotmail.com

(16)9148-1515

CL53B + FW2.0 + @ SAY + BLINKER 7

Ribeirão Preto/SP

---

id=quote>id=quote>

Beto,

Retirei e não deu certo. O problema continua. Notei que você usa o FW 2.0 e eu o 2.6.

Vou mandar esse material para a Virtual e ver no que dá. Assim que tiver uma resposta retorno ao Fórum.

Obrigado e abraços.

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Prestigiem o III Encontro de Usuários de Fivewin

[Kbelo]

bom eu ja tive muito problema com o foco mas foi com xHarbour e uso WS

mas veja como contorno esse problema

OGET1:REFRESH()

OGET2:OJUMP:=OGET1

OGET1:SETFOCUS()

OGET1:REFRESH()

Sendo o OGET1 onde voce tentam fazer que o cursor se posicione e o dois o ultimo get que ele passou pode ser com botao tambem isso funciona legalsinho mas volto a repetir uso WS e xHarbour mas nao custa tentar

Marcelo Michels Alexandre

Criciúma - SC

Celo.michels@ibestvip.com.br

marcelo@lorenzi.com.br

[kapiaba]

/*

Kapiaba, Tudo Bem??

Desculpe-me estar abusando. Mandei uma cópia deste também para o Beto,

que usa FW e não xHarbour.

Você poderia dar uma olhadinha nesse exemplo e ver como o cursor está se

comportando?? Todo mundo fala que não ocorre com eles.

Coloque qualquer coisa no codigo e tente digitar 1000 na quantidade sem usar

o mouse ou a seta a esquerda.

Se possível responder no tópico colocado pelo meu xará:

RETORNO DO CURSOR (COMO PROCEDER?)

Obrigado desde já.

Paulo Araújo/CONTATO SISTEMAS

*/

** TESTE.PRG

#Include "FiveWin.Ch"

FUNCTION TESTE()

LOCAL oDlg, WFONTE_FIXEDSYS

MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN

WPRODU := SPACE(10)

WQT := 0

WVRUN := 0

DEFINE FONT wfonte_FixedSys NAME "FixedSys" SIZE 10,10

DEFINE DIALOG oDlg FROM 0, 0 TO 300,450 ;

TITLE "Pedidos - Produtos" PIXEL ;

FONT wfonte_FixedSys

@ 01,10 GET oProdu VAR wProdu PICTURE "@!" OF oDlg ;

SIZE 50, 12 ;

CENTER ;

VALID PESQPRODU( oDlg )

@ 03,10 GET oQt VAR wQt PICTURE "@K 9999.99" OF oDlg ;

SIZE 50, 12 ;

CENTER ;

VALID PESQQT( oDlg )

@ 05,10 GET oVrun VAR wVrun PICTURE "@KE 999,999.99" OF oDlg ;

SIZE 50, 12 ;

CENTER

@ 07,10 BUTTON "&Sair" OF oDlg ACTION( oDlg:End() ) CANCEL

ACTIVATE DIALOG oDlg CENTERED

EndDialog()

GlobalFree()

Release All

ResAllFree()

RETURN NIL

FUNC PESQPRODU( oDlg )

MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN

IF wProdu = SPACE(10)

MsgInfo( OemToAnsi( "Busca Inv lida " ), "Erro Geral" )

RETURN( .F. )

ELSE

wQt := 1

oQt:Varput(wQt)

oQt:SetPos(0)

oQt:Refresh()

wVrun := 8.95

oVrun:Varput(wVrun)

oVrun:SetPos(0)

oVrun:Refresh()

RETURN( .T. )

ENDIF

RETURN NIL

FUNC PESQQT( oDlg )

MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN

IF wQt = 0

MsgInfo( OemToAnsi( "Digite Um Valor V lido " ), "Erro de Valor" )

RETURN( .F. )

ELSE

IF wQt < 100

wVrun := 10.00

ELSE

wVrun := 8.95

ENDIF

oVrun:Refresh()

ENDIF

RETURN( .T. )

// FIM DO PROGRAMA

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

[pauloaraujo]

Kapiaba, obrigado pela resposta.

Mas...... não funcionou. Substitui o meu pelo seu totalmente.

O Cursor para ao lado do |1.00 quando deveria parar 3 casas antes | 1.00 para que eu se pudesse digitar 1000.00 sem precisar do mouse ou da seta.

Você chegou a compilar o seu e deu certo????

Um abraço

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Prestigiem o III Encontro de Usuários de Fivewin

[Kleyton]

Fiz o teste com este material que o Kapiaba acabara de postar, e aqui deu certo. Quando digito algo no primeiro campo, já passo para o segundo campo na posição correta...

Kleyton

Clipper5.2E+Clipper5.3b+Blink7+FW2.0d

cleitonbala@bol.com.br

[pauloaraujo]

citação:

Fiz o teste com este material que o Kapiaba acabara de postar, e aqui deu certo. Quando digito algo no primeiro campo, já passo para o segundo campo na posição correta...

Kleyton

Clipper5.2E+Clipper5.3b+Blink7+FW2.0d

cleitonbala@bol.com.br

---

id=quote>id=quote>

Kleyton, obrigado por retornar.

Você digitou uma quantidade com 4 dígitos??? Eu também já consegui posicionar o cursor no lugar correto, mas quando digito alguma coisa ele provoca o erro de posicionamento novamente.

Você usa FW 2.0, o mesmo do Beto.

Como disse, matei o que tinha feito e copiei igualzinho o exemplo do Kapiaba, e nada...... O Cursor para ao lado do número 1.00 da quantidade quando deveria parar no início do GET. A única diferença é a versão do FW.

Isso só acontece com variáveis numéricas. Nas demais tudo OK.

Já passei um E-Mail para a Virtual. Vou aguardar.

Um abraço e conte comigo naquilo que puder.

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Prestigiem o III Encontro de Usuários de Fivewin

[kapiaba]

Vou checar de novo... Funcionou perfeito. Wait-me please.

Karroça é karroça... hehehehe.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

[kapiaba]

/*

Tente Agora Paulo - Segunda Versao

*/

** TESTE.PRG

#Include "FiveWin.Ch"

FUNCTION TESTE()

LOCAL oDlg, WFONTE_FIXEDSYS

MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN

WPRODU := SPACE(10)

WQT := 0

WVRUN := 0

DEFINE FONT wfonte_FixedSys NAME "FixedSys" SIZE 10,10

DEFINE DIALOG oDlg FROM 0, 0 TO 300,450 ;

TITLE "Pedidos - Produtos" PIXEL ;

FONT wfonte_FixedSys

@ 01,10 GET oProdu VAR wProdu PICTURE "@!" OF oDlg ;

SIZE 50, 12 ;

CENTER ;

VALID PESQPRODU( oDlg )

@ 03,10 GET oQt VAR wQt PICTURE "@K 9999.99" OF oDlg ;

SIZE 50, 12 ;

CENTER ;

VALID PESQQT( oDlg )

@ 05,10 GET oVrun VAR wVrun PICTURE "@KE 999,999.99" OF oDlg ;

SIZE 50, 12 ;

CENTER

@ 07,10 BUTTON "&Sair" OF oDlg ACTION( oDlg:End() ) CANCEL

ACTIVATE DIALOG oDlg CENTERED

EndDialog()

GlobalFree()

Release All

ResAllFree()

RETURN NIL

FUNC PESQPRODU( oDlg )

MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN

IF wProdu = SPACE(10)

MsgInfo( OemToAnsi( "Busca Inv lida " ), "Erro Geral" )

RETURN( .F. )

ELSE

wQt := 1.00

oQt:Varput(wQt)

oQt:bGotFocus := { || oQt:SetPos( 0 ), Nil }

// oQt:SetPos(0)

oQt:Refresh()

oQt:SetFocus()

wVrun := 8.95

oVrun:Varput(wVrun)

oVrun:bGotFocus := { || oVrun:SetPos( 0 ), Nil }

//oVrun:SetPos(0)

oVrun:Refresh()

oVrun:SetFocus()

RETURN( .T. )

ENDIF

RETURN NIL

FUNC PESQQT( oDlg )

MEMVAR WPRODU, OPRODU, WQT, WVRUN, OQT, OVRUN

IF wQt = 0

MsgInfo( OemToAnsi( "Digite Um Valor V lido " ), "Erro de Valor" )

RETURN( .F. )

ELSE

IF wQt < 100

wVrun := 10.00

ELSE

wVrun := 8.95

ENDIF

oVrun:Refresh()

ENDIF

RETURN( .T. )

// FIM DO PROGRAMA

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

[pauloaraujo]

citação:

Vou checar de novo... Funcionou perfeito. Wait-me please.

Karroça é karroça... hehehehe.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br - 1 GB de Espaço.

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

---

id=quote>id=quote>

É mesmo. Panela velha é que faz comida boa!!!!!

Olhe abaixo: seu exemplo + FW26 + Clipper53b + blinker70

É de deixar qualquer um louco. Gente, é só um exemplo. Imaginem um sistema de grande porte. Já tenho 2 módulos que estão meia boca por causa disso, em que, após digitar um código, atualizo o valor do GET imediatamente abaixo e PIMBA!!!!

BLINKER CLIPPER SYMBOL OFF

BLINKER LINK VERSION 7.0

// BLINKER EXECUTABLE COMPRESS 1

BLINKER EXECUTABLE ALIGNMENT 128

NOBELL

BLINKER INCREMENTAL OFF

BLINKER PROCEDURE DEPTH 90

PACKCODE

PACKDATA

FILE TESTE

FILE C:\CLIP53\OBJ\__WAIT

FILE C:\BLINKER7\OBJ\MPAR

FILE C:\CLIP53\OBJ\VMW

OUTPUT TESTE

DEFBEGIN

name FiveWin

description 'TESTE - Contato Sistemas'

exetype Windows 3.1

code moveable discardable preload

data preload moveable

stacksize 18000

heapsize 8520

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

LIB \FW\LIB\Five

LIB \FW\LIB\FiveC

LIB \FW\LIB\Objects

LIB \FW\LIB\WinApi

LIB \CLIP53\LIB\Clipper

// LIB \CLIP53\LIB\DbfCdx , \CLIP53\LIB\_DbfCdx

LIB \CLIP53\LIB\Extend

LIB \CLIP53\LIB\Terminal

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Prestigiem o III Encontro de Usuários de Fivewin

[pauloaraujo]

Kapiaba,

BINGO!!!!!! BOLA SETE NA CAÇAPA!!!!!!

Essa vai ficar para a biblioteca do FW.

Você sabe o que fez dar certo??????

Não foi o BgOTfOCUS.

Naquela função PESQPRODU, o foco deveria ir para oQt, mas você deixou na última linha:

oVrun:SetFocus()

Quer dizer, ele não te obedeceu e foi para oQt, sem o erro.

O problema foi transferido para a função PESQQT cujo foco deveria ir para oVrun.

No final dela eu menti e ela caiu.

Deveria ser oVrun:SetFocus() mas eu coloquei oQt:SetFocus().

Agora, se eu tiver que continuar a "mentir" para o sistema, imagine o tamanho do meu nariz???

Um abraço.

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

Prestigiem o III Encontro de Usuários de Fivewin