ComeÃ§o FW

flpcrz · December 5, 2005

ok e obrigado

flpcrz · December 5, 2005

II cara faio...

______________________________

IF NOT ERRORLEVEL 1 VIDEO.EXE

Comando ou nome de arquivo invÃ¡lido

---------------------------------------

deu isso ai....

kapiaba · December 5, 2005

QUAL Ã‰ A VERSAO DO SEU FIVEWIN?

QUAL A VERSAO DO SEU CLIPPER?

QUAL A VERSAO DO SEU BLLINKR?

QUAIS OS DIRETORIOS QUE ELES ESTAO INSTALADOS?

ESTAIS COM SORTE HOJE, POIS TENHO UMA FERRARI VERMELHINHA, E UM TIME CAMPEAO... ENTAO ABUSE E USE DA MINHA PACIENCIA. AbraÃ§os.

fivewin 2.7 for xharbour -> ferrari vermelhinha. hehehehe

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 5, 2005

FIVE 2.3 BLINKER 7.0 e CLIPPER 5.2, ja modifiquei isso tudo no lnk.. eles estÃ£o no e:\vitor.... todos... isso eu ja fiz, mas mesmo assim nao entra

e se estver atrapalhando vc me desculpe.. pois comecei agora a mecher com isso.... sei q as vezes encho o saco mas..... quero aprender... abraÃ§os

kapiaba · December 5, 2005

e:\vitor??? FIVEWIN NAO TRABALHA LEGAL ASSIM.

INSTALE O CLIPPER 5.3 EM C:\CLIP53

INSTALE O FIVE EM C:\FW23

INSTALE O BLINKER EM C:\BLINKER7

MUDE O AUTOEXEC.BAT CONFORME EU VOU POSTAR ABAIXO.

MUDE O CONFIG.SYS CONFORME EU VOU POSTAR ABAIXO.

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 5, 2005

@ECHO OFF

SET WINDIR=C:\WINDOWS

SET WINBOOTDIR=C:\WINDOWS

SET PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\BLINKER7\BIN;C:\CLIP53\BIN;C:\UTIL;C:\WORKSHOP\BIN;C:\BC5\BIN;C:\DAZZLE5;C:\CLIP53\INCLUDE;C:\CLIP53\LIB;C:\EDITPAD

SET PROMPT=$D $T$H$H$H$_$P$G

SET TEMP=C:\WINDOWS\TEMP

SET TMP=C:\WINDOWS\TEMP\TEMP

REM SET SERVIDOR=1

SET CLIPPER=F255

C:\WINDOWS\COMMAND\DOSKEY

SET INCLUDE=C:\CLIP53\INCLUDE;C:\FW23\INCLUDE;C:\BC5\INCLUDE

SET LIB=C:\CLIP53\LIB;C:\BLINKER7\LIB;C:\FW23\LIB;C:\BC5\LIB

SET OBJ=C:\CLIP53\OBJ;C:\BLINKER7\CLP\LNK;C:\BLINKER7\OBJ;C:\BC5\OBJ

CLS

MODE CON CODEPAGE PREPARE=((850) C:\WINDOWS\COMMAND\EGA.CPI)

MODE CON CODEPAGE SELECT=850

KEYB BR,,C:\WINDOWS\COMMAND\KEYBOARD.SYS

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 5, 2005

DEVICEHIGH=C:\WINDOWS\HIMEM.SYS

DEVICEHIGH=C:\WINDOWS\EMM386.EXE NOEMS

DOS=HIGH,UMB

FILES=255

BUFFERS=80,0

STACKS=18,512

DEVICE=C:\WINDOWS\setver.exe

SHELL=C:\COMMAND.COM C:\ /e:2048 /p

DEVICE=C:\WINDOWS\COMMAND\DISPLAY.SYS CON=(EGA,,1)

COUNTRY=055,850,C:\WINDOWS\COMMAND\COUNTRY.SYS

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 5, 2005

ok..mas vou fazer tudo no e:

apesar de q sempre funcionou normal do jeito q esta ...

kapiaba · December 5, 2005

citaÃ§Ã£o:
ok..mas vou fazer tudo no e:

apesar de q sempre funcionou normal do jeito q esta ...

id=quote>id=quote>

CADA CABEÃ‡A, UMA SENTENÃ‡A... A CABEÃ‡A Ã‰ SUA... MANDA BALA.

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 5, 2005

O cara vlw ai pela forÃ§a mas nao deu certo

kapiaba · December 5, 2005

NAO DEU CERTO O QUE??

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 5, 2005

NADA..... da um erro la em cima.. o mesmo q antes e nada...

ta fogo.. pra nao dizer outra coisa...

kapiaba · December 5, 2005

MOSTRE O VIDEO.LNK...

MOSTRE O VIDEO.RMK...

MUDASTE OS AUTOEXEC.BAT E CONFIG.SYS??

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 5, 2005

A mas uma coisa... nao mudei o autoexec... mas mesmo assim... se os outros funcionam pq q esse temq mudar o autoexec.. isso q nao entendo

kapiaba · December 5, 2005

MOSTRE O KE VOCE MUDOU...

MOSTRE O VIDEO.LNK...

MOSTRE O VIDEO.RMK...

QUANDO EU PEDIR PARA POSTAR, POSTE! NÃƒO DISCUTA!

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 5, 2005

Po consegui, descobri o problema, eram alguns sets q estavam errados ... stavam com o caminho errado.

Eu nÃ£o alterei o autoexec e config pq estou com o xp...

Bom obrigado por enquanto....

kapiaba · December 5, 2005

citaÃ§Ã£o:
Po consegui, descobri o problema, eram alguns sets q estavam errados ... stavam com o caminho errado.

Eu nÃ£o alterei o autoexec e config pq estou com o xp...

Bom obrigado por enquanto....

id=quote>id=quote>

VALDIR... SÃ“ PARA NÃƒO DEIXAR MEU LADO BAD BOY DE LADO... HEHEHEHE. OU VAI POR BEM... OU VAI POR MAU... MAS QUE APRENDE, APRENDE! PARABENS, GAROTO!

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 6, 2005

Alguem sabe como compila no XDev..???

AbraÃ§os.............

kapiaba · December 6, 2005

citaÃ§Ã£o:
Alguem sabe como compila no XDev..???

AbraÃ§os.............

id=quote>id=quote>

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

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

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

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

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

Quando aprenderes, iras me ensinar... Ã© um compromisso. AbraÃ§os.

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 6, 2005

Pessoal estou compilando e esta dando o seguinte erro

BLINKER : 1115 : E:\PROJETOS\DISFLEX\CTL3D.LIB(WINDOW) : 'GETNMHDRCO' : unresolved external

BLINKER : 1115 : E:\PROJETOS\DISFLEX\CTL3D.LIB(WINDOW) : 'GETNMHDRHW' : unresolved external

BLINKER : 1115 : E:\PROJETOS\DISFLEX\CTL3D.LIB(WINDOW) : 'GETSYSFONT' : unresolved external

oq seria???

abraÃ§os

kapiaba · December 6, 2005

http://www.cesotech.com.ar

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 7, 2005

Oi pessoal, pra variar preciso da ajuda de vcs (KAPIABA) rsrs........... vou postar aki meus prgs..Ã© um browser.. e da erro sempre qdo chamo ele no menu.....

**** EspecificaÃ§Ã£o de cada cliente

#Include "FiveWin.Ch"

#Define SW_SHOWNA 8 // &H8

#Define SW_SHOW 5 // &H5

#Define SW_HIDE 0 // &H0

#Define CLR_LGRAY nRGB( 230, 230, 230 )

#Define CLR_LGREEN nRGB( 190, 215, 190 )

#Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra

#Define CLR_AMARELO nRGB( 255, 255, 000 ) //--> Amarelo Para o Fundo

#Define CLR_AZULXP nRGB( 225, 225, 240 ) //--> Azul XP

#Define CLR_LIGHT nRGB( 192, 192, 56 )

#Define CLR_SHADOW nRGB( 102, 51, 0 )

#Define CLR_NBLUE nRGB( 142, 171, 194 )

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

FUNCTION fCadClie(oLbx , Novo)

LOCAL oDlg

LOCAl fPes1

LOCAL fEsta

LOCAL fEst1

LOCAL fEstx

LOCAL fCsm1

LOCAL fCsma

LOCAL FNOME, FCOD, FPES2, FPES3, FCNPJ, FINSC, FTEL, FFAX, FCEL, ;

FMAI, FVEN, FCON, FEND1, FEND2, FEND3, FBAI1, FBAI2, FBAI3, FCID1, ;

FCID2, FCID3, FCEP1, FCEP2, FCEP3, FESTB, FESTC, FEST2, FEST3, ;

FESTY, FESTZ, FCOB, FENT, FOPE, FCSM2, FCSMB, FCSM, FCRE, FCFO, ;

FOBS

fNome = space(30)

fCod = space(1)

fpes2 = ""

fPes3 := {"Juridico","FÃsico"}

fCnpj = space(1)

fInsc = space(1)

fTel = space(1)

fFax = space(1)

fcel = space(1)

fMai = space(30)

fVen = space(30)

fCon = space(30)

fEnd1 = space(30)

fEnd2 = space(30)

fEnd3 = space(30)

fBai1 = space(30)

fBai2 = space(30)

fBai3 = space(30)

fCid1 = space(30)

fCid2 = space(30)

fCid3 = space(30)

fCep1 = space(1)

fCep2 = space(1)

fCep3 = space(1)

fEstb = ""

fEstc = {"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"}

fEst2 = ""

fEst3 = {"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"}

fEsty = ""

fEstz = {"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"}

fCob = space(30)

fEnt = space(30)

fOpe = space(30)

fCsm2 := 0

fCsmb := 0

fCsm := 0

fCre = 0

fCfo = space(20)

fObs = space(60)

DEFAULT Novo := .F.

IF Novo

GOTO BOTTOM

SKIP

ENDIF

nCliente := fCadClie->Clientes; // lFiveWin := CLIENTES->FiveWin

//cTelefono := CLIENTES->Telefono; lFiveDos := CLIENTES->FiveDos

cNome := OemToAnsi(fcadClie>Nome); //lFiveOS2 := CLIENTES->FiveOS2

//nCidade := OemToAnsi(fCadClie->Cidade); //cAgente := OemToAnsi(CLIENTES->Agente)

//cRfc := CLIENTES->Rfc

// "Escondendo a barra de tarefas"

ShowWindow(FindWindow( 'Shell_TrayWnd',Nil), SW_HIDE )

DEFINE DIALOG oDlg RESOURCE "DLG_CADASTRO_CLIENTES" ;

TITLE "Gerenciador de Clientes " ;

COLORS CLR_BLACK, nRGB( 193, 205, 205 )

oDlg:lHelpIcon := .F. // Five superior

Redefine COMBOBOX fPes1 VAR fPes2 ITEMS fPes3 id 105 OF oDlg UPDATE

Redefine COMBOBOX fEsta VAR fEstb ITEMS fEstc id 129 OF oDlg UPDATE

Redefine COMBOBOX fEst1 VAR fEst2 ITEMS fEst3 id 130 OF oDlg UPDATE

Redefine COMBOBOX fEstx VAR fEsty ITEMS fEstz id 131 OF oDlg UPDATE

Redefine RADIO fCsm1 VAR fCsm2 id 136 OF oDlg UPDATE

Redefine RADIO fCsma VAR fCsmb id 137 of oDlg UPDATE

ACTIVATE DIALOG oDlg CENTERED

EndDialog()

GlobalFree()

ResAllFree()

// "Exibindo a barra de tarefas"

ShowWindow(FindWindow( 'Shell_TrayWnd',Nil), SW_SHOWNA)

RETURN NIL

STATIC FUNCTION fBrwClie()

LOCAL oLbx

LOCAL oDlg

LOCAL oRadioButtons

LOCAL nOrden:=1

USE fCadClie

INDEX ON Nombre TO Client02

INDEX ON Cliente TO Client01

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

FONT oVentPrinc:oFont

@ 1, 1 SAY "Ordenar por:"

@ 3, 1 LISTBOX oLbx ;

FIELDS STR( fCadClie->Cliente ),;

OemToAnsi(fCadClie->Nome),;

OemToAnsi(fCadClie->Cidade);

FIELDSIZES 50, 270, 310, 130, 100;

HEADERS "CÃ DIGO", "NOME", "CIDADE" ;

SIZE 284, 110;

ON LEFT DBLCLICK fCadClie( oLbx, .F. );

OF oDlg1

/* @ 1, 7 RADIO oRadioButtons VAR nOrden ;

PROMPT "&Clave ", "&Nombre " ;

OF oDlg ON CHANGE Orden(nOrden,oLbx)*/

@ 13, 1 BUTTON "No&vo" OF oDlg ;

ACTION fCadClie( oLbx, .T. ) SIZE 40, 12

@ 13, 10 BUTTON "&Modificar" OF oDlg ;

ACTION fCadClie( oLbx, .F. ) SIZE 40, 12

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

ACTION DelClie( oLbx ) SIZE 40, 12

@ 13, 28 BUTTON "B&uscar" OF oDlg ;

ACTION fBusca( oLbx, nOrden ) SIZE 40, 12

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

ACTION oDlg:End() SIZE 40, 12

ACTIVATE DIALOG oDlg CENTER

USE

RETURN( NIL )

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

STATIC FUNCTION DelClie( oLbx )

IF MsgYesNo( OemToAnsi( "Atenâ€¡Ã†o:" ) + CRLF + ;

OemToAnsi( "Quer faze-lo? " + ;

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

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

DELETE

PACK

oLbx:Refresh()

ENDIF

RETURN( NIL )

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

STATIC FUNCTION fBusca( oLbx, nOrden )

LOCAL nCliente := 0

LOCAL cNombre := SPACE(30)

LOCAL nRecNo := RecNo()

SET SOFTSEEK ON

//IF MsgGet( "Buscar por", IF( nOrden=1, "Clave", "Nombre" ) + " del Cliente",;

// IF( nOrden=1, @nCliente, @cNombre ),;

// "lupa.bmp" )

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

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

GO nRecNo

ELSE

oLbx:UpStable()

oLbx:Refresh()

ENDIF

// ENDIF

RETURN( NIL )

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

STATIC FUNCTION Orden(nOrden,oLbx)

IF nOrden=1

SET INDEX TO Client01

ELSE

SET INDEX TO Client02

ENDIF

oLbx : Refresh()

RETURN NIL

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

STATIC FUNCTION fSair()

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

oVentPrinc:End()

ENDIF

RETURN NIL

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

STATIC FUNCTION fCampo( cCampo )

IF EMPTY( cCampo )

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

RETURN( .F. )

ENDIF

RETURN( .T. )

kapiaba · December 7, 2005

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 7, 2005

Esta:

BLINKER : 1115 : XXCMENU.OBJ(XXCMENU) : 'FBRWCLIE' : unresolved external

kapiaba · December 7, 2005

Se for, voce precisa incorpora-lo no arquivo.Rmk e no Arquivo.Lnk, Pois se voce fez a chamada do Menu, se ele nao existir, nos dois bats de compilacao, nao sera gerado o obj, entao dÃ¡ erro.

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

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