Sr. Rao,
la opción 2 "Prueba2" da error y no logro averiguar por qué. Ejecutar
carpeta samples.
Code: Select all | Expand
#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"
#include "ribbon.ch"
#include "ttitle.ch"
//
STATIC oVentPrinc
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()
local oRBar
local oGr
local oBtn:=Array(2)
USE CUSTOMER SHARED NEW
USE DIARIO SHARED NEW
DEFINE Window oVentPrinc FROM 3,5 TO 42,116
DEFINE RIBBONBAR oRBar WINDOW oVentPrinc PROMPT "Prueba" HEIGHT 125 TOPMARGIN 25
oRBar:nLeftMargin = 45
oRBar:CalcPos()
ADD GROUP oGr RIBBON oRBar TO OPTION 1 PROMPT "Datos de..." WIDTH 150
@ 2 ,5 ADD BUTTON oBtn[1] PROMPT " Prueba1 " GROUP oGr ACTION XBrwDato("CUSTOMER",oVentPrinc,oBtn,oRbar) ;
SIZE 70,75
@ 2, 75 ADD BUTTON obtn[2] PROMPT " Prueba2 " GROUP oGr ACTION XBrwDato("DIARIO",oVentPrinc,oBtn,oRbar) ;
SIZE 70,75
ACTIVATE WINDOW oVentPrinc MAXIMIZED
//
RETURN( NIL )
**********************************************************************
static function XBrwDato(cUsaBase,oVentPrinc,oBtn,oRbar)
*********************************************************************
local oTitulo, oFont1,oFont2,oFont3,oFont4,oBtnSalir,oBtnNuevo
local oExBar, oPanel1, oPanel2, oPanel3, oPanel4
local bClick
local oBrw, oCol
Local aCols:={}
local ctitulo:=""
LOCAL nFor
oBtn[1]:Disable()
oBtn[2]:Disable()
//
oRBar:SetOption( 1, .F. )
//
DEFINE FONT oFont1 NAME "MS SANS SERIF" SIZE 0,-10
DEFINE FONT oFont2 NAME "MS SANS SERIF" SIZE 0,-10 BOLD
DEFINE FONT oFont3 NAME "MS SANS SERIF" SIZE 0,-14 BOLD
DEFINE FONT oFont4 NAME "ARIAL" SIZE 0,-24 BOLD
//
IF cUsabase = "CUSTOMER"
cTitulo:= "Título de la prueba 1"
@ 121,0 TITLE oTitulo size 1500, 40 of oVentPrinc SHADOWSIZE 0
@ 08,260 TITLETEXT OF oTitulo TEXT cTitulo FONT oFont4
@ 162, 0 EXPLORERBAR oExBar OF oVentPrinc ;
SIZE 250, 1110
oPanel1 = oExBar:AddPanel( "PRUEBA1" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "")
oPanel1:AddLink( " Prueba número 1", bClick:={ | o | (Msginfo("Este es el mensaje de la prueba 1"),oBrw:SetFocus())}, "LEVELAZ" )
oPanel1:AddLink( "")
oPanel1:AddLink( " Salir", bClick := { | o | (oFont1:End(),oFont2:End(),oFont3:End(),oFont3:End(),;
oTitulo:End(),oBrw:End(),oExBar:End(),oRBar:SetOption( 1, .T. ),;
oBtn[1]:Enable(),oBtn[2]:Enable() ) }, "SALIR" )
@ 160,251 XBROWSE oBrw SIZE -0, -20 PIXEL OF oVentPrinc ;
COLUMNS "First", "Age", "Salary" ;
ALIAS "CUSTOMER" CELL LINES NOBORDER FOOTERS FONT oFont1
XbrNumFormat( "E", .t. )
//
WITH OBJECT oBrw
:Age:nFooterType := AGGR_AVG
:Salary:nFooterType := AGGR_TOTAL
:MakeTotals()
END
//
oBrw:oWnd:bKeyDown := { | nKey | IIf( nKey = VK_ESCAPE, (oFont1:End(),oFont2:End(),oFont3:End(),oFont3:End(),;
oTitulo:End(),oBrw:End(),oExBar:End(),oRBar:SetOption( 1, .T. ),;
oBtn[1]:Enable(),oBtn[2]:Enable() ),)}
oBrw:CreateFromCode()
oBrw:SetFocus()
ELSEIF cUsabase = "DIARIO"
@ 160,251 XBROWSE oBrw SIZE -0, -20 PIXEL OF oVentPrinc
XbrNumFormat( "E", .t. )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:nHeaderLines := 1.5
oBrw:nFooterLines := 1
oBrw:lFooter := .T.
oBrw:nDataLines := 1.5
oCol := oBrw:AddCol()
oCol:bStrData := { || DIARIO->Fecha}
oCol:cHeader := "Fecha"
oCol:oDataFont := oFont1
AADD(aCols,1)
oCol := oBrw:AddCol()
oCol:bStrData := { || DIARIO->Concepto}
oCol:cHeader := "Concepto"
oCol:oDataFont := oFont1
AADD(aCols,2)
oCol := oBrw:AddCol()
oCol:bStrData := { || DIARIO->PtaDebe}
oCol:cHeader := "Debe"
oCol:oDataFont := oFont1
AADD(aCols,3)
oBrw:oWnd:bKeyDown := { | nKey | IIf( nKey = VK_ESCAPE, (oFont1:End(),oFont2:End(),oFont3:End(),oFont3:End(),;
oTitulo:End(),oBrw:End(),oExBar:End(),oRBar:SetOption( 1, .T. ),;
oBtn[1]:Enable(),oBtn[2]:Enable() ),)}
oBrw:SetRdd()
oBrw:aCols[ 3 ]:nFooterType := AGGR_TOTAL
oBrw:MakeTotals()
//
oBrw:CreateFromCode()
oBrw:SetFocus()
ENDIF
*/
/*
ELSEIF cUsabase = "DIARIO"
cTitulo:= "Título de la prueba 2"
@ 121,0 TITLE oTitulo size 1500, 40 of oVentPrinc SHADOWSIZE 0
@ 08,260 TITLETEXT OF oTitulo TEXT cTitulo FONT oFont4
@ 162, 0 EXPLORERBAR oExBar OF oVentPrinc ;
SIZE 250, 1110
oPanel1 = oExBar:AddPanel( "PRUEBA2" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "")
oPanel1:AddLink( " Prueba número 2", bClick:={ | o | (Msginfo("Este es el mensaje de la prueba 2"),oBrw:SetFocus())}, "LEVELAZ" )
oPanel1:AddLink( "")
oPanel1:AddLink( " Salir", bClick := { | o | (oFont1:End(),oFont2:End(),oFont3:End(),oFont3:End(),;
oTitulo:End(),oBrw:End(),oExBar:End(),oRBar:SetOption( 1, .T. ),;
oBtn[1]:Enable(),oBtn[2]:Enable() ) }, "SALIR" )
@ 160,251 XBROWSE oBrw SIZE -0, -20 PIXEL OF oVentPrinc ;
COLUMNS "Fecha", "Concepto", "PtaDebe" ;
ALIAS "DIARIO" CELL LINES NOBORDER FOOTERS FONT oFont1
//
WITH OBJECT oBrw
:PtaDebe:nFooterType := AGGR_SUM
:MakeTotals()
END
//
XbrNumFormat( "E", .t. )
oBrw:oWnd:bKeyDown := { | nKey | IIf( nKey = VK_ESCAPE, (oFont1:End(),oFont2:End(),oFont3:End(),oFont3:End(),;
oTitulo:End(),oBrw:End(),oExBar:End(),oRBar:SetOption( 1, .T. ),;
oBtn[1]:Enable(),oBtn[2]:Enable() ),)}
oBrw:CreateFromCode()
oBrw:SetFocus()
ENDIF
*/
return nil
//----------------------------------------------------------------------------//
