elitenet

William Vou alterar a funcao e transforma-la em classe incluido as modificacoes para todos os controles derivados de tsbrowse e incluir tambem vGet, assim que terminar lhe mando os fontes para você postar no forum! FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Ache o dickgrnd.c e veja se a funcao abaixo esta igual a esta, pois corrigi este problema de memoria a algum tempo em meu sistema. #ifndef __HARBOUR__ CLIPPER PINTAGET( PARAMS ) // hWnd, hDC, nColor1, nColor2, nTipo,lCalendario #else HARBOUR HB_FUN_PINTAGET( PARAMS ) #endif { HWND hWnd = ( HWND ) _parni( 1 ); HDC hDC = ( HDC ) _parni( 2 ); COLORREF cCor1 = _parnl(3) ; COLORREF cCor2 = _parnl(4) ; char nTipo = _parni(5); RECT rct; /*------------------ Tipos de Degrades ------------------*/ /* nTipo == 1 - Degrade de cima para baixo (default) */ /* == 2 - Degrade de cima ate o meio e inverso */ /* == 3 - Degrade da esquerda para a direita */ /* == 4 - Degrade da esquerda ate o meio e inverso */ /*-------------------------------------------------------*/ nTipo = (nTipo == 0 ? 1 : nTipo) ; GetClientRect( hWnd, &rct ); //Degrade( hDC, &rct, cCor1, cCor2, nTipo ); WindowBoxIn( hDC, &rct ); } id=code>id=code>FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Ricardo Primeiramente meus parabens pela classe, ficou excelente o folder. Acabei de baixa-la, pois estava meio sumido aqui do forum e estou trabalhando nela para funcionar com Ressource, pois eu ja tinha alterado a Nativa do Five para ter a opcao dos Folder na parte debaixo. Assim que eu conseguir coloca-la funcional eu a disponibilizo no forum. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Se voce for usar seu sistema somente com Windows XP, no PellesC tem como você usar o folder normal colocando a aba embaixo ou do lado. Não precisa mudar nada na programação e so uma opção no recurso. Porem so funciona no Windows XP! Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Eu acho que o motivo e porque a cada atualizacao do browse, como refresh ou movimentacao do list. O OrdKeyNo reconta todos os registros do arquivo que possuem indice. ( Acho que seria isto ) Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Se quiserem eu coloco isso dentro da classe Tmenu sem precisar alterar a classe nativa!... Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Marcelo Foi você que me mandou um e-mail sobre perda de perfomance? Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Se eu não me engano a SQLILIB FREE não cria indices!... Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Jeff Indo um pouquinho alem do que você perguntou no meu sistema eu tenho as seguintes situações: | Normal Entrada | Transferencia | Devolucao id=code>id=code> Veja que no caso do estoque todos os 3 figuram como uma entrada normal o que diferencia é a CFOP, sendo que as mesmas podem ser emitidas pela empresa a qualquer momento. Ja no caso do Financeiro cada uma tem um tratamento diferente. Agora vejamos o outro lado: | Normal Saida | Transferencia | Devolucao id=code>id=code> Nesta caso o estoque nos 3 figuram como uma saida normal o que diferencia é a CFOP, sendo que as mesmas podem ser emitidas pela empresa a qualquer momento. Ja no caso do Financeiro cada uma tem um tratamento diferente. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Editado por - elitenet on 26/03/2008 14:09:43

Kapiaba Se é mais escuro eu nao sei, pois essa eu deixo para o Geovanny! Pois parece que ele ja entende do assunto!.. Hehehehehehehehe Brincadeira Geovanny!... Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Caro Geovanny Eu não disse nas suas palavras, como você se expressou agora. Mas o que eu quiz dizer foi exatamente isso, quando se utiliza muitos recursos se você colocar no executavel você vai carregar tudo isto na memoria. Agradeço pela bibliografia apontada, certamente ja irei adquiri-lo para ler. Geovanny, irei verificar onde li sobre o limite de tamanho do executavel, pois provavelmente ja deve ter mudado muita coisa pois li isso a algum tempo atras. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Kapiaba Me desculpe discordar, mas eu em momento algum disse compactar executavel com Winzip, Brazip... Se não entendes o que eu digo pegue a bibliografia que acompanha o Blinker, a Bibliografia que acompanha o Borland C++ e verás que estes utilitarios que reduzem o tamanho do executavel nada mais são do que compactadores e que o sistema para ser executado ele necessita se descompactar na memoria. O UPX pode ser um utilitario para retirar somente espaços vazios, mas qual a verdadeira finalidade do mesmo senão diminuir o tamanho do executavel para que ele não atinja o seu tamanho maximo. Outra coisa, essa historia de um executavel ocupar 2 DVDS conta outra, pois o que ocupa dois DVDS e a instalacao do Software e ali com certeza há muitas dll e outros arquivos. Ate mesmo porque teria que ser um Mainframe para executar o exe deste tamanho. Na arquitetura IBM-PC impossivel!... Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Venho esclarecer uma coisa aqui que vejo muitos deseconselhos e nunca vi nenhum problema. Este negocio de que .dll é problema e puro mito, utilizo .dll para as telas e bitmaps nos meus sistemas desde a versao 2.0 do Fivewin for Clipper e nunca tive nenhum problema quanto a isso. Meus sistemas rodam desde o Windows 95 ate o Windows 2003 server e em nenhuma das versões apresentou nenhum problema. Quanto a esse negocio de jogar tudo dentro do executavel, deves se preocupar sim com o tamanho Anderson. Pois muitos se enganam com o UPX e o proprio Blinker que possui comandos para compactar o tamanho do executavel. Mas nos dois casos estão se esquecendo de uma coisa, para o sistema ser carregado para memoria ele tem que ser descompactado na mesma e isso requer perfomance e memoria. Se não acredita, faça o teste por se mesmo pegue um .exe de mais ou menos 500 Kb execute o e veja o consumo de memoria e depois pegue um executavel de 1 Mb que foi compactado com UPX ou Blinker e seu tamanho tenha sido reduzido para 500 Kb, execute este executavel e veja o consumo de memoria. ( Nos dois casos a rotina deves fazer o mesmo procedimento ) Não existe essa de deixa o executavel crescer que não tem problema, tem problema sim pois existe um limite para o tamanho do executavel, assim como no MS-DOS o limite era 16 MB. Não me lembro ao certo onde vi o tamanho maximo de um executavel 32 Bits, mas vou procurar aqui nos meus livros de C++. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Essa e facim facim For a := 1 To Len( oWnd:oMenu:aItems ) If ValType( oWnd:oMenu:aItems[a]:cPrompt ) == "C" msginfo(oWnd:oMenu:aItems[a]:cPrompt) If ValType( oWnd:oMenu:aItems[a]:bAction ) == "O" For b := 1 To Len( oWnd:oMenu:aItems[a]:bAction:aItems ) If ValType( oWnd:oMenu:aItems[a]:bAction:aItems:cPrompt ) == "C" msginfo(oWnd:oMenu:aItems[a]:bAction:aItems:cPrompt) EndIf Next EndIf EndIf Next E vai assim por diante quantos submenus existirem... id=code>id=code>Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Você pode fazer assim que irá funcionar: REDEFINE GET oDist1 Var pDist1 ID 31 OF oFld:aDialogs[2] PICTURE "9999" ; VALID(IIf(empty(pDist1),.T. ,; Eval({||oDist1:oGet:VarPut( strzero(val(pDist1),4) ), oDist1:Refresh(),.T.}))) UPDATE ; FONT oFont ; COLORS CLR_BLUE, CLR_WHITE Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Se vcs tiverem a declaração em Delphi eu as monto em xHarbour!... Mande o arquivo com as declaraçoes que as monto em xharbour e lhe retorno o PRG. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

E muito mais facil voce passar as teclas de atalho para a dialog ativa pelo bKeydown. Ex: ::oCadBrowse:bKeyDown := { |nKey| Keyb_Atalho( nKey, { { VK_F2 , { || ( If( Acesso_Rotina( oSeletor:Usuario_sys, oSeletor:Prg_Usado, 3 ), Eval( Bck_Inclui ), Nil ), ::Navega_Browse(), ::Executa_Sql() ) } },; VK_ESCAPE, { || oCadBrowse:End() } } } ) } Function Keyb_Atalho( nKey, aAcao, nCombina ) Local nPoint := aScan( aAcao, { |aValor| aValor[1] == nKey } ) If nPoint # 0 .And. nCombina == Nil Eval( aAcao[nPoint][2] ) ElseIf nPoint # 0 .And. GetKeyState( nCombina ) Eval( aAcao[nPoint][2] ) EndIf Return(Nil) id=code>id=code>Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Joao Por a caso não é a variavel que esta errada, pois no When esta lPesquisa e na funcao Liga_Botao voce esta usando a lLigaBotao Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Editado por - elitenet on 29/01/2008 11:36:38

Amigos Não me lembro onde vi que em xHarbour puro da para gerar os pcodes para o Java. Digo não testei, mas se gerar mesmo e uma opção para se usar!... Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Jef Eu tenho o Visual Jet ( Minha versao e um pouco antiga, e de 2002 não funciona com XP ). Mas o programa e otimo, para imprimir boletos, formularios predefinidos, Notas Fiscais por Laser e show de bola. Da para fazer muita coisa, meus boletos todos são pelo Visual Jet ( Impressão, Envio por e-mail ) tudo gerenciado por ele. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Não entendo Não sei porque o pessoal tem essa mania de meter o pau no que não conhece. Usei o Borland WorkShop desde suas primeiras versoes, diga se de passagem lá pelo Delphi 1.0 e nunca vi grande coisa naquela porcaria. ( Perdao da palavra ) O Produto era tão ruim que a Borland abandonou o projeto e partiu para outro. Da para enumerar facilmente 4 pontos fraco do produto: 1) Perde recursos sem mais nem menos... 2) Fala que trabalha com Dll, mas sempre que forem usa-lo com uma DLL façam backup pois na maioria das vezes danifica a DLL 3) Parou no tempo, produto totalmente ultrapassado sua ultima atualização foi na decada de 90 4) Pobre em recursos, claro devido a idade. Agora querer compara-lo com PellesC ai e demais para mim... O PellesC não só e um editor de recursos, como da para desenvolver rotinas proprias em C no mesmo e integra-las ao projeto. Da para se criar DLL de recursos, da para criar DLL e libs para smartphones e PocktePc, rotinas para os mesmos. Muito rico em recursos, e falo mais não tem nenhum recurso que o VSX tenha que o PellesC ja não tenha. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Kbelo Olha e so você fazer o seguinte, volte o seu Method Paint original e abra o BackGrnd.c e procure por PintaGet Quando achar comente essa linha como fiz abaixo: //WindowBoxIn( hDC, &rct ); E so recompilar a vget e o ponto .C e mandar brasa que vai funcionar o que voce quer. Obrigado Vagner, lembrei onde eu tinha alterado isso. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Editado por - elitenet on 17/01/2008 08:49:58

Kbelo Eu ja alterei isso na minha Vget, Alias isso muitas outras coisas. No momento estou meio apertado aqui para ver onde que alterei, mas faça o seguinte, compare o metodo Paint que coloquei abaixo com o da sua vGet e faças as alteracoes que fiz colocando igual ao meu que vai funcionar isso que voce quer. Local hDC := GetDC(::hWnd) Local aRec := GetWndRect(::hWnd) Local aRecAux Local nMe,nHi,aRect Local nPosTitu := 0 Local cText,cTe1,cTe2,cTe3,nPTe Local nCaretPos,nTamanPos Local nTop,nLeft,nBottom,nRight,nColor Local aCorFundo if ( ! ::lActive .And. ValType( ::nClrForeAnt ) == "A" ) ::nclrFore := GetSysColor(COLOR_GRAYTEXT) else ::nclrFore := ::nclrForeAnt EndIf aRect := GetClientRect(::hWnd) If ::lSpinner ; aRec[4] -= 10 ; Endif If !Empty(::cFileAction); aRec[4] -= 16 ; Endif aRecAux := aRec If lAnd(GetWindowLong(::hWnd,GWL_STYLE),ES_RIGHT) ; nPosTitu := 2 ; Endif If lAnd(GetWindowLong(::hWnd,GWL_STYLE),ES_CENTER) ; nPosTitu := 1 ; Endif *---- Fundo em Focus com cor Diferente ----* If Len(::nClrBack) > 2 .and. ::oGet:HasFocus ; aCorFundo := { ::nClrBack[3], ::nClrBack[4] } Else ; aCorFundo := { ::nClrBack[1], ::nClrBack[2] } Endif *---- Pega a Fonte ----* SelectObject(hDc,::oFont:hFont) SetBkMode( hDC, 1 ) //Coloca Fundo em Transparente PintaGet(::hWnd,hDC,aCorFundo[1],aCorFundo[2],::nTipo) *---- Arquivo Bmp para Fundo ----* If ::cFile # Nil If File(::cFile) ; hBmpFile := PalBmpRead(hDc,::cFile) Else ; hBmpFile := PalBmpLoad(::cFile) Endif If pBmpHeight(hBmpFile) > (aRect[3]-aRect[1]) .or. pBmpWidth(hBmpFile) > (aRect[4]-aRect[2]) DrawBitmap(hDc,hBmpFile,0,0,aRect[4]-aRect[2],aRect[3]-aRect[1]) Else DrawMasked(hDc,hBmpFile,0,0) Endif lV24 := .F. If ValType(hBmpFile) == "A" ; lV24 := .T. ; Endif If Iif(lV24,hBmpFile[1],hBmpFile) # 0 PalBmpNew(::hWnd,Iif(lV24,hBmpFile[1],hBmpFile)) If !PalBmpFree(Iif(lV24,hBmpFile[1],hBmpFile)) ; MsgStop("Nao pude limpar o BitMap","Erro na Linha 1232") ; Endif hBmpFile := 0 Endif Endif If !Empty(::cFileAction) If File(::cFileAction) ; hBmpFile := PalBmpRead(hDc,::cFileAction) //Bmp em Disco Else ; hBmpFile := PalBmpLoad(::cFileAction) //Bmp em Resource Endif DrawMasked(hDc,hBmpFile,1,aRect[4]-16) // If Empty(::aPosAction) ::aPosAction := {1,aRect[4]-16,aRect[3],aRect[4]} // Endif lV24 := .F. If ValType(hBmpFile) == "A" ; lV24 := .T. ; Endif If Iif(lV24,hBmpFile[1],hBmpFile) # 0 PalBmpNew(::hWnd,Iif(lV24,hBmpFile[1],hBmpFile)) If !PalBmpFree(Iif(lV24,hBmpFile[1],hBmpFile)) ; MsgStop("Nao pude limpar o BitMap","Erro na Linha 1250") ; Endif Endif Endif cText := ::GetText() If ::lPassword .and. ::oGet:Type == "C" cText := Repl( "*", Len( Trim( cText ) ) ) Endif If ::lModoCalculadora cText := Space(::nTamOrig-Len(AllTrim(cText)))+AllTrim(cText) Endif nMe := GetTextWidth(hDC,SubStr(cText,::nPos,1),::oFont:hFont) nHi := GetCaretPos()[1]-nMe *---- Verifica se o Tamanho do Texto > que o Box ----* If nPosTitu == 0 //Normal nCaretPos := GetCaretPos()[1]-2 nTamanPos := GetTextWidth(hDC,Left(cText,::nPos-1),::oFont:hFont) If nCaretPos # nTamanPos .and. nTamanPos > (aRecAux[4]-aRecAux[2])-6 .and. ::oGet:HasFocus .and. ::oGet:Pos # 1 cTe1 := Left(cText,::nPos-1) nPTe := 0 Do Whil nTamanPos-1 > nCaretPos nPTe++ nCaretPos := GetCaretPos()[1]-2 cTe3 := SubStr(cTe1,nPTe,Len(cTe1)) nTamanPos := GetTextWidth(hDC,cTe3,::oFont:hFont) Enddo cText := SubStr(cText,nPTe,Len(cText)) Endif ElseIf nPosTitu == 1 //Center // cText := AllTrim(cText) ElseIf nPosTitu == 2 //Right nTamanPos := GetTextWidth(hDC,cText,::oFont:hFont) If nTamanPos > (aRecAux[4]-aRecAux[2])-6 cTe1 := cText nPTe := Len(cText) nTamanPos := 1 Do Whil nTamanPos < (aRecAux[4]-aRecAux[2]-6)-nMe nPTe-- cTe3 := SubStr(cTe1,nPTe,Len(cText)) nTamanPos := GetTextWidth(hDC,cTe3,::oFont:hFont) Enddo cText := SubStr(cText,nPTe,Len(cText)) nTamanPos := ((nTamanPos-2)/Len(cText)) Endif Endif *---- Coloca Sombra no Texto se Houver ----* If ValType(::nClrFore) == "A" If ::nClrFore[2] # Nil If Len(::nClrFore) > 2 .and. ::oGet:hasfocus nColor := ::nClrFore[4] //Cor da Sombra Else nColor := ::nClrFore[2] Endif nTop := 1 nLeft := 2 nBottom := (aRec[3]-aRec[1]) nRight := (aRec[4]-(aRec[2]+4)) SetTextColor( hDC, nColor ) DrawText(hDC,cText,{nTop,nLeft,nBottom,nRight},nPosTitu) If Len(::nClrFore) > 2 .and. ::oGet:hasfocus nColor := ::nClrFore[3] //Cor do Texto Else nColor := ::nClrFore[1] Endif Else nColor := ::nClrFore Endif Else nColor := ::nClrFore //Cor do Texto Endif aRec[3] -= aRec[1] aRec[4] -= (aRec[2]+4) aRec[1] := 0 aRec[2] := 1 SetTextColor( hDC, nColor ) DrawText(hDC,cText,aRec,nPosTitu) If ::lModoCalculadora ::SetPos(::nPos) #ifndef __XPP__ ::SendMsg( EM_SETSEL, 0, nMakeLong( ::nTamOrig,::nTamOrig ) ) #else ::SendMsg( EM_SETSEL, ::nTamOrig,::nTamOrig ) #endif Endif ReleaseDc(::hWnd,hDC) Retu Nil id=code>id=code>Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Gostei do que vocês fizeram... Vou postar aqui depois como fazer a alteracao somente no method ShowTooltip sem alterar a classe Twindow original do Fwh. Assim pode se atualizar o Fwh sem medo de sobrepor alteracoes e tambem não se deixa de aproveitar as mudancas e correcoes que forem feitas na classe Twindow original. Outra coisa, estas propriedades não precisa ficar passando para todos os objetos e so defini-las como default na classe e so alterar as que voce quer na hora que criar o objeto. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Editado por - elitenet on 16/01/2008 17:16:02

Caro Leandro Me desculpe, pois cometi um erro!... A Rotina que postei para ti e para achar os feriados moveis e feriados nacionais, para verificar sabado e domingo utilize a funcao Dow() passada pelo nosso amigo GVC. Marcelo Gomes elitenet@terra.com.br (32) 3728-1288 Muriae - MG FW 2.3C/FWH 2.6/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE