FiveTech Support Forums

oRpt := RptBegin( {{||cTitle}}, { {||cHeader + ::aMsg[ 20 ] + Space( 1 ) + DToC( Date() ) + " - " + ;
                     ::aMsg[ 22 ] + Space( 1 ) + Time() } }, ;
                     { {|| cFooter + ::aMsg[ 21 ] + Str( oRpt:nPage, 3 ) } }, ;
                     /*If( oFont == Nil, Nil, {oFont} )*/,,,,,, lPreview,, oDevice, cCaption,,, "CENTER" )

	if bRclick = NIL
		::bRClicked := { |nR,nC| Menu_TSB( nR, nC, Self ) }
	else
		::bRClicked   = bRClick
	endif

#define _cvar Alltrim(cValToChar( EVal( oLbx:aColumns[ oLbx:nCell ]:bData ) ))
function Menu_TsB( nRow, nCol, oLbx )
	local oMenu, oClp

	DEFINE CLIPBOARD oClp OF oLbx FORMAT TEXT

 	MENU oMenu POPUP 2007
		MENUITEM "Copiar"  ACTION ;
   					iif( oClp:Open(), (;
													oClp:Clear(),;
													oClp:SetText( _cvar ),;
													oClp:End(),;
													oMenu:End() ),;
							 MsgInfo( "El clipboard no esta habilitado por ahora", "Usuario" ) )


		MENUITEM "&Excel"  				ACTION oLbx:ExcelOle()
		SEPARATOR
		MENUITEM "&Imprimir"  				ACTION oLbx:Report()

	ENDMENU

	ACTIVATE POPUP oMenu AT nRow, nCol-1 OF oLbx

return( .t. )
//--------------------------------------------------------------------------------------------------------

ERROR.LOG
Application
===========
   Path and name: D:\Apl\PRGS\Carmona\dbf\wcta.exe (32 bits)
   Size: 4,110,848 bytes
   Time from start: 0 hours 0 mins 7 secs 
   Error occurred at: 28/02/2008, 13:02:08
   Error description: Error BASE/1083  Error de argumento: *
   Args:
     [   1] = U   
     [   2] = N   600

Stack Calls
===========
   Called from: REPORT.PRG => (b)TREPORT:NEW(0)
   Called from:  => AEVAL(0)
   Called from: REPORT.PRG => TREPORT:NEW(0)
   Called from: PDREPORT.PRG => RPTBEGIN(0)
   Called from: TSBROWSE.PRG => TSBROWSE:REPORT(8303)
   Called from: General.PRG => (b)MENU_TSB(1076)
   Called from: MENU.PRG => TMENU:ACTIVATE(0)
   Called from: General.PRG => MENU_TSB(1080)
   Called from: TSBROWSE.PRG => (b)TSBROWSE:REDEFINE(889)
   Called from: TSBROWSE.PRG => TSBROWSE:RBUTTONDOWN(8130)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: CONTROL.prg => TCONTROL:HANDLEEVENT(1414)
   Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6141)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => DIALOGBOX(0)
   Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: CartProd.PRG => CARTOLAPROD(373)
   Called from: Wcta.PRG => (b)MAIN(78)
   Called from: TOOLBAR.PRG => TTOOLBAR:COMMAND(0)
   Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
   Called from: Wcta.PRG => MAIN(215)

REDEFINE BROWSE oLbx GRID ALIAS "CPROTMP" ;
		  COLORS CLR_BLACK, RGB( 255, 255, 235) ;
		  ID 103 OF oDlg;
		  ON DBLCLICK Detalle()

oLbx:nHeightCell += 2  //filas
oLbx:nHeightHead += 6  //columnas

oLbx:SetColor( { 9, 10 }, { CLR_BLACK, oBrush } )  // brushed Footers background
oLbx:SetColor( { 5, 6, 4, 15 }, ;
					{ CLR_WHITE, CLR_BLACK, ; // cursor
					  oBrush,               ; // brushed headers background
					  CLR_BLACK },          ; // grid lines
					  NIL )
oLbx:lNoMoveCols := .t.
oLbx:lNoHScroll := .t.

ADD COLUMN TO BROWSE oLbx DATA oLbx:nAt	   ;
		TITLE "Item" 									;
		SIZE 40 PIXELS 								;
		3DLOOK TRUE,TRUE,FALSE 						;
		ALIGN DT_CENTER,DT_CENTER,DT_CENTER		;
		COLORS CLR_BLACK, CLR_HGRAY//RGB( 255, 255, 235)

ADD COLUMN TO BROWSE oLbx DATA CProTmp->Fecha 	;
		TITLE "Fecha" 										;
		SIZE 76 PIXELS 									;
		3DLOOK TRUE,TRUE,FALSE 							;
		ALIGN DT_CENTER,DT_CENTER,DT_CENTER			;
		COLORS CLR_BLACK, RGB( 255, 255, 235)

 AEval( aFont,;
          { | val, elem | ;
          ::aFont[elem]:= TFont():New( val:cFaceName,;
          Int( val:nWidth* ::nLogPixX / 72 ),;
          Int( val:nHeight* ::nLogPixY / 72 ),;
          .f.,;
          val:lBold,;
          val:nEscapement,;
          val:nOrientation,;
          val:nWeight,;
          val:lItalic,;
          val:lUnderline,;
          val:lStrikeOut,;
          val:nCharSet,;
          val:nOutPrecision,;
          val:nClipPrecision,;
          val:nQuality ) } )