#include 'fivewin.ch'
#include 'xbrowse.ch'
#include 'ribbon.ch'
#include 'ado.ch'
Static oRs
Static oBrw1
Static oBrw2
Static oBrw3
Static oRBar
Static oWndMain
Static oMsgBar
Static oWndChild
Static oWndChild2
//----------------------------------------------------------------------------//
Function Main()
DefineEntorno()
Start()
Return 0
//----------------------------------------------------------------------------//
Function DefineEntorno()
Memvar oVar
Set Epoch To 1950
Set Date To British
Set Delete On
Set Autopen Off
Set Softseek On
Set Century On
Set Confirm On
Set Decimals To 2
Set Fixed Off
Set Exact on
Set( _SET_INSERT, !Set( _SET_INSERT ) )
SetGetColorFocus( nRgb( 235, 245, 255 ) )
Request HB_LANG_ES
Hb_LangSelect("ES")
SetHandleCount( 200 )
Request DBFCDX
RddSetDefault( "DBFCDX" )
Request HB_CODEPAGE_ESWIN
Set( _SET_CODEPAGE, "ESWIN" )
XbrNumFormat( "E", .t. )
SetBalloon( .f. )
Return 0
//----------------------------------------------------------------------------//
Function Start()
Local oGr1_1
Local oGr2_1
Local oGr3_1
Local oGr6_1
Local oGr5_1
Local oGr7_1
Local oFont1
Local oMenu
Local oBtn1_1_1
Local oBtn2_1_1
Local oBtn3_1_1
Local oBtn1_2_1
Local oBtn2_2_1
Local oBtn1_5_1
Local oBtn1_3_1
Local oBtn2_3_1
Local oBtn3_6_1
Local oBtn4_3_1
Local oBtn4_6_1
Local oBtn := Array( 2, 0 )
Local nOption := 1
Define Font oFont1 Name "Segoe UI" Size 0, -14
Define Window oWndMain MDI Color 0, CLR_WHITE Menu MainMenu() Title 'COLEGIO PERALTA RAMOS - MDQ' //NoSysMenu
Define Ribbonbar oRBar Window oWndMain Height 112 TopMargin 40 prompts 'EMPLEADOS', "CONCEPTOS", 'FACTURACION', 'RECIBOS', 'ADMINISTRACION' 2013
Add Group oGr1_1 Ribbon oRBar TO Option 1 Prompt "operaciones" Width 207
@ 003, 003 Add Button oBtn1_1_1 Bitmap "new" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Altas'
@ 003, 053 Add Button oBtn2_1_1 Bitmap "modify" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Modificación'
@ 003, 103 Add Button oBtn3_1_1 Bitmap "delete" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Bajas'
@ 003, 153 Add Button oBtn3_1_1 Bitmap "historico" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Histórico'
Add Group oGr2_1 Ribbon oRBar TO Option 1 Prompt "volcado" Width 107
@ 003, 003 Add Button oBtn1_2_1 Bitmap "printer" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Imprimir"
@ 003, 054 Add Button oBtn2_2_1 Bitmap "excel" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Exportar A Planilla De Cálculo"
Add Group oGr5_1 Ribbon oRBar TO Option 1 Prompt "filtros" Width 75
@ 003, 003 Add Button oBtn1_5_1 Bitmap "filtro" Group oGr5_1 Action .t. Size 70, 50 Popup Top Menu Popup() Tooltip 'Filtros'
Add Group oGr3_1 Ribbon oRBar TO Option 1 Prompt "facturación" Width 107
@ 003, 003 Add Button oBtn1_3_1 Bitmap "ctacte" Group oGr3_1 Action .t. Size 50, 50 Top Tooltip 'Cuenta corriente'
@ 003, 053 Add Button oBtn2_3_1 Bitmap "cobrar" Group oGr3_1 Action .t. Size 50, 50 Top Tooltip 'Cobros'
Add Group oGr6_1 Ribbon oRBar TO Option 1 Prompt "cursos" Width 56
@ 003, 003 Add Button oBtn4_6_1 Bitmap "estadistica" Group oGr6_1 Action .t. Size 50, 50 Tooltip 'Estadistica de cursos'
//conceptos
Add Group oGr1_1 Ribbon oRBar TO Option 2 Prompt "operaciones" Width 156
@ 003, 003 Add Button oBtn1_1_1 Bitmap "new" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Altas'
@ 003, 053 Add Button oBtn2_1_1 Bitmap "modify" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Modificación'
@ 003, 103 Add Button oBtn3_1_1 Bitmap "delete" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Bajas'
Add Group oGr2_1 Ribbon oRBar TO Option 2 Prompt "volcado" Width 107
@ 003, 003 Add Button oBtn1_2_1 Bitmap "printer" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Imprimir"
@ 003, 054 Add Button oBtn2_2_1 Bitmap "excel" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Exportar A Planilla De Cálculo"
Add Group oGr5_1 Ribbon oRBar TO Option 2 Prompt "filtros" Width 75
@ 003, 003 Add Button oBtn1_5_1 Bitmap "filtro" Group oGr5_1 Action .t. Size 70, 50 Popup Top Menu Popup() Tooltip 'Filtros'
//tabla facturas
Add Group oGr1_1 Ribbon oRBar TO Option 3 Prompt "operaciones" Width 107
@ 003, 003 Add Button oBtn2_1_1 Bitmap "modify" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Modificación'
@ 003, 053 Add Button oBtn3_1_1 Bitmap "delete" Group oGr1_1 Action .t. Size 50, 50 Top Tooltip 'Anulación'
Add Group oGr2_1 Ribbon oRBar TO Option 3 Prompt "volcado" Width 107
@ 003, 003 Add Button oBtn1_2_1 Bitmap "printer" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Imprimir"
@ 003, 054 Add Button oBtn2_2_1 Bitmap "excel" Group oGr2_1 Action .t. Size 50, 50 Top Tooltip "Exportar A Planilla De Cálculo"
oRBar : SetOption( nOption )
oRBar : nHeightFld := 40
oRBar : nClrBoxSelOut := { CLR_GREEN }
oMsgBar := TMsgBar() : New( oWndMain, '', .f., .f., .f., .f.,;
CLR_BLACK, CLR_WHITE, oFont1, .f. , .f. , .f. )
@ 05, ScreenWidth() - 80 BtnBmp oBtn[ 1 ] Of oRBar Size 32, 32 Pixel Action oWndMain : End() Transparent l2007 File "C:\muestra\imagenes\mano2.bmp" NoBorder //Design
Activate Window oWndMain Maximized
Return 0
//----------------------------------------------------------------------------//
Function MainMenu()
Local oMenu
Menu oMenu
EndMenu
Return oMenu
Define Ribbonbar oRBar Window oWndMain Height 112 TopMargin 40 prompts 'EMPLEADOS', "CONCEPTOS", 'FACTURACION', 'RECIBOS', 'ADMINISTRACION' // 2013
nToNum := Max( 0, ( nLen % 10 ) - 1 )
nToNum = Max( 0, if( nLen % 10 == 0, 10, nLen % 10 ) - 1)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 2 guests