implementar cmline no tprinter

ronaldo · April 25, 2012

tenho este metodo que se colocar no tprinter.prg funciona perfeitamente, o problema Ã© quando houver atualizacoes do fivewin entÃ£o gostaria de coloca-lo em outro prg como winfunc.prg

como posso fazer isso funcionar?

METHOD CmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE

::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;

MoveTo( ::hDCOut, nLeft, nTop ),;

LineTo( ::hDCOut, nRight, nBottom,;

If( oPen != nil, oPen:hPen, 0 ) )

Ronaldo Minacapelli

(11) 2950 3069

ronaldo · April 25, 2012

tenho este metodo que se colocar no tprinter.prg funciona perfeitamente, o problema Ã© quando houver atualizacoes do fivewin entÃ£o gostaria de coloca-lo em outro prg como winfunc.prg

como posso fazer isso funcionar?

METHOD CmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE

::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;

MoveTo( ::hDCOut, nLeft, nTop ),;

LineTo( ::hDCOut, nRight, nBottom,;

If( oPen != nil, oPen:hPen, 0 ) )

Ronaldo Minacapelli

(11) 2950 3069

kleyber · April 25, 2012

Ronaldo,

Use o OVERRIDE METHOD. No teu prg principal, declare assim:

OVERRIDE METHOD CmLine IN CLASS TPRINTER WITH RCmLine

id=code>id=code>

E no final do teu prg faÃ§a assim:

FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE

::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;

MoveTo( ::hDCOut, nLeft, nTop ),;

LineTo( ::hDCOut, nRight, nBottom,;

If( oPen != nil, oPen:hPen, 0 ) )

id=code>id=code>

AÃ Ã© sÃ³ usar o novo mÃ©todo RCmLine e boa... Veja se te atende.

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB

(98) 8162-1301 / (98) 3217-8162

Visite SÃ£o LuÃs - MA A Ilha dos Amores

ronaldo · April 26, 2012

Kleyber, eu adicionar no prg hbclass.ch" porem o erro abaixo ocorre ainda...

FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE

::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;

MoveTo( ::hDCOut, nLeft, nTop ),;

LineTo( ::hDCOut, nRight, nBottom,;

If( oPen != nil, oPen:hPen, 0 ) )

Ronaldo Minacapelli

(11) 2950 3069

kleyber · April 26, 2012

NÃ£o precisa adicionar no hbclass.ch. Adicione mesmo no prg principal do teu sistema, dentro do MAIN().

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB

(98) 8162-1301 / (98) 3217-8162

Visite SÃ£o LuÃs - MA A Ilha dos Amores

Editado por - kleyber on 26/04/2012 14:01:39

vagner · April 26, 2012

Corrigindo o Kleyber,

NÃ£o coloque dentro do Main(), por ser uma funÃ§Ã£o nÃ£o pode ficar dentro de outra funÃ§Ã£o

Mas pode colocar no mesmo prg do Main()

Me Corrigindo

O que fica dentro do prg Ã© a sua funÃ§Ã£o

Dentro do Main, Ã© o que o :

OVERRIDE METHOD CmLine IN CLASS TPRINTER WITH RCmLine

Vagner Wirts

"Ele nÃ£o sabendo que era impossÃvel, foi lÃ¡ e fez"

kleyber · April 26, 2012

CorretÃssimo Vagner. Valeu.

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB

(98) 8162-1301 / (98) 3217-8162

Visite SÃ£o LuÃs - MA A Ilha dos Amores

Editado por - kleyber on 26/04/2012 14:27:49

ronaldo · April 26, 2012

entÃ£o deixei a funcao abaixo dentro winfunc.prg assim:

FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE

::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;

MoveTo( ::hDCOut, nLeft, nTop ),;

LineTo( ::hDCOut, nRight, nBottom,;

If( oPen != nil, oPen:hPen, 0 ) )

veja o erro que aparece quando compilo:

1. I:\teste\winfunc.prg(25) Error E0030 Syntax error: "syntax error at 'INLINE'"

2. I:\teste\winfunc.prg(29) Error E0030 Syntax error: "syntax error at ','"

eu acho que Ã© esse inline nao achei ele nos CH

Ronaldo Minacapelli

(11) 2950 3069

vagner · April 26, 2012

citaÃ§Ã£o:
entÃ£o deixei a funcao abaixo dentro winfunc.prg assim:

FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE

::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;

MoveTo( ::hDCOut, nLeft, nTop ),;

LineTo( ::hDCOut, nRight, nBottom,;

If( oPen != nil, oPen:hPen, 0 ) )

veja o erro que aparece quando compilo:

1. I:\teste\winfunc.prg(25) Error E0030 Syntax error: "syntax error at 'INLINE'"

2. I:\teste\winfunc.prg(29) Error E0030 Syntax error: "syntax error at ','"

eu acho que Ã© esse inline nao achei ele nos CH

Ronaldo Minacapelli

(11) 2950 3069

id=quote>id=quote>

Oi vc pegou o Method e jogou para funcion, nÃ£o pode

FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen )

Local Self := HB_QSelf()

::Cmtr2Pix(@nTop, @nLeft)

::Cmtr2Pix(@nBottom, @nRight)

MoveTo( ::hDCOut, nLeft, nTop )

LineTo( ::hDCOut, nRight, nBottom

Retu(Nil)

Vagner Wirts

"Ele nÃ£o sabendo que era impossÃvel, foi lÃ¡ e fez"

ronaldo · April 26, 2012

fiz essa correÃ§Ã£o. compilou mas ao imprimir demostra o erro:

Cuidado BASE/1004 Message not found: TPRINTER:RCMLINE

fiz das duas formas abaixo:

oaprn:RCmLine( nlln+=.2, nlesq, nlln, nldir, oapen)

oaprn:CmLine( nlln+=.2, nlesq, nlln, nldir, oapen)

Ronaldo Minacapelli

(11) 2950 3069

kleyber · April 26, 2012

Ronaldo,

Eu acho que esse prg estÃ¡ sendo compilado depois do prg que contÃ©m a TPRINTER. Experimente colocar essa funÃ§Ã£o ao final do teu prg principal, ao invÃ©s de ficar em outro prg e nos diga se funciona.

AbraÃ§os,

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB

(98) 8162-1301

Visite SÃ£o LuÃs - MA A Ilha dos Amores

ronaldo · April 26, 2012

coloquei o override e a funcao dentro do prg principal porem o erro continua... outro detalhe o printer.prg nao estou compilando estou usando o nativo...

Ronaldo Minacapelli

(11) 2950 3069

kleyber · April 26, 2012

Podes postar aqui o teu prg principal pra gente dar uma olhada?

Kleyber Derick

xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB

(98) 8162-1301

Visite SÃ£o LuÃs - MA A Ilha dos Amores

ronaldo · April 27, 2012

Kleyber

bom dia! ai esta os fontes

http://http://www.bazevani.com.br/ronaldo/clientes.txt --> principal (override + function cmline())

http://www.bazevani.com.br/ronaldo/prg1193.txt --> inicia a impressÃ£o

http://http://www.bazevani.com.br/ronaldo/winfunc.txt --> complemento da impressÃ£o (cabecalho)

Ronaldo Minacapelli

(11) 2950 3069

kleyber · April 27, 2012

Ronaldo,

Acho que descobri o problema. Como nÃ£o tenho como colocar o arquivo em um link aqui, segue o conteÃºdo do prg (clientes.prg) abaixo. Copie e cole ai, teste e me diga se funciona:

** DocumentaÃ§Ãµes sobre atualizaÃ§Ãµes

*** a funciones GetSysFont() en c:\clip53\obj

******************************************************************************************

#include "Fivewin.ch"

#include "IMAGE.ch"

#include "Ssay.ch"

#include "Directry.ch"

#include "Outlook.ch"

#include "Splitter.Ch"

#Define FILE_OFFSET 7

#Define TRANSPARENT 12

#define GW_HWNDFIRST 0

#define GW_HWNDLAST 1

#define GW_HWNDNEXT 2

#define GW_HWNDPREV 3

#define GW_OWNER 4

#define GW_CHILD 5

#define KEYEVENTF_KEYUP 2 //para restaura a posiÃ§Ã£o original do MENU na saida

STATIC oCrs001,oCrs002, oIcon, vWord, hDll, cChave:="", oTelaPrincipal

//cChave == Codigo do usuario

//cUsuarioSistema == Nome do usuario

*FUNCTION RONALDO

*Return(NIL)

ANNOUNCE RDDSYS

/// - Substituir o mÃ©todo CmLine da TPrinter

OVERRIDE METHOD CmLine IN CLASS TPRINTER WITH RCmLine

FUNCTION MAIN(nParametro)

LOCAL cTexto,oBrush, nFrama, oDlgLogo, oCrs, oIco, oSay2,nPercent

LOCAL oTmr, vSeg1, vSeg2,cFiles,nVersaoLida

LOCAL oMsg, oBmpAnim, oTmrAnim:="-", bBaixa, bConta, oBmpNFE,oBmpBazevani

LOCAL oMeter, nTempo, nConfig, oFntCfg

LOCAL oBar, aBtn:=Array(18), nCor001, nCor002, oBrushMenu, lSaidaCfg

LOCAL nDataFileOld,nDataFileNew,WDATA1,WDATA2,WTIME1,WTIME2

LOCAL vArq, cCriacao

LOCAL lCopyOlg, lCopyNet

LOCAL oText, cTitulo, sql_cmd

PUBLIC oSayPrn, nSayPrn, oDlgPrnEmail, nSayPrnEmail,oSayPrnEmail, ws_version, nUltDia, oBmpLogo, oLupa, nUsuario, oGrandTimer, nMsgTimer

PUBLIC nBaseDados, nExtensao, nPathTemp, nExecutavel, nRelatorio, nLetraDrive, nMapeamento, cUsuarioSistema, cEmailSistema, cNomeUsuario, nAtualizaArquivo:=""

PUBLIC nNomeComputador := Alltrim(Netname())

PUBLIC CorPadrao := RGB(245,228,156) //RGB(213,234,255) //COR DE FUNDO DAS TELAS

PUBLIC CorBotao := RGB(47,151,255), nMsgDaBazevani := " "

PUBLIC nCorBotaoFdo := CLR_HGRAY //nRgb(50,50,50) //151,209,209)

PUBLIC nCorBotaoTxt:=CLR_BLACK //nRgb(255,255,255)

PUBLIC nListCor01, nListCor02, nListTexto,oTmrAnima

PUBLIC nGetTxt, nGetFdo,oFontTitulo, noQueIsso, bBColor, bTColor

PUBLIC lModuloCX, oStatusBar, oBmpFundo, nTituloWND

PUBLIC nCorTexto1 := CLR_BLACK

PUBLIC nCorFundo1 := NRGB(230,247,255) //nRGB(255,233,191)

PUBLIC nCorFundo2 := nRGB(207,222,240)

PUBLIC nCorRodape := CLR_WHITE //Rodape onde ficam os botoes

PUBLIC nCorFundo3 := nRGB(130,103,92) //group 2

PUBLIC n := nRGB(130,103,92) //16761220 //Cor das browses laterais

PUBLIC nCorBrw_TituloA := nCorFundo1 //Cor do header

PUBLIC nCorBrw_TituloB := nCorFundo2 //16777215 //Cor do header

PUBLIC nIDEntrada := "" //Saber a identificaÃ§Ã£o do ARQUIVO de entrada/saida do sistema

nCorRodape := CLR_WHITE //Rodape onde ficam os botoes

nCorFundo1 := nRGB(221,221,221) //dialpog

nCorFundo2 := nRGB(161,161,161) //grupo1

nCorFundo3 := nRGB(135,135,135) //group 2

nCorBrw_Latetal := nCorFundo2 //16761220 //Cor das browses laterais

nCorBrw_TituloA := 0 //Cor do header

nCorBrw_TituloB := nCorFundo2 //16777215 //Cor do header

PUBLIC lGrob_Estados //RelaÃ§Ã£o de Todos os Estados do Brazil

lGrob_Estados := {"AC","AL","AM","AP","BA","CE","DF","DG","ES","GO","MA","MG","MS","MT","PA","PB","PE","PI","PR","RJ","RN","RO","RR","RS","SC","SE","SP","TO"}

PRIVATE nColor:=73647364737, oGif89, oDlgPrn, nAnimaTipo := "-",oBtnAjuda

PRIVATE oWnd,oWndChild, nCria, Linha1, Linha2, Moeda01, Moeda02

PRIVATE Empre100,Empre110,Empre111,Empre112,Empre113,Empre114,Empre115,Empre116,Empre117,Empre118,Empre119,Empre120,Empre121,Empre122,Empre123,Empre126,EmpreEmail,EmpreConta

PRIVATE _Point, _Demo,_Serie,_Rede,_Data,_Hora // Chave de Protecao

PRIVATE nExecucao, Local_F10, Nro_Files, vFunction, oFontWnd

PRIVATE cExeName := GetModuleFileName( GetInstance() )

PRIVATE oMsg0, oMsg1, oMsg2, oMsg3,oMsg4,oMsg5, oMsg6, oMsg7,oMsg8

PRIVATE nParam := nParametro, oActivex,oOut

PRIVATE oFontMenu,nPathImagem

PRIVATE oPanel1,oPanel2,oPanel3,oPanel4, oBarWnd

PRIVATE lDemo:=.f. //saber se Ã© demonostraÃ§Ã£o

//---> Faixa do Imposto de Renda

PRIVATE nFaixa[10], nAliquota[10], nDeducao[10], nDependente, nIsentosIR_Ate

//---> Final

// OVERRIDE METHOD CmLine IN CLASS TPRINTER WITH RCmLine

ws_Version := "versÃ£o 15.031.1"

//15.012.3 erro na baixa locarario

//15.012.3 erro no noptao do extrato po rimovel e erro na baixa "de focus somente"

//15.012.4 nao permitia a baixa de ocorrencia 17

cTitulo := "SISTEMA DE ADMINISTRAÃ‡ÃƒO DE IMÃ“VEIS - "+ws_version

/// --- Verifica se o Sistema ja esta Aberto ---*******************************

#define SW_RESTORE 9

IF !file("c:\teste.baz") .and. IsExeRunning("locwin")

ShowWindow( FindWindow( 0, cTitulo ), SW_RESTORE )

SetForegroundWindow( FindWindow( 0, cTitulo ) )

RETURN NIL

ENDIF

*---> Drive de Banco de Dados

REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS

RDDSetDefault("DBFCDX") // CDX

DBSETDRIVER( "DBFCDX" ) // CARREGA RDD DEFINIDO NO CASO, *.CDX

*--> Drive de banco de Dados ADS

* ANNOUNCE RDDSYS

* REQUEST _ADS, AdsKeyNo, ADSKeycount, ADSGetRelKeyPos, ADSSetRelKeyPos, rddsys

*---> Fixa Variaveis de Sistema

SET DELETE ON // Oculta os registros deletados

SET CENTURY ON // Assume seculo para 2000

SET DATE BRITISH // Data em formato brasileiro

SET 3DLOOK ON // Opcoes de visoes 3D

SET EPOCH TO 1960 // De 00 ate 60 considetrado como 20??

SET AUTOPEN OFF // NÃ£o abrir automatico os indices

SET HELPFILE TO "" // Nao demonstrar HELP (Ajuda) nas dialogs

SET CONFIRM ON

SET MULTIPLE ON

SETBALLOON( .T. )

SETHANDLECOUNT(255)

If .Not. File( GetWindir()+"\fonts\i2of5nt.ttf" )

LZCOPYFILE( Curdrive()+":\"+Curdir()+"\I2of5nt.ttf", GetWindir()+"\fonts\I2of5nt.ttf")

EndIf

*Sempre colocar a data ara mais um ano

If nParam # NIL .And. nParam = "?"

MsgInfo("Como colocar sua aplicaÃ§Ã£o Cliente-Server."+CRLF+CRLF+;

"Edite o arquivo BAZEPATH.INI do Windows e informe o seguinte"+CRLF+;

"[Locacao]"+CRLF+;

"PATH=Caminho do MODULO.EXE (local)"+CRLF+;

"DRIVE=Letra do mapeamento"+CRLF+;

"CAMINHO=Caminho do mapeamento","Help")

WinExec("notepad.exe "+GetWindir()+"\bazepath.ini")

nParam := NIL

EndIf

MEMVAR->LOCAL_F10 := NIL

MEMVAR->nro_files := 1

MEMVAR->vFunction :=.F.

MEMVAR->_Demo := MEMVAR->_Serie:=MEMVAR->_Rede:=MEMVAR->_Data:=MEMVAR->_Hora:=" " // Chave de Protecao

MEMVAR->nExecucao := 0

_Point :="V"

MEMVAR->Empre100:=MEMVAR->Empre110:=MEMVAR->Empre111:=MEMVAR->Empre112:=""

MEMVAR->Empre113:=MEMVAR->Empre114:=MEMVAR->Empre115:=MEMVAR->Empre116:=""

MEMVAR->Empre117:=MEMVAR->Empre118:=MEMVAR->Empre119:=MEMVAR->Empre120:=MEMVAR->Empre121:=""

MEMVAR->Empre122:=MEMVAR->Empre123:=MEMVAR->Empre126:=""

MEMVAR->MOEDA01 :="R$"

MEMVAR->MOEDA02 :="Reais"

MEMVAR->LINHA1 :=MEMVAR->LINHA2:=""

noQueIsso := "Sistema de AdministraÃ§Ã£o e Controle de ImÃ³veis..."

*---------> Busca Caminhos de Sistema e Refaz mapeamento

nLetraDrive:=Alltrim(GetPvProfString("Locacao","DRIVE" ,CurDrive()+":\"+Curdir(), GetWinDir()+"\BAZEPATH.INI" ))

nMapeamento:=Alltrim(GetPvProfString("Locacao","CAMINHO" ,CurDrive()+":\"+Curdir(), GetWinDir()+"\BAZEPATH.INI" ))

nExtensao :=Alltrim(GetPvProfString("Locacao","PATH" ,CurDrive()+":\"+Curdir(), GetWinDir()+"\BAZEPATH.INI" ))

nBaseDados :=Alltrim(GetPvProfString("Locacao","BaseDados" ,CurDrive()+":\"+Curdir(), GetWinDir()+"\BAZEPATH.ini" ))

nPathImagem :=Alltrim(GetPvProfString("Locacao","PathImagem" ,CurDrive()+":\"+Curdir()+"\IMG", GetWinDir()+"\BAZEPATH.ini" ))

nExecutavel:=Alltrim(GetPvProfString("Path","Executavel",CurDrive()+":\"+Curdir(),"\"+Curdir()+"\Config.ini" ))

nRelatorio :=Alltrim(GetPvProfString("Path","Relatorio" ,CurDrive()+":\"+Curdir(),"\"+Curdir()+"\Config.ini" ))

nPathTemp := getenv("TEMP")

*---------> Busca Cores dos ListBox

nListCor01 := Val(GetPvProfString("Configuracao","ListBox 1 Cor" ,"16776960" ,"\"+Curdir()+"\Config.ini" ))

nListCor02 := Val(GetPvProfString("Configuracao","ListBox 2 Cor" ,"16777215" ,"\"+Curdir()+"\Config.ini" ))

nListTexto := Val(GetPvProfString("Configuracao","ListBox Texto" ,"0" ,"\"+Curdir()+"\Config.ini" ))

nGetTxt := Val(GetPvProfString("Configuracao","Get Texto" ,"0" ,"\"+Curdir()+"\Config.ini" ))

nGetFdo := Val(GetPvProfString("Configuracao","Get Fundo" ,"11599871" ,"\"+Curdir()+"\Config.ini" ))

bBColor := { |oBtn| If( ! oBtn:lActive, CLR_GRAY, ;

If( oBtn:lMouseOver, {CorBotao,CLR_WHITE}, ;

If( oBtn:lPressed, {CLR_HCYAN,CLR_WHITE}, {CLR_WHITE,CorBotao} ) ) ) }

bTColor := { |oBtn| If( oBtn:lActive, CLR_BLACK, CLR_GRAY ) }

//para fazer a animaÃ§Ã£o do whats new

* nVersaoLida:=Alltrim(GetPvProfString("Configuracao","VersaoLidaWhatsNew","0","\"+Curdir()+"\Config.ini" ))

***********************************************************TELA DE APRESENTACAO

*-------------> FIXA ALGUNS COMANDOS

BWCCRegister( GetResources() )

DEFINE FONT oFntCfg NAME "Arial" SIZE 0,-12

lSaidaCfg:=.F.

DEFINE DIALOG oDlgLogo FROM 10, 10 TO 14, 14 STYLE nOr(DS_SYSMODAL, DS_MODALFRAME, WS_POPUP) COLOR CLR_WHITE,CLR_BLACK PIXEL

nTempo:=1

@ 0, 0 IMAGE oBmpLogo FILENAME "LOGO001.JPG" OF oDlgLogo NOBORDER

ACTIVATE DIALOG oDlgLogo NOWAIT ;

ON INIT ( oBmpLogo:Move( 0, 0, oBmpLogo:nWidth, oBmpLogo:nHeight ),;

oDlgLogo:Move( 0, 0, oBmpLogo:nWidth+7, oBmpLogo:nHeight+5),;

WndCenter( oDlgLogo:hWnd )) ;

VALID lSaidaCfg

nPercent:=0

@ oDlgLogo:nHeight-40, 00 TO oDlgLogo:nHeight-2,oDlgLogo:nWidth-0 COLOR CLR_WHITE,CLR_BLACK PIXEL

oProg := TMeter():New( oDlgLogo:nHeight-38, 07,bSETGET(nPercent),100, oDlgLogo, oDlgLogo:nWidth-23, 08,.t.,.t.,NIL,NIL,.T.,RGB(143,100,80),RGB(143,100,80),CLR_YELLOW)

@ oDlgLogo:nHeight-23, 05 SENSITIVE SAY oSay2 PROMPT " " OF oDlgLogo FONT oFntCfg PIXEL UPDATE SIZE oDlgLogo:nWidth-16, 13 COLOR CLR_YELLOW,CLR_BLACK

oSay2:lTransparent:=.T.

UpdateWindow( oDlgLogo:hWnd )

SysRefresh()

SndPlaySound( "Bazevani.wav" )

Config(oDlgLogo,oProg, oSay2)

lSaidaCfg:=.T.

*---> Algilizado processo da copia

If .Not. lIsDir("c:\bazevani") //Cria diretorio para armazenar fotos

lMkDir("c:\Bazevani")

Endif

If .Not. lIsDir("c:\bazevani\loc.tmp") //Cria diretorio para armazenar fotos

lMkDir("c:\Bazevani\loc.tmp")

Endif

lCopyOlg := {"copyfil.exe" , "mapisend.exe","modulo.exe" ,"caixa.exe","notafisc.exe"}

lCopyNet := {"icopyfil.exe", "mapisend.exe","moduloloc.exe","caixa.exe","notafisc.exe"}

FOR vSeg1 := 1 TO len(lCopyOlg)

nDataFileNew := nExecutavel+"\"+lCopyOlg[vSeg1]

nDataFileOld := "C:\Bazevani\loc.tmp\"+lCopyNet[vSeg1]

If File(nDataFileNew)

aDirectory:=DIRECTORY(nDataFileOld,"D") // executÃ¡vel da rede

AEVAL(aDirectory, { |aFile| QOUT(aFile[F_DATE]),wdata1:=aFile[F_DATE] })

AEVAL(aDirectory, { |aFile| QOUT(aFile[F_TIME]),wtime1:=aFile[F_TIME] })

aDirectory2:=DIRECTORY(nDataFileNew,"D") // executÃ¡vel na mÃ¡quina local

AEVAL(aDirectory2, { |aFile| QOUT(aFile[F_DATE]),wdata2:=aFile[F_DATE] })

AEVAL(aDirectory2, { |aFile| QOUT(aFile[F_TIME]),wtime2:=aFile[F_TIME] })

IF !FILE( nDataFileOld ) .Or.;

DTOS(WDATA1)+WTIME1 # DTOS(WDATA2)+WTIME2

oSay2:Settext("Por favor, aguarde ! Atualizando seu sistema . . ." )

oSay2:Refresh()

SysRefresh()

LZCOPYFILE( nDataFileNew, nDataFileOld)

Endif

//Registrar ocx

cProgID := "DHTMLEdit.DHTMLEdit.1"

If .not. IsActivex(cProgID)

MsgStop("NÃ£o localizado registro DHTMLED da Microsoft, clique para registrar...","Ausencia de registro.")

if file(nExecutavel+"\dhtmlxp.ocx") // vou copiar

lzcopyfile(nExecutavel+"\dhtmlxp.ocx","c:\bazevani\dhtmled.ocx")

endif

RegisterServer( "c:\bazevani\dhtmled.ocx" )

If IsActivex(cProgID)

msginfo("Arquivo Dhtmled.OCX registrado com sucesso !","Registrado.")

else

msgstop("Falha no registro do arquivo Dhtmled.OCX, tente instalar manual:"+CRLF+CRLF+" http://www.bazevani.com.br/atualizacao/dhtmled.msi","Falha !")

endif

//Final

If .not. File("usuarios.dbf") .And. File("Locwin.exe")

oSay2:Settext("Por favor, aguarde ! Reconstruindo arquivo de acesso . . ." )

oSay2:Refresh()

SysRefresh()

DbCreate( "usuarios", {;

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

{"CHAVE ","C", 3,0},;

{"SENHA ","C", 10,0},;

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

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

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

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

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

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

{"FUNCAO ","C", 15,0}})

Endif

// procurar o arquivo LIBMYSQL.DLL e se for o caso substituir

/*

If !File(GetSysDir()+"\libmysql.dll")

oSay2:Settext("Por favor, Aguarde ! Copiando arquivos necessÃ¡rios para windows..." )

oSay2:Refresh()

SysRefresh()

LZCOPYFILE(nExecutavel+"\libmysql.dll", GetSysDir()+"\libmysql.dll")

Endif

*/

*-----------> Isso Ã© utilizado para quando Ã© o primeiro acesso

oSay2:Settext("Configurando pastas e arquivos de acesso..." )

oSay2:Refresh()

SysRefresh()

if !File(nPathImagem+"\extrato.bmp")

LZCOPYFILE( nBaseDados+"\extrato.bmp",;

nPathImagem+"\extrato.bmp")

Endif

If !File(nBaseDados+"\Usuario.000\Senhas.dbf")

MsgWait("Aguarde ! Criando acesso para UsuÃ¡rio...",,3)

MEMVAR->nCria:="USUARIO.000"

lMkDir(MEMVAR->nCria)

LZCOPYFILE(nBaseDados+"\senhas.dbf",nBaseDados+"\"+MEMVAR->nCria+"\SENHAS.DBF")

Endif

If Arquivo("Usuarios",.t.,nil,nil,.T.) // Abre usuarios

If Empty(Reccount()) //Caso nao exista nenhum Cadastro

*DBUSEAREA(.T.,"DBFCDX","USUARIOS")

Usuarios->(DBAPPEND())

Usuarios->Usuario :="Adm"

Usuarios->Nome :="Administrador de Sistemas"

Usuarios->Chave :="000"

Endif

Else

MsgStop("Impossivel abrir o sistema, o arquivo usuarios.dbf nÃ£o existe ou esta como somente leitura ..."+CRLF+"destino: "+curdrive()+":\"+curdir(),"Cancelando !")

SET RESOURCES TO

QUIT

Endif

DBCLOSEALL()

If .Not. lIsDir("\"+Curdir()+"\Fotos") //Cria diretorio para armazenar fotos

lMkDir("\"+Curdir()+"\Fotos")

Endif

If .Not. lIsDir("\"+Curdir()+"\Becapes") //Cria diretorio para armazenar fotos

lMkDir("\"+Curdir()+"\Becapes")

Endif

//nExecutavel+"\

If .Not. lIsDir("\"+Curdir()+"\Extrato") //Cria diretorio para armazenar Os extratos enviados por e-mail

lMkDir("\"+Curdir()+"\Extrato")

Endif

If .Not. lIsDir("\"+Curdir()+"\Recibos") //Cria diretorio para armazenar Os Recibos enviados por e-mail

lMkDir("\"+Curdir()+"\Recibos")

Endif

If .Not. lIsDir("\"+Curdir()+"\download") //Cria diretorio para armazenar os arquivos baixados

lMkDir("\"+Curdir()+"\download")

Endif

If .Not. lIsDir("\"+Curdir()+"\remessa") //Cria diretorio para armazenar os arquivos baixados

lMkDir("\"+Curdir()+"\remessa")

Endif

If .Not. lIsDir("\"+Curdir()+"\word") //Cria diretorio para armazenar os arquivos baixados

lMkDir("\"+Curdir()+"\word")

Endif

If .Not. lIsDir("\"+Curdir()+"\MeusDocs") //Cria diretorio para armazenar os arquivos baixados

lMkDir("\"+Curdir()+"\MeusDocs")

Endif

If .Not. lIsDir("\"+Curdir()+"\word\copia") //Cria diretorio para armazenar os arquivos baixados

lMkDir("\"+Curdir()+"\word\copia")

Endif

*FECHAR APRESENTACAO

oBmpLogo:End()

oDlgLogo:End()

oFntCfg:End()

////////////////////////////////////////////////////////////////////////////

SetKey( VK_F1, { | nKey | MsgInfo( noQueIsso ) } )

MEMVAR->lModuloCX:=If(File("CAIXA.EXE"), .T., .F.) //Para saber se existe o modulo de Caixa Integrado

////////////////////////////////////////////////////////////////////////////

DEFINE ICON oIco RESNAME "DEMO"

DEFINE CURSOR oCrs002 HAND

DEFINE FONT oFontWnd NAME "Ms Sans Serif" SIZE 0,-12

DEFINE FONT oFontTitulo NAME "Times New Roman" SIZE 0,22

DEFINE BRUSH oBrush FILENAME curdrive()+":\"+Curdir()+"\WPAPER.BMP"

DEFINE BRUSH oBrushMenu FILENAME curdrive()+":\"+Curdir()+"\img\MENU.BMP"

DEFINE FONT oFontMenu NAME "Ms Sans Serif" SIZE 0, -10 BOLD

nTituloWND := strtran(cTitulo, " ", "%")

* nTituloWND := strtran("SISTEMA DE ADMINISTRAÃ‡ÃƒO DE IMÃ“VEIS - "+ws_version, " ", "%")

* DEFINE WINDOW oWnd FROM -0.35,-0.30 TO 600,800 TITLE "SISTEMA DE ADMINISTRAÃ‡ÃƒO DE IMÃ“VEIS - "+ws_version ;

If File("nosite.baz")

DEFINE WINDOW oWnd FROM 0,0 TO 29,113 TITLE cTitulo ;

ICON oIco ;

MENU BuildMenu() COLOR CLR_BLACK //, CorPadrao

Else

DEFINE WINDOW oWnd FROM 0,0 TO 600,800 TITLE cTitulo ;

ICON oIco ;

MENU BuildMenu() MDI PIXEL

Endif

DEFINE ButtonBar oBar Size 36,36 3DLOOK 2007 Of oWnd BRUSH oBrush CURSOR oCrs002 //COLOR {nRgb(255,108,54),nRgb(255,255,255)}

DEFINE BUTTON aBtn[01] OF oBar RESOURCE "BITMAP_01" NOBORDER TOOLTIP "CADASTRO DE PROPRIETÃRIOS..." ACTION If(Acesso("1.1.","Acesso") , PRG1193(), SemAcesso())

? "Apagar"

DEFINE BUTTON aBtn[01] OF oBar RESOURCE "BITMAP_01" NOBORDER TOOLTIP "CADASTRO DE PROPRIETÃRIOS..." ACTION If(Acesso("1.1.","Acesso") , PRG1110(), SemAcesso())

DEFINE BUTTON aBtn[02] OF oBar RESOURCE "BITMAP_02" NOBORDER TOOLTIP "CADASTRO DE LOCATÃRIOS..." ACTION If(Acesso("1.2.","Acesso") , PRG1120(), SemAcesso()) MENU MenuLoca(abtn[2])

DEFINE BUTTON aBtn[03] OF oBar RESOURCE "BITMAP_03" NOBORDER TOOLTIP "CADASTRO DE IMÃ“VEIS..." ACTION If(Acesso("1.3.","Acesso") , CarregaCadastro("2"), SemAcesso()) //PRG1130(), SemAcesso())

// DEFINE BUTTON aBtn[03] OF oBar RESOURCE "BITMAP_03" NOBORDER TOOLTIP "CONTATOS EMAIL/TELEFONE.." ACTION If(Acesso("1.3.","Acesso") , Contatos(), SemAcesso()) //PRG1130(), SemAcesso())

DEFINE BUTTON aBtn[04] OF oBar RESOURCE "BITMAP_18" NOBORDER TOOLTIP "CADASTRO DE INTERESSADOS EM ALUGAR..." GROUP ACTION If(Acesso("1.4.","Acesso") , CarregaCadastro("3"), SemAcesso()) //PRG1140(), SemAcesso())

DEFINE BUTTON aBtn[05] OF oBar RESOURCE "BITMAP_19" NOBORDER TOOLTIP "CADASTRO DE: "+;

" CORRETORES" +;

" PROMOTOR" +;

" PLANTONISTAS" +" OUTROS" ACTION If(Acesso("1.5.","Acesso") , PRG1170(), SemAcesso())

DEFINE BUTTON aBtn[06] OF oBar RESOURCE "BITMAP_05" NOBORDER TOOLTIP "MOVIMENTO DE FIXO / AVULSO" GROUP ACTION If(Acesso("4.1.1.","Acesso") , PRG2110(), SemAcesso())

DEFINE BUTTON aBtn[07] OF oBar RESOURCE "BITMAP_06" NOBORDER TOOLTIP "MOVIMENTO DE IPTU" ACTION If(Acesso("4.1.2.","Acesso") , PRG2120(), SemAcesso())

DEFINE BUTTON aBtn[08] OF oBar RESOURCE "BITMAP_07" NOBORDER TOOLTIP "MOVIMENTO DE SEGURO" ACTION If(Acesso("4.1.3.","Acesso") , PRG2130(), SemAcesso())

DEFINE BUTTON aBtn[09] OF oBar RESOURCE "BITMAP_04" NOBORDER TOOLTIP "MOVIMENTO FINANCEIRO" GROUP ACTION If(Acesso("4.1.4.","Acesso") , PRG2140(), SemAcesso()) MENU MenuCaixa(abtn[09])

DEFINE BUTTON aBtn[10] OF oBar RESOURCE "BITMAP_17" NOBORDER TOOLTIP "LANÃ‡AMENTOS FUTUROS" ACTION If(Acesso("4.1.6.","Acesso") , PRG2160(), SemAcesso()) MENU MenuPagar(abtn[10])

DEFINE BUTTON aBtn[11] OF oBar RESOURCE "BITMAP_08" NOBORDER TOOLTIP "EXTRATO DE CONTA CORRENTE" ACTION If(Acesso("4.1.5.1.","Acesso"), PRG2150(), SemAcesso()) MENU MenuConta(abtn[11])

DEFINE BUTTON aBtn[12] OF oBar RESOURCE "BITMAP_09" NOBORDER TOOLTIP "BAIXA DE LOCATÃRIOS" GROUP ACTION If(Acesso("4.2.1.","Acesso") , PRG2210(), SemAcesso()) MENU BaixaLocat(abtn[12])

DEFINE BUTTON aBtn[13] OF oBar RESOURCE "BITMAP_10" NOBORDER TOOLTIP "BAIXA DE PROPRIETÃRIOS" ACTION If(Acesso("4.2.2.","Acesso") , PRG2220(), SemAcesso()) MENU BaixaPropr(abtn[13])

DEFINE BUTTON aBtn[14] OF oBar RESOURCE "BITMAP_11" NOBORDER TOOLTIP "ACOMPANHAMENTO JURIDICO" ACTION If(Acesso("4.3.","Acesso") , PRG2310(), SemAcesso())

DEFINE BUTTON aBtn[15] OF oBar RESOURCE "BITMAP_12" NOBORDER TOOLTIP "EMISSÃƒO DE RECIBO" GROUP ACTION If(Acesso("7.2.1.","Acesso") , CarregaCadastro("1"), SemAcesso())

DEFINE BUTTON aBtn[16] OF oBar RESOURCE "BITMAP_13" NOBORDER TOOLTIP "CONSULTA DE RECIBO EM TELA" ACTION If(Acesso("7.2.2.","Acesso") , PRG2620(), SemAcesso())

*If File("WORDOLD")

* DEFINE BUTTON aBtn[17] OF oBar RESOURCE "BITMAP_16" NOBORDER TOOLTIP "CONTRATOS INTERFACE WORD" GROUP ACTION If(Acesso("8.","Acesso") , prg9001(), SemAcesso()) MENU MenuWord(abtn[17],0)

*Else

If file("Office.ope")

DEFINE BUTTON aBtn[17] OF oBar RESOURCE "BITMAP_16a" NOBORDER TOOLTIP "CONTRATOS INTERFACE OPEN-OFFICE" GROUP ACTION If(Acesso("8.","Acesso") , prg9001a(), SemAcesso())

Else

DEFINE BUTTON aBtn[17] OF oBar RESOURCE "BITMAP_16" NOBORDER TOOLTIP "CONTRATOS INTERFACE WORD" GROUP ACTION If(Acesso("8.","Acesso") , prg9001a(), SemAcesso())

Endif

*Endif

DEFINE BUTTON OF oBar RESOURCE "BITMAP_20" NOBORDER TOOLTIP "IMPRESSÃƒO E DISPARO DE EMAIL EM LOTE" ACTION prg9002()

FOR I=1 TO 17

aBtn:Refresh()

AEval( oBar:aControls, { | o | o:oCursor := oCrs002 } )

NEXT

SET MESSAGE OF oWnd TO "Bazevani InformÃ¡tica" 2007 COLOR CLR_BLACK

nVersaoLida:=Alltrim(GetPvProfString("Configuracao","VersaoLidaWhatsNew","0","\"+Curdir()+"\Config.ini" ))

If ws_version <> nVersaoLida

*define timer oTmrAnima INTERVAL 50 ACTION MoveWhats(oBmpAnim,aBtn[17]:nLeft) OF oWnd

*ACTIVATE TIMER oTmrAnima

DEFINE BUTTON oBmpAnim FILENAME nPathImagem+"\news_on.bmp" ;

PIXEL OF oBar ACTION (;

oBmpAnim:LoadBitmaps( NIL,NIL,nPathImagem+"\news_off.bmp"),;

WritePProString( "Configuracao", "VersaoLidaWhatsNew" , Alltrim(ws_version), nExecutavel+"\Config.ini" ),;

AbrePagina("locacao.htm"))

Else

DEFINE BUTTON oBmpAnim FILENAME nPathImagem+"\news_off.bmp" ;

PIXEL OF oBar ACTION (WritePProString( "Configuracao", "VersaoLidaWhatsNew" , Alltrim(ws_version), nExecutavel+"\Config.ini" ),;

AbrePagina("locacao.htm"))

Endif

*oBmpAnim:nStyle := nOr( WS_VISIBLE, NOT WS_TABSTOP )

//esta opcao Ã© so para nao ficar com FOCO no botÃ£o de Nota fiscal, para o usuario nao acesar acidentalmente

@ oWnd:nHeight(), oWnd:nWidth() BTNBMP oBmpBazevani PIXEL OF oWnd SIZE 1,1

if file( nExecutavel+"\notafisc.exe" )

@ oWnd:nHeight()-115, oWnd:nWidth()-50 BTNBMP oBmpNFE FILENAME "img\nfe.bmp" PIXEL OF oWnd SIZE 32,32 ;

ACTION (MsgRun( "Nota Fiscal EletrÃ´nica . . .","Carregando...",;

{ || ShellExecute(0, 'open',"c:\bazevani\loc.tmp\notafisc.exe",, nExecutavel) } ) )

oBmpNFE:cToolTip := {"Nota Fiscal EletrÃ´nica...", "Nota Fiscal"}

oWnd:bResized := { || ;

oBmpNFE:Move( oWnd:nHeight()-115, oWnd:nWidth()-50),;

oOut:nHeight:=oWnd:nHeight()-122,;

oBmpAnim:Move( 0, oWnd:nWidth()-55)}

oBmpNFE:lBoxSelect:=.F.

oBmpNFE:lMOver :=.F.

Else

oWnd:bResized := { || oBmpAnim:Move( 0, oWnd:nWidth()-55),;

oOut:nHeight:=oWnd:nHeight()-122;

}

endif

oBmpAnim:cToolTip := {"Confira as alteraÃ§Ãµes no sistema...", "o que hÃ¡ de novo ?"}

oBar:bRClicked:={|| msgbeep()}

oBmpAnim:lTransparent:=.T.

oBar:Adjust()

If File("nosite.baz")

@ 36,231 IMAGE oBmpFundo FILENAME Curdrive()+":\"+Curdir()+"\LOGO001.JPG" of oWnd PIXEL NOBORDER

Endif

menuout(oWnd)

ACTIVATE WINDOW oWnd ;

ON INIT(Fundo(1), ;

cChave:=Senha(),;

ChkAgenda(Date()),If(nparam#NIL,(PRG3000("Centro"), ownd:end(), Saida(.T., oWnd)) ,"") ,;

MsgBazevani());

ON PAINT fundo(2) ;

VALID Saida(nParam, oWnd)

oFontWnd:End()

oFontTitulo:End()

oFontMenu:End()

SET RESOURCES TO // Fecha bibliotecas

Return(NIL)

////////////////////////////////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION MoveWhats(oBmpAnim,aBtn)

LOCAL nLef, nLeftWNd

nLeftWNd := oWnd:nWidth()-48

If memvar->nAnimaTipo = "+"

nLef:=oBmpAnim:nLeft+1

if nLef >= nLeftWNd

memvar->nAnimaTipo = "-"

Endif

Else

nLef:=oBmpAnim:nLeft-1

if nLef <= aBtn+48 //nLeftWNd-60

memvar->nAnimaTipo = "+"

Endif

oBmpAnim:Move( 0, nLef)

return(Nil)

////////////////////////////////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION MsgBazevani()

If nMsgDaBazevani <> " "

* msgInfo(nMsgDaBazevani)

Endif

Return(.t.)

////////////////////////////////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION FINDWND( cTitle )

LOCAL hWnd := GETWINDOW( GETDESKTOPWINDOW(), GW_CHILD )

WHILE hWnd != 0

IF UPPER( cTitle ) $ UPPER( GETWINDOWTEXT( hWnd ) )

RETURN hWnd

ENDIF

hWnd = GETWINDOW( hWnd, GW_HWNDNEXT )

ENDDO

RETURN NIL

//////////////////////////////////////////////////////////////////////////////////////////////////////

Static Function Menuout(oWnd)

LOCAL IPane

Memvar->oOut := TExplorerBar():New( 36, 0, 230, oWnd:nHeight()-20, oWnd)

//TExplorerBar():New()

Memvar->oOut:nTopColor:=nCorFundo1 //nCorFundo1

Memvar->oOut:nBottomColor:=nCorFundo1

Memvar->oPanel4:=Memvar->oOut:AddPanel( "Suporte", "img\Alpha\suporte.bmp" )

Memvar->oPanel4:lSpecial := .T.

Memvar->oPanel4:AddLink( "Abrir ocorrÃªncia" , {||AbrePagina("http://www.bazevani.com.br/asp/atendimento.asp?serie="+_Serie, "S/PATH")}, "" )

Memvar->oPanel4:AddLink( "Suporte online" , {||ShellExecute( 0, NIL, "http://bazevani.com.br/asp/telaacesso.asp?serie="+_Serie, "MySuite", nExecutavel, 1 )}, "" )

* Memvar->oPanel4:AddLink( "Abrir chamada" , {||AbrePagina("http://www.bazevani.com.br/asp/atendimento.asp?serie="+_Serie, "S/PATH")}, "" )

* Memvar->oPanel4:AddLink( "Atendimento online" , {||ShellExecute( 0, NIL, "http://bazevani.mysuite.com.br/empresas/bzv/verificaidentificado.php", "MySuite", curdrive()+":\"+Curdir(), 1 )}, "" )

* Memvar->oPanel4:AddLink( "Atendimento online" , {||ShellExecute( 0, NIL, "http://bazevani.mysuite.com.br/empresas/bzv/verifica.php", "MySuite", curdrive()+":\"+Curdir(), 1 )}, "" )

Memvar->oPanel4:SetColor(CLR_BLACK, nCorFundo2)

FOR IPane:=1 TO 2

Memvar->oPanel4:aControls[iPane]:nClrPane:=nCorFundo2

NEXT

Memvar->oPanel4:aControls[1]:cToolTip:= {[Aqui vocÃª abre sua ocorrÃªncia. "o retorno para clientes com manutenÃ§Ã£o ocorrem atÃ© 24hs"],"Ticket de chamada !"}

Memvar->oPanel4:aControls[2]:cToolTip:= {"Atendimento on-line (das 09:00 Ã s 12:00 e 13:00 Ã s 17:00","Atendimento on-line !"}

Memvar->oPanel1:=Memvar->oOut:AddPanel( "Rel.gerenciais", "img\Alpha\impressao.bmp") //img\binoculo4.bmp" )

Memvar->oPanel1:lSpecial := .T.

Memvar->oPanel1:AddLink( "Alugueis Ã Reajustar/Carta" , {|| If(Acesso("7.3.3.","Acesso"), PRG2721(), SemAcesso())})

Memvar->oPanel1:AddLink( "Alugueis Reajustados/Carta" , {|| If(Acesso("7.3.4.","Acesso"), PRG2722(), SemAcesso())})

Memvar->oPanel1:AddLink( "Carta de CobranÃ§a" , {|| If(Acesso("7.3.5.","Acesso"), PRG2714(), SemAcesso())})

Memvar->oPanel1:AddLink( "RescisÃ£o de Contrato"+CRLF+Space(20)+"Entrega chaves" , {|| If(Acesso("7.3.1.1.","Acesso"), PRG2710b(), SemAcesso())})

Memvar->oPanel1:AddLink( "Movimento financeiro" , {|| If(Acesso("7.3.7." ,"Acesso"), PRG2718(), SemAcesso())})

Memvar->oPanel1:AddLink( "Movimento Contas Ã pagar" , {|| If(Acesso("7.3.11.","Acesso"), PRG2724(), SemAcesso())})

Memvar->oPanel1:AddLink( "D.A.R.F./Imposto de Renda" , {|| If(Acesso("7.3.8." ,"Acesso"), PRG2719(), SemAcesso())})

Memvar->oPanel1:AddLink( "Processos judiciais" , {|| If(Acesso("7.3.9." ,"Acesso"), PRG2720(), SemAcesso())})

Memvar->oPanel1:AddLink( "Controle de CobranÃ§a" , {|| If(Acesso("7.3.9." ,"Acesso"), PRG2725(), SemAcesso())})

Memvar->oPanel1:AddLink( "EmissÃ£o de cheques (repasse)" , {|| If(Acesso("7.3.10.","Acesso"), PRG2723(), SemAcesso())})

Memvar->oPanel1:AddLink( "RelaÃ§Ã£o de cheques emitidos " , {|| If(Acesso("7.3.10.","Acesso"), PRG2723a(), SemAcesso())})

Memvar->oPanel1:SetColor(CLR_BLACK, nCorFundo2)

FOR IPane:=1 TO 11

Memvar->oPanel1:aControls[iPane]:nClrPane:=nCorFundo2

NEXT

Memvar->oPanel2:=Memvar->oOut:AddPanel( "Rel.auxiliares", "img\Alpha\impressao.bmp")

Memvar->oPanel2:lSpecial := .T.

Memvar->oPanel2:AddLink( "Carta Aniversariante" , {|| If(Acesso("7.4.2.","Acesso") , PRG2811(), SemAcesso())})

Memvar->oPanel2:AddLink( "Informe (I.R.) e Dimob" , {|| If(Acesso("7.4.3.","Acesso") , PRG2812(), SemAcesso())})

Memvar->oPanel2:AddLink( "ComissÃ£o Recebida / Ã Receber" , {|| If(Acesso("7.4.6.","Acesso") , PRG2815(), SemAcesso())})

Memvar->oPanel2:AddLink( "SolicitaÃ§Ã£o/RelaÃ§Ã£o: I.P.T.U." , {|| If(Acesso("7.4.8.","Acesso") , PRG2818(), SemAcesso())})

Memvar->oPanel2:AddLink( "SolicitaÃ§Ã£o Contas de consumo" , {|| If(Acesso("7.4.8.","Acesso") , PRG2818a(),SemAcesso())})

Memvar->oPanel2:AddLink( "PosiÃ§Ã£o de CondomÃnio / Iptu" , {|| If(Acesso("7.4.8.","Acesso") , PRG2818b(),SemAcesso())})

Memvar->oPanel2:AddLink( "Ficha Financeira do Inquilino" , {|| If(Acesso("7.4.9.","Acesso") , PRG2819(), SemAcesso())})

Memvar->oPanel2:SetColor(CLR_BLACK, nCorFundo2)

FOR IPane:=1 TO 7

Memvar->oPanel2:aControls[iPane]:nClrPane:=nCorFundo2

NEXT

//DEFINE GROUP OF OUTLOOK oOut PROMPT "EmissÃ£o de Recibos"

Memvar->oPanel3:=Memvar->oOut:AddPanel( "EmissÃ£o de recibos", "img\Alpha\impressao.bmp") //"img\32\suporte.jpg") //"img\plus.bmp" )

Memvar->oPanel3:lSpecial := .T.

Memvar->oPanel3:AddLink( "EmissÃ£o recibo inquilino" , {|| If(Acesso("7.2.1.","Acesso"), CarregaCadastro("1"), SemAcesso())})

Memvar->oPanel3:AddLink( "Consulta de Recibos em Tela" , {|| If(Acesso("7.2.2.","Acesso"), PRG2620(), SemAcesso())})

Memvar->oPanel3:AddLink( "RelatÃ³rio de prÃ©-emissÃ£o" , {|| If(Acesso("7.2.3.","Acesso"), PRG2630(), SemAcesso())})

Memvar->oPanel3:SetColor(CLR_BLACK, nCorFundo2)

FOR IPane:=1 TO 3

Memvar->oPanel3:aControls[iPane]:nClrPane:=nCorFundo2

NEXT

* oWnd:oLeft := Memvar->oOut

Memvar->oOut:nLeft:=1

Memvar->oOut:nTop:=38

return(nil)

///////////////////////////////////////////////////////////////////////////

Static function Fundo(nVAr)

If nVar = 1

If .Not. File("nosite.baz")

DEFINE WINDOW oWndChild MDICHILD OF oWnd ;

FROM 5,5 TO 6,6;

COLOR "N/W" ;

border none nomaximize nominimize NO SYSMENU NO TITLE// prevent resizing

oActiveX := TActiveX():New( oWndChild, "Shell.Explorer" )

oWndChild:oClient := oActiveX // To fill the entire window surface

oActiveX:Do( "Navigate", "http:\\www.bazevani.com.br" )

ACTIVATE WINDOW oWndChild MAXIMIZED ON INIT (oWnd:paint())

Endif

elseIf nVar = 2

If File("nosite.baz")

oWnd:Restore()

oBmpFundo:Refresh()

Endif

return(.t.)

///////////////////////////////////////////////////////////////////////////

FUNCTION BuildMenu()

LOCAL oMenu

MENU oMenu 2007

MENUITEM "&ManutenÃ§Ã£o"

MENU

************************************************************************

MENUITEM "&Cadastros "

MENU

MENUITEM "ProprietÃ¡rio" + Chr( 9 ) + "Ctrl-P" ACCELERATOR ACC_CONTROL, Asc( "P" ) MESSAGE "Cadastro de ProprietÃ¡rios" ACTION If(Acesso("1.1.","Acesso"), (PRG1110(),ShowMenu()), SemAcesso())

MENUITEM "LocatÃ¡rio " + Chr( 9 ) + "Ctrl-L" ACCELERATOR ACC_CONTROL, Asc( "L" ) MESSAGE "Cadastro de LocatÃ¡rios" ACTION If(Acesso("1.2.","Acesso"), (PRG1120(),ShowMenu()), SemAcesso())

MENUITEM "Garantias de LocaÃ§Ã£o "

MENU

* MENUITEM "+ LocatÃ¡rios " MESSAGE "Cadastro de outros locatÃ¡rios" ACTION If(Acesso("1.2.","Acesso"), PRG1125(), SemAcesso())

* SEPARATOR

MENUITEM "Fiador " MESSAGE "Cadastro de Fiador " ACTION If(Acesso("1.2.","Acesso"), (PRG1121(),ShowMenu()), SemAcesso())

MENUITEM "ImÃ³vel CauÃ§Ã£o " MESSAGE "Cadastro de ImÃ³vel CauÃ§Ã£o" ACTION If(Acesso("1.2.","Acesso"), (PRG1122(),ShowMenu()), SemAcesso())

MENUITEM "Seguro FianÃ§a " MESSAGE "Cadastro de Seguro FianÃ§a" ACTION If(Acesso("1.2.","Acesso"), (PRG1123(),ShowMenu()), SemAcesso())

MENUITEM "Outros " MESSAGE "Cadastro de Outras Garantias" ACTION If(Acesso("1.2.","Acesso"), (PRG1124(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "ImÃ³veis" + Chr( 9 ) + "Ctrl-I" ACCELERATOR ACC_CONTROL, Asc( "I" ) MESSAGE "Cadastro de ImÃ³veis " ACTION If(Acesso("1.3.","Acesso"), CarregaCadastro("2"), SemAcesso())

SEPARATOR

MENUITEM "Interessados em Alugar ImÃ³vel " MESSAGE "Cadastro de Clientes Interessados em Alugar" ACTION If(Acesso("1.4.","Acesso"), CarregaCadastro("3"), SemAcesso())

MENUITEM "Cadastro de Visitantes " MESSAGE "Cadastro de Clientes que visitaram os imÃ³veis" ACTION If(Acesso("1.9.","Acesso"), CarregaCadastro("4"), SemAcesso())

SEPARATOR

MENUITEM "Corretores/Plantonistas/Outros " MESSAGE "Cadastro de Corretores/Promotores/Plantonistas/Indicadores" ACTION If(Acesso("1.5.","Acesso"), (PRG1170(),ShowMenu()), SemAcesso())

MENUITEM "HistÃ³ricos para EmissÃ£o de Recibos" MESSAGE "Cadastro de HistÃ³ricos para EmissÃ£o de Recibos" ACTION If(Acesso("1.6.","Acesso"), (PRG1150(),ShowMenu()), SemAcesso())

MENUITEM "Plano de Contas Financeiro " MESSAGE "Plano de Contas do Financeiro" ACTION If(Acesso("1.7.","Acesso"), (PRG1160(),ShowMenu()), SemAcesso())

MENUITEM "Centro de Custos " MESSAGE "Centro de Custos do Financeiro" ACTION If(Acesso("1.8.","Acesso"), (PRG1180(),ShowMenu()), SemAcesso())

MENUITEM "Contas de bancos " MESSAGE "Cadastro de bancos" ACTION If(Acesso("1.92.","Acesso"), (PRG1192(),ShowMenu()), SemAcesso())

MENUITEM "Contas bancÃ¡rias " MESSAGE "Cadastro de Contas bancÃ¡rias para controle de cheque" ACTION If(Acesso("1.91.","Acesso"), (PRG1191(),ShowMenu()), SemAcesso())

MENUITEM "Cadastro C.E.P. " MESSAGE "Cadastro de CEP" ACTION cep()

ENDMENU

MENUITEM "&Operador "

MENU

MENUITEM "&Senhas de acesso " MESSAGE "Gerenciamento de senha de acesso..." ACTION(If(cChave = "000", (PrgSenha(),ShowMenu()),(MsgInfo("UsuÃ¡rio sem acesso...","Consulte seu administrador")) ))

SEPARATOR

MENUITEM "&Troca de UsuÃ¡rio" MESSAGE "Troca de UsuÃ¡rios" ACTION(cChave:=TRAVA()) //Externo.Â´prg

SEPARATOR

*MENUITEM "&ConfiguraÃ§Ãµes"

MENUITEM "ConfiguraÃ§Ãµes... " MESSAGE "Configura Modulos de UtilizaÃ§Ã£o do Sistema" ACTION if(Acesso("2.2.3.","Acesso"), (PRG1216(),ShowMenu()), SemAcesso())

* MENU

*MENUITEM "Localizar Microsoft WinWord" MESSAGE "Localizar Microsoft WinWord" ACTION If(Acesso("2.2.1.","Acesso"), (PRG1214(),ShowMenu()), SemAcesso())

*MENUITEM "Modelos originais do Microsoft WinWord" MESSAGE "Restaura os modelos originais o Word" ACTION If(Acesso("2.2.2.","Acesso"), (PRG1215(),ShowMenu()), SemAcesso())

*MENUITEM "ConfiguraÃ§Ãµes de UtilizaÃ§Ã£o" MESSAGE "Configura Modulos de UtilizaÃ§Ã£o do Sistema" ACTION if(Acesso("2.2.3.","Acesso"), (PRG1216(),ShowMenu()), SemAcesso())

*ENDMENU

SEPARATOR

MENUITEM "&Organizar Arquivos" MESSAGE "Organizador de Arquivos" ACTION If(Acesso("2.3.","Acesso"), (PRG1211(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "&Tabelas"

MENU

MENUITEM "Reajuste de Aluguel" MESSAGE "Movimento da Tabela para Reajuste do Aluguel" ACTION If(Acesso("3.1.","Acesso"), (PRG1310(),ShowMenu()), SemAcesso())

MENUITEM "IsenÃ§Ã£o Imposto de Renda " MESSAGE "IsenÃ§Ã£o do Imposto de Renda" ACTION If(Acesso("3.2.","Acesso"), (PRG1320(),ShowMenu()), SemAcesso())

ENDMENU

Separator

MENUITEM "&Saida" MESSAGE "Abandonar o Sistema" ACTION(MEMVAR->oWnd:End())

ENDMENU

************************************************************************

MENUITEM "&MovimentaÃ§Ãµes"

MENU

MENUITEM "&LanÃ§amentos"

MENU

MENUITEM "Fixo e Avulso " MESSAGE "Movimento de LanÃ§amento de Fixo e Avulso" ACTION If(Acesso("4.1.1.","Acesso"), (PRG2110(),ShowMenu()), SemAcesso())

MENUITEM "I.P.T.U " MESSAGE "Movimento de IPTU" ACTION If(Acesso("4.1.2.","Acesso"), (PRG2120(),ShowMenu()), SemAcesso())

MENUITEM "S e g u r o " MESSAGE "Movimento de Seguro" ACTION If(Acesso("4.1.3.","Acesso"), (PRG2130(),ShowMenu()), SemAcesso())

MENUITEM "T.R.S.D. " MESSAGE "Movimento de Taxa Residuos Solidos Domiciliares" ACTION If(Acesso("4.1.7.","Acesso"), (PRG2170(),ShowMenu()), SemAcesso())

MENUITEM "Movimento Financeiro" MESSAGE "Movimento Financeiro" ACTION If(Acesso("4.1.4.","Acesso"), (PRG2140(),ShowMenu()), SemAcesso())

MENUITEM "Extrato Conta Corrente"

MENU

MENUITEM "LanÃ§amentos e Consultas em Tela" MESSAGE "Movimento e Consulta do Extrato da Conta Corrente do ProprietÃ¡rio" ACTION If(Acesso("4.1.5.1.","Acesso"), (PRG2150(),ShowMenu()), SemAcesso())

MENUITEM "LanÃ§amento para Proprietario" MESSAGE "Movimento de lanÃ§amento para o ProprietÃ¡rio" ACTION If(Acesso("4.1.5.2.","Acesso"), (PRG2153(),ShowMenu()), SemAcesso())

MENUITEM "Gerador de LanÃ§amento " MESSAGE "Gerador de LanÃ§amentos Fixos para Conta Corrente do ProprietÃ¡rio" ACTION If(Acesso("4.1.5.3.","Acesso"), (PRG2151(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "&Baixa de Recibos"

MENU

MENUITEM "Baixa do LocatÃ¡rio" MESSAGE "Baixa de locatÃ¡rios"

MENU

MENUITEM "Baixa por recibo" MESSAGE "Baixa de locatÃ¡rios por recibo" ACTION If(Acesso("4.2.1.","Acesso"), (PRG2210(),ShowMenu()) , SemAcesso())

MENUITEM "Baixa automÃ¡tica (Banco)" MESSAGE "Baixa de locatÃ¡rios automatica (Banco)" ACTION If(Acesso("4.2.1.","Acesso"), (PRG2210b(),ShowMenu()), SemAcesso()) WHEN FILE("CFGBANCO.INI")

ENDMENU

MENUITEM "Baixa do ProprietÃ¡rio "

MENU

MENUITEM "Por ImÃ³vel " MESSAGE "Baixa de Repasse (ImÃ³vel)" ACTION If(Acesso("4.2.2.","Acesso"), (PRG2220(),ShowMenu()), SemAcesso())

MENUITEM "Seus ImÃ³veis" MESSAGE "Baixa dos ImÃ³veis " ACTION If(Acesso("4.2.2.","Acesso"), (PRG2221(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "Estorno de Baixa LocatÃ¡rio " MESSAGE "Estorno da Baixa do LocatÃ¡rio" ACTION If(Acesso("4.2.3.","Acesso"), (PRG2230(),ShowMenu()), SemAcesso())

MENUITEM "Estorno de Baixa ProprietÃ¡rio" MESSAGE "Estorno da Baixa do ProprietÃ¡rio" ACTION If(Acesso("4.2.4.","Acesso"), (PRG2240(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "Acordos"

MENU

MENUITEM "Fazer um novo acordo" MESSAGE "Fazer um acordo" ACTION If(Acesso("4.2.5.","Acesso"), (PRG2210c(),ShowMenu()), SemAcesso())

MENUITEM "RelatÃ³rio de acordos" MESSAGE "RelatÃ³rio de acordos" ACTION If(Acesso("4.2.5.","Acesso"), (PRG2210cRel(),ShowMenu()), SemAcesso()) // prg2210c-rel.prg

ENDMENU

SEPARATOR

MENUITEM "&JurÃdico" MESSAGE "Acompanhamento JurÃdico" ACTION If(Acesso("4.3.","Acesso"), (PRG2310(),ShowMenu()), SemAcesso())

MENUITEM "&CobranÃ§a" MESSAGE "Acompanhamento das CobranÃ§as" ACTION If(Acesso("4.3.","Acesso"), (PRG2330(),ShowMenu()), SemAcesso())

MENUITEM "&Controle de cheques" MESSAGE "Controle de cheques" ACTION If(Acesso("4.1.8.","Acesso"), (PRG2340(),ShowMenu()), SemAcesso())

SEPARATOR

MENUITEM "&Imposto de Renda Anual" MESSAGE "Movimento do Imposto de Renda Anual"

MENU

MENUITEM "&MovimentaÃ§Ã£o Anual" MESSAGE "Movimento do Imposto de Renda Anual" ACTION If(Acesso("4.4.","Acesso"), (PRG2320(),ShowMenu()), SemAcesso())

MENUITEM "&Recalculo Anual" MESSAGE "Recalculo do Movimento do Imposto de Renda Anual" ACTION If(Acesso("4.4.","Acesso"), (PRG2321(),ShowMenu()), SemAcesso())

ENDMENU

************************************************************************

MENUITEM "Inicia novo PerÃodo " MESSAGE "Inicia novo PerÃodo..." ACTION If(Acesso("5.","Acesso"), (PRG2400(),ShowMenu()), SemAcesso())

************************************************************************

MENUITEM "&Limpezas" //WHEN cChave = "000"

MENU

MENUITEM "Limpeza Geral " MESSAGE "Limpeza do Geral do sistema" ACTION If(Acesso("6.8","Acesso"), (PRG2410(),ShowMenu()), SemAcesso())

SEPARATOR

* MENUITEM "LocatÃ¡rios Baixados " MESSAGE "Limpeza de LocatÃ¡rios jÃ¡ Baixados" ACTION If(Acesso("6.1","Acesso"), PRG2420(), SemAcesso())

* MENUITEM "ProprietÃ¡rios Baixados " MESSAGE "Limpeza de ProprietÃ¡rios jÃ¡ Baixados" ACTION If(Acesso("6.2","Acesso"), PRG2480(), SemAcesso())

MENUITEM "Conta Corrente ProprietÃ¡rio" MESSAGE "Limpeza do Extrado de Conta Corrente" ACTION If(Acesso("6.3","Acesso"), (PRG2430(),ShowMenu()), SemAcesso())

MENUITEM "Movimento Financeiro " MESSAGE "Limpeza do Movimento Financeiro" ACTION If(Acesso("6.4","Acesso"), (PRG2440(),ShowMenu()), SemAcesso())

* MENUITEM "Imposto de Renda Anual " MESSAGE "Limpeza do Imposto de Renda Anual" ACTION If(Acesso("6.5","Acesso"), PRG2450(), SemAcesso())

MENUITEM "Recibos Emitidos " MESSAGE "Limpeza dos Recibos Emitidos" ACTION If(Acesso("6.6","Acesso"), (PRG2460(),ShowMenu()), SemAcesso())

MENUITEM "Processos (AÃ§Ãµes) " MESSAGE "Limpeza do Acompanhamento Juridico" ACTION If(Acesso("6.7","Acesso"), (PRG2470(),ShowMenu()), SemAcesso())

MENUITEM "Cheque emitidos " MESSAGE "Limpeza de cheques emitidos" ACTION If(Acesso("6.8","Acesso"), (PRG2480(),ShowMenu()), SemAcesso())

MENUITEM "Contas Pagas " MESSAGE "Limpeza das contas jÃ¡ quitadas" ACTION If(Acesso("6.8","Acesso"), (PRG2490(),ShowMenu()), SemAcesso())

ENDMENU

************************************************************************

MENUITEM "&RelatÃ³rios"

MENU

MENUITEM "Cadastros "

MENU

MENUITEM "ProprietÃ¡rios " MESSAGE "RelatÃ³rio de Cadastro de ProprietÃ¡rios" ACTION If(Acesso("7.1.1.","Acesso"), (PRG2510(),ShowMenu()), SemAcesso())

MENUITEM "LocatÃ¡rios e Garantias" MESSAGE "RelatÃ³rio de Cadastro de LocatÃ¡rios e Garantias"

MENU

MENUITEM "LocatÃ¡rios " MESSAGE "RelatÃ³rio de Cadastro de LocatÃ¡rios" ACTION If(Acesso("7.1.2.","Acesso"), (PRG2520(),ShowMenu()), SemAcesso())

SEPARATOR

MENUITEM "Garantias " MESSAGE "RelatÃ³rio de Cadastro de Fiadores" ACTION If(Acesso("7.1.2.","Acesso"), (PRG2521(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "ImÃ³veis "

MENU

MENUITEM "Cadastros " MESSAGE "RelatÃ³rio de Cadastro de ImÃ³veis" ACTION If(Acesso("7.1.3.1.","Acesso"), (PRG2530(),ShowMenu()), SemAcesso())

MENUITEM "Compartimentos " MESSAGE "RelatÃ³rio de Compartimentos de ImÃ³veis " ACTION If(Acesso("7.1.3.1.","Acesso"), (PRG25392(),ShowMenu()), SemAcesso())

SEPARATOR

MENUITEM "Dia do Repasse " MESSAGE "RelatÃ³rio com dia do Repasse ao ProprietÃ¡rio" ACTION If(Acesso("7.1.3.2.","Acesso"), (PRG2531(),ShowMenu()), SemAcesso())

MENUITEM "Vencto do Seguro IncÃªndio" MESSAGE "RelatÃ³rio com Data do Vcto do Seguro Incendio" ACTION If(Acesso("7.1.3.3.","Acesso"), (PRG2532(),ShowMenu()), SemAcesso())

MENUITEM "Vencto do Seguro FianÃ§a " MESSAGE "RelatÃ³rio com Data do Vcto do Seguro FianÃ§a" ACTION If(Acesso("7.1.3.4.","Acesso"), (PRG2538(),ShowMenu()), SemAcesso())

MENUITEM "Taxa AdministraÃ§Ã£o s/aluguel" MESSAGE "RelatÃ³rio com Valor de taxa Adm sobre aluguel" ACTION If(Acesso("7.1.3.5.","Acesso"), (PRG2533(),ShowMenu()), SemAcesso())

MENUITEM "Contratos: InÃcio / Ã Vencer" MESSAGE "RelatÃ³rio com Data dos Contratos: Inicio / Ã Vencer" ACTION If(Acesso("7.1.3.6.","Acesso"), (PRG2534(),ShowMenu()), SemAcesso())

MENUITEM "Dia do Vencimento do Aluguel" MESSAGE "RelatÃ³rio com dia do Vencimento do Aluguel" ACTION If(Acesso("7.1.3.7.","Acesso"), (PRG2536(),ShowMenu()), SemAcesso())

MENUITEM "Partilhantes " MESSAGE "RelatÃ³rio de ImÃ³veis Partilhantes" ACTION If(Acesso("7.1.3.8.","Acesso"), (PRG2537(),ShowMenu()), SemAcesso())

MENUITEM "ImÃ³veis Com Placa " MESSAGE "RelatÃ³rio de ImÃ³veis Com Placa" ACTION If(Acesso("7.1.3.9.","Acesso"), (PRG2539(),ShowMenu()), SemAcesso())

MENUITEM "Aluguel Com Desconto " MESSAGE "RelatÃ³rio de Aluguel Com Desconto" ACTION If(Acesso("7.1.3.9.1.","Acesso"), (PRG25391(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "Interessados"

MENU

MENUITEM "Interessados em Alugar " MESSAGE "Cadastro de Clientes Interessados em Alugar" ACTION If(Acesso("7.1.4.","Acesso"), (PRG2540(),ShowMenu()), SemAcesso())

MENUITEM "Compartimentos " MESSAGE "Cadastro de Compartimento dos Interessados " ACTION If(Acesso("7.1.4.","Acesso"), (PRG25401(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "ImÃ³veis Visitados " MESSAGE "Cadastro de Clientes Interessados em Alugar" ACTION If(Acesso("7.1.4.","Acesso"), (PRG2590(),ShowMenu()), SemAcesso())

MENUITEM "HistÃ³ricos para EmissÃ£o " MESSAGE "Cadastro de HistÃ³ricos para EmissÃ£o de Recibos" ACTION If(Acesso("7.1.5.","Acesso"), (PRG2550(),ShowMenu()), SemAcesso())

MENUITEM "Plano de Contas Financeiro " MESSAGE "Cadastro de Plano do Financeiro " ACTION If(Acesso("7.1.6.","Acesso"), (PRG2560(),ShowMenu()), SemAcesso())

MENUITEM "Centro de Custos " MESSAGE "RelatÃ³rio de Cadastro Centro de Custos" ACTION PRG25393()

MENUITEM "EmissÃ£o de Etiquetas " MESSAGE "EmissÃ£o de Etiquetas " ACTION If(Acesso("7.1.7.","Acesso"), (PRG2570(),ShowMenu()), SemAcesso())

MENUITEM "Corretores/Plantonistas... " MESSAGE "RelaÃ§Ã£o dos Corretores/Plantonistas..." ACTION If(Acesso("7.1.8.","Acesso"), (PRG2580(),ShowMenu()), SemAcesso())

ENDMENU

SEPARATOR

MENUITEM "EmissÃ£o de Recibos "

MENU

MENUITEM "Recibos no Vencimento" + Chr( 9 ) + "Ctrl-E" ACCELERATOR ACC_CONTROL, Asc( "E" ) ACTION If(Acesso("7.2.1.","Acesso"), CarregaCadastro("1"), SemAcesso())

SEPARATOR

MENUITEM "Consulta de Recibos em Tela" ACTION If(Acesso("7.2.2.","Acesso"), (PRG2620(),ShowMenu()), SemAcesso())

SEPARATOR

MENUITEM "RelatÃ³rio de prÃ©-emissÃ£o" ACTION If(Acesso("7.2.3.","Acesso"), (PRG2630(),ShowMenu()), SemAcesso())

ENDMENU

SEPARATOR

MENUITEM "Gerenciais"

MENU

MENUITEM "PendÃªncias"

MENU

MENUITEM "LocatÃ¡rios " MESSAGE "RelaÃ§Ã£o de LocatÃ¡rios Pendentes" ACTION If(Acesso("7.3.1.1.","Acesso"), (PRG2710() ,ShowMenu()), SemAcesso())

MENUITEM "LocatÃ¡rios corrigidos" MESSAGE "RelaÃ§Ã£o de LocatÃ¡rios Pendentes corrigido" ACTION If(Acesso("7.3.1.1.","Acesso"), (PRG2710a(),ShowMenu()), SemAcesso())

MENUITEM "ProprietÃ¡rios" MESSAGE "RelaÃ§Ã£o de ProprietÃ¡rios Pendentes" ACTION If(Acesso("7.3.1.2.","Acesso"), (PRG2711() ,ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "Baixados"

MENU

MENUITEM "LocatÃ¡rios" MESSAGE "RelaÃ§Ã£o de LocatÃ¡rios Baixados" ACTION If(Acesso("7.3.2.1.","Acesso"), (PRG2712(),ShowMenu()), SemAcesso())

SEPARATOR

MENUITEM "ProprietÃ¡rios" MESSAGE "RelaÃ§Ã£o de ProprietÃ¡rios Baixados" ACTION If(Acesso("7.3.2.2.","Acesso"), (PRG2713(),ShowMenu()), SemAcesso())

MENUITEM "Movimento Geral Repassado" MESSAGE "RelaÃ§Ã£o de ProprietÃ¡rios Baixados" ACTION If(Acesso("7.3.2.2.","Acesso"), (PRG2713a(),ShowMenu()), SemAcesso())

MENUITEM "Consulta de repasses" MESSAGE "RelaÃ§Ã£o de ProprietÃ¡rios Baixados" ACTION If(Acesso("7.3.2.2.","Acesso"), (PRG2713b(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "Alugueis Ã Reajustar/Carta Aviso " MESSAGE "Alugueis a Reajustar e Carta de Aviso" ACTION If(Acesso("7.3.3.","Acesso"), (PRG2721(),ShowMenu()), SemAcesso())

MENUITEM "Alugueis Reajustados/Carta Aviso " MESSAGE "Alugueis Reajustados e Carta Aviso " ACTION If(Acesso("7.3.4.","Acesso"), (PRG2722(),ShowMenu()), SemAcesso())

MENUITEM "Carta de CobranÃ§a " MESSAGE "Carta de CobranÃ§a" ACTION If(Acesso("7.3.5.","Acesso"), (PRG2714(),ShowMenu()), SemAcesso())

MENUITEM "RescisÃ£o de Contrato/Entrega chaves " MESSAGE "RescisÃ£o de Contrato/Entrega chaves" ACTION If(Acesso("7.3.1.1." ,"Acesso"), (PRG2710b(),ShowMenu()), SemAcesso())

MENUITEM "Conta Corrente"

MENU

MENUITEM "Extrato por ImÃ³vel" MESSAGE "Conta Corrente por ImÃ³vel" ACTION If(Acesso("7.3.6.1.","Acesso"), (PRG2715(),ShowMenu()), SemAcesso())

MENUITEM "Resumo do Extrato" MESSAGE "Resumo da Conta Corrente por ProprietÃ¡rio" ACTION If(Acesso("7.3.6.2.","Acesso"), (PRG2716(),ShowMenu()), SemAcesso())

MENUITEM "MovimentaÃ§Ã£o do proprietÃ¡rio"

MENU

MENUITEM "RelatÃ³rio" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), (PRG2716a(),ShowMenu()),SemAcesso())

MENUITEM "Envio por E-Mail" MESSAGE "Email: Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), (PRG2716f(),ShowMenu()),SemAcesso())

SEPARATOR

MENUITEM "RelatÃ³rio Modelo 2" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio Modelo 2" ACTION If(Acesso("7.3.6.3.","Acesso"), (PRG2716orban(),ShowMenu()),SemAcesso())

ENDMENU

MENUITEM "MovimentaÃ§Ã£o do proprietÃ¡rio RECEITA/DESPESAS" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio ordenado por Receita e Despesa" ACTION If(Acesso("7.3.6.3.","Acesso"), (PRG2716e(),ShowMenu()),SemAcesso())

MENUITEM "PrestaÃ§Ã£o de serviÃ§o ao ProprietÃ¡rio" MESSAGE "PrestaÃ§Ã£o de serviÃ§o ao ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), (PRG2716c(),ShowMenu()),SemAcesso())

MENUITEM "PrestaÃ§Ã£o de Contas por Banco" MESSAGE "Listagem PrestaÃ§Ã£o de Contas por Banco" ACTION If(Acesso("7.3.6.3.","Acesso"), (PRG2716b(),ShowMenu()),SemAcesso())

ENDMENU

MENUITEM "Movimento financeiro " MESSAGE "Demonstrativo Financeiro" ACTION If(Acesso("7.3.7." ,"Acesso"), (PRG2718(),ShowMenu()), SemAcesso())

MENUITEM "Movimento Contas Ã pagar " MESSAGE "Demonstrativo de Contas Ã Pagar" ACTION If(Acesso("7.3.11.","Acesso"), (PRG2724(),ShowMenu()), SemAcesso())

MENUITEM "D.A.R.F./Imposto de Renda " MESSAGE "D.A.R.F./Imposto de Renda" ACTION If(Acesso("7.3.8." ,"Acesso"), (PRG2719(),ShowMenu()), SemAcesso())

MENUITEM "Processos judiciais " MESSAGE "Andamento de Processos " ACTION If(Acesso("7.3.9." ,"Acesso"), (PRG2720(),ShowMenu()), SemAcesso())

MENUITEM "Controle de CobranÃ§a " MESSAGE "Controle de CobranÃ§a " ACTION If(Acesso("7.3.9." ,"Acesso"), (PRG2725(),ShowMenu()), SemAcesso())

MENUITEM "EmissÃ£o de cheques (repasse)" MESSAGE "EmissÃ£o de cheques (repasses)" ACTION If(Acesso("7.3.10.","Acesso"), (PRG2723(),ShowMenu()), SemAcesso())

MENUITEM "RelaÃ§Ã£o de cheques emitidos " MESSAGE "RelaÃ§Ã£o de cheques emitidos" ACTION If(Acesso("7.3.10.","Acesso"), (PRG2723a(),ShowMenu()), SemAcesso())

ENDMENU

SEPARATOR

MENUITEM "Auxiliares"

MENU

MENUITEM "Carta Aniversariante " MESSAGE "Carta de Aniversariante" ACTION If(Acesso("7.4.2.","Acesso") , (PRG2811(),ShowMenu()), SemAcesso())

MENUITEM "Informe de Rendimentos e Dimob " MESSAGE "Informe de Rendimentos e Dimob" ACTION If(Acesso("7.4.3.","Acesso") , (PRG2812(),ShowMenu()), SemAcesso())

MENUITEM "ComissÃ£o Recebida / Ã Receber " MESSAGE "Listagem de ComissÃ£o: Recebida / Ã Receber" ACTION If(Acesso("7.4.6.","Acesso") , (PRG2815(),ShowMenu()), SemAcesso())

MENUITEM "SolicitaÃ§Ã£o/RelaÃ§Ã£o: I.P.T.U. " MESSAGE "RelatÃ³rio de SolicitaÃ§Ã£o de IPTU" ACTION If(Acesso("7.4.8.","Acesso") , (PRG2818(),ShowMenu()), SemAcesso())

MENUITEM "SolicitaÃ§Ã£o Contas de consumo " MESSAGE "RelatÃ³rio de Contas de consumo" ACTION If(Acesso("7.4.8.","Acesso") , (PRG2818a(),ShowMenu()),SemAcesso())

MENUITEM "PosiÃ§Ã£o de CondomÃnio / Iptu " MESSAGE "RelatÃ³rio do responsavel por Iptu CondomÃnio" ACTION If(Acesso("7.4.8.","Acesso") , (PRG2818b(),ShowMenu()),SemAcesso())

MENUITEM "Ficha Financeira do Inquilino " MESSAGE "Ficha Financeira do Inquilino" ACTION If(Acesso("7.4.9.","Acesso") , (PRG2819(),ShowMenu()), SemAcesso())

ENDMENU

SEPARATOR

MENUITEM "PosiÃ§Ãµes em Carteira"

MENU

MENUITEM "Alugado/Desocupado/Captados " MESSAGE "ImÃ³veis Alugados, Desocupados e Captados" ACTION If(Acesso("7.4.1.","Acesso") , (PRG2810(),ShowMenu()), SemAcesso())

MENUITEM "Fluxo de movimento" MESSAGE "Fluxo de movimento" ACTION If(Acesso("7.4.7.","Acesso") , (PRG2816(),ShowMenu()), SemAcesso())

MENUITEM "Tipo de Contrato" MESSAGE "ImÃ³veis: Comerciais,Residenciais, Temporada e NÃ£o Residencial" ACTION If(Acesso("7.4.5.","Acesso") , (PRG2814(),ShowMenu()), SemAcesso())

MENUITEM "Resumo de Carteira " MESSAGE "Resumo de Carteira" ACTION If(Acesso("7.4.10.","Acesso"), (PRG2820(),ShowMenu()), SemAcesso())

MENUITEM "RelaÃ§Ã£o de emissÃ£o no mÃªs " MESSAGE "RelaÃ§Ã£o de emissÃ£o no mÃªs" ACTION If(Acesso("7.4.11.","Acesso"), (PRG2821(),ShowMenu()), SemAcesso())

ENDMENU

SEPARATOR

MENUITEM "LanÃ§amentos "

MENU

MENUITEM "FIXO e AVULSO" MESSAGE "RelatÃ³rio de lanÃ§amentos Fixo e Avulso" ACTION If(Acesso("7.5.1.","Acesso"), (PRG2851(),ShowMenu()), SemAcesso())

MENUITEM "I P T U" MESSAGE "RelatÃ³rio de lanÃ§amento de IPTU" ACTION If(Acesso("7.5.2.","Acesso"), (PRG2852(),ShowMenu()), SemAcesso())

MENUITEM "SEGURO" MESSAGE "RelatÃ³rio de lanÃ§amento de SEGURO" ACTION If(Acesso("7.5.3.","Acesso"), (PRG2853(),ShowMenu()), SemAcesso())

* MENUITEM "T.R.S.D." MESSAGE "RelatÃ³rio de lanÃ§amento de T.R.S.D." ACTION If(Acesso("7.5.4.","Acesso"), (PRG2854(),ShowMenu()), SemAcesso())

ENDMENU

* SEPARATOR

ENDMENU

MENUITEM "Procura de ImÃ³veis "

MENU

MENUITEM "Procura de ImÃ³veis" MESSAGE "Pesquisa Imoveis Desocupados " ACTION If(Acesso("7.6.","Acesso"), (PRG3000(),ShowMenu()), SemAcesso())

MENUITEM "Cruzamento Interessado/ImÃ³vel " MESSAGE "Cruzamento Interessado/ImÃ³vel" ACTION If(Acesso("7.7.","Acesso"), (PRG3010(),ShowMenu()), SemAcesso())

ENDMENU

MENUITEM "&Saida" MESSAGE "Abandonar o Sistema" ACTION (MEMVAR->oWnd:End())

MENUITEM "A&juda" HELP

MENU

MENUITEM "Sobre o Sistema" MESSAGE "Sobre o registro do sistema" ACTION Sobre() RESOURCE "ZOOM"

SEPARATOR

* MENUITEM "ConfiguraÃ§Ã£o Client-Server" MESSAGE "ConfiguraÃ§Ã£o Client-Server" ACTION ClienteServer()

* SEPARATOR

MENUITEM "Dica do Dia !" ACTION TIPS("Abre") RESOURCE "TOOLTIP" //Preciso informar que ele abre mesmo o usuÃ¡rio nao querendo visualizar mais

If File("internet.exe")

SEPARATOR

MENUITEM "Transferencia para Site !" ACTION WinExec("internet.exe") RESOURCE "LIVEUPDATE" MESSAGE "Este modulo Ã© responsÃ¡vel pela atualizaÃ§Ã£o do Banco de Dados no Site" //Preciso informar que ele abre mesmo o usuÃ¡rio nao querendo visualizar mais

Endif

MENUITEM "Interface Contrato com Word 97" ACTION If(Acesso("8.","Acesso") , prg9001(), SemAcesso())

ENDMENU

RETURN oMenu

//////////////////////////////////////////////////////////////////////////////////////////

static function MenuConta( oBtn )

Local oMenu, aRect

MENU oMenu POPUP 2007

MENUITEM "LanÃ§amentos e Consultas em Tela" MESSAGE "Movimento e Consulta do Extrato da Conta Corrente do ProprietÃ¡rio" ACTION If(Acesso("4.1.5.1.","Acesso"), PRG2150(), SemAcesso())

MENUITEM "LanÃ§amento para Proprietario" MESSAGE "Movimento de lanÃ§amento para o ProprietÃ¡rio" ACTION If(Acesso("4.1.5.2.","Acesso"), PRG2153(), SemAcesso())

MENUITEM "Gerador de LanÃ§amento " MESSAGE "Gerador de LanÃ§amentos Fixos para Conta Corrente do ProprietÃ¡rio" ACTION If(Acesso("4.1.5.3.","Acesso"), PRG2151(), SemAcesso())

Separator

MENUITEM "Extrato por ImÃ³vel" MESSAGE "Conta Corrente por ImÃ³vel" ACTION If(Acesso("7.3.6.1.","Acesso"), PRG2715(), SemAcesso())

MENUITEM "Resumo do Extrato" MESSAGE "Resumo da Conta Corrente por ProprietÃ¡rio" ACTION If(Acesso("7.3.6.2.","Acesso"), PRG2716(), SemAcesso())

MENUITEM "Extrato por proprietario Excel" MESSAGE "Conta Corrente por proprietario" ACTION If(Acesso("7.3.6.1.","Acesso"), (SCANO(),ShowMenu()), SemAcesso())

* MENUITEM "MovimentaÃ§Ã£o do proprietÃ¡rio" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716a(),SemAcesso())

MENUITEM "MovimentaÃ§Ã£o do proprietÃ¡rio" //MESSAGE "Movimento Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716a(),SemAcesso())

MENU

MENUITEM "RelatÃ³rio" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716a(),SemAcesso())

MENUITEM "Envio por E-Mail" MESSAGE "Email: Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716f(),SemAcesso())

SEPARATOR

MENUITEM "RelatÃ³rio Modelo 2" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio Modelo 2" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716orban(),SemAcesso()) //prg2716-orban.prg

ENDMENU

MENUITEM "MovimentaÃ§Ã£o do proprietÃ¡rio RECEITA/DESPESAS" MESSAGE "RelatÃ³rio: Geral do ProprietÃ¡rio ordenado por Receita e Despesa" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716e(),SemAcesso())

MENUITEM "PrestaÃ§Ã£o de serviÃ§o ao ProprietÃ¡rio" MESSAGE "PrestaÃ§Ã£o de serviÃ§o ao ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716c(),SemAcesso())

MENUITEM "Listagem de PrestaÃ§Ã£o por banco" MESSAGE "Listagem de PrestaÃ§Ã£o por banco" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716b(),SemAcesso())

If File("MSPB.BAZ")

MENUITEM "MODELO MSPB" MESSAGE "Listagem Movimento Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), PRG2716d(),SemAcesso())

* ElseIf File("DORNA.BAZ")

Endif

If File("CONTA.EXE")

SEPARATOR

MENUITEM "Modulo externo do mov.geral do proprietÃ¡rio" MESSAGE "Movimento Geral do ProprietÃ¡rio" ACTION If(Acesso("7.3.6.3.","Acesso"), WINEXEC("CONTA.EXE"),SemAcesso())

Endif

* If File("teste.baz")

* SEPARATOR

* MENUITEM "Modulo BAZEVANI IPU E CONDOMINO" ACTION PRG2716orbantst()

* Endif

ENDMENU

* ACTIVATE POPUP oMenu AT aRect[ 3 ] + 1, aRect[ 2 ] OF oBtn

return oMenu

***********************[MENU DA BAIXA DO LOCATARIO]*******************

static function BaixaLocat(oBtn)

Local oMenu, aRect

* aRect := GetClientRect( oBtn:hWnd )

MENU oMenu POPUP 2007

MENUITEM "Baixa por recibo " MESSAGE "Baixa de locatÃ¡rios por recibo" ACTION If(Acesso("4.2.1.","Acesso"), PRG2210() , SemAcesso())

MENUITEM "Baixa automÃ¡tica (Banco)" MESSAGE "Baixa de locatÃ¡rios automatica (Banco)" ACTION If(Acesso("4.2.1.","Acesso"), PRG2210b(), SemAcesso()) WHEN FILE("CFGBANCO.INI")

Separator

MENUITEM "Estorno de Baixa LocatÃ¡rio " MESSAGE "Estorno da Baixa do LocatÃ¡rio" ACTION If(Acesso("4.2.3.","Acesso"), PRG2230(), SemAcesso())

Separator

MENUITEM "LocatÃ¡rios Pendentes " MESSAGE "RelaÃ§Ã£o de LocatÃ¡rios Pendentes" ACTION If(Acesso("7.3.1.1.","Acesso"), PRG2710(), SemAcesso())

MENUITEM "LocatÃ¡rios Pendentes corrigidos" MESSAGE "RelaÃ§Ã£o de LocatÃ¡rios Pendentes corrigido" ACTION If(Acesso("7.3.1.1.","Acesso"), PRG2710a(), SemAcesso())

MENUITEM "LocatÃ¡rios baixados " MESSAGE "RelaÃ§Ã£o de LocatÃ¡rios Baixados" ACTION If(Acesso("7.3.2.1.","Acesso"), PRG2712(), SemAcesso())

ENDMENU

*ACTIVATE POPUP oMenu AT aRect[ 3 ] + 1, aRect[ 2 ] OF oBtn

return(oMenu)

***********************[MENU DA BAIXA DO PROPRIETARIO]*******************

Static Function BaixaPropr(oBtn)

Local oMenu, aRect

MENU oMenu POPUP 2007

MENUITEM "Por ImÃ³vel " MESSAGE "Baixa de Repasse (ImÃ³vel)" ACTION If(Acesso("4.2.2.","Acesso"), PRG2220(), SemAcesso())

MENUITEM "Seus ImÃ³veis" MESSAGE "Baixa dos ImÃ³veis " ACTION If(Acesso("4.2.2.","Acesso"), PRG2221(), SemAcesso())

Separator

MENUITEM "Estorno de Baixa ProprietÃ¡rio" MESSAGE "Estorno da Baixa do ProprietÃ¡rio" ACTION If(Acesso("4.2.4.","Acesso"), PRG2240(), SemAcesso())

MENUITEM "Estorno de

ronaldo · April 27, 2012

ocorre isto, porque esse comando deve ficar dentro de uma procedure ou function

I:\teste\clientes.prg(34) Error E0001 Statement not allowed outside of

Ronaldo Minacapelli

(11) 2950 3069

kleyber · April 27, 2012

Verdade... bom mais uma tentativa: