maudruidas

Estou estudando o livro fivewin e lá constei as várias vantagens de migrar meus índices de NTX p/ CDX dos programas em clipper puro, segui as instruções do livro e não tive problemas para criá-los a não ser em um DBF que tem um campo memo, ele dá erro o que fazer ? outro problema está na hora de abrir o arquivo ele não sabe qual o índice, aqui está todos os procedientos que uso: programa principal #include "fileio.ch" #include "SetCurs.ch" #include "llibg.ch" #include "ord.ch" REQUEST DBFCDX RddSetDefault("DBFCDX") programa de criar indice PROCEDURE REO1 // opção do menu USE ARQCLI NEW EXCL IF BLOQUEIO() = .T. // função que verifica se o arq.está DO L // bloqueado -> está loga abaixo SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Clientes... " IF VERORG("Clientes") = .T. FERASE("ARQCLI.CDX") PACK INDE ON STR(CODIGO,5) TAG CLICOD TO ARQCLI INDE ON NOME TAG CLINOM TO ARQCLI INDE ON STR(TIPO,2)+NOME TAG CLITIP TO ARQCLI ENDIF CLOSE ALL ENDIF USE ARQFOR NEW EXCL IF BLOQUEIO()=.T. DO L SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Fornecedores..." IF VERORG("Fornecedor") FERASE("ARQFOR.CDX") PACK INDE ON STR(CODIGO,3) TAG FORCOD TO ARQFOR INDE ON RAZAO TAG FORAZ TO ARQFOR ENDIF CLOSE ALL ENDIF USE ARQTCLI NEW EXCL IF BLOQUEIO()=.T. DO L SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Tipos de Clientes..." IF VERORG("Tipos de Clientes") FERASE("ARQTCLI.CDX") PACK INDE ON STR(CODIGO,2) TAG TCLICOD TO ARQTCLI INDE ON DESCRICAO TAG TCLIDES TO ARQTCLI ENDIF CLOSE ALL ENDIF RETURN como estou abrindo o arquivo: procedure entrada // prog. onde estão as aberturas FUNCTION ABRE1 SELE 1 USE ARQCLI INDEX ARQCLI NEW IF BLOQUEIO() = .F. RETURN(.F.) ENDIF RETURN(.T.) FUNCTION ABRE2 SELE 2 USE ARQFOR INDEX ARQFOR NEW IF BLOQUEIO() = .F. RETURN(.F.) ENDIF DO L RETURN(.T.) ASSIM POR DIANTE para usar fço o seguinte IF ABRE24()=.T. .AND. ABRE4()=.T. .AND. ABRE17()=.T. .AND. ABRE28()=.T. SELE 24 // ORDSETFOCUS(2) // SET ORDER TO 2 tentei nas duas formas e a mensagem é: workarea nor in use: ORDSETFOCU PARACE QUE QNDO ABRE UM ARQ. ELE FECHA OUTRO NÃO FICANDO TODOS ABERTOS JUNTOS ! O QUE FAZER E MUITO OBRIGADO PELA FORÇA E PACIENCIA COM ESTE HUMILDE APRENDIZ... FUNCTION BLOQUEIO IF NETERR() SAVE SCREEN TO PL SET COLOR TO W+/R EXPLODE(10,8,12,72) SHADOW(10,8,12,72,"W") DO SOM SET CURS OFF SET COLOR TO W+/R @11,9 SAY " Arquivo Bloqueado p/ Manutençäo..." WAIT SET CURS ON CLOSE ALL REST SCREEN FROM PL RETURN(.F.) ENDIF RETURN(.T.) FUNCTION VERORG PARAMETERS XT PRIVATE XT FLOCK() IF FLOCK() = .F. ME = "Arquivo de " + XT + " em Uso Impossível Organizar... SAVE SCREEN TO PL PA = INT((78-LEN(ME))/2) PO = 79 - PA - LEN(ME) SET COLOR TO W+/R EXPLODE(10,PA-2,12,80-PO) SHADOW(10,PA-2,12,80-PO,"W") DO SOM SET CURS OFF SET COLOR TO W+/R @11,PA SAY ME INKEY(0) SET COLOR TO REST SCREEN FROM PL SET CURS ON UNLOCK RETURN(.F.) ENDIF UNLOCK RETURN(.T.) CLIP5.3 FWH2.4

Estou estudando o livro fivewin e lá constei as várias vantagens de migrar meus índices de NTX p/ CDX dos programas em clipper puro, segui as instruções do livro e não tive problemas para criá-los a não ser em um DBF que tem um campo memo, ele dá erro o que fazer ? outro problema está na hora de abrir o arquivo ele não sabe qual o índice, aqui está todos os procedientos que uso: programa principal #include "fileio.ch" #include "SetCurs.ch" #include "llibg.ch" #include "ord.ch" REQUEST DBFCDX RddSetDefault("DBFCDX") programa de criar indice PROCEDURE REO1 // opção do menu USE ARQCLI NEW EXCL IF BLOQUEIO() = .T. // função que verifica se o arq.está DO L // bloqueado -> está loga abaixo SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Clientes... " IF VERORG("Clientes") = .T. FERASE("ARQCLI.CDX") PACK INDE ON STR(CODIGO,5) TAG CLICOD TO ARQCLI INDE ON NOME TAG CLINOM TO ARQCLI INDE ON STR(TIPO,2)+NOME TAG CLITIP TO ARQCLI ENDIF CLOSE ALL ENDIF USE ARQFOR NEW EXCL IF BLOQUEIO()=.T. DO L SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Fornecedores..." IF VERORG("Fornecedor") FERASE("ARQFOR.CDX") PACK INDE ON STR(CODIGO,3) TAG FORCOD TO ARQFOR INDE ON RAZAO TAG FORAZ TO ARQFOR ENDIF CLOSE ALL ENDIF USE ARQTCLI NEW EXCL IF BLOQUEIO()=.T. DO L SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Tipos de Clientes..." IF VERORG("Tipos de Clientes") FERASE("ARQTCLI.CDX") PACK INDE ON STR(CODIGO,2) TAG TCLICOD TO ARQTCLI INDE ON DESCRICAO TAG TCLIDES TO ARQTCLI ENDIF CLOSE ALL ENDIF RETURN como estou abrindo o arquivo: procedure entrada // prog. onde estão as aberturas FUNCTION ABRE1 SELE 1 USE ARQCLI INDEX ARQCLI NEW IF BLOQUEIO() = .F. RETURN(.F.) ENDIF RETURN(.T.) FUNCTION ABRE2 SELE 2 USE ARQFOR INDEX ARQFOR NEW IF BLOQUEIO() = .F. RETURN(.F.) ENDIF DO L RETURN(.T.) ASSIM POR DIANTE para usar fço o seguinte IF ABRE24()=.T. .AND. ABRE4()=.T. .AND. ABRE17()=.T. .AND. ABRE28()=.T. SELE 24 // ORDSETFOCUS(2) // SET ORDER TO 2 tentei nas duas formas e a mensagem é: workarea nor in use: ORDSETFOCU PARACE QUE QNDO ABRE UM ARQ. ELE FECHA OUTRO NÃO FICANDO TODOS ABERTOS JUNTOS ! O QUE FAZER E MUITO OBRIGADO PELA FORÇA E PACIENCIA COM ESTE HUMILDE APRENDIZ... FUNCTION BLOQUEIO IF NETERR() SAVE SCREEN TO PL SET COLOR TO W+/R EXPLODE(10,8,12,72) SHADOW(10,8,12,72,"W") DO SOM SET CURS OFF SET COLOR TO W+/R @11,9 SAY " Arquivo Bloqueado p/ Manutençäo..." WAIT SET CURS ON CLOSE ALL REST SCREEN FROM PL RETURN(.F.) ENDIF RETURN(.T.) FUNCTION VERORG PARAMETERS XT PRIVATE XT FLOCK() IF FLOCK() = .F. ME = "Arquivo de " + XT + " em Uso Impossível Organizar... SAVE SCREEN TO PL PA = INT((78-LEN(ME))/2) PO = 79 - PA - LEN(ME) SET COLOR TO W+/R EXPLODE(10,PA-2,12,80-PO) SHADOW(10,PA-2,12,80-PO,"W") DO SOM SET CURS OFF SET COLOR TO W+/R @11,PA SAY ME INKEY(0) SET COLOR TO REST SCREEN FROM PL SET CURS ON UNLOCK RETURN(.F.) ENDIF UNLOCK RETURN(.T.) CLIP5.3 FWH2.4

Estou estudando o livro fivewin e lá constei as várias vantagens de migrar meus índices de NTX p/ CDX dos programas em clipper puro, segui as instruções do livro e não tive problemas para criá-los a não ser em um DBF que tem um campo memo, ele dá erro o que fazer ? outro problema está na hora de abrir o arquivo ele não sabe qual o índice, aqui está todos os procedientos que uso: programa principal #include "fileio.ch" #include "SetCurs.ch" #include "llibg.ch" #include "ord.ch" REQUEST DBFCDX RddSetDefault("DBFCDX") programa de criar indice PROCEDURE REO1 // opção do menu USE ARQCLI NEW EXCL IF BLOQUEIO() = .T. // função que verifica se o arq.está DO L // bloqueado -> está loga abaixo SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Clientes... " IF VERORG("Clientes") = .T. FERASE("ARQCLI.CDX") PACK INDE ON STR(CODIGO,5) TAG CLICOD TO ARQCLI INDE ON NOME TAG CLINOM TO ARQCLI INDE ON STR(TIPO,2)+NOME TAG CLITIP TO ARQCLI ENDIF CLOSE ALL ENDIF USE ARQFOR NEW EXCL IF BLOQUEIO()=.T. DO L SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Fornecedores..." IF VERORG("Fornecedor") FERASE("ARQFOR.CDX") PACK INDE ON STR(CODIGO,3) TAG FORCOD TO ARQFOR INDE ON RAZAO TAG FORAZ TO ARQFOR ENDIF CLOSE ALL ENDIF USE ARQTCLI NEW EXCL IF BLOQUEIO()=.T. DO L SET COLOR TO *N/W @24,1 SAY "Aguarde, Organizando Tipos de Clientes..." IF VERORG("Tipos de Clientes") FERASE("ARQTCLI.CDX") PACK INDE ON STR(CODIGO,2) TAG TCLICOD TO ARQTCLI INDE ON DESCRICAO TAG TCLIDES TO ARQTCLI ENDIF CLOSE ALL ENDIF RETURN como estou abrindo o arquivo: procedure entrada // prog. onde estão as aberturas FUNCTION ABRE1 SELE 1 USE ARQCLI INDEX ARQCLI NEW IF BLOQUEIO() = .F. RETURN(.F.) ENDIF RETURN(.T.) FUNCTION ABRE2 SELE 2 USE ARQFOR INDEX ARQFOR NEW IF BLOQUEIO() = .F. RETURN(.F.) ENDIF DO L RETURN(.T.) ASSIM POR DIANTE para usar fço o seguinte IF ABRE24()=.T. .AND. ABRE4()=.T. .AND. ABRE17()=.T. .AND. ABRE28()=.T. SELE 24 // ORDSETFOCUS(2) // SET ORDER TO 2 tentei nas duas formas e a mensagem é: workarea nor in use: ORDSETFOCU PARACE QUE QNDO ABRE UM ARQ. ELE FECHA OUTRO NÃO FICANDO TODOS ABERTOS JUNTOS ! O QUE FAZER E MUITO OBRIGADO PELA FORÇA E PACIENCIA COM ESTE HUMILDE APRENDIZ... FUNCTION BLOQUEIO IF NETERR() SAVE SCREEN TO PL SET COLOR TO W+/R EXPLODE(10,8,12,72) SHADOW(10,8,12,72,"W") DO SOM SET CURS OFF SET COLOR TO W+/R @11,9 SAY " Arquivo Bloqueado p/ Manutençäo..." WAIT SET CURS ON CLOSE ALL REST SCREEN FROM PL RETURN(.F.) ENDIF RETURN(.T.) FUNCTION VERORG PARAMETERS XT PRIVATE XT FLOCK() IF FLOCK() = .F. ME = "Arquivo de " + XT + " em Uso Impossível Organizar... SAVE SCREEN TO PL PA = INT((78-LEN(ME))/2) PO = 79 - PA - LEN(ME) SET COLOR TO W+/R EXPLODE(10,PA-2,12,80-PO) SHADOW(10,PA-2,12,80-PO,"W") DO SOM SET CURS OFF SET COLOR TO W+/R @11,PA SAY ME INKEY(0) SET COLOR TO REST SCREEN FROM PL SET CURS ON UNLOCK RETURN(.F.) ENDIF UNLOCK RETURN(.T.) CLIP5.3 FWH2.4

Quanto ao cursor, deu certo, muito obrigado, mas o bitmap que tento carregar de fundo só ocupa uma parte da tela, estou pegando os modelos da pasta fw24\bitmaps\backgrnd outra coisa que percebi é qndo coloco ç ou â nas mensagens ou no título da janela é apresentado um código diferente, o que fazer p/ que isto não aconteça ? obrigado mais uma vez CLIP5.3 FWH2.4

conforme o livro que comprei, ao definir a barra de botões BUTTONBAR vi que existe a opção de trocar o mouse !! como fazê-lo ? pois tentei e dá erro, meu cursor não é resouse: DEFINE BUTOONBAR oBar; 3D ; OF oWnd; Cursor "hand.cur" (não sei qual a sintaxe correta) ao passar o cursor em cima da barra apresenta o erro !!! porque ao chamar um bitmap para minha tela principal ela não completa toda a tela se estou colocando a opção ADJUST DEFINE BITMAP oBmp FILE(FUNDO.BMP") ADJUST oWnd:bPainted = {| hDC | PalBmpDraw( hDC, 0, 0 oBmp:hBitmap)} Obrigado !! mais uma vez Editado por - maudruidas on 15/07/2006 07:48:40

conforme o livro que comprei, ao definir a barra de botões BUTTONBAR vi que existe a opção de trocar o mouse !! como fazê-lo ? pois tentei e dá erro, meu cursor não é resouse: DEFINE BUTOONBAR oBar; 3D ; OF oWnd; Cursor "hand.cur" (não sei qual a sintaxe correta) ao passar o cursor em cima da barra apresenta o erro !!! porque ao chamar um bitmap para minha tela principal ela não completa toda a tela se estou colocando a opção ADJUST DEFINE BITMAP oBmp FILE(FUNDO.BMP") ADJUST oWnd:bPainted = {| hDC | PalBmpDraw( hDC, 0, 0 oBmp:hBitmap)} Obrigado !! mais uma vez Editado por - maudruidas on 15/07/2006 07:48:40

conforme o livro que comprei, ao definir a barra de botões BUTTONBAR vi que existe a opção de trocar o mouse !! como fazê-lo ? pois tentei e dá erro, meu cursor não é resouse: DEFINE BUTOONBAR oBar; 3D ; OF oWnd; Cursor "hand.cur" (não sei qual a sintaxe correta) ao passar o cursor em cima da barra apresenta o erro !!! porque ao chamar um bitmap para minha tela principal ela não completa toda a tela se estou colocando a opção ADJUST DEFINE BITMAP oBmp FILE(FUNDO.BMP") ADJUST oWnd:bPainted = {| hDC | PalBmpDraw( hDC, 0, 0 oBmp:hBitmap)} Obrigado !! mais uma vez Editado por - maudruidas on 15/07/2006 07:48:40

QUANDO AO CURSOR ELE DIRETO DO ARQUIVO E AO DEFINIR RESOURSE ELE NÃO ACEITA TENTEI FILE TMBEM NÃO FIZ A TELA COMO ME DISSE E AI NÃO CARREGOU A IMAGEM FICOU EM BRANCO, O MODELO QUE ESTOU USANDO É DO O LIVRO FIVEWIN-PRG SCR. A IMAGEM É DA PASTA BMP DO FW, MAS AGRADEÇO A AJUDA, SE DECOBRIR FAVOR RESPONDER...

editei o arquivo fivewin.ch e a versão é mesmo a 2.4, estou usando o clip53 devo continuar com a mesma versão ? conforme o livro que comprei, ao definir a barra de botões BUTTONBAR vi que existe a opção de trocar o mouse !! como fazê-lo ? pois tentei e dá erro: DEFINE BUTOONBAR oBar; 3D ; OF oWnd; Cursor "hand.cur" (não sei qual a sintaxe correta) ao passar o cursor em cima da barra apresenta o erro !!! porque ao chamar um bitmap para minha tela principal ela não completa toda a tela se estou colocando a opção ADJUST DEFINE BITMAP oBmp FILE(FUNDO.BMP") ADJUST oWnd:bPainted = {| hDC | PalBmpDraw( hDC, 0, 0 oBmp:hBitmap)} Obrigado !! mais uma vez

esta cópia eu adquiri junto a um cd que comprei na internet, queria bibliotecas gráficas para fazer um pdv, e vi um anúncio no site www.cdclipper.z6.com.br foi onde conheci o fivewin e entrei em contato com voces, comprei o livro e estou começando a aprender, pretendo comprar o software original, mas ainda estou um pouco confuso qunto a versão fivewin / fwh e etc... a propósito quando coloco ? fwversion e dá erro dizendo que variável não existe, por favor mandem um pequeno exemplo, pois sem saber a versão fica dificel de um montar o meu perfil que tanto pedem !!! obrigado mais uma vez

não entendi aonde devo usar o ? fwversion !! desculpe sou iniciante no fw ! obrigado pela atenção !!

O ARQUIVO DE DESCOMPACTEI DIZ QUE É A VERSÃO 2.4, MAS AO COMPILAR COM BUILD.BAT DIZ QUE É A 1.9 COMO SABER QUAL É A CORRETA ? OBRIGADO

O ARQUIVO DE DESCOMPACTEI DIZ QUE É A VERSÃO 2.4, MAS AO COMPILAR COM BUILD.BAT DIZ QUE É A 1.9 COMO SABER QUAL É A CORRETA ? OBRIGADO

O ARQUIVO DE DESCOMPACTEI DIZ QUE É A VERSÃO 2.4, MAS AO COMPILAR COM BUILD.BAT DIZ QUE É A 1.9 COMO SABER QUAL É A CORRETA ? OBRIGADO

Muito obrigado, deu certo !!!

OBRIGADO PELA ATENÇÃO, MAS CONTINUA NÃO DANDO CERTO FAVOR VERIFICAR O PROGAMA TESTE QUR FIZ #include "fileio.ch" #Include "SetCurs.ch" SET EXAC OFF SET EXCL OFF SET STAT OFF SET CONS OFF SET BELL OFF SET DATE FREN SET EPOC TO 1995 SET WRAP ON SET SCOR OFF SET DELE ON SET DELI ON SET DELI TO "[]" SET DECI TO 2 SET EVENTMASK TO 159 // (INKEY_ALL) CLEAR SetCursor( SC_NONE ) mSetCursor(.F.) SAVE SCREEN TO TEL USE ARQCLI DBEDIT() REST SCREEN FROM TEL TES = SPACE(20) @10,10 SAY "O MOUSE CONTINUA PRESENTE" GET TES PICT "@!" READ CLOSE ALL CLEAR ALL SET COLOR TO CLEAR QUIT

Obrigado pessoal deu certo !!!

ESTOU MUDANDO MEUS SISTEMAS DE CLIP52 P/ CLIP53 E FIVEWIN, MAS AO PASSAR PARA CLIP53 S/ O FIVEWIN, OU SEJA PURO, QUANDO ABRO O DBEDIT APARECE O MOUSE, E NÃO SAI MAIS O QUE FAZER P/ ELE NÃO APARECER ? OBRIGADO

ESTOU MUDANDO MEUS SISTEMAS DE CLIP52 P/ CLIP53 E FIVEWIN, MAS AO PASSAR PARA CLIP53 S/ O FIVEWIN, OU SEJA PURO, QUANDO ABRO O DBEDIT APARECE O MOUSE, E NÃO SAI MAIS O QUE FAZER P/ ELE NÃO APARECER ? OBRIGADO

ESTOU MUDANDO MEUS SISTEMAS DE CLIP52 P/ CLIP53 E FIVEWIN, MAS AO PASSAR PARA CLIP53 S/ O FIVEWIN, OU SEJA PURO, QUANDO ABRO O DBEDIT APARECE O MOUSE, E NÃO SAI MAIS O QUE FAZER P/ ELE NÃO APARECER ? OBRIGADO

Olá pessoal estou iniciando no Fivewin e não consigo linkar os exemplos que tenho, acho que são antigos. Utilizao o clip5.3 c/ blinker7 vcs tem algum exemplo p/ me ajudar obrigado Maurício

Olá pessoal estou iniciando no Fivewin e não consigo linkar os exemplos que tenho, acho que são antigos. Utilizao o clip5.3 c/ blinker7 vcs tem algum exemplo p/ me ajudar obrigado Maurício

Olá pessoal estou iniciando no Fivewin e não consigo linkar os exemplos que tenho, acho que são antigos. Utilizao o clip5.3 c/ blinker7 vcs tem algum exemplo p/ me ajudar obrigado Maurício