FiveTech Software tech support forums

Code: Select all | Expand

	@ 100, 5 XBROWSE oBrw ;
	SIZE 385 ,160 OF oSelf:oDlgSpt PIXEL ;
	LINES STYLE FLAT NOBORDER ;
	DATASOURCE ::aRspNm AUTOCOLS 

	ReArrangeCols( oBrw, ::aCols1 )

	WITH OBJECT oBrw
		:lRecordSelector 		:= .T.
		:lHScroll        	:= .T.
		:lVScroll        	:= .T.
		:l2007           	:= .F.
		:lFitGridHeight  		:= .T.
		:nHeaderHeight   		:= 21
		:nRowHeight      	:= 21
		:nMarqueeStyle   		:= MARQSTYLE_HIGHLROW
		:lColDividerComplete 	:= .t.
		:nColorPen       	:= CLR_HGRAY
		:lFullGrid       	:= .T.
		:nStretchCol        	:= STRETCHCOL_LAST
		:bClrHeader      	:= { || { CLR_WHITE, oLamcla:nClrBrwCab, CLR_HGRAY } }
		:lFooter         	:= .t.
		:nFooterLines    		:= 1
		:nFooterHeight   		:= 25
		:nFreeze		 		:= 4
		//:bRClicked 	       	:= {|nRow, nCol | if(!::lNueva,::mRegNomi( nRow,nCol,oBrw, cbModi, cbEnv, cnImpPg, cbNaj, cbAgre, cnEDian, cbBrCmp, cbElm, ::aRspNm[oBrw:nArrayAt]["rfidnm"] ),) }
		:bRClicked 	       	:= {|nRow, nCol | ::mRegNomi( nRow,nCol,oBrw, cbModi, cbEnv, cnImpPg, cbNaj, cbAgre, cnEDian, cbBrCmp, cbElm, ::aRspNm[oBrw:nArrayAt]["rfidnm"] ) }
		:bKeyDown 	       	:= {|nKey,oGet,nCol|::TecItemNomi(nKey,oGet,nCol, cbModi, cbEnv, cnImpPg, cbNaj, cbAgre, cnEDian, cbGraba, cbElm, ::aRspNm[oBrw:nArrayAt]["rfidnm"])}
		:nRecSelColor        	:= RGB( 255, 255, 255 )

		:bClrStd   			:= {|| if(Len( ::aRspNm ) > 0 , ;
								{ CLR_BLACK,clrEstFondo(::aRspNm[oBrw:nArrayAt]["estado"]) } ,;
								{ CLR_BLACK,clrEstFondo("S") } ) }	
		:bClrSelFocus 		:= {|| if(Len( ::aRspNm ) > 0 , ;
								{ CLR_WHITE,clrEstSelec(::aRspNm[oBrw:nArrayAt]["estado"]) } ,;
								{ CLR_WHITE,clrEstSelec("S") }) }		
		:SetFont( oFont1Cja )
		
	END

	WITH OBJECT oBrw

		//Colocamos los titulos a las columnas
		FOR j:=1 TO len(::aColTt)
			:aCols[j]:cHeader  := ::aColTt[j]
			:aCols[j]:oHeaderFont = oFontCja	
		NEXT 

		//Ahora las especiales
		:aCols[2]:cFooter      = "Nro.Comp » "+alltrim(transform(len(::aRspNm),oLamcla:PIC3))
		:aCols[2]:oFooterFont := oFontCja

		:aCols[3]:cFooter      = "TOTALES »"
		:aCols[3]:oFooterFont := oFontCja
		
		:aCols[6]:bClrStd    		:= {|| { _CLR_GRIS, if(Len( ::aRspNm ) > 0 , colorEstado2_nm( ::aRspNm[oBrw:nArrayAt]["estado"] , ::aRspNm[oBrw:nArrayAt]["rfidnm"] ),) }  }
		:aCols[6]:bClrSelFocus	:= {|| { CLR_WHITE,if(Len( ::aRspNm ) > 0 ,colorEstado_nm( ::aRspNm[oBrw:nArrayAt]["estado"] , ::aRspNm[oBrw:nArrayAt]["rfidnm"] ),) }  }
		:aCols[6]:bStrData 		:= { || if(Len( ::aRspNm ) > 0 , nombreEstado_nm( ::aRspNm[oBrw:nArrayAt]["estado"] ) , ::aRspNm[oBrw:nArrayAt]["rfidnm"] ) }
	
		:aCols[nColDev]:oFooterFont := oFontCja
		:aCols[nColDev]:bClrStd      = {|| {Rgb(55,55,55),nRGB(212,212,212) }  }
		:aCols[nColDev]:bClrSelFocus = {|| {CLR_WHITE,nRGB(139,139,139) }  }
		
		:aCols[nColDed]:oFooterFont := oFontCja
		:aCols[nColDed]:bClrStd      = {|| {Rgb(55,55,55),nRGB(255,187,187) }  }
		:aCols[nColDed]:bClrSelFocus = {|| {CLR_WHITE,nRGB(255,117,117) }  }

		:aCols[nColPag]:oFooterFont := oFontCja
		:aCols[nColPag]:bClrStd      = {|| {Rgb(55,55,55),nRGB(187,255,187) }  }
		:aCols[nColPag]:bClrSelFocus = {|| {CLR_WHITE,nRGB(0,210,0) }  }
		
		//Colocamos los totales en donde sea necesario
		//y tambien ajustamos el ancho de las columnas
		FOR i:=1 TO len(::aColTl)
			if ::aColTl[i] 
				:aCols[i]:nFooterType  := AGGR_SUM
				:aCols[i]:cFooterPicture := oLamcla:PIC7
				:aCols[i]:cEditPicture := oLamcla:PIC7
				:aCols[i]:oFooterFont := oFontCja
			endif
			:aCols[i]:nWidth = ::aColAn[i]	
		NEXT
		
		:MakeTotals()
		
		//Dejamos fija la columna en la derecha
		:oRightCol     := :aCols[nColPag]

	END

	oBrw:CreateFromCode()

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

Local nSalario := 2032212
Local nDias := 30 //Si lo cambiamos a 30 salen los asteriscos
Local nTotal := (nSalario/30) * nDias

msginfo(nTotal)

return nil

Code: Select all | Expand

// Testing GETs - C:\FWH..\SAMPLES\TESTGET.PRG y TESTGET.RC

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oGet, oGet2, oGet3, oGet4
   LOCAL cCad := "Testing    " // pad("Testing Gets",40)
   LOCAL cText := "                "
   LOCAL nNum := 0
   LOCAL dDat := Date()
   LOCAL nSalario := 2032212
   LOCAL nDias    := 30 // Si lo cambiamos a 30 salen los asteriscos
   LOCAL nTotal   := 0
   LOCAL nTotSal  := nSalario / 30

   nTotal := nTotSal * nDias   // Aqui Leandro, prueba.

   nNum   := nTotal

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM ON
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON       // CONTROLA O :=, = e ==
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF
   SET OPTIMIZE ON

   DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

   oDlg:lHelpIcon := .F.

   @ 1,    2 SAY "Text..:" OF oDlg

   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K" ;
      PLACEHOLDER "CueBanner" // NO FUNCIONA.

   @ 1.8,  2 SAY "Salario:" OF oDlg

   @ 2,    6 GET oGet2 VAR nNum OF oDlg SIZE 60, 12 PICTURE "@E 9,999,999,999.99" RIGHT

   @ 2.6,  2 SAY "Date:" OF oDlg

   @ 3,    6 GET oGet3 VAR dDat PICTURE "@D 99/99/9999" OF oDlg SIZE 60, 10 CENTER

   @ 4,    2 SAY "Text..:" OF oDlg

   @ 4,    6 GET oGet4 VAR cText PICTURE "@!" OF oDlg SIZE 80, 10   ;
      PLACEHOLDER "CueBanner" // FUNCIONA.

   @ 4,    7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 4,   16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL

   TGet():SetColorFocus( nRGB( 200, 120, 120 ) )

   ACTIVATE DIALOG oDlg CENTERED

   SET CONFIRM OFF

RETURN NIL

// ------------------------------------------------------------------------//

PROCEDURE appsys // XBase++ requirement
RETURN

/*
// TESTGET.RC
#ifndef __64__
  1 24 "C:\FWH\SAMPLES\winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "winxp\WindowsXP.Manifest64"
#endif

*/

Code: Select all | Expand

FUNCTION MAIN()

    ? 2032212 / 30 * 30

    INKEY( 0 )

    RETURN NIL

Code: Select all | Expand

         case HB_P_PUSHDOUBLE:
            hb_vmPushDoubleConst( HB_PCODE_MKDOUBLE( &pCode[ 1 ] ),
                                  ( int ) *( const unsigned char * ) &pCode[ 1 + sizeof( double ) ],
                                  ( int ) *( const unsigned char * ) &pCode[ 2 + sizeof( double ) ] );
            pCode += 3 + sizeof( double );
            break;

Code: Select all | Expand

         case HB_P_PUSHDOUBLE:
            HB_TRACE( HB_TR_DEBUG, ( "HB_P_PUSHDOUBLE" ) );

            hb_vmPushDoubleConst( HB_PCODE_MKDOUBLE( &pCode[ w + 1 ] ),
                                  ( int ) *( BYTE * ) &pCode[ w + 1 + sizeof( double ) ],
                                  ( int ) *( BYTE * ) &pCode[ w + 1 + sizeof( double ) + sizeof( BYTE ) ] );

            w += 1 + sizeof( double ) + sizeof( BYTE ) + sizeof( BYTE );
            break;

Code: Select all | Expand

static void hb_vmPushDoubleConst( double dNumber, int iWidth, int iDec )
{
   HB_STACK_TLS_PRELOAD
   PHB_ITEM pItem = hb_stackAllocItem();

   HB_TRACE( HB_TR_DEBUG, ( "hb_vmPushDoubleConst(%lf, %d, %d)", dNumber, iWidth, iDec ) );

   pItem->type = HB_IT_DOUBLE;
   pItem->item.asDouble.value = dNumber;

   if( iDec == HB_DEFAULT_DECIMALS )
      pItem->item.asDouble.decimal = ( HB_USHORT ) hb_stackSetStruct()->HB_SET_DECIMALS;
   else
      pItem->item.asDouble.decimal = ( HB_USHORT ) iDec;

   if( iWidth == HB_DEFAULT_WIDTH )
      pItem->item.asDouble.length = HB_DBL_LENGTH( dNumber );
   else
      pItem->item.asDouble.length = ( HB_USHORT ) iWidth;
}

Code: Select all | Expand

static void hb_vmPushDoubleConst( double dNumber, int iWidth, int iDec )
{
   HB_THREAD_STUB
   PHB_ITEM pItem;

   HB_TRACE( HB_TR_DEBUG, ( "hb_vmPushDoubleConst(%lf, %d, %d)", dNumber, iWidth, iDec ) );

   pItem                      = hb_stackAllocItem();
   pItem->type                = HB_IT_DOUBLE;
   pItem->item.asDouble.value = dNumber;

   if( iDec == HB_DEFAULT_DECIMALS )
      pItem->item.asDouble.decimal = hb_stackSetStruct()->HB_SET_DECIMALS;
   else
      pItem->item.asDouble.decimal = ( UINT ) iDec;

   if( iWidth == HB_DEFAULT_WIDTH )
      pItem->item.asDouble.length = ( UINT ) HB_DBL_LENGTH( dNumber );
   else
      pItem->item.asDouble.length = ( UINT ) iWidth;
}

Code: Select all | Expand

FUNCTION MAIN()

    ? Test( 2032212 / 30 * 30 )

    INKEY( 0 )

    RETURN NIL

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>
#include <stdio.h>

HB_FUNC( TEST )
{
   char buffer[ 50 ];
   double number = hb_parnd( 1 );
   sprintf( buffer, "%f", number );
   OutputDebugString( buffer ); 
   hb_retnd( number );
}

#pragma ENDDUMP

Code: Select all | Expand

function Main()

   Test( 2032212 / 30 * 30, 50, 2 )

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>
#include <hbapiitm.h>
#include <stdio.h>

HB_FUNC( TEST )
{
   OutputDebugString( hb_itemStr( hb_param( 1, HB_IT_DOUBLE ), 
                                  hb_param( 2, HB_IT_NUMERIC ), hb_param( 3, HB_IT_NUMERIC ) ) );
}

#pragma ENDDUMP