ComeÃ§o FW

flpcrz · December 7, 2005

Nao .. era q eu esqueci do static function.... esse ai Ã© um browser..... chamo ele no menu... sao dois prgs.. ou seja esse static function nao poderia estar ai ne... rsrs... abraÃ§oss.. jaja eu volto com mais duvidas..

flpcrz · December 7, 2005

Kapiaba.. quer me ajudar mais um pouquinho? rsrs

bom outro problema.. quer q eu te envie o prg.. evc de uma olhada?

kapiaba · December 7, 2005

citaÃ§Ã£o:
Kapiaba.. quer me ajudar mais um pouquinho? rsrs

bom outro problema.. quer q eu te envie o prg.. evc de uma olhada?

id=quote>id=quote>

SEM PROBLEMAS, NAO MANDE SO O PRG, ZIP TUDO E ENVIE, POIS JÃ DESTRUI SUA PASTA. EXPLIQUE NO MODULO, O QUE VOCE QUER FAZER... SE BEM QUE EU NAO ESTOU MAIS DE 'FUSKINHA'. HEHEHE

FIVEWIN 2.7 FOR XHARBOUR->FERRARI VERMELHINHA.

O link para download do projeto xDev Ã© este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

kapiaba · December 7, 2005

FOI PRA CONTA... VAI CONTANDO AS BRAHMAS.

SOLUÃ‡ÃƒO: QUANDO CRIAR UMA BROWSE EM UMA DIALOG, CERTIFIQUE-SE, QUE ELA Ã‰ UMA TWBROWSE. SE FOR TSBROWSE, VOCE PRECISA INCORPORAR A CLASSE TSBROWSE... APRENDA A DISCRIMINA-LAS.

O link para download do projeto xDev Ã© este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

Editado por - kapiaba on 07/12/2005 13:28:54

flpcrz · December 7, 2005

Ok vlw... Ã© to contando pelo jeito to individado... rsrs abraÃ§os

flpcrz · December 8, 2005

Bom dia.. mais um problema.. hehe

Seguinte tenho meu browse la .. ai clico no botÃ£o modificar... a telinha de clientes deveria aparecer com as informaÃ§Ãµes ja pro usuario modificar.. mas nem imagino como faz... pode me ajudar?

obrigado

kapiaba · December 8, 2005

citaÃ§Ã£o:
Bom dia.. mais um problema.. hehe

Seguinte tenho meu browse la .. ai clico no botÃ£o modificar... a telinha de clientes deveria aparecer com as informaÃ§Ãµes ja pro usuario modificar.. mas nem imagino como faz... pode me ajudar?

obrigado

id=quote>id=quote>

VEJA NO FW..\SAMPLES

TESTGETR.PRG

TESTGET4.PRG

E TUDO O QUE TIVER GETS...

O link para download do projeto xDev Ã© este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

flpcrz · December 12, 2005

Ola colegas podem me ajudar nisso.:

#INCLUDE "FiveWin.ch"

STATIC oWnd

FUNCTION MAIN ()

local oMenu

DEFINE BRUSH oBru STYLE BORLAND

DEFINE WINDOW oWnd TITLE "TESTE DE FOLDER" BRUSH oBru BORDER SINGLE ;

MENU FirstMenu()

ACTIVATE WINDOW oWnd MAXIMIZED

SetResources( ".\BWCC.DLL" )

SetResources( ".\FOLDER.DLL" )

RETURN nil

FUNCTION FirstMenu()

MENU oMenu

MENUITEM "OpÃ§Ã£o 1" ACTION MyFolder()

MENUITEM "OpÃ§Ã£o 2" ACTION MyTeste()

MENUITEM "Sair" ACTION oWnd:End()

ENDMENU

return oMenu

FUNCTION MyFolder()

LOCAL oDlg, oFld, oLbx

DEFINE DIALOG oDlg RESOURCE "oFld_1"

REDEFINE FOLDER oFld ID 101 OF oDlg ;

PROMPTS "Folder1", "Folder2" ;

DIALOGS "oDlg_Cli1","oDlg_Cli2"

REDEFINE LISTBOX oLbx FIELDS ;

ID 101 OF oFld:aDialogs[ 1 ]

REDEFINE LISTBOX oLbx FIELDS ;

ID 101 OF oFld:aDialogs[ 2 ]

ACTIVATE DIALOG oDlg CENTERED

RETURN nil

FUNCTION MyTeste()

RETURN nil

Da um erro no activate dialog... diz q nao pode abrir a caixa de dialogs.... mas pq???.. tao simples.... abraÃ§os

kapiaba · December 12, 2005

ACTIVATE WINDOW oWnd MAXIMIZED

SetResources( ".\BWCC.DLL" )

SetResources( ".\FOLDER.DLL" )

RETURN nil

ISTO ESTÃ CORRETO??? VEJA NO SAMPLES, SE VOCE ACHA ALGO SEQUER PARECIDO... OLHE SEMPRE OS EXEMPLOS ANTES.

O link para download do projeto xDev Ã© este:

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

flpcrz · December 12, 2005

Opa vlw eu inverti mesmo as posiÃ§Ãµes mas ali no mesmo prg..... ele nao muda de pastinha.... as q eu nomei de folder1 e 2.. ele nao muda... trava e nem muda e nem sai.... estranho.... abraÃ§os

Manoel Marinho · December 12, 2005

Felipe, queime as pestanas que vale a pena, sou ex-clipeiro, trabalho a 2 anos com FWH/xHarbour e nÃ£o saio dessa dupla nunca mais.

AbraÃ§os.

flpcrz · December 15, 2005

Pessoal mais um problema.:

#INCLUDE "FiveWin.ch"

//---------------------------------------------------------------------------

FUNCTION fBrwClie()

LOCAL oLbx

LOCAL oDlg

LOCAL oRadioButtons

LOCAL nOrder :=1

USE DFbClie NEW ALIAS Clientes SHARED

INDEX ON Nom_Clie TO Client02

INDEX ON Cod_Clie TO Client01

DEFINE DIALOG oDlg FROM 3, 3 TO 26, 100 TITLE OemToAnsi("Lista de Clientes");

@ 3, 1 LISTBOX oLbx ;

FIELDS Clientes->Cod_Clie,;

Clientes->Nom_Clie,;

Clientes->Cid_Clie;

FIELDSIZES 60, 380,200 ;

HEADERS "CÃ³digo", "Nome", "Cidade" ;

SIZE 300, 110;

ON LEFT DBLCLICK fCadClie( oLbx, 2 ) ;

OF oDlg

@ 13, 1 BUTTON "&Incluir" OF oDlg ;

ACTION fCadClie( oLbx, 1 ) SIZE 40, 12

@ 13, 9 BUTTON "&Alterar" OF oDlg ;

ACTION fCadClie( oLbx, 2 ) SIZE 40, 12

@ 13, 17 BUTTON "&Excluir" OF oDlg ;

ACTION fCadClie( oLbx, 3 ) SIZE 40, 12

@ 13, 25 BUTTON "&Consultar" OF oDlg ;

ACTION fCadClie( oLbx, 4 ) SIZE 40, 12

@ 13, 33 BUTTON "&Pesquisar" OF oDlg ;

ACTION fBusca( oLbx, nOrder ) SIZE 40, 12

@ 13, 41 BUTTON "&Imprimir" OF oDlg ;

ACTION fImpClie( oLbx ) SIZE 40, 12

@ 13, 49 BUTTON "&Sair" OF oDlg ;

ACTION oDlg:End() SIZE 40, 12

ACTIVATE DIALOG oDlg CENTER

USE

RETURN( NIL )

//---------------------------------------------------------------------//

FUNCTION fCadClie(oLbx , nAppend )

LOCAL oDlg

LOCAL oEst := " ", oRbPfj, oRbCon,wObs_Clie,wCon_Sumi

HBBORLAND:=LoadLibrary("BWCCPTB.DLL")

aEstado := {"AC","AL","AP","AM","BA","CE","DF","ES","GO","MA","MG","MS","MT","PA","PB","PR","PE","PI","RJ","RN","RS","RO","RR","SC","SP","SE","TO"}

IF nappend = 1

wCod_Clie := SPACE(4)

wNom_Clie := SPACE(50)

wPfj_Clie := SPACE(1)

wEst_Clie := SPACE(2)

wCgc_Clie := SPACE(14)

wIns_Clie := SPACE(20)

wFn1_CLie := SPACE(15)

wFn2_Clie := SPACE(15)

wFax_Clie := SPACE(15)

wCel_Clie := SPACE(15)

wEml_Clie := SPACE(40)

wCon_Clie := SPACE(50)

wEnd_Clie := SPACE(40)

wBai_CLie := SPACE(15)

wCid_Clie := SPACE(20)

wCep_Clie := SPACE(8)

wCod_Vend := SPACE(2)

wCod_Tran := SPACE(4)

wFan_Clie := SPACE(15)

ELSE

wCod_Clie := Clientes->Cod_Clie

wNom_Clie := Clientes->Nom_Clie

wPfj_Clie := Clientes->Pfj_Clie

wEst_Clie := Clientes->Est_Clie

wCgc_Clie := Clientes->Cgc_Clie

wIns_Clie := Clientes->Ins_Clie

wFn1_CLie := Clientes->Fn1_Clie

wFn2_Clie := Clientes->Fn2_Clie

wFax_Clie := Clientes->Fax_Clie

wCel_Clie := Clientes->Cel_Clie

wEml_Clie := Clientes->Eml_Clie

wCon_Clie := Clientes->Con_Clie

wEnd_Clie := Clientes->End_Clie

wBai_CLie := Clientes->Bai_Clie

wCid_Clie := Clientes->Cid_Clie

wCep_Clie := Clientes->Cep_Clie

wCod_Vend := Clientes->Cod_Vend

wCod_Tran := Clientes->Cod_Tran

wFan_Clie := Clientes->Fan_Clie

ENDIF

DEFINE DIALOG oDlg RESOURCE "Cad_Clie" ;

TITLE "Gerenciador de Clientes "

lAppend := IIF(STR(nAppend,1) $ "1_2_",.t.,.f.)

REDEFINE GET wCod_Clie ID 401 OF oDlg UPDATE PICTURE "9999" VALID fClie01( ) WHEN lAppend

REDEFINE GET wNom_Clie ID 403 OF oDlg UPDATE PICTURE "@!" VALID fClie02( ) WHEN lAppend

REDEFINE GET wFan_Clie ID 402 OF oDlg UPDATE PICTURE "@!" WHEN lAppend

REDEFINE GET wCgc_Clie ID 404 OF oDlg UPDATE PICTURE IIF(wPfj_Clie="J","@r 99.999.999/9999-99","999.999.999-99") WHEN lAppend

REDEFINE GET wIns_Clie ID 405 OF oDlg UPDATE PICTURE "@X" WHEN lAppend

REDEFINE GET wFn1_Clie ID 406 OF oDlg UPDATE PICTURE "@X" WHEN lAppend

REDEFINE GET wFn2_Clie ID 407 OF oDLG UPDATE PICTURE "@X" WHEN lAppend

REDEFINE GET wFax_Clie ID 410 OF oDlg UPDATE PICTURE "@X" WHEN lAppend

REDEFINE GET wCel_Clie ID 408 OF oDlg UPDATE PICTURE "@X" WHEN lAppend

REDEFINE GET wCod_Vend ID 412 OF oDlg UPDATE PICTURE "99" WHEN lAppend

REDEFINE GET wEnd_Clie ID 414 OF oDlg UPDATE PICTURE "@!" WHEN lAppend

REDEFINE GET wBai_Clie ID 416 OF oDlg UPDATE PICTURE "@!" WHEN lAppend

REDEFINE GET wCep_Clie ID 415 OF oDlg UPDATE PICTURE "@r 99999-999" WHEN lAppend

REDEFINE GET wCid_Clie ID 417 OF oDlg UPDATE PICTURE "@!" WHEN lAppend

REDEFINE GET wEml_Clie ID 409 OF oDlg UPDATE PICTURE "@X" WHEN lAppend

REDEFINE GET wCod_Tran ID 413 OF oDlg UPDATE PICTURE "9999" WHEN lAppend

Redefine RADIO oRbPfj VAR wPfj_Clie id 113,118 OF oDlg UPDATE

Redefine COMBOBOX oEst VAR wEst_Clie ITEMS aEstado id 418 OF oDlg UPDATE

// Redefine COMBOBOX oEst VAR wEst_Entr ITEMS aEstado id 130 OF oDlg UPDATE

// Redefine COMBOBOX oEst VAR wEst_Cobr ITEMS aEstado id 131 OF oDlg UPDATE

//Redefine BUTTON id 105 OF oDlg ACTION (fSalvar(nAppend), oDlg:End() )

SET RESOURCES TO "FOLDER.DLL"

IF nAppend =1

wEst_Entr := SPACE(2)

wEst_Cobr := SPACE(2)

wCod_Vend := SPACE(2)

wEnd_Cobr := SPACE(40)

wBai_Cobr := SPACE(15)

wCep_Cobr := SPACE(8)

wEnd_Entr := SPACE(40)

wBai_Entr := SPACE(15)

wCep_Entr := SPACE(8)

wSeg_Merc := SPACE(2)

wCon_Sumi := SPACE(1)

wObs_Clie := SPACE(80)

wLim_Cred := 0

wCod_Oper := SPACE(3)

wCid_Cobr := SPACE(20)

wCid_Entr := SPACE(20)

ELSE

wEst_Entr := Clientes->Est_Entr

wEst_Cobr := Clientes->Est_Cobr

wCod_Vend := Clientes->Cod_Vend

wEnd_Cobr := Clientes->End_Cobr

wBai_Cobr := Clientes->Bai_Cobr

wCep_Cobr := Clientes->Cep_Cobr

wEnd_Entr := Clientes->End_Entr

wBai_Entr := Clientes->Bai_Entr

wCep_Entr := Clientes->Cep_Entr

wSeg_Merc := Clientes->Seg_Merc

wCon_Sumi := Clientes->Con_Sumi

wObs_Clie := Clientes->Obs_Clie

wLim_Cred := Clientes->Lim_Cred

wCod_Oper := Clientes->Cod_Oper

wCid_Cobr := Clientes->Cid_Cobr

wCid_Entr := Clientes->Cid_Entr

ENDIF

DEFINE DIALOG oDlg resource "Cad_Clie" of oDlg

lAppend := IIF(STR(nAppend,1) $ "1_2_",.t.,.f.)

REDEFINE FOLDER oFld ID 100 OF oDlg PROMPT "CobranÃ§a","Entrega","Estatisticas","ObservaÃ§Ãµes" DIALOGS "Cobr_Clie","Entr_Clie","Esta_Clie","Obs_Clie"

REDEFINE GET wEnd_Cobr ID 201 OF oFld:adialogs[1] PICTURE "@X" WHEN nAppend

REDEFINE COMBOBOX oEst VAR wEst_Cobr ITEMS aEstado ID 205 OF oFld:adialogs[1] UPDATE WHEN nAppend

REDEFINE GET wBai_Cobr ID 202 OF oFld:adialogs[1] PICTURE "@!" WHEN nAppend

REDEFINE GET wCep_Cobr ID 203 OF oFld:adialogs[1] PICTURE "@r 99999-999" WHEN nAppend

REDEFINE GET wEnd_Entr ID 301 OF oFld:adialogs[2] PICTURE "@!" WHEN nAppend

REDEFINE GET wBai_Entr ID 302 OF oFld:adialogs[2] PICTURE "@!" WHEN nAppend

REDEFINE GET wCep_Entr ID 303 OF oFld:adialogs[2] PICTURE "@r 99999-999" WHEN nAppend

REDEFINE COMBOBOX oEst VAR wEst_Entr ITEMS aEstado ID 305 OF oFld:adialogs[2] UPDATE WHEN nAppend

REDEFINE GET wSeg_Merc ID 105 OF oFld:adialogs[3] PICTURE "99999" WHEN nAppend

REDEFINE GET wCon_Sumi ID 102 OF oFld:adialogs[3] PICTURE "99999" WHEN nAppend

REDEFINE GET wObs_Clie ID 101 OF oFld:adialogs[4] PICTURE "@!" WHEN nAppend

REDEFINE GET wLim_Cred ID 106 OF oFld:adialogs[3] PICTURE "99999" WHEN nAppend

REDEFINE GET wCod_Oper ID 101 OF oFld:adialogs[3] PICTURE "99999" WHEN nAppend

REDEFINE GET wCid_Cobr ID 204 OF oFld:adialogs[1] PICTURE "@X" WHEN nAppend

REDEFINE GET wCid_Entr ID 304 OF oFld:adialogs[2] PICTURE "@X" WHEN nAppend

REDEFINE RADIO oRbCon VAR wCon_Sumi id 103,104 OF oFld:adialogs[3] UPDATE WHEN nAppend

REDEFINE BUTTON ID 122 OF oDlg ACTION (fSalvar(nAppend), oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

return .t.

//-------------------------------------------------------------------------//

FUNCTION fSalvar(nAppend)

IF nAppend = 1

Clientes->(DBAPPEND())

ENDIF

if RLOCK()

REPLACE Clientes->Cod_Clie WITH wCod_Clie ,;

Clientes->Nom_Clie WITH wNom_Clie

else

? "nao conseguiu travar registro cliente"

endif

DBUNLOCK()

RETURN (.t.)

//-----------------------------------------------------------------

FUNCTION DelClie( oLbx )

IF MsgYesNo( OemToAnsi( "AtenÃ§Ã£o:" ) + CRLF + ;

OemToAnsi( "Quer faze-lo? " + ;

"Quer apagar o registro" )+CRLF+CRLF+;

( CLIENTES->Nom_Clie ), "C u i d a d o ! !" )

DELETE

PACK

oLbx:Refresh()

ENDIF

RETURN( NIL )

//------------------------------------------------------------//

FUNCTION fBusca( oLbx, nOrder )

LOCAL nCliente := 0

LOCAL cNombre := SPACE(30)

// LOCAL nRecNo := RecNo()

SET SOFTSEEK ON

IF MsgGet( "Buscar por", IF( nOrder=1, "Codigo", "Nome" ) + " do Cliente",;

IF( nOrder=1, @nCliente, @cNombre ),;

"lupa.bmp" )

IF ! DbSeek( IF( nOrder=1, nCliente, cNombre ))

nMsgBox( "NÃ†o consta no registro de Cliente", OemToAnsi( "Atenâ€¡Ã†o" ) )

// GO nRecNo

ELSE

oLbx:UpStable()

oLbx:Refresh()

ENDIF

RETURN( NIL )

//----------------------------------------------------------//

FUNCTION Orden(nOrder,oLbx)

IF nOrder=1

SET INDEX TO Client01

ELSE

SET INDEX TO Client02

ENDIF

oLbx : Refresh()

RETURN NIL

//----------------------------------------------------------//

FUNCTION fSair()

IF MsgYesNo( OemToAnsi("Deseja Sair ?"), "Saindo do Sistema" )

oVentPrinc:End()

ENDIF

RETURN NIL

//----------------------------------------------------------//

FUNCTION fCampo( cCampo )

IF EMPTY( cCampo )

ALERT( "Este campo nÃ†o pode estar vazio" )

RETURN( .F. )

ENDIF

RETURN( .T. )

//-----------------------------------------------------------//

STATIC FUNCTION fImpClie()

RETURN (.t.)

STATIC FUNCTION fClie01()

RETURN (.t.)

STATIC FUNCTION fClie02()

RETURN (.t.)

oerro no activate dialog.. pq

?

kapiaba · December 15, 2005

POR ISSO:

SET RESOURCES TO "FOLDER.DLL"

ISTO, VOCE POE NO MENU PRINCIPAL.

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

CTOAS · December 15, 2005

citaÃ§Ã£o:
Ok vlw... Ã© to contando pelo jeito to individado... rsrs abraÃ§os

id=quote>id=quote>

Cuidado pro pessoal nÃ£o te cobrar em brejas !!!! hehehehe

laurenti · December 15, 2005

Cristiano, essa toquinha sei nao heim ? rsrsrsrsrsrs

Laurentinomoc@hotmail.com

Rio/Montes Claros.MG

flpcrz · December 20, 2005

Oi pessoal.. estpi montando ai uma listbox.. mas ela nao entra.. o erro indica no Activate dIALOG....

FUNCTION Mainlist()

local oDlg, oLbx, oSay

local nItem := "Two"

HBBORLAND:=LoadLibrary("BWCCPTB.DLL")

SET RESOURCES TO "FOLDER.DLL"

DEFINE DIALOG oDlg RESOURCE "LIST_PMTR" ;

TITLE "OpÃ§Ãµes de ParÃ¢metros"

aPmtr := ;

aAuxi := {}

AADD(aPmtr,"Sigla e DescriÃ§Ã£o da Moeda Corrente ")

AADD(aAuxi,{08,39,{|| fPmtr01() },1}) // Moeda

AADD(aPmtr,"CÃ³digo do Ãšltimo Cliente ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultimo Cliente

AADD(aPmtr,"NÃºmero e Data do Ãšltimo Pedido ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultimo pedido

AADD(aPmtr,"CÃ³digo do Ãšltimo Grupo ")

AADD(aAuxi,{05,11,{|| fPmtr01() },1}) // Ultimo Grupo

AADD(aPmtr,"CÃ³digo da Ãšltima DimensÃ£o ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultima Dimensao

AADD(aPmtr,"CÃ³digo da Ãšltima Classe de Produto ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultima classe

AADD(aPmtr,"CÃ³digo do Ãšltimo Tipo de Acabamento ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultimo acabamento

REDEFINE LISTBOX oLbx VAR nItem ITEMS aPmtr ID 101 OF oDlg ON CHANGE oSay:Refresh()

REDEFINE BUTTON ID 102 OF oDlg ACTION fPmtr00(oLbx, 2)

REDEFINE BUTTON ID 104 OF oDlg ACTION fPmtr00(oLbx, 4)

REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FiveWin 2.3, Clipper 5.2e, Blinker 7.0 e WS

kapiaba · December 20, 2005

OLA... COMECE OUTRO TOPICO, POIS VOCE JÃ ESTÃ MISTURANDO AS BOLAS.

ESTE MODULO Ã‰ UM MENU PRINCIPAL, OU UM MODULO DE TESTES??

ONDE VOCE TEM OBJETO SAY PARA REFRESCAR??? E PORQUE PRECISA REFRESCAR OS SAYS???

PORQUE ESTA ABRINDO AS DLLS NO MODULO??? NAO TEM UM MENU PRINCIPAL??

NAO COMECE ERRADO, QUE VOCE VAI TERMINAR ERRADO.

TEM ERRO DE ARRAY ACCESS?? SE SIM, O BANCO ESTA MUITO GRANDE.

VOCE JÃ DOMINOU COMO FUNCIONA OS FOLDERS???

PRESTE ATENÃ‡AO NAS PERGUNTAS... E VA PARA OUTRO TOPICO.

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

kapiaba · December 20, 2005

aPmtr := ;

aAuxi := {}

AADD(aPmtr,"Sigla e DescriÃ§Ã£o da Moeda Corrente ")

AADD(aAuxi,{08,39,{|| fPmtr01() },1}) // Moeda

AADD(aPmtr,"CÃ³digo do Ãšltimo Cliente ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultimo Cliente

AADD(aPmtr,"NÃºmero e Data do Ãšltimo Pedido ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultimo pedido

AADD(aPmtr,"CÃ³digo do Ãšltimo Grupo ")

AADD(aAuxi,{05,11,{|| fPmtr01() },1}) // Ultimo Grupo

AADD(aPmtr,"CÃ³digo da Ãšltima DimensÃ£o ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultima Dimensao

AADD(aPmtr,"CÃ³digo da Ãšltima Classe de Produto ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultima classe

AADD(aPmtr,"CÃ³digo do Ãšltimo Tipo de Acabamento ")

AADD(aAuxi,{05,13,{|| fPmtr01() },1}) // Ultimo acabamento

ISTO, DEVERIA ESTAR ANTES DO DEFINE DIALOG...

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

kapiaba · December 20, 2005

HBBORLAND:=LoadLibrary("BWCCPTB.DLL")

ISTO Ã‰ PARA WINDOWS XP / 2000

ESTAS USANDO XP OU 2000??? SENAO, ABRA A BWCC.DLL NORMAL.

http://www.sqllib.com.br/xDev.zip

http://www.sqlmanager.net/en/products/mysql/manager/download

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIP 5.3B FWH 2.7 - BLINKER 7.0 WorkShop.Exe

ComeÃ§o FW

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation