Jump to content
Fivewin Brasil

UM COMEÇO PARA O COMEÇO...

jhilbert

By jhilbert
in Programação

 Share

Recommended Posts

jhilbert Newbie

jhilbert

Posted
Posted

Caros Colegas,

Apesar da facilidade do FW... noto (assim como eu) que muitos inicitantes ou com algum (tempo) no FW tem dificuldades...

Coloco aqui no FORUM uma susgestão para que todos pudessem aproveitar o que o FW tem a oferecer.

É o seguinte:

Vacom abri um tópico para montar o sistema básico( ex: cadastro de clientes), onde iríamos colocar o passo a passo de como montar um sistema... deste a configuração com os softs (FWH, HARBOUR,BCC,WS...) até o ínicio de um sistema com o que há de básico (windows,dialogs,folders,listbox,say,dbf, slq,etc,,)

Poderiamos definir as dicas e um ou alguns colegas para colocar (as) soluções no sistema...

Pois se temos chance de ter uma referência para que possamos fazer os nossos sistemas... porque não usá-las???

Pois só se consegue PROGRAMAR.... PROGRAMANDO...

Espero que consigamos com isso trazer mais e mais pessoas para o mundo do FW.

JEORGE HILBERT

FWH2.7,harbour,xharbour,WS,BCC

Link to comment
Share on other sites
jhilbert Newbie

jhilbert

Posted
  • Author
Posted

Caros Colegas,

Apesar da facilidade do FW... noto (assim como eu) que muitos inicitantes ou com algum (tempo) no FW tem dificuldades...

Coloco aqui no FORUM uma susgestão para que todos pudessem aproveitar o que o FW tem a oferecer.

É o seguinte:

Vacom abri um tópico para montar o sistema básico( ex: cadastro de clientes), onde iríamos colocar o passo a passo de como montar um sistema... deste a configuração com os softs (FWH, HARBOUR,BCC,WS...) até o ínicio de um sistema com o que há de básico (windows,dialogs,folders,listbox,say,dbf, slq,etc,,)

Poderiamos definir as dicas e um ou alguns colegas para colocar (as) soluções no sistema...

Pois se temos chance de ter uma referência para que possamos fazer os nossos sistemas... porque não usá-las???

Pois só se consegue PROGRAMAR.... PROGRAMANDO...

Espero que consigamos com isso trazer mais e mais pessoas para o mundo do FW.

JEORGE HILBERT

FWH2.7,harbour,xharbour,WS,BCC

Link to comment
Share on other sites
viol Newbie

viol

Posted
Posted

Não sei se podemos começar assim,, vou postar uns fontes que estou tentando fazer... estou usando o xdev v0.33,xharbour 0.99.50, bcc 5.5.1, fivewin 2.6

A MAIORIA DOS MENUS CHAMA , CALCULADORA, OU BLOCO DE NOTAS SO PRA NÃO DAR ERRO

MENU.PRG

//===================ARQUIVO PRG PRINCIPAL ====================

#include "Fivewin.ch"

STATIC oWindow

FUNCTION Menu()

DEFINE WINDOW oWindow FROM 0,0 TO 35,100 ; // Coordenadas

TITLE OemToAnsi("CONTROLE VM PRINT SUPRIMENTOS DE INFORMATICA LTDA") ; // Título

MENU CreaMenu() // Menú

ACTIVATE WINDOW oWindow

RETURN NIL

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

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

FUNCTION CreaMenu()

LOCAL oMenu // Menu de la aplicación

LOCAL oCad, oPaga, oRece // Items para el menú

MENU oMenu // Creamos el menú

//==============================================================

MENUITEM "&Vendas"

MENU

MENUITEM "&Movimento" ACTION WinExec("Calc.exe")

MENUITEM "&Consultas" ACTION WinExec("Notepad.exe")

MENUITEM "&Orcamentos" ACTION WinExec("Calc.exe")

MENUITEM "&Notas Fiscais" ACTION WinExec("Calc.exe")

SEPARATOR

MENUITEM "&Sair" ACTION oWindow:End()

ENDMENU

//==============================================================

MENUITEM "&Cadastros"

MENU

MENUITEM "&Clientes" ACTION f_cliente()

//MENUITEM "&Fornecedores" ACTION //f_forne()

MENUITEM "&Vendedores" ACTION WinExec("Calc.exe")

MENUITEM "&Bancos" ACTION WinExec("Calc.exe")

MENUITEM "&Tranportadoras" ACTION WinExec("Calc.exe")

MENUITEM "&Cidades" ACTION WinExec("Calc.exe")

ENDMENU

//==============================================================

MENUITEM "&Pagamentos"

MENU

MENUITEM "&Movimento" ACTION WinExec("Calc.exe")

MENUITEM "&Consultas" ACTION WinExec("Notepad.exe")

MENUITEM "&Relatorios" ACTION WinExec("Notepad.exe")

ENDMENU

//==============================================================

MENUITEM "&Recebimentos"

MENU

MENUITEM "&Movimento" ACTION WinExec("Calc.exe")

MENUITEM "&Consultas" ACTION WinExec("Notepad.exe")

MENUITEM "&Relatorios" ACTION WinExec("Calc.exe")

MENUITEM "&Cheques" ACTION WinExec("Calc.exe")

ENDMENU

//==============================================================

MENUITEM "&Bancos"

MENU

MENUITEM "&Movimento" ACTION WinExec("Calc.exe")

MENUITEM "&Datados" ACTION WinExec("Notepad.exe")

ENDMENU

//==============================================================

MENUITEM "&Estoque"

MENU

MENUITEM "&Produtos" ACTION WinExec("Calc.exe")

MENUITEM "&Entradas" ACTION WinExec("Notepad.exe")

ENDMENU

//==============================================================

MENUITEM "Com&pras"

MENU

MENUITEM "&Calculadora" ACTION WinExec("Calc.exe")

MENUITEM "&Block de notas" ACTION WinExec("Notepad.exe")

ENDMENU

//==============================================================

MENUITEM "Es&tatisticas"

MENU

MENUITEM "&Fluxo Caixa" ACTION WinExec("Calc.exe")

MENUITEM "&Balanco" ACTION WinExec("Notepad.exe")

ENDMENU

//==============================================================

MENUITEM "&Utilitarios"

MENU

MENUITEM "&Usuarios" ACTION WinExec("Calc.exe")

MENUITEM "&Reindexacao" ACTION WinExec("Notepad.exe")

ENDMENU

ENDMENU

RETURN oMenu

//**********************************************************

ARQUIVO CLIENTES.PRG

//========================================

#include "Fivewin.ch"

//==============================================================

function f_cliente()

local oDlg

local oLbx

local cVar

if ! File( "clientes.dbf" )

DbCreate( "clientes.dbf", { { "CODIGO ", "C", 4,0 },;

{ "NOME ", "C", 30,0 },;

{ "RAZAO ", "C", 50,0 },;

{ "ENDERECO ", "C", 30,0 },;

{ "BAIRRO ", "C", 20,0 },;

{ "TELEFONE1", "C", 15,0 },;

{ "TELEFONE2", "C", 15,0 },;

{ "ESTADO ", "C", 2,0 },;

{ "CEP ", "C", 9,0 },;

{ "CGC ", "C", 18,0 },;

{ "IE ", "C", 15,0 },;

{ "CIDADE ", "C", 25,0 },;

{ "RAMO ", "C", 4,0 },;

{ "REPRES ", "C", 4,0 },;

{ "LINHA ", "C", 4,0 },;

{ "OBSERVA ", "C", 50,0 } } )

endif

USE clientes

if RecCount() == 0

APPEND BLANK

endif

INDEX ON clientes->Nome TO CliNome

INDEX ON clientes->codigo TO clicodi

SET INDEX TO CliNome

GO TOP

cVar := 'PRUEBA DE LA PRADERA '

DEFINE DIALOG oDlg FROM 2, 2 TO 36, 99 TITLE "Cadastro de Clientes"

//@ 0, 1 SAY " &Clientes" OF oDlg

@ 1, 1 LISTBOX oLbx FIELDS Clientes->Codigo ,;

Clientes->Nome,;

Clientes->Razao,;

Clientes->Endereco,;

Clientes->Bairro,;

Clientes->Telefone1,;

Clientes->Telefone2,;

Clientes->Estado,;

Clientes->CEP,;

Clientes->CGC,;

Clientes->IE,;

Clientes->CIDADE,;

Clientes->OBSERVA HEADERS "CODIGO", "FANTASIA", "RAZÃO", "ENDEREÇO" , "BAIRRO", "TELEFONE", "FAX", "UF", "CEP", "CNPJ", "INS.ESTADUAL", "CIDADE","OBSERVAÇÃO";

FIELDSIZES 45, 210, 300, 250, 150, 100,100,20,70,110,90,180,400 SIZE 375, 220 OF oDlg

@ 13.3, 1.4 BUTTON "&Inclui" OF oDlg ACTION EditClient( oLbx , .T. ) SIZE 40, 12

@ 13.3, 9.4 BUTTON "&Altera" OF oDlg ACTION EditClient( oLbx , .F. ) SIZE 40, 12

@ 13.3, 17.4 BUTTON "&Exclui" OF oDlg ACTION DelClient( oLbx ) SIZE 40, 12

@ 13.3, 25.4 BUTTON "&Procura" OF oDlg ACTION SeekClient( oLbx ) SIZE 40, 12

//@ 8.7, 33.4 BUTTON "&Imprime" OF oDlg ;

// ACTION oLbx:Report( "clients Report", .t. ) ; // .t. --> wants preview

// SIZE 40, 12

@ 13.3, 42 BUTTON "&Sair" OF oDlg ACTION oDlg:End() SIZE 40, 12

ACTIVATE DIALOG oDlg

USE

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

return nil

//==============================================================

//function EditClient()

//return

//==============================================================

function DelClient(olbx)

if MsgYesNo( "Confirma exclusão do registro ?" ," Atenção ")

DELETE

PACK

oLbx:Refresh() // Repaint the ListBox

endif

return nil

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

static function EditClient( oLbx, lAppend )

local oDlg

local cCodigo

local cNome

local cRazao

local cEndereco

local cBairro

local cTelefone1

local cTelefone2

local cEstado

local cCEP

local cCGC

local cIE

local cCIDADE

local cOBSERVA

local lSave := .f.

local nOldRec := RecNo()

DEFAULT lAppend := .f.

if lAppend

SET INDEX TO Clicodi

GOTO BOTTOM

cCodigo := strzero(val(Clientes->Codigo)+1,4)

SKIP

else

cCodigo = Clientes->Codigo

endif

cNome = Clientes->Nome

cRazao = Clientes->Razao

cEndereco = Clientes->Endereco

cBairro = Clientes->Bairro

cTelefone1 = Clientes->Telefone1

cTelefone2 = Clientes->Telefone2

cEstado = Clientes->Estado

cCEP = Clientes->CEP

cCGC = Clientes->CGC

cIE = Clientes->IE

cCIDADE = Clientes->CIDADE

cOBSERVA = Clientes->OBSERVA

DEFINE DIALOG oDlg FROM 1, 1 TO 30, 80 ;

TITLE If( lAppend, "Novo Registro", "Ateração Registro" )

@ 1 , 1 SAY "Codigo:" OF odlg

@ 1.9 , 1 SAY "Nome:" OF odlg

@ 2.8 , 1 SAY "Razão:" OF odlg

@ 3.7 , 1 SAY "Endereço:" OF odlg

@ 4.6 , 1 SAY "Bairro:" OF odlg

@ 5.5 , 1 SAY "Telefone:" OF odlg

@ 6.3 , 1 SAY "Fax:" OF odlg

@ 7.2 , 1 SAY "Estado:" OF odlg

@ 8.1 , 1 SAY "Cep:" OF odlg

@ 9 , 1 SAY "CGC:" OF odlg

@ 9.8 , 1 SAY "Ins.Est:" OF odlg

@ 10.7, 1 SAY "Cidade:" OF odlg

@ 11.6, 1 SAY "Observa:" OF odlg

@ 1, 5 GET cCodigo PICTURE "9999" OF oDlg

@ 2, 5 GET cNome PICTURE "@!" OF oDlg

@ 3, 5 GET cRazao PICTURE "@!" OF ODlg

@ 4, 5 GET cEndereco PICTURE "@!" OF oDlg

@ 5, 5 GET cBairro PICTURE "@!" OF oDlg

@ 6, 5 GET cTelefone1 picture "@R (99) 9999-9999" OF oDlg

@ 7, 5 GET cTelefone2 PICTURE "@R (99) 9999-9999" OF oDlg

@ 8, 5 GET cEstado PICTURE "@!" OF oDlg

@ 9, 5 GET cCEP PICTURE "@!" OF oDlg

//if len(trim(ipcg))=14

// if cgcc(ipcg)

// w=.f.

// @14,14 get ipcg picture "@KR 99.999.999/9999-99"

// clear gets

// endif

//else

// if cpf1(ipcg)

// w=.f.

// @14,14 get ipcg picture "@KR 999.999.999-99"

// clear gets

// endif

//endif

@ 10, 5 GET cCGC PICTURE "@KR 99.999.999/9999-99" OF oDlg

@ 11, 5 GET cIE PICTURE "@!" OF oDlg

@ 12, 5 GET cCIDADE PICTURE "@!" OF oDlg

@ 13, 5 GET cOBSERVA PICTURE "@!" OF oDlg

@ 11, 9 BUTTON "&Salva" OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )

@ 11, 19 BUTTON "&Cancela" OF oDlg SIZE 50, 12 ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

if lSave .and. !empty( cNome )

if lAppend

APPEND BLANK

endif

Clientes->Codigo := cCodigo

Clientes->Nome := cNome

Clientes->Razao := cRazao

Clientes->Endereco := cEndereco

Clientes->Bairro := cBairro

Clientes->Telefone1 := cTelefone1

Clientes->Telefone2 := cTelefone2

Clientes->Estado := cEstado

Clientes->CEP := cCEP

Clientes->CGC := cCGC

Clientes->IE := cIE

Clientes->CIDADE := cCIDADE

Clientes->OBSERVA := cOBSERVA

oLbx:Refresh() // We want the ListBox to be repainted

else

if Empty( cNome ) .and. lSave

MsgAlert( "Registro em branco" ," Atenção ")

endif

GOTO nOldRec

SET INDEX TO Clinome

oLbx:Refresh()

endif

return nil

//==============================================================

static function SeekClient( oLbx )

local cnome := Space( 30 )

local nRecNo := RecNo()

SET SOFTSEEK ON

SET INDEX TO Clinome

if MsgGet( "Procurar", "Digite o nome a pesquisar", @cnome,"..\bitmaps\lupa.bmp" )

if ! DbSeek( TRIM(cnome) )

MsgAlert( "Não encontrado !" )

GO nRecNo

else

oLbx:UpStable() // Corrects same page stabilizing Bug

oLbx:Refresh() // Repaint the ListBox

endif

endif

return nil

//==============================================

É O QUE CONSEGUI FAZER ATE AGORA. ESSAS LINHAS ESTÃO RODANDO APARENTEMENTE OK.

TEM UM PEDAÇO QUE ACHO , PODERIA SER MELHOR, CODIGO MUITO SUJO, MUITAS DIFICULDADES EM MONTAR ESTA PARTE..

O CABEÇALHO DO BROWSE... ACHO QUE TEM UMA MANEIRA MAIS FACIL

HEADERS "CODIGO", "FANTASIA", "RAZÃO", "ENDEREÇO" , "BAIRRO", "TELEFONE", "FAX", "UF", "CEP", "CNPJ", "INS.ESTADUAL", "CIDADE","OBSERVAÇÃO";

FIELDSIZES 45, 210, 300, 250, 150, 100,100,20,70,110,90,180,400 SIZE 375, 220 OF oDlg

VIOL

XDEV/BCC/XHARBOUR/FW2.6

Link to comment
Share on other sites
jhilbert Newbie

jhilbert

Posted
  • Author
Posted

Legal Colegas,

Acho que vamos conseguir mitas coisas.....

O Legal era definir as ferramentas (que vamos usar) para que todos possam acompanhar igualmente...

Poderíamos começar por aqui:

xdev v0.33,xharbour 0.99.50, bcc 5.5.1, fivewin 2.x

Então minha sugestão é colocar as ,configurações do XDev... etc para que todo mundo possa acompanhar!!!

JEORGE HILBERT

FWH2.7,harbour,xharbour,WS,BCC

Link to comment
Share on other sites
viol Newbie

viol

Posted
Posted

Gostaria de passar como estou configurando meu XDEV. mas preciso saber como colocar imagem aqui....

não entendi muito bem, cliquei no icone inserir imagem ele me deu sim e dai???? quero colocar minhas imagens de configuração do XDEV.. como fazer ?

VIOL

XDEV/BCC/XHARBOUR/FW2.6

Link to comment
Share on other sites
viol Newbie

viol

Posted
Posted

É meu colega JEORGE HILBERT, o pessoal que se diz membro avançado, ou moderador sei la, não estão muito afim de ensinar não! eles estão em outro nivel.. não estão querendo se meter em pequenas coisas.. neste mundo capitalista você não pode peder tem.(E NÃO ADIANTA FICAR BRAVO COMIGO) ,venho a algum tempo estudando vendo procurando entender as ferramentes,,, que não é como o velho e bom clipper não... eu acho que neste foro precisamos dividir os assuntos e niveis,, os mais experientes numa sala os outro em outra. ai um dia quem sabe mais pessoas aprenda o fivewin, porque pelo que vejo são poucos (acredito que a galera das brejas), olha que sou bom nesse negocio de brejas tambem.

tambem alguns colegas como o Cristiano com H que desapareceu do foro. ficou de passar algumas dicas ,,e faz tempo ate agora nada...

viol (42)

santa cruz do rio pardo

Link to comment
Share on other sites
Vitor Reis Newbie

Vitor Reis

Posted
Posted

citação:

É meu colega JEORGE HILBERT, o pessoal que se diz membro avançado, ou moderador sei la, não estão muito afim de ensinar não! eles estão em outro nivel.. não estão querendo se meter em pequenas coisas.. neste mundo capitalista você não pode peder tem.(E NÃO ADIANTA FICAR BRAVO COMIGO) ,venho a algum tempo estudando vendo procurando entender as ferramentes,,, que não é como o velho e bom clipper não... eu acho que neste foro precisamos dividir os assuntos e niveis,, os mais experientes numa sala os outro em outra. ai um dia quem sabe mais pessoas aprenda o fivewin, porque pelo que vejo são poucos (acredito que a galera das brejas), olha que sou bom nesse negocio de brejas tambem.

tambem alguns colegas como o Cristiano com H que desapareceu do foro. ficou de passar algumas dicas ,,e faz tempo ate agora nada...

viol (42)

santa cruz do rio pardo

id=quote>id=quote>

oi Viol acho que ninguem é melhor do que ninguem, dificilmente as perguntas ficam sem resposta.. é que o povo esta de ferias mesmo.. mas tenho certeza de que tera apoio de todos.... o que ocorre é que alguns tem mais tempo do que outros pra responder as perguntas.. mas nao desanime.. continue a postar as duvidas que sempre tera gente que vai ajudar.. pelo simples prazer em ajudar e para que continue a comunidade.. fique tranquilo.. se dividir este forum em iniciantes ou nao.. acho que viraria discriminação... portanto.. poste aqui mesmo suas duvidas que o pessoal responde sim ..

tem até um topico com uma lista de messenger do pessoal pra ter um acesso on-line.. utilize-a

vitor

s.b.c.

Link to comment
Share on other sites
Luiz Fernando Rookie

Luiz Fernando

Posted
Posted

Muito boa idéia do jhilbert, apesar que nesta pagina tem um bom material para poder estudar, e o pessoal responsável pelo site são bastante bacana pelo que vejo no fórum, mais acho que alguém de nível bom em five poderia criar um curso virtual, com a criação de um programa do tipo citado pelo amigo jhilbert, sei lá, cada semana ou quinzena iria passando passos diferente para criação do mesmo,com explicação a cada linha de comando, mais ou menos que nem o livro do vilian, e logico que cada interessado pagaria uma taxa, pois no mundo que vivemos não da para trabalhar de graça, todos tem seus compromissos e tempo e dinheiro...

Luiz Fernando

Editado por - empresoft on 26/12/2006 20:23:11

Link to comment
Share on other sites
gunafe Newbie

gunafe

Posted
Posted

Boa noite a todos,

Meus amigos, sempre que posso, ajudo, frequento este forum ha bastante tempo e, sempre tive ajuda, mesmo que indiretamente. Não creio que separar seja a solução, até porque se colocarmos novatos com novatos, certamente que eles vão demorar muito mais tempo pra serem avançados e poderem frequentar o forum dos avançados, ao passo que, se continuarmos do jeito que esta, mais iniciantes se tornarão avançados, tenho 50 anos, 25 dedicados a programação com clipper, sendo 7 somente com fivewin, me sinto jovem e iniciante com esta ferramenta que permitiu que meus sistemas dessem um salto de qualidade. Por isso meu amigo, como diz um colega aqui do forum, "vamos dividir para somar", que é o que importa neste forum.

[]´s em todos.

Luiz Augusto

São José dos Pinhais - PR

Harbour43 + Five2.4 + Verce

Link to comment
Share on other sites
aferra Newbie

aferra

Posted
Posted

bem pessoal, entendi a idéia, gostei, mas quais são as dúvidas, nunca vi uma pergunta sem resposta, alias, o que vejo são pergutas com respostas e sem respostas se deu certo ou não, isso eu não acho legal, já tem um programa neste sentido em dicas, embora esteja em clipper, mas pelo que leio não teria problema algum com xharbour, então qual a necessidade? é de um programa pronto para modular!!!. é isso? será que é por aí que tem ser? ninguem aqui trabalha igual, será que ajudaria ou atrapalharia?, funções básica está cheio em dicas, pensem melhor, um curso ahhh sim, talvez seria o mais correto, mas não aqui no forum... é minha opnião... já peguei bastante funções neste forum e todas houve mudanças para o meu jeito de trabalhar, meio jeito de variaveis, forma de declarações, sei lá... mais uma vez é minha opnião...

FELIZ NATAL A FAMÃLIA FWid=red>

Alessandro F. Silvaid=blue>

E-mail :aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say + CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

Link to comment
Share on other sites
jhilbert Newbie

jhilbert

Posted
  • Author
Posted

Olá Pessoal!!

Acho que o que tá rolando aqui já é um começo para o começo...

Na verdade, o pessoal mais experiente poderia guiar esse PROGRAMA EXEMPLO.

Minha susgestão é que seja com FW for harbour/xharbour para que possamos já ter um exemplo em 32 bits, que acho é a maior dificuldade de todos que começam!!!

ENTÃO poderíamos começar???????

1) Acho que a primeira coisa é definir quais as ferramentas que vamos usar para que todos possam fazer igualmente.

2) O segundo passo será passar a configuração das ferramentas para que ninguém tente fazer alguma coisa e não consiga.

3) Quem dá o primeiro passo????

JHILBERT

FWH2.7,harbour,xharbour,WS,BCC

Link to comment
Share on other sites
ricardomouramarques Newbie

ricardomouramarques

Posted
Posted

Aí jhilbert,

Parabens pela idéia e pela iniciativa. Podem contar comigo nessa empreitada.

Só uma opnião. Eu disse apenas "uma opnião".

Se é pra começar do zero, por que não usar um mínimo de ferramentas. Assim a programação ficará mais pura e trará um melhor entendimento às pessoas que estão iniciando no Fivewin.

O que estou querendo sugerir é que deveríamos começar apenas com as ferramentas básicas: "FWH, (x)harbour e BCC". Assim o pessoal conseguirá entender a linguagem, pois se usarmos qualquer outra ferramenta para criar ou compilar o código, não aprenderão a programar. Sempre serão pegos em algum problema simples e sem a menor noção de como resolver.

Alô!!! é só uma opnião. Mas seja qual for a decisão,contem comigo.

Abraços.

Ricardo Marques

Link to comment
Share on other sites
vagner Newbie

vagner

Posted
Posted

Olá,

Bom vou dar minha opnião icon_smile_big.gif, estou com o Alessandro, eu mesmo já postei várias coisas em Dicas+Dicas, e com fontes, e com um bat e um lnk para fazer a compilação, muitos me perguntam, vc usa xDev, MyMaker, Sql ?, e por aí vai, eu não uso, sou do tempo da onça icon_smile_big.gif, gosto de fazer tudo na mão, então não daria nem para dar uma opnião, sobre usar isso ou aquilo icon_smile_big.gif, acho viável vcs tomarem iniciativa icon_smile_big.gif, mas se vcs realmente olharem no FW??\Samples, verão que existe muita coisa lá já pronta, basta estudar icon_smile_wink.gif, lógico que se digamos, eu ou o Gilmer, Evandro, Kapiaba, Paulo, e muitos outros que não daria nem para citar nomes, senão vou ficar a noite toda escrevendo (hehehehe), montasse o programa de exemplo, vcs teriam que entender um pouco a nossa lógica para que pudessem caminhar icon_smile_wink.gif, não quero com isso mesnospresar ninguém icon_smile_big.gif pelo contrário icon_smile_big.gif, só acho q iria confundir mais do que ajudar icon_smile_big.gif, por exemplo, nesse listbox que Viol montou, eu montaria de uma outra forma icon_smile_big.gif, ficando mais ou menos assim :



aCab_Cli := {"Cnpj/Cpf","Nome","Endereco"}


aFil_Cli := {||{ Clientes->CgcCpf,Clientes->Nome__,Clientes->Endere } }


aCol_Cli := {096,300,300}


cSel_Cli := "{{|| COrdCl(1)},{|| COrdCl(2)}}"


nSel_Cli := 1


oLbxCli := TWBrowse():New(01,01,380,114, aFil_Cli,aCab_Cli,aCol_Cli,oFld:aDialogs[1], , , , , {|nRow,nCol,nFlag|InclAlte(Iif(!oSistema:lPodeAltInc .or. oSistema:nNivelDigit == 1,"Con","Alt"))} , , , , , , , ,"Clientes",.T.)


oLbxCli:lMChange   := .F.


oLbxCli:aActions   := &(cSel_Cli)


oLbxCli:nLineStyle := 9


oLbxCli:bKeyDown   := {|nKey,nFlag| EnterBrw(nKey) }


 
id=code>id=code>
Daria na mesma, mas eu gosto de escrever direto com as classes ao invés de fazer a compilação traduzir para eu icon_smile_big.gif.


Então, o que eu aconselho, é postarem suas dúvidas, nós sempre damos um jeitinho de responder icon_smile_wink.gif


Vagner Wirts


Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		personal
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


personal
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Bem JHILBERT... achou muito louvavel sua ideia.


Em dicas, mais dicas tem muita coisa que possa ajudar.


Viol...


Aqui... ninguem se entitula "menbro avançado ou qualquer outra coisa", isto acontece naturalmente pelos moderadores.


Cada membro, tem sua maneira e ferramentas de programação, WS, Pelles, WS, outros @Say, cada um tem sua particularidade, e todos com certeza, tem o espirito de ajudar nete forum. Frequentamos este forum apenas com o objetivo de sermos ajudados e na medida do possivel retribuir esta ajuda.


Agora, estamos apenas a algumas horas dos festejos do NATAL, muitos ainda nem voltaram para o trabalho, uma grande parte esta de ferias coletivas, por isto extremamente injusto, taxar de não querem ajudar.


Quanto a experientes, tem gente com 20 anos de clipper, e quase 10 anos de Five, portanto nada mais justo que eles saibam mais que a gente. Eu sempre contei e fui plenamente atendido por estes membros, as vezes a resposta nao vem tão rápido quando gostariamos, mas ela vem.


Oliveira, Sérgio A.


PERSONAL Comp. e Sitemas.id=green>


Lins - SP ** sergio@personal.com.br


FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.


TWBrowse(),C5Menu,vPrinter


Editado por - personal on 27/12/2006  00:34:22



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		vagner
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


vagner
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Agora, estamos apenas a algumas horas dos festejos do NATAL,


Editado por - personal on 27/12/2006  00:34:22




id=quote>id=quote>
Vixi icon_smile_big.gif,


Acho q o Personal ainda está de porre (kkkkkkkkkkkkkkkk), já se passou o Natal, agora estamos a algumas horas sim, mas do Ano Novoid=red> e que em 2.007id=red> possamos ainda mais ajudar e ser ajudado, essa é a filosofia desse fórum icon_smile_big.gif


Vagner Wirts


Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		aferra
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


aferra
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

HAHAHAHAHAHAHAHAHAHAHA, Personal, nunca vi ninguem comemorar antes o NATAL, hahahahahahahahaaha, não desta forma depois de ter passado, hehehehehehehehe, rapaz acho que vc tá precisando dá um pega para ficar careta............... chupar uma nafitalina, tomar um Backtrim com gelo, quem sabe melhora... hahahahahahahaha


FELIZ 2.007 A FAMÃLIA FWid=red> 


Alessandro F. Silvaid=blue>


E-mail :aferracini@terra.com.br


FW2.0d + CL53b + Blinker 7.0 + @Say + CDX


MSN: ferracini_silva@hotmail.com


Ribeirão Preto/SP



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		evandro
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


evandro
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá,


Para se fazer algo assim, o começo já seria complexo. Qual editor de programas? Usar recursos ou @say? Se recursos qual editor? Usar um "make" ou uma bat? Só nesta padronização já teríamos uma discussão infinita. 




citação:cada semana ou quinzena iria passando passos diferente para criação do mesmo,com explicação a cada linha de comando, 
id=quote>id=quote> 
Me parece que a Virtual está com um curso em ponto de bala. 




citação:lógico que se digamos, eu ou o Gilmer, Evandro, Kapiaba, Paulo, 
id=quote>id=quote>
O espírito natalino se espalhou mesmo. Eu colocado junto às feras! Quanta honra!


[]s,


Evandro G. de Paula


Curvelo - MG


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


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


FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		jhilbert
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


jhilbert
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Oi Pessoal!!!


Gostei da idéia do RICARDO MARQUES de usar as ferramentas básicas "FWH, (x)harbour e BCC". Sendo assim todo mundo poderia realmente acompanhar o desenvolvimento...


Como todo mundo apoiou a idéia, o ideal é... começar....


Quem dá o primeiro passo????


JHILBERT


FWH2.7,harbour,xharbour,WS,BCC



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		CTOAS
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


CTOAS
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá amigos....


Bom, para iniciar o meu pensamento gostaria de em primeiro lugar desejar a todos do FORUM um FELIZ NATAL (atrasado) e um FELIZ ANO NOVO cheio de paz, amor fraternidade e humidade para todos.


Bem...


História:


Quando entrei a primeira vez no site da Fivewin e me deparei com esta maravilha foi em meados de 2002 quando fiz o cadastro no Forum, e fiquei maravilhado, como sei que todos ficam quando veem resultado de um programinha qualquer em visual, mas como todos que iniciam na Fivewin nao obtive respostas as minhas dúvidas, com o passar de pouco tempo desisti retornando apenas no final de 2004. E de lá até hoje, só crescendo em conhecimento com a ajuda de todos do forum.


E digo, não desistam, pois irão se arrepender..... hehehehe


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


Com relação a programação existem muitas ferramentas que podem ser usadas, vou tentar expor algumas aqui.


* @ Say / @ Get -> Maneira que pode ser herdada do nosso saldoso clipper


Editores:


MED - Programmers' Text Editor (http://www.utopia-planitia.de)


xDevStudio (www.sqllib.com.br)


existem mais alguns...


Editores de Recursos (resources)


Pelles C (http://www.smorgasbordet.com/pellesc/)


WorkShop


existem mais alguns...


Portanto a ferramenta a ser usada é indiferente, pois todas as ferramentas levaram ao mesmo lugar.


Quanto a postar algum exemplo de programação não vou me comprometer, mas prometo tentar.


Abraços


Conceito Sistemas e Informática


"Um novo conceito em sistemas"


Em breve de volta -> www.fivewinclub.com.br



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •