PC Toledo

Código: Selecionar todos

    #include "inkey.ch"
    #include "visual2.ch"
    #include "Getexit.ch"

    #include "wvtwin.ch"       // FW_MEDIUM            //
    #include "hbgtinfo.ch"     // HB_GTI_DESKTOPWIDTH  //

    #include "sysadm.ch"

    //-------------------------------------------------------------------
    INIT PROCEDURE Configura()
	Request Hb_Lang_Pt
	Request Hb_CodePage_Pt850
	Request Hb_Gt_Wvt_Default
	Request Hb_Lang_Pt
        Request Wvt_SetCodePage
        Request DbfCdx

        RddSetDefault("DbfCdx")

        Hb_LangSelect("PT")
        Hb_SetCodePage( "PT850" )
        Wvt_SetCodePage(255)       // Pagina de codigo 850  //

	//HB_GtInfo( HB_GTI_CLOSABLE, .F. )  // quer bloquear o botão X de fechamento?
	//HB_GtInfo( HB_GTI_ICONFILE, "icone_do_app.ico" )

	HB_GtInfo( HB_GTI_WINTITLE, tituloDesktop + versaoSistema )
	HB_GtInfo( HB_GTI_MAXIMIZED, .t. )       // janela WideScreen

        //SET EVENTMASK to 159
        mSetCursor( .t. )

        Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
        Hb_GtInfo( HB_GTI_FONTSIZE, 9)



	Do Case
	   Case HB_GtInfo(HB_GTI_DESKTOPWIDTH) >= 1023
	        //Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
	        //Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
                //Hb_GtInfo( HB_GTI_FONTSIZE, 9)
           Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
	        Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
	        //Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
                //Hb_GtInfo( HB_GTI_FONTSIZE, 9)
           OtherWise
	        //Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0  FW_NORMAL, FW_BOLD, FW_BLACK
	        //Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
                //Hb_GtInfo( HB_GTI_FONTSIZE, 9)
        EndCase


        Set Key -8 To calen()
        Set Key -9 To calculadora()

        SetMode(30,100)

        Set Softseek On
        Set Cursor On
        Set Scoreboard Off
        Set Date To British
        Set Century On
        Set Deleted On

         RETURN (nil)
         //-------------------------------------------------------------------
         // End Off INIT PROCEDURE System
         //-------------------------------------------------------------------


         FUNCTION main()
             //

             DeskTop(tituloDesktop,"w+/b",,.f.) //string "", string COR, setmode, font
             //LoginAcesso()
             MontaMainMenu()

             MontaBarraInferior()


         RETURN (nil)
          //-------------------------------------------------------------------
          // End Off Entry Point MAIN PROCEDURE System
          //-------------------------------------------------------------------

Código: Selecionar todos

!vl850.com
!avantft.com

Código: Selecionar todos

***********************************
* INCLUDES E REQUESTS NECESSµRIAS *
***********************************

# include "visual2.ch"
# include "inkey.ch"     
# include "hbgtinfo.ch"          
# include "setcurs.ch"               
# include "dbedit.ch"        
# include "common.ch"
#ifndef _linux_
  # include "icones.ch"
#endif  
		
*---------------*
 FUNCTION MAIN()  && PROGRAMA PRINCIPAL --- TUDO COME€A AQUI .. RS
*---------------*
//altd() // debug

#ifdef _linux_
  REQUEST HB_GT_XWC
  REQUEST HB_CODEPAGE_PT850
  REQUEST HB_CODEPAGE_PTISO
  REQUEST HB_CODEPAGE_PLISO
  REQUEST HB_LANG_PT        
  REQUEST HB_LANG_PLISO
 
  hb_settermcp('LINUX','PT850') // Caracteres
  hb_setcodepage('PT') // Pagina de codigo para os DBFs

  set(105,1)
  set(106,1)
#else

  REQUEST HB_LANG_PT
  REQUEST HB_CODEPAGE_PT850
  HB_LANGSELECT( 'PT' )
  HB_SETCODEPAGE( "PT850" )

#endif

*******************************
** USAR INDICES DRIVE DBFCDX **
*******************************
REQUEST DESCEND 
REQUEST DBFCDX
REQUEST DBFFPT
RddSetDefault("DBFCDX")
DbSetDrive("DBFCDX")

********************************************************************************
** USA A BIBLIOTECA GTWVT.LIB **
********************************

#ifndef _linux_
  
   REQUEST WVT_SETCODEPAGE
   WVT_SETCODEPAGE(255)

   WVT_SETTITLE(HB_OEMTOANSI("CONTROLE - Sistema de GestÆo Comercial Integrado"))
   WVT_SETICON( ID_MAINICON )
	
   if file("PAR.DBF")   // destaca tela
      use PAR alias PAR shared
		if PAR->cc_destaca = "S"
         wvt_setfont("courier new",1,0)
      endif   
      PAR->(DBCLOSEAREA())
	endif   
	 
   do case
   case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 1023

      if file("PAR.DBF")
         use PAR alias PAR shared
         if PAR->cc_tela = "N"
            HB_gtinfo(HB_GTI_FONTWIDTH,12)
            HB_gtinfo(HB_GTI_FONTSIZE, 22)
         else
            HB_gtinfo(HB_GTI_FONTWIDTH,12)
            HB_gtinfo(HB_GTI_FONTSIZE, 27)
         endif
         PAR->(DBCLOSEAREA())
      else
         HB_gtinfo(HB_GTI_FONTWIDTH,12)
         HB_gtinfo(HB_GTI_FONTSIZE, 22)
      endif
    
   case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 799

      if file("PAR.DBF")
         use PAR alias PAR shared
         if PAR->cc_tela = "N"
            HB_gtinfo(HB_GTI_FONTWIDTH,10)
            HB_gtinfo(HB_GTI_FONTSIZE, 20)
         else
            HB_gtinfo(HB_GTI_FONTWIDTH,10)
            HB_gtinfo(HB_GTI_FONTSIZE, 22)
         endif     
         PAR->(DBCLOSEAREA())
      else
         HB_gtinfo(HB_GTI_FONTWIDTH,10)
         HB_gtinfo(HB_GTI_FONTSIZE, 20)
      endif

   otherwise

      HB_gtinfo(HB_GTI_FONTWIDTH, 8)
      HB_gtinfo(HB_GTI_FONTSIZE, 17)

   endcase
    
#endif
 
********************************************************************************
** DIFINI€ÇO DOS SETïS **
*************************
SET DATE BRITISH
SET CENTURY ON
SET EPOCH TO 1990
SET CURSOR ON
SET WRAP ON
SET SCOREBOARD OFF
SET DELETED ON
SET EXCLUSIVE OFF
SET INTENSITY ON
SET BELL OFF
SET CONFIRM ON
SET CURSOR ON
SET EVENTMASK TO 159
#ifndef _linux_
 SET KEY K_CTRL_V TO WVT_PASTEFROMCLIPBOARD()
// SET KEY K_CTRL_C TO Copiandoo() 
#endif 
WvT_SetAltF4Close( .F. )
SETCANCEL(.F.) // NÆO DEIXA SAIR COM O ALT+C
****************************************************************
** MONTA TELA INICIAL DO SISTEMA **
***********************************
DESKTOP("³ CONTROLE - Sistema de GestÆo Comercial Integrado ³")                                                           
@03,00 say replicate(" ",80) color "w*/w*"                                                                                
set color to "B/W*"                                                                                                       
@01,01 say "Usu rio - "                                                                                                   

@01,40 say padl(DataExt(date()),39)                                                                                       
@03,00 say "  Cadastros  Estoque  Vendas  Compras  Financeiro  Relat¢rios  Utilit rio  Sair" color "N+/W*"  
@03,02 say "C" color "r+/w*" 
@03,13 say "E" color "r+/w*" 
@03,22 say "V" color "r+/w*" 
@03,31 say "o" color "r+/w*"      
@03,39 say "F" color "r+/w*"
@03,51 say "R" color "r+/w*"
@03,63 say "U" color "r+/w*"
@03,75 say "S" color "r+/w*"

if file("par.dbf")
   use par alias par shared
   if PAR->cc_fundoT = "S"
      for l := 4 to 22 step 2                                                                                                   
          @ l  ,00 say "ÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÂÄ" color "bg/w"          
          @ l+1,00 say "ÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÁÄ" color "bg/w"          
      end                                                                                                                       
   endif
   par->(dbclosearea())
endif   

//************************ Fundo Branco letras verdes*
SET COLOR TO BG*/NW
@ 08,02 CLEAR TO 21,77
***************************************************

SET COLOR TO +R*/NW
@ 10,05 SAY '======================================================================'
@ 12,05 SAY '²²²²²²²  ²²²²²²²  ²²   ²²  ²²²²²²²²  ²²²²²²²  ²²²²²²²  ²²       ²²²²²²'
@ 13,05 SAY '²²       ²²   ²²  ²²²  ²²     ²²     ²²   ²²  ²²   ²²  ²²       ²²    '
@ 14,05 SAY '²²       ²²   ²²  ²² ² ²²     ²²     ²²²²²    ²²   ²²  ²²       ²²²²²²'
@ 15,05 SAY '²²       ²²   ²²  ²²  ²²²     ²²     ²²   ²²  ²²   ²²  ²²       ²²    '
@ 16,05 SAY '²²²²²²²  ²²²²²²²  ²²   ²²     ²²     ²²   ²²  ²²²²²²²  ²²²²²²²  ²²²²²²'
@ 18,05 SAY '======================================================================'
SET COLOR TO BG*/NW
@ 19,05 SAY '    S I S T E M A   D E   A U T O   G E S T Ç O   I N T E G R A D O   '

***********************************
*** BARRA DE UTILIDADES ATALHOS ***
***********************************
set color to "W+/B+"
@24,00 say replicate("                                                                                 ",26)
@24,00 say padc("[F1]Sobre [F4]Calc [F5]Data/Hora [F6]E_mail [F7]Senha [F8]Finalizar",80)
@24,07 say "F1" color "R/B+"
@24,17 say "F4" color "R/B+"
@24,26 say "F5" color "R/B+"
@24,40 say "F6" color "R/B+"
@24,51 say "F7" color "R/B+"
@24,61 say "F8" color "R/B+"

*****************************************************************************
** FUN€åES NECESSµRIAS PARA O INICIO DO PROGRAMA **
***************************************************
  
GERADBF()    && GERA OS DBF SE NAO EXISTIR     --> FUNCOES.PRG

//VALIDA()     && VERIFICA DATA DE VALIDADE DO SISTEMA --> FUNCOES.PRG
  
VERIFCDX()   && VERIFICA SE EXISTE OS INDICES  --> FUNCOES.PRG
  
CRIA_SENHA() && CRIA SENHA DEFAULT DO SISTEMA "CTRL" SE NAO EXISTIR

ABRE_ARQ()   && ABRE OS ARQUIVOS -- FUNCOES.PRG