BenyHapper

January 28, 2010

No momento estamos com a 9.12, mas logo atualizaremos para a 10.1

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

January 28, 2010

Vailton,

Boa notÃcia, como fazer para adquiri-la?

Temos para uma outra versÃ£o do Fivewin

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

January 28, 2010

AlguÃ©m sabe se jÃ¡ existem libs para MySQL que suportem as novas versÃµes do Fivewin 9.12, 10.1 com xHarbor 1.2.1 ?

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

January 28, 2010

AlguÃ©m sabe se jÃ¡ existem libs para MySQL que suportem as novas versÃµes do Fivewin 9.12, 10.1 com xHarbor 1.2.1 ?

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

December 1, 2009

Vailton,

Desculpe nÃ£o sabia que vc nÃ£o faz parte do suporte, sÃ³ tentei falar contigo, pois jÃ¡ tentei outros meios e nÃ£o conseguir ser atendido, mas me informa qual o caminho devo seguir que eu o farei, pois eu sou quero saber se vai funcionar ou nÃ£o, assim poderei decidir se vou fazer o investimento para aquisiÃ§Ã£o da atualizaÃ§Ã£o ou se vamos deixar de utiliza-la.

Acho que o tempo de muita gente jÃ¡ foi tomado para resolver uma questÃ£o tÃ£o simples, poderia ao menos de dado uma desculpa para o compromisso marcado para as 10:00h de hoje.

kleyber valeu pela solidariedade, nÃ³s usamos os comando xBase suportados pela lib, pois acredito que Ã© a vantagem dela, se for para usar comandos nativos do SQL, qual a necessidade da LIB?

Vc acessa remoto de que modo?

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 30, 2009

Vailton,

POr favor disponibilize um tempo para que eu possa lhe demonstrar como a SQLLIB vem se comportando no acesso remoto e atÃ© demonstro outra aplicaÃ§Ã£o acessando via ADO, para comparaÃ§Ã£o de desempenho.

Quam sabe vc vendo, possa me informar se a nova versÃ£o da SQLLIB resolverÃ¡ ou melhorarÃ¡ a questÃ£o, caso contrÃ¡rio, procuro outra soluÃ§Ã£o e nÃ³s nÃ£o perderemos mais tempo neste assunto.

No aguardo,

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 27, 2009

Podiamos marcar eu lhe daria acesso a meu equipamento Via TEAM e vc veria como Ã© o desempenho inclusive comparando com a aplicaÃ§Ã£o web, acho que assim vc entenderÃ¡ a questÃ£o.

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 27, 2009

Valeu Vailton,

Quanto a conexÃ£o, nÃ³s fazemos a comparaÃ§Ã£o com o prÃ³prio ADO da Microsoft, a mesma Base remota acessada via ADO e com a SQLLIB, a diferenÃ§a de desempenho Ã© gritante.

E como vocÃª lanÃ§ou uma nova versÃ£o gostarÃamos de saber se o desempenho estÃ¡ o mesmo da lib que estamos usando, ou foi melhorado

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 27, 2009

AtÃ© concordo contigo Kapiaba, mas vc sabe o que se fala nÃ£o se escreve, a questÃ£o aqui Ã© a documentaÃ§Ã£o de qualquer solicitaÃ§Ã£o, mas na segunda resolvo isso, mas O Vailton poderia ajudar, afinal para que serve os mails de suporte.

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 27, 2009

JÃ¡ madei diversos email nos vailtom@gmail.com, renato@kssoftware.com.br,suporte@sqllib.com.br

Tentei o MSN e nada, e nÃ£o Ã© a primeira vez que tenho dificuldade em ser atendido, acho que os emails devem ter algum bloqueio e nÃ£o devem ser recebidos por eles, o problema Ã© que minha empresa sÃ³ permite contatos via escrita, para documentaÃ§Ã£o, por isso nem tentei o telefones ainda, mas acho que terei de ligar e ver o que estÃ¡ acontecende.

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 27, 2009

Bom dia Vailton, desculpe incomoda-lo por aqui mas Ã© que jÃ¡ mandamos alguns e-mails e pode ser que os mesmos nÃ£o estejam chegando atÃ© vocÃªs sÃ£o questÃµes sobre a nova versÃ£o da SQLLIB

Qual o melhor email para envio destas questÃµes? Abaixo email com as questÃµes:

-----Mensagem original-----

De: Bene - Exatus.Net [mailto]

Enviada em: quinta-feira, 26 de novembro de 2009 13:09

Para: 'suporte@sqllib.com.br'; 'renato@kssoftware.com.br'

Assunto: Sobre nova versÃ£o da SQLLIB

Boa tarde Vailtom,

GostarÃamos de saber se na nova versÃ£o as sugestÃµes abaixo foram implementadas e se o desempenho para uso da mesma com um servidor remoto foi melhorada, pois na versÃ£o anterior o desempenho Ã© muito fraco a ponto de travar.

Estamos fazendo o questionamento para podermos fazer a atualizaÃ§Ã£o de versÃ£o, pois uma necessidade que temos Ã© a conexÃ£o com um servidor remoto, e hoje a SQLLIB nÃ£o Ã© uma boa opÃ§Ã£o.

Bene

Exatus.Net

11 2227-3078

"Encaminhe suas dÃºvidas e solicitaÃ§Ãµes para o email atendimento@exatus.net"

-----Mensagem original-----

De: Bene - Exatus.Net [mailto] Enviada em: quarta-feira, 8 de julho de 2009 17:36

Para: vailtom@gmail.com

Assunto: SugestÃ£o SQLLIB verificar indices atravÃ©s do BD

Vailton,

Segue funÃ§Ã£o para verificaÃ§Ã£o dos keys de uma tabela

Function ExistKey(key,table)

Dim rsTabs,flag_

Call AbreConexao1() 'Abre uma conexao com o banco Set rsTabs=Conexao1.Execute("SHOW INDEX FROM "&table) 'Solicita a lista de KEYs da Tabela flag_ = false Do While Not rsTabs.EOF

If rsTabs("KEY_NAME") = key Then 'Verifica se existe a Key informada na tabela

flag_ = true

end if

rsTabs.MoveNext

Loop

Call FechaConexao1()

Set rsTabs=Nothing

ExistKey=flag_

End Function

A funÃ§Ã£o retornar true para quando existir ou false quando nÃ£o existir

Bene

Exatus.Net

-----Mensagem original-----

De: Bene - Exatus.Net [mailto] Enviada em: segunda-feira, 13 de julho de 2009 12:19

Para: vailtom@gmail.com

Assunto: SugestÃ£o SQLLIB campo sql_deleted

Vailton,

Como a SQLLIB utiliza o campo sql_deleted, para a compatibilizar com a funÃ§Ã£o SET DELETE do Fivewin, foi imaginado que somente o Fivewin utilizaria a base.

Mas aqui na Exatus nossas aplicaÃ§Ãµes trabalham em conjunto com aplicaÃ§Ãµes web e percebemos o seguinte problema:

Quando a aplicaÃ§Ã£o web cadastra um registro, o mesmo nÃ£o Ã© visualizado na aplicaÃ§Ã£o Fivewin. Isso ocorreu por que o campo sql_deleted nÃ£o estava marcado como false.

Nossa sugestÃ£o Ã© que este campo tenha um valor padrÃ£o: False, assim qualquer aplicaÃ§Ã£o pode cadastrar sem ter que passar na instruÃ§Ã£o SQL o campo.

Outra situaÃ§Ã£o jÃ¡ comentada anteriormente Ã© a necessidade de nÃ£o precisar passar o parametro de tamanho de alguns campos, pois os mesmos nÃ£o sÃ£o necessÃ¡rios, como por exemplo o campo datetime, text entre outros

Bene

Exatus.Net

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

November 27, 2009

Bom dia Vailton, desculpe incomoda-lo por aqui mas Ã© que jÃ¡ mandamos alguns e-mails e pode ser que os mesmos nÃ£o estejam chegando atÃ© vocÃªs sÃ£o questÃµes sobre a nova versÃ£o da SQLLIB

Qual o melhor email para envio destas questÃµes? Abaixo email com as questÃµes:

-----Mensagem original-----

De: Bene - Exatus.Net [mailto]

Enviada em: quinta-feira, 26 de novembro de 2009 13:09

Para: 'suporte@sqllib.com.br'; 'renato@kssoftware.com.br'

Assunto: Sobre nova versÃ£o da SQLLIB

Boa tarde Vailtom,

GostarÃamos de saber se na nova versÃ£o as sugestÃµes abaixo foram implementadas e se o desempenho para uso da mesma com um servidor remoto foi melhorada, pois na versÃ£o anterior o desempenho Ã© muito fraco a ponto de travar.

Estamos fazendo o questionamento para podermos fazer a atualizaÃ§Ã£o de versÃ£o, pois uma necessidade que temos Ã© a conexÃ£o com um servidor remoto, e hoje a SQLLIB nÃ£o Ã© uma boa opÃ§Ã£o.

Bene

Exatus.Net

11 2227-3078

"Encaminhe suas dÃºvidas e solicitaÃ§Ãµes para o email atendimento@exatus.net"

-----Mensagem original-----

De: Bene - Exatus.Net [mailto] Enviada em: quarta-feira, 8 de julho de 2009 17:36

Para: vailtom@gmail.com

Assunto: SugestÃ£o SQLLIB verificar indices atravÃ©s do BD

Vailton,

Segue funÃ§Ã£o para verificaÃ§Ã£o dos keys de uma tabela

Function ExistKey(key,table)

Dim rsTabs,flag_

Call AbreConexao1() 'Abre uma conexao com o banco Set rsTabs=Conexao1.Execute("SHOW INDEX FROM "&table) 'Solicita a lista de KEYs da Tabela flag_ = false Do While Not rsTabs.EOF

If rsTabs("KEY_NAME") = key Then 'Verifica se existe a Key informada na tabela

flag_ = true

end if

rsTabs.MoveNext

Loop

Call FechaConexao1()

Set rsTabs=Nothing

ExistKey=flag_

End Function

A funÃ§Ã£o retornar true para quando existir ou false quando nÃ£o existir

Bene

Exatus.Net

-----Mensagem original-----

De: Bene - Exatus.Net [mailto] Enviada em: segunda-feira, 13 de julho de 2009 12:19

Para: vailtom@gmail.com

Assunto: SugestÃ£o SQLLIB campo sql_deleted

Vailton,

Como a SQLLIB utiliza o campo sql_deleted, para a compatibilizar com a funÃ§Ã£o SET DELETE do Fivewin, foi imaginado que somente o Fivewin utilizaria a base.

Mas aqui na Exatus nossas aplicaÃ§Ãµes trabalham em conjunto com aplicaÃ§Ãµes web e percebemos o seguinte problema:

Quando a aplicaÃ§Ã£o web cadastra um registro, o mesmo nÃ£o Ã© visualizado na aplicaÃ§Ã£o Fivewin. Isso ocorreu por que o campo sql_deleted nÃ£o estava marcado como false.

Nossa sugestÃ£o Ã© que este campo tenha um valor padrÃ£o: False, assim qualquer aplicaÃ§Ã£o pode cadastrar sem ter que passar na instruÃ§Ã£o SQL o campo.

Outra situaÃ§Ã£o jÃ¡ comentada anteriormente Ã© a necessidade de nÃ£o precisar passar o parametro de tamanho de alguns campos, pois os mesmos nÃ£o sÃ£o necessÃ¡rios, como por exemplo o campo datetime, text entre outros

Bene

Exatus.Net

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

May 12, 2009

LuizÃ£o,

Muito obrigado pela sua ajuda, funcionou da maneira que vocÃª citou.

Fiquei decepcionado com o suporte da SQLLIB, nenhum contato dos caras, se se interessam em vender o pÃ³s vocÃª que se vire no forum, depois os desenvolvedores questionam o por que de ninguÃ©m dar valor a nossa profissÃ£o.

AtÃ©

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

May 12, 2009

Tentei com a a versÃ£o XHB 1.1.0 e deu erro com a RTL.LIB.

Vejam se estou fazendo algo errado com as configuraÃ§Ãµes para uso

Inicio do PRG

#include "sqllib.ch"

REQUEST SQLLIB

REQUEST MySQL

No xDev informei SIM para SQL Lib antes das Libs do Fivewin e SIM para RDD SQL LIB

Mas dÃ¡ esso erro Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from C:\C32\XHARBOUR\LIB\RTL.LIB|regex

O pior Ã© que pensei em baixar o xHarbour do site Oficial, mas estÃ¡ na versÃ£o 1.20 ai sÃ³ aumentaria meus problemas, pois a SQL LIB nem tem para essa versÃ£o

Bene

E-mail :benyhapper@hotmail.com

FWH801 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

May 12, 2009

JÃ¡ mandei diversos emails para o suporte nem se deram ao trabalho de responder.

Baixei o Xharbour do tÃ³pico mas ele Ã© a versÃ£o 1.1.0 e no meu pacote nÃ£o tem a lib sqllib_xHB_110A.LIB. somente da versÃ£o A atÃ© a g.

Vou tentando, fazer o que.

Valeu pela ajuda aqui do forum

Bene

E-mail :benyhapper@hotmail.com

FWH705 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

May 11, 2009

Estou com um problema com a SQLLib adquirida recentemente

FIz a inclusÃ£o no meu projeto e ao compilar dÃ¡ o seguinte erro:

slqlib.prg was compiled by older version PCODE version 7 in no longer supported

Alguem pode dar uma luz?

FWH8.01 + XHarbour0.99.71 + BCC5.5.1

Bene

E-mail :benyhapper@hotmail.com

FWH705 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

May 11, 2009

Estou com um problema com a SQLLib adquirida recentemente

FIz a inclusÃ£o no meu projeto e ao compilar dÃ¡ o seguinte erro:

slqlib.prg was compiled by older version PCODE version 7 in no longer supported

Alguem pode dar uma luz?

FWH8.01 + XHarbour0.99.71 + BCC5.5.1

Bene

E-mail :benyhapper@hotmail.com

FWH705 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

August 14, 2007

Eu estou tendo problemas na hora para fazer o update de um registo quando eu nÃ£o modifico nada, mas se eu modificar algo funciona sem problemas, um outro problema Ã© quando eu recupero o conteÃºdo de um campo da base de dados, conseqÃ¼entemente a variavel Ã© dimencionada para o tamanho do conteÃºdo e nÃ£o para o tamanho definido na base de dados, o que atrapalha editar a informaÃ§Ã£o no GET segue abaixo do PRG:

OBS: NÃ£o desejo usar LIBS de Terceiros, pois apesar de muito boas tratam de usar os acessos ao banco conforme o Clipper/Fivewin utilizam e eu por ter conhecimentos em desenvolvimento WEB, prefiro trabalhar diretamente com as instruÃ§Ãµes em SQL e ADO. O problema que enfrento Ã© simplesmente com a integraÃ§Ã£o destes conhecimentos com a liguagem Xharbour + Fivewin + ADO.

AgradeÃ§o a ajuda.

PRG

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

#include "FiveWin.ch"

#include "TSButton.ch"

#include "Report.ch"

#include "InKey.ch"

#include "winapi.ch"

#Include "Struct.Ch"

FUNCTION Main()

PUBLIC oFontSay

PUBLIC oFontSayB

PUBLIC oFontGet

PUBLIC oFontBut

PUBLIC oFontTit

PUBLIC oFontChk

PUBLIC oFontLis

PUBLIC oBrushTela

PUBLIC USER

PUBLIC ACESSO

PUBLIC CODIGO

PUBLIC CONEXAO

PUBLIC TABELA

MFONTES()

SET TALK OFF

SET DATE FRENCH

SET BELL OFF

SET STAT OFF

SET SCORE OFF

SET WRAP ON

SET CURSOR OFF

SET DELETED ON

SET EPOCH TO 2000

SET DECIMAL TO 2

SET CENTURY ON

SET EXCLUSIVE OFF

SETHANDLECOUNT(250)

CONTINUAR=.F.

ORDLIST=0

DEFINE BRUSH oBrush COLOR nRGB(255,255,255)

DEFINE ICON oIcon FILE "WORKER.ICO"

DEFINE WINDOW oWnd FROM 0,40 to 40,120 TITLE "AdministraÃ§Ã£o de Clientes e Contatos";

BRUSH oBrush;

ICON oIcon;

@ 65,30 SBUTTON PIXELS PROMPT "&Entrar" TEXT ON_CENTER NOBOX FILE "OFF.FIG","ON.FIG" ADJUST FONT oFontbut OF oWnd SIZE 40,12 ACTION (ListMunicipios())

SET MESSAGE OF oWnd to "EXATUS.NET" CENTERED

oItem := TMsgItem():New( oWnd:oMsgBar, dtoc(date()), 80,oFontsay,"R/W",,.T. )

oItem := TMsgItem():New( oWnd:oMsgBar, Alltrim(user), 80,oFontsay,"R/W",,.T. )

oItem := TMsgItem():New( oWnd:oMsgBar, "VersÃ£o: 11/05/2007", 140,oFontsay,"R/W",,.T. )

WNDCENTER( oWnd:hWnd )

ACTIVATE WINDOW oWnd

SysRefresh()

RETURN NIL

PROCEDURE MFONTES()

DEFINE FONT oFontsay NAME "Verdana" SIZE 0,-11

DEFINE FONT oFontsayB NAME "Verdana" SIZE 0,-10 BOLD

DEFINE FONT oFontGet NAME "Verdana" SIZE 0,-9

DEFINE FONT oFontBut NAME "Verdana" SIZE 0,-11

DEFINE FONT oFontTit NAME "Verdana" SIZE 0,-11

DEFINE FONT oFontChk NAME "Verdana" SIZE 0,-11

DEFINE FONT oFontLis NAME "Verdana" SIZE 0,-9

DEFINE BRUSH oBrushTela COLOR nRGB(236,233,216)

RETURN

PROCEDURE AbreConexao()

Try

Conexao:=CreateObject("ADODB.Connection")

Conexao:Open("driver=MySQL ODBC 3.51 Driver;server=localhost;uid=Teste;pwd=teste;database=clientsexatus")

Catch e

MsgStop("Operacao: "+E:operation+" - "+"DescriÃ§Ã£o: "+E:Description+chr(10))

End

Try

Tabela:=CreateObject("ADODB.Recordset")

Tabela:ActiveConnection = Conexao

Catch e

MsgStop("Operacao: "+E:operation+" - "+"DescriÃ§Ã£o: "+E:Description+chr(10))

End

RETURN

PROCEDURE FechaConexao()

Try

IF Tabela:State()<>0

Tabela:Close()

ENDIF

Catch e

MsgStop("Operacao: "+E:operation+" - "+"DescriÃ§Ã£o: "+E:Description+chr(10))

End

Try

IF Conexao:State()<>0

Conexao:Close()

ENDIF

Catch e

MsgStop("Operacao: "+E:operation+" - "+"DescriÃ§Ã£o: "+E:Description+chr(10))

End

RETURN

FUNCTION Browse(aq, cTitle, cListName, bNew, bModify, bDelete, bSearch, bList, bEdit )

LOCAL oDlg, oFont, oBrush

LOCAL btnNew, btnModify, btnDelete, btnSearch, btnList, btnEnd

LOCAL n,BORDEM

LOCAL CONTINUA:=.T.

LOCAL oReg,nReg

PUBLIC AQS

PUBLIC oLbx

AQS=AQ

MFONTES()

DEFAULT cTitle := "Browse", cListName := "Registros",;

bDelete := {|| oLbx:Setfocus()},;

bList := {|| oLbx:Setfocus()},BEDIT:=.F.

DEFINE DIALOG oDlg FROM 1, 5 TO 27, 79 TITLE cTitle FONT oFontTit BRUSH oBrushTela STYLE WS_CAPTION

@ 0.2,1.4 SAY "Total de Registros: " FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 58,7

@ 0.2,11 SAY oReg VAR nReg FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 216,7

IF AQ=1

nReg=STR(Tabela:RecordCount(),10)

oReg:Refresh()

Tabela:MoveLast()

FOR I=1 TO 16

IF !Tabela:BOF()

Tabela:Move(-1)

ENDIF

NEXT I

@ 1,1 LISTBOX oLbx FIELDS STR(Tabela:Fields("codigo"):Value,10),Tabela:Fields("uf"):Value,Tabela:Fields("municipio"):Value ;

HEADERS "CÃ³digo","UF","Municipio" SIZE 275,137 OF oDlg

oLbx:aColSizes :={60,100,200}

oLbx:aJustify :={.T.,.F.,.F.}

ENDIF

oLbx:nLineStyle :=3

oLbx:nClrBackFocus:=RGB(227,255,104)

oLbx:nClrForeFocus:=RGB(0,0,0)

oLbx:nClrPane :={|| IIF((oLbx:cAlias)->(ordlist())%2==0,nRGB(240,255,255),nRGB(230,230,230))}

oLbx:bLogicLen :={|| Tabela:RecordCount}

oLbx:bGoTop :={|| Tabela:MoveFirst()}

oLbx:bGoBottom :={|| Tabela:MoveLast()}

oLbx:bSkip :={| nSkip | Skipper(Tabela,nSkip)}

@ 156,027 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontBut COLOR 0,nRGB(255,255,255) PROMPT "&Inclui" btnNew FILE "INCLUI.FIG" SIZE 35,35 OF oDlg

@ 156,067 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT "&Altera" btnModify FILE "ALTERA.FIG" SIZE 35,35 OF oDlg

@ 156,107 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT "&Exclui" btnDelete FILE "EXCLUI.FIG" SIZE 35,35 OF oDlg

@ 156,147 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT "&Procura" btnSearch FILE "PROC.FIG" SIZE 35,35 OF oDlg

@ 156,187 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT "I&mprimir" btnList FILE "IMPRIME.FIG" SIZE 35,35 OF oDlg

@ 156,227 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT "&Sair" btnEnd FILE "SAIR1.FIG" SIZE 35,35 OF oDlg

btnNew:bAction = If(bNew != nil,{|| Eval(bNew) ,oLbx:Refresh(),oLbx:SetFocus()},)

btnModify:bAction = If(bModify != nil,{|| Eval(bModify),oLbx:Refresh(),oLbx:SetFocus()},)

btnDelete:bAction = If(bDelete != nil,{|| Eval(bDelete),oLbx:Refresh(),oLbx:SetFocus()},)

btnSearch:bAction = If(bSearch != nil,{|| Eval(bSearch),oLbx:Refresh(),oLbx:SetFocus()},)

btnList:bAction = If(bList != nil,{|| Eval(bList) ,oLbx:Refresh(),oLbx:SetFocus()},)

btnEnd:bAction = {||oDlg:End(),SysRefresh()}

odlg:lhelpicon:=.f.

ACTIVATE DIALOG oDlg CENTERED

Conexao:Execute("Commit")

FechaConexao()

RETURN NIL

STATIC FUNCTION SKIPPER(oRsx,nSkip)

LOCAL nRec := oRsx:AbsolutePosition

oRsx:Move(nSkip)

IF oRsx:EOF; oRsx:MovePrevious(); ENDIF

IF oRsx:BOF; oRsx:MoveNext(); ENDIF

RETURN(oRsx:AbsolutePosition() - nRec)

FUNCTION ORDLIST()

IF ORDLIST=0

ORDLIST=1

RETURN 1

ELSE

ORDLIST=0

RETURN 2

ENDIF

RETURN 1

FUNCTION ListMunicipios()

MFONTES()

AbreConexao()

Tabela:CursorType = 1

Tabela:CursorLocation = 3

Tabela:LockType = 2

MSGRUN("Aguarde - Carregando Dados","Aguarde...",{||Tabela:Open("SELECT codigo,uf,municipio FROM uf USE INDEX(uf) ORDER BY uf")})

Browse(1,"Lista de Municipios","Lista de Municipios",{||NewMunicipios("I")},{||NewMunicipios("A")},{||EraseMunicipios(Tabela:Fields("codigo"):Value)})

SysRefresh()

RETURN

FUNCTION NewMunicipios(tipo)

PUBLIC codigo,uf,municipio

IF tipo="A"

codigo=Tabela:Fields("codigo"):Value

uf=ESPANTES(Tabela:Fields("uf"):Value,Tabela:Fields("municipio"):DefinedSize)

municipio:=ESPANTES(Tabela:Fields("municipio"):Value,Tabela:Fields("municipio"):DefinedSize)

ENDIF

IF tipo="I"

codigo=0

uf=SPACE(2)

municipio=SPACE(30)

ENDIF

DEFINE DIALOG oDlg FROM 1,1 TO 12,39 TITLE "Cadastro de UF/Municipio" FONT oFontTit BRUSH oBrushTela STYLE WS_CAPTION

@ 0.35,0.35 SAY " " RAISED BOX COLOR CLR_BLACK,nRGB(248,248,248) SIZE 148,50 OF oDlg

@ 0.9,2 SAY "CÃ³digo" FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 25,10

@ 1.8,2 SAY "UF" FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 25,10

@ 2.7,2 SAY "Municipio" FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 40,10

@ 1.0,5 GET codigo FONT oFontGet size 30,11

@ 2.0,5 GET uf FONT oFontGet size 20,11

@ 3.0,5 GET municipio FONT oFontGet size 100,11

@ 65,30 SBUTTON PIXELS PROMPT "&Confirma" TEXT ON_CENTER NOBOX FILE "OFF.FIG","ON.FIG" ADJUST FONT oFontbut OF oDlg SIZE 40,12 ACTION (SaveMunicipios(tipo),oLbx:Refresh(),oDlg:End()) DEFAULT

@ 65,85 SBUTTON PIXELS PROMPT "C&ancela" TEXT ON_CENTER NOBOX FILE "OFF.FIG","ON.FIG" ADJUST FONT oFontbut OF oDlg SIZE 40,12 ACTION (oDlg:End())

odlg:lhelpicon:=.f.

ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION SaveMunicipios(tipo)

IF tipo="A"

Tabela:Fields("uf"):Value:=ALLTRIM(uf)

Tabela:Fields("municipio"):Value:=ALLTRIM(municipio)

Tabela:Update()

ENDIF

IF tipo="I"

Tabela:AddNew()

Tabela:Fields("uf"):Value:=ALLTRIM(uf)

Tabela:Fields("municipio"):Value:=ALLTRIM(municipio)

Tabela:Update()

ENDIF

RETURN NIL

FUNCTION EraseMunicipios(cod)

IF MSGYESNO( "Deseja Excluir este Registro ?","AVISO DE EXCLUSÃƒO")

Tabela:Delete()

Tabela:UpdateBatch()

Tabela:MoveNext()

IF Tabela:EOF; Tabela:MovePrevious(); ENDIF

ENDIF

RETURN NIL

procedure espantes(VARIAVEL,TAMANHO)

RETURN ALLTRIM(VARIAVEL)+SPACE(TAMANHO-LEN(ALLTRIM(VARIAVEL)))

Bene

E-mail :benyhapper@hotmail.com

FWH705 / Xhar9971 / @Say

MSN: benyhapper@hotmail.com

SÃ£o Paulo/SP

August 14, 2007