VFP Brasil

Utilizando o EXCEL

2010-07-27T07:34:00.000-07:00

Por Marcos Guedes (Programação Brasil)

CLEAR

obj = NEWOBJECT("excelfiles")

obj.cnamefile = "F:\teste.xls"

*!*obj.cpassword = '654321'

obj.openfile()

?obj.readcellvalue("A1")

?obj.readcellvalue("A2")

*!*obj.cpassword = ''

*!*obj.savefile('')

obj.closefile()

obj = NULL

DEFINE CLASS excelfiles AS CUSTOM

NAME = "EXCELFILES"

HIDDEN objexcel

objexcel = NULL

cnamefile = ""

cpassword = NULL

quitexcel = .T.

FUNCTION openfile AS logical

*!* It open o file specified in the property "cNameFile".

LOCAL fileopened AS logical

m.fileopened = .F.

IF FILE(THIS.cnamefile,1) THEN

TRY

THIS.objexcel.workbooks.OPEN(THIS.cnamefile,,,,THIS.cpassword)

m.fileopened = .T.

CATCH TO oerr

LOCAL strerro AS STRING

m.strerro = ""

m.strerro = "" + m.strerro + "Date: " + DTOC(DATE()) + _enter

m.strerro = "" + m.strerro + "Hour: " + TIME() + _enter

m.strerro = "" + m.strerro + "Error: " + ALLTRIM(STR(m.oerr.ERRORNO)) + _enter

m.strerro = "" + m.strerro + "LineNo: " + ALLTRIM(STR(m.oerr.LINENO)) + _enter

m.strerro = "" + m.strerro + "Message: " + m.oerr.MESSAGE + _enter

m.strerro = "" + m.strerro + "Procedure: " + m.oerr.PROCEDURE + _enter

m.strerro = "" + m.strerro + "Details: " + m.oerr.DETAILS + _enter

m.strerro = "" + m.strerro + "StackLevel: " + ALLTRIM(STR(m.oerr.STACKLEVEL)) + _enter

m.strerro = "" + m.strerro + "LineContents: " + m.oerr.LINECONTENTS + _enter + _enter

STRTOFILE(m.strerro, SYS(5)+CURDIR()+"ErrosABT.log", 1)

MESSAGEBOX(m.strerro, 16, THIS.NAME)

FINALLY

ENDTRY

ENDIF

RETURN m.fileopened

ENDFUNC

PROCEDURE closefile AS void

*!* It open o file specified in the property "cNameFile".

THIS.objexcel.workbooks.CLOSE()

ENDPROC

FUNCTION savefile AS logical

*!* It saves the file with the same name.

LPARAMETERS m.cpassword AS STRING

LOCAL filesaved AS logical

m.filesaved = .F.

TRY

IF (VARTYPE(m.cpassword) == "C") THEN

THIS.objexcel.activeworkbook.PASSWORD = m.cpassword

ENDIF

THIS.objexcel.SAVE()

m.filesaved = .T.

CATCH TO oerr

LOCAL strerro AS STRING

m.strerro = ""

m.strerro = "" + m.strerro + "Date: " + DTOC(DATE()) + _enter

m.strerro = "" + m.strerro + "Hour: " + TIME() + _enter

m.strerro = "" + m.strerro + "Error: " + ALLTRIM(STR(m.oerr.ERRORNO)) + _enter

m.strerro = "" + m.strerro + "LineNo: " + ALLTRIM(STR(m.oerr.LINENO)) + _enter

m.strerro = "" + m.strerro + "Message: " + m.oerr.MESSAGE + _enter

m.strerro = "" + m.strerro + "Procedure: " + m.oerr.PROCEDURE + _enter

m.strerro = "" + m.strerro + "Details: " + m.oerr.DETAILS + _enter

m.strerro = "" + m.strerro + "StackLevel: " + ALLTRIM(STR(m.oerr.STACKLEVEL)) + _enter

m.strerro = "" + m.strerro + "LineContents: " + m.oerr.LINECONTENTS + _enter + _enter

STRTOFILE(m.strerro, SYS(5)+CURDIR()+"ErrosABT.log", 1)

MESSAGEBOX(m.strerro, 16, THIS.NAME)

FINALLY

ENDTRY

RETURN m.filesaved

ENDFUNC

FUNCTION savefileas AS logical

*!* It saves the file with other name.

LPARAMETERS cnewnamefile AS STRING, m.cpassword AS STRING

IF (VARTYPE(m.cpassword) == "C") THEN

THIS.objexcel.activeworkbook.PASSWORD = m.cpassword

ENDIF

IF (VARTYPE(m.cnewnamefile) == "C") THEN

THIS.objexcel.activeworkbook.SAVEAS(m.cnewnamefile)

RETURN .T.

ELSE

RETURN .F.

ENDIF

ENDFUNC

FUNCTION readcellvalue

*!* It edit the value of a cell.

LPARAMETERS ccelllinecollumn AS STRING

RETURN THIS.objexcel.RANGE(m.ccelllinecollumn).VALUE

ENDFUNC

PROCEDURE editcellvalue AS void

*!* It edit the value of a cell.

LPARAMETERS ccelllinecollumn AS STRING, cnewvalue AS STRING

THIS.objexcel.RANGE(m.ccelllinecollumn).VALUE = m.cnewvalue

ENDPROC

PROCEDURE editcellcolor AS void

*!* It edit the color of a cell.

*!* Minimum:1 Maximim: 56

LPARAMETERS ccelllinecollumn AS STRING, ncolor AS INTEGER

THIS.objexcel.RANGE(m.ccelllinecollumn).interior.colorindex = m.ncolor

ENDPROC

PROCEDURE editcellwidth AS void

*!* It edit the value of a cell.

LPARAMETERS ccelllinecollumn AS STRING, nwidth AS INTEGER

THIS.objexcel.RANGE(m.ccelllinecollumn).COLUMNWIDTH = m.nwidth

ENDPROC

PROCEDURE insertcelltoright AS void

LPARAMETERS cellrange AS STRING

*!* Insere uma nova célula, movendo o restante para a direita

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.INSERT(1)

ENDPROC

PROCEDURE deletecelltoleft AS void

LPARAMETERS cellrange AS STRING

*!* Remove a célula, movendo o restante para a esquerda

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.DELETE(1)

ENDPROC

PROCEDURE insertcelltobottom AS void

LPARAMETERS cellrange AS STRING

*!* Insere uma nova célula, movendo o restante para baixo

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.INSERT(2)

ENDPROC

PROCEDURE deletecelltotop AS void

LPARAMETERS cellrange AS STRING

*!* Remove a célula, movendo o restante para a cima

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.DELETE(2)

ENDPROC

PROCEDURE insertrowtobottom AS void

LPARAMETERS cellrange AS STRING

*!* Insere uma nova linha acima da célula selecionada, movendo o restante para baixo

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.INSERT(3)

ENDPROC

PROCEDURE deletecelltotop AS void

LPARAMETERS cellrange AS STRING

*!* Remove a linha da célula selecionada, movendo o restante para cima

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.DELETE(3)

ENDPROC

PROCEDURE insertcolltoright AS void

LPARAMETERS cellrange AS STRING

*!* Insere uma nova coluna à direita da célula selecionada, movendo o restante para a direita

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.INSERT(4)

ENDPROC

PROCEDURE deletecolltoleft AS void

LPARAMETERS cellrange AS STRING

*!* Remove a coluna da célula selecionada, movendo o restante para a esquerda

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.DELETE(4)

ENDPROC

PROCEDURE deletecolltoleft AS void

LPARAMETERS cellrange AS STRING

*!* Remove a coluna da célula selecionada, movendo o restante para a esquerda

THIS.objexcel.RANGE(m.cellrange).SELECT

THIS.objexcel.activecell.DELETE(4)

ENDPROC

PROCEDURE mergecell AS void

LPARAMETERS cellrange AS STRING

*!* Remove a coluna da célula selecionada, movendo o restante para a esquerda

THIS.objexcel.RANGE(m.cellrange).merge

ENDPROC

PROCEDURE editcellheight AS void

*!* It edit the value of a cell.

LPARAMETERS ccelllinecollumn AS STRING, nheight AS INTEGER

THIS.objexcel.RANGE(m.ccelllinecollumn).ROWHEIGHT = m.nheight

ENDPROC

PROCEDURE cellbold AS void

*!* Bold

LPARAMETERS ccelllinecollumn AS STRING, lbold AS logical

THIS.objexcel.RANGE(m.ccelllinecollumn).FONT.bold = m.lbold

ENDPROC

PROCEDURE cellitalic AS void

*!* Italic

LPARAMETERS ccelllinecollumn AS STRING, litalic AS logical

THIS.objexcel.RANGE(m.ccelllinecollumn).FONT.italic = m.litalic

ENDPROC

PROCEDURE cellunderline AS void

*!* Underline

LPARAMETERS ccelllinecollumn AS STRING, lunderline AS logical

THIS.objexcel.RANGE(m.ccelllinecollumn).FONT.italic = m.lunderline

ENDPROC

PROCEDURE cellforecolor AS void

*!* Forecolor

LPARAMETERS ccelllinecollumn AS STRING, ncolor AS INTEGER

THIS.objexcel.RANGE(m.ccelllinecollumn).FONT.colorindex = m.ncolor

ENDPROC

PROCEDURE cellbordersingler AS void

*!* Forecolor

LPARAMETERS ccelllinecollumn AS STRING, nstyle AS INTEGER

THIS.objexcel.RANGE(m.ccelllinecollumn).BORDERS.linestyle = m.nstyle

ENDPROC

PROCEDURE cellhorizontalalignment AS void

*!* 1: Left; 2: Center; 3: Right

LPARAMETERS ccelllinecollumn AS STRING, nposition AS INTEGER

DO CASE

CASE (m.nposition = 1)

THIS.objexcel.RANGE(m.ccelllinecollumn).horizontalalignment=-4131

CASE (m.nposition = 2)

THIS.objexcel.RANGE(m.ccelllinecollumn).horizontalalignment=-4108

CASE (m.nposition = 3)

THIS.objexcel.RANGE(m.ccelllinecollumn).horizontalalignment=-4152

OTHERWISE

ENDCASE

ENDPROC

PROCEDURE showexcel AS void

THIS.objexcel.VISIBLE = .T. && Excel visible

ENDPROC

HIDDEN PROCEDURE INIT AS void

THIS.objexcel = NEWOBJECT('Excel.Application')

*!*

THIS.objexcel.displayalerts = .F. && Disable any dialog message

THIS.objexcel.VISIBLE = .F. && Excel invisible

ENDPROC

HIDDEN PROCEDURE DESTROY AS void

IF (THIS.quitexcel = .T.) THEN

THIS.objexcel.QUIT()

ENDIF

THIS.objexcel = NULL

ENDPROC

HIDDEN PROCEDURE ERROR AS void

LPARAMETERS nerror, cmethod, nline

MESSAGEBOX("Erro: " + ALLTRIM(STR(m.nerror)) + _enter+;

"Método: " + ALLTRIM(m.cmethod) + _enter+;

"Linha: " + ALLTRIM(STR(m.nline)) + _enter+;

"Descrição: "+MESSAGE(),16, THIS.NAME)

ENDPROC

ENDDEFINE

Programação Brasil no Twitter

2010-07-06T19:12:00.001-07:00

Seja um seguidor(a) do Programação Brasil, no Twitter:

http://twitter.com/programacaobras

Você poderá acompanhar todas as novidades que ocorrem no site.

Projeto VFP (Gratuito)

2010-01-12T09:29:00.000-08:00

Se você tem interesse em participar - gratuitamente - da criação de um projeto em VFP,
acesse o seguinte link:
http://programacaobrasil.5forum.info/-f22/

BR Office Calc

2009-12-16T12:40:00.000-08:00

Segue um modelo simples para manipulação de arquivos do BR Office.
Para ilustração dos recursos que podem ser utilizados, segue em anexo duas classes.

A primeira, "brcalcfiles" mostra como manipular planilhas através do BR Office.
A segunda, "brofficefiles" mostra algumas opções, tais como converter para PDF, HTML e outros...

Havendo alguma mudança na classe, favor postá-la(s) neste fórum para que nossos colegas tomem conhecimento.

Para obter o arquivo, clique aqui!

Só um lembrete: O BR office deverá está instalado!

Segue um exemplo de como utilizá-la:

CLEAR ALL
WAIT "Aguarde..." WINDOW NOWAIT NOCLEAR
m.obj = NEWOBJECT("brcalcfiles")
m.obj.openfile("f:\nov-2008.xls")
m.obj.exporthtml("f:\teste.html")
m.obj.closefile()
m.obj = NULL
WAIT CLEAR

Google + API + Foxpro

2009-10-27T12:53:00.000-07:00

Google Tradutor:
http://programacaobrasil.5forum.info/visual-foxpro-f4/vfp-translator-t382.htm

Google Maps
http://programacaobrasil.5forum.info/visual-foxpro-f4/google-maps-t384.htm

Países do Banco Central do Brasil

2009-09-17T10:41:00.000-07:00

Segue o link para download do arquivo:
http://www.4shared.com/file/133392686/784322f6/paisBACEN.html

Help x Visual Foxpro

2009-08-12T13:05:00.000-07:00

Crie Help's no Visual Foxpro utilizando o [b]Microsoft HTML Workshop[/b].

Segue o link de um projeto para demonstração:
http://www.4shared.com/file/124639625/dfd4abc5/help.html

Segue o link de um tutorial:
http://www.4shared.com/file/124639847/6d1e4065/helps.html

Fonte:
http://br.groups.yahoo.com/group/visual_foxfonte/

Enviando emails com winsock

2009-08-06T19:00:00.000-07:00

Segue uma ótima rotina encontrada no site http://www.xfrx.net/vfpWinsock/
Para download do arquivo, basta clicar no seguinte link:
http://www.4shared.com/file/123451622/832b7cac/VFPwinsock.html

Se preferir, você pode acessar também a página oficial no seguinte endereço:
~~http://www.xfrx.net/vfpWinsock/SendMaildownload_e.asp~~

Para exemplos de como utilizar a rotina acesso o link abaixo:
~~http://www.xfrx.net/vfpWinsock/SendMailexemples_e.asp~~

Esta rotina funcionará em máquina que não têm o fox instalado, apenas se a seguinte chave estiver incluída no registro:

[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d]
@="mlrljgrlhltlngjlthrligklpkrhllglqlrk"

A chave poderá ser adicionada manualmente, ou se preferir, baixe o arquivo contido no link abaixo e execute na máquina que utilizará esta rotina:
http://www.4shared.com/file/124205380/c57df255/HabilitarWinsock.html

Esta dica foi encontrada no seguinte link:
http://forums.devx.com/archive/index.php/t-75785.html

Link de exemplos (similar): (Adicionado em 25/01/2011)
http://www.vfpwinsock.com/exemples.asp

Form Transparente

2009-08-06T18:21:00.000-07:00

Segue um exemplo de transparência num form.
http://www.4shared.com/file/123445863/28dc1ad3/FormTransparente.html

Criptografia

2009-07-09T19:51:00.000-07:00

Classe muito boa para criptografia, utilizando o Blowfish:
http://www.4shared.com/file/117088608/35011ded/blowfish.html

Classe muito boa para criptografia, utilizando o MD5:
http://www.4shared.com/file/117088768/6299d05c/md5.html

Atualização para VFP 9.0 SP2

2009-05-27T11:45:00.000-07:00

Segue um link para download de uma atualização que corrige alguns problemas existentes no VFP 9.0 SP2.
Após baixar o arquivo zipado, descompacte-o e cole os arquivos na pasta de instalação do Visual Foxpro 9.0, substituindo os existentes.

Clique no link abaixo para baixar a atualização:
http://www.4shared.com/file/108183501/68243fc3/VFP90SP2-KB968409-ENU.html

ZIP X VFP

2009-05-20T06:33:00.001-07:00

Uma ótima rotina para manipulação de arquivos zipados:
http://www.4shared.com/file/106612062/592a45e5/Zip.html

FoxTray

2009-05-20T06:16:00.001-07:00

Exemplo utilizando FoxTray:
http://www.4shared.com/file/106607615/863ce3b1/FoxTray.html

EXE X VFP

2009-05-20T05:57:00.000-07:00

Abrindo aplicações externas com o VFP:
http://www.4shared.com/file/106601910/d8610fdf/exewindows.html

Fechando aplicações externas com o VFP:
http://www.4shared.com/file/106604087/afc8ea88/killprocess.html

Gerando Código de Barras

2009-04-28T05:52:00.000-07:00

Segue um exemplo prático de como gerar alguns modelos de código de barras.

Download no link abaixo:
http://www.4shared.com/file/102203987/52108fbb/barras.html

Clique no link baixo para baixar a fonte Barra Biro para impressão de códigos de barra em pdf:
http://www.4shared.com/file/167399045/22dced84/BarrasBiroPdf.html

Downloads via HTTP, HTTPS, FTP e FTPS.

2009-04-23T07:52:00.000-07:00

A VFPCONNECTION.FLL é ótima para downloads via HTTP, HTTPS, FTP
e FTPS.

Clique no link abaixo para baixá-la juntamente com um exemplo:
http://www.4shared.com/file/101290564/72cddde9/VFPCONNECTION.html

Tabela de Cidades do IBGE 2009

2009-04-07T09:18:00.001-07:00

Clique no link abaixo para obter o arquivo:

Opção 1:
http://www.4shared.com/file/97268640/eccf6222/TabelaCidadesIBGE2009.html

Opção 2:

http://www.4shared.com/file/uRr04Zq6/codcepibge.html

REFOX

2009-04-01T11:47:00.000-07:00

Decompile aplicaçãoes feitas com o Fox.
Este software é muito bom, e permite que você proteja sua aplicação até dele mesmo.

Link para download:
http://www.4shared.com/file/59629626/82cb8d30/Refox10.html?s=1

Programação Brasil

2009-03-31T19:32:00.001-07:00

Não deixe de participar do Programação Brasil.

Um site com recursos diversos para profissionais e estudantes na área de informática e tecnologia.

O cadastro é gratuito e o usuário tem seu acesso ativado em menos de 24hs.

Acesse e confira:

http://www.programacaobrasil.com

CEP's

2009-03-26T06:46:00.000-07:00

Segue abaixo o link para download de todos (ou quase todos) os CEP's do Brasil.

Atualizada (03/03/2010):

http://www.4shared.com/file/233535728/5c65728c/CEPs.html

Março (2009):

http://www.4shared.com/file/95093893/45f0c02d/CEPs-Brasil.html

Dlls X Foxpro

2009-03-12T14:36:00.000-07:00

Segue abaixo os links para downloads das dll's necessárias para o bom funcionamento das aplicações feitas em quase todas as versões do Foxpro:

Versão 5.0
http://www.4shared.com/file/102071565/7e668fed/VFP50_DLL_files.html

Versão 6.0
http://www.4shared.com/file/102069448/cbf7faba/VFP6RUN.html

Versão 7.0
http://www.4shared.com/file/102068764/4a8d0d2f/VFP7run.html

Versão 8.0
http://www.4shared.com/file/102068179/29aa3c61/vfp8run.html

Versão 9.0 (DLLs)
http://www.4shared.com/file/98036560/4f009758/VFP9_DLL.html

Versão 9.0 (Runtime)
http://www.4shared.com/file/149572727/33b59bf6/runtime_vfp9.html

MYSQL X Visual Foxpro

2009-03-03T07:50:00.000-08:00

Precisando realizar acessos a banco de dados MySQL, através do Visual Foxpro?
O link abaixo disponibiliza a solução que você precisa.

INSERT
UPDATE
DELETE
BROWSE

Link do Arquivo:

http://www.4shared.com/file/97400634/384e0eae/acessomysql.html

PING

2009-03-03T07:44:00.000-08:00

Precisando verificar se um IP está disponível em uma rede local?
Com este arquivo você poderá simular o ping do Prompt de Comando.

Link do arquivo:
http://www.4shared.com/file/98037371/9d2d8d58/pingPRG.html

FTP

2009-03-03T07:35:00.000-08:00

Uma classe completa de acesso a FTP disponibilizando as seguintes funções:

Listar o diretório posicionado
Criar diretórios
Remover Diretórios
Criar Arquivos
Renomear Arquivos
Apagar Arquivos
Enviar Arquivos
Baixar Arquivos

Link do Arquivo:
http://www.4shared.com/file/98037645/b7a6d869/ftp.html