FiveTech Support Forums

#include "FiveWin.Ch"
#include "Ado.ch"
#include "FileIO.ch"

#define cBorde      NOBORDER
#define nIcono      1

STATIC oWindow
STATIC oError
STATIC aVars := {NIL,NIL,NIL}


#xtranslate aBtns = > aVars\[ 1\]
#xtranslate aMenu = > aVars\[ 2\]
#xtranslate aSubM = > aVars\[ 3\]

MEMVAR oApp

// Para que los acentos se vean bien
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESWIN

FUNCTION Main()
   LOCAL oIcono, oCursor, oCasilla, oBmp , oBrush

   LOCAL lStatus := ( .T. )

   LOCAL hWnd

   SET CENTURY ON
   SET DATE TO FRENCH
   SET DELETED ON
   SET OPTIMIZE ON
   SETBALLOON(.T.)

   HB_CDPSELECT("ESWIN")
   HB_LangSelect( "ESWIN" )

   FWSetLanguage( 2 )      // Para poner el PREVIEW en Español


// Para que los acentos se vean bien
   SET( _SET_CODEPAGE, "ESWIN" )

   SETHELPFILE( "ParCre.Hlp" )

// Para cambiar el color del get con foco
   TGet():lClrFocus := (.T.)
   TGet():nClrFocus := nRGB( 213, 219, 255 )   // Lila claro

   oApp := TAplicacion()

   LeeIni()               // Lee parametros

    hWnd := FindWindow( 0, oApp:cAplicacion + " " + oApp:cVersion + " " + oApp:cServer)

   IF hWnd != 0 .AND. ! oApp:lInstancia
      ShowWindow( hWnd, 3) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6
      QUIT
   ENDIF

   IF ! Conecta()
      QUIT
   ENDIF

   aBtns := ARRAY(05)

   aMenu := ARRAY(10)
   aSubM := ARRAY(05)

//   LeeEmpresa( )

   DEFINE ICON oIcono RESOURCE "AppLogo"
   DEFINE BRUSH oBrush COLOR CLR_WHITE
    DEFINE WINDOW oWindow MDI FROM 0, 0 TO 22, 75 TITLE oApp:cAplicacion + " " + oApp:cVersion + " " + oApp:cServer;
      MENU HazMenu() ICON oIcono BRUSH oBrush PIXEL MENUINFO 8

   SET MESSAGE OF oWindow TO oApp:cRazonSocial KEYBOARD CLOCK 2007

   IF ! EMPTY( oApp:cUsuario )
      DEFINE MSGITEM oCasilla OF oWindow:oMsgBar   SIZE 120 ;
      PROMPT ALLTRIM( oApp:cUsuario ) COLOR CLR_BLACK, CLR_BLUE
   ENDIF

   DEFINE MSGITEM oCasilla OF oWindow:oMsgBar ;
   SIZE 85 ;
      PROMPT Date2Txt( DATE( ) )

   DEFINE MSGITEM oCasilla OF oWindow:oMsgBar ;
   SIZE 175 ;
   PROMPT oApp:cCopyRight

   oBmp = TImage():Define(,cFilePath(GetModuleFileName(GetInstance())) + "AppFondo.Jpg")
      oWindow:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0,oBmp:hBitmap,, oWindow:nWidth, oWindow:nHeight,, (.T.)) }

   ACTIVATE WINDOW oWindow MAXIMIZED VALID Salir() ON INIT (LaBarra(oWindow), oWindow:Refresh())

   oIcono:End()
   oCasilla:End()
   oBmp:End()
   oBrush:End()
RETURN(.T.)

/*
* ---------------------------------------------------------------------------- *
*/
STATIC FUNCTION LaBarra( oWindow )
   LOCAL oBarra
   LOCAL oCursor

   DEFINE CURSOR oCursor RESOURCE "Dedo"
   DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007

      oBarra:bClrGrad = { | lInvert | If( ! lInvert,;
         { { 0.25, nRGB( 068, 097, 176 ), nRGB( 068, 097, 176 ) },;
         {   0.75, nRGB( 068, 097, 176 ), nRGB( 068, 097, 176 ) } },;
         { { 0.25, nRGB( 255, 255, 255 ), nRGB( 255, 255, 255 ) },;
         {   0.75, nRGB( 255, 255, 255 ), nRGB( 255, 255, 255 ) } } ) }

      oBarra:nClrText = { | lInvert | IF( ! lInvert, nRGB( 235, 160, 86 ), nRGB( 20, 20, 20 ) ) }

   * ------------------------------------------------------------------------- *

   DEFINE BUTTON aBtns[01] OF oBarra RESOURCE "Brw32" cBorde ;
      ACTION Test(oWindow )
   aBtns[01] :cToolTip := { "Test", "Test button", nIcono, oApp:cClrForTol, oApp:cClrBakTol }

   DEFINE BUTTON aBtns[02] OF oBarra RESOURCE "Exi32" cBorde ;
      GROUP ;
      ACTION oWindow:END( ) ;
      MESSAGE "Abandona el programa y retorna a windows"
   aBtns[02] :cToolTip := { "Salir", "Exit button", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
RETURN (.T.)

/*
* ---------------------------------------------------------------------------- *
*/
STATIC FUNCTION HazMenu( )
    LOCAL oMenu

    MENU oMenu 2007
        MENUITEM aMenu[01] PROMPT "&Test xBrowse"
            MENU
            MENUITEM aSubM[01] PROMPT "&Test";
               RESOURCE "Brw16" ;
               ACTION Test(oWindow )
            SEPARATOR
            MENUITEM aSubM[02] PROMPT "Salir  ALT-F4" ;
               RESOURCE "Exi16" ;
               ACTION oWindow:END( )
         ENDMENU
   ENDMENU
RETURN(oMenu)


/*
* ---------------------------------------------------------------------------- *
*/
STATIC FUNCTION Salir( )
   IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion )
        oApp:oCon:Close()
   ELSE
      RETURN ( .F. )
   ENDIF
RETURN ( .T. )


/*
* ---------------------------------------------------------------------------- *
*/
STATIC FUNCTION LeeEmpresa( )
   LOCAL oRsEmp, oError

   oRsEmp := FW_OpenRecordSet(oApp:oCon,"SELECT " +;
                                          "* " +;
                                       "FROM " +;
                                          "Empresa",adLockOptimistic,adOpenDynamic,0)

   IF oRsEmp == nil
        MsgStop("No pude abrir la tabla EMPRESA !",oApp:cAplicacion)
      FW_ShowAdoError(oApp:oCon)
      RETURN(.F.)
   ENDIF

   IF oRsEmp:BOF( ) .AND. oRsEmp:EOF( )
      oApp:cRazonSocial := "Empresa no registrada, s.a. de c.v."
   ELSE
      oApp:cRazonSocial := oRsEmp:Fields( "EMP_NOM" ) :Value
   ENDIF

   IF oRsEmp <> NIL
      IF oRsEmp:State( ) = adStateOpen
         oRsEmp:Close( )
      ENDIF
   ENDIF
RETURN( .T. )

/*
* ---------------------------------------------------------------------------- *
*/
FUNCTION Alinea( oReporte, Izq, Der, lTitle )
   DEFAULT lTitle   := ( .T. )

   IF lTitle
      oReporte:oTitle:aRow[ Izq ] := oReporte:oTitle:aRow[ Der ]
   ELSE
      oReporte:oHeader:aRow[ Izq ] := oReporte:oHeader:aRow[ Der ]
   ENDIF
RETURN ( NIL )


/*
* ---------------------------------------------------------------------------- *
*/
FUNCTION OverFlow( oReporte )
   IF ( oReporte:nRow + ( oReporte:nStdLineHeight * 2 ) ) >= oReporte:nBottomRow
      oReporte:EndPage( )
      oReporte:StartPage( )
   ENDIF
RETURN NIL


/*
* ---------------------------------------------------------------------------- *
*/
CLASS TAplicacion
   DATA cUsuario        INIT ""
   DATA cRazonSocial    INIT "EMPRESA NO REGISTRADA, S.A. DE C.V."
   DATA cAplicacion     INIT "© " + STR( YEAR( DATE( ) ), 4, 0 ) + " XBrowse Test"// + SPACE(2) + FWVERSION
   DATA cAppAlias       INIT "© " + STR( YEAR( DATE( ) ), 4, 0 ) + " ParCre"
   DATA cCopyRight      INIT "© 2021-" + STR( YEAR( DATE( ) ), 4, 0 ) + " by S.O.I., s.a. de c.v."
   DATA cVersion        INIT "Versión 1.0M18"
   DATA nLineStyle      INIT 4

   DATA cPath           INIT ""
   DATA cPathExe        INIT cFilePath(GetModuleFileName(GetInstance()))                    // C:\ParCre\
   DATA cCrypt          INIT "XrypT2023"

   // Estos parámetros son para el servidor de MySql
   DATA oCon            INIT NIL
   DATA oDsn            INIT NIL
   DATA cDsn            INIT NIL
   DATA cDescription    INIT NIL
   DATA cServer         INIT NIL
   DATA cDBName            INIT NIL
   DATA cDataBase       INIT NIL
   DATA cUser           INIT NIL
   DATA cPass           INIT NIL
   DATA nPort           INIT NIL
   DATA cStmt           INIT ""
   DATA cDriveName      INIT ""

   DATA nRowsInt        INIT 3

    // Colores del dialogo
   DATA cBrush          INIT "Brush"

   // Colores de la pijama
   DATA nRowNonClr      INIT RGB( 255, 255, 255 )
   DATA nRowParClr      INIT RGB( 238, 246, 255 )

   // Colores para encabezados del browse
   DATA nHdrForClr      INIT RGB( 255, 255, 255 ) // Blanco
   DATA nHdrBckClr      INIT RGB( 000, 000, 000 ) // Negro

   DATA nFClrFocus      INIT RGB( 000, 000, 000 ) // Negro
   DATA nBClrFocus      INIT RGB( 000, 191, 255 ) // Azúl, se ve bien

   DATA cClrForTol      INIT CLR_WHITE
   DATA cClrBakTol      INIT CLR_HBLUE
ENDCLASS


/*
* ------------------------------------------------------------------------ *
* ------------------------------------------------------------------------ *
*/
STATIC FUNCTION LeeIni()
    LOCAL oIni

    INI oIni FILE ".\ParCre.Ini"
        GET oApp:cDsn              SECTION "MYSQL"     ENTRY "Dsn"             OF oIni DEFAULT "TestXbrw"
      GET oApp:cDescription   SECTION "MYSQL"      ENTRY "Description"  OF oIni DEFAULT "XBrowse Test"
      GET oApp:cServer        SECTION "MYSQL"      ENTRY "Server"       OF oIni DEFAULT "localhost"
      GET oApp:cDataBase      SECTION "MYSQL"      ENTRY "DataBase"     OF oIni DEFAULT ""
      GET oApp:cUser          SECTION "MYSQL"      ENTRY "User"         OF oIni DEFAULT "root"
      GET oApp:cPass          SECTION "MYSQL"      ENTRY "PassWord"     OF oIni DEFAULT "91502127"
      GET oApp:nPort          SECTION "MYSQL"      ENTRY "Port"         OF oIni DEFAULT 3306
      GET oApp:cDriveName     SECTION "MYSQL"      ENTRY "DriveName"    OF oIni DEFAULT "Driver={MySQL ODBC 5.1 Driver}"
      GET oApp:cPath          SECTION "MYSQL"      ENTRY "Path"         OF oIni DEFAULT "C:\Program Files\MySQL\MySQL Server 5.1\bin\"
      GET oApp:cStmt          SECTION "MYSQL"      ENTRY "Statement"    OF oIni DEFAULT ""
      GET oApp:cDBName        SECTION "DATABASE"   ENTRY "DBName"       OF oIni DEFAULT "TestXBrw"
   ENDINI
RETURN( NIL )


/*
* ---------------------------------------------------------------------------- *
*/
STATIC FUNCTION Conecta( )
   LOCAL oError

   TRY
    oApp:oCon := TOleAuto( ) :new( "adodb.connection" )
   CATCH oError
   MsgStop( "No se ha podido crear la conexión al servidor !", oApp:cAplicacion )
   RETURN( .F. )
   END

   oApp:oCon:ConnectionString := ALLTRIM( oApp:cDriveName ) + ;
      ";Server=" + ALLTRIM( oApp:cServer ) + ;
      ";Port=" + STR( oApp:nPort ) + ;
      ";Database=" + ALLTRIM( oApp:cDataBase ) + ;
      ";User=" + ALLTRIM( oApp:cUser ) + ;
      ";Password=" + ALLTRIM( oApp:cPass ) + ;
      ";Option=3;"


   oApp:oCon:CommandTimeout      := 1800     // 30 Minutos * 60 segundos
   oApp:oCon:ConnectionTimeout   := 28800    //  8 horas * 360 segundos

   TRY
      oApp:oCon:Open()
      oApp:oCon:Execute( "SET SESSION wait_timeout = 86400;" )
   CATCH oError
      MsgInfo( "No se pudo lograr la conexión al servidor, REVISE LA CONEXION DE SU RED O LA CONEXION A INTERNET !" + CRLF +;
               oApp:oCon:ConnectionString, oApp:cAplicacion )
      FW_ShowAdoError(oApp:oCon)
      RETURN( .F. )
   END
RETURN( .T. )

#Include "FiveWin.ch"
#Include "Ado.ch"
#Include "xbrowse.ch"

MEMVAR oApp

STATIC oWnd
STATIC oRsHdr

STATIC oBtns

FUNCTION Test(oWindow)
   LOCAL oDlg,oBrw,oFont

    oBtns       := ARRAY(05)

   CreateDB()
   OpenTable()

    DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-10
    DEFINE ICON oIcono RESOURCE "AppLogo"
    DEFINE WINDOW oWnd MDICHILD OF oWindow FROM 0,0 TO 10,10;
        TITLE "Relación de movimientos de almacén" ICON oIcono

        oWnd:bGotFocus  = { || oBrw:SetFocus() }

        DEFINE DIALOG oDlg RESOURCE "BrwVda" OF oWnd FONT oFont ICON oIcono

         REDEFINE BUTTONBAR oBar ID 100 OF oDlg SIZE 56,42 2007

            DEFINE BUTTON oBtns[01] OF oBar ;
               RESOURCE "Add16" TOP NOBORDER;
               PROMPT "&Agregar";
               ACTION InsertMovs(oBrw)

            DEFINE BUTTON oBtns[04] OF oBar ;
               ACTION oWnd:End();
               RESOURCE "Exi16" TOP NOBORDER;
               PROMPT "&Salir";
               GROUP

            REDEFINE XBROWSE oBrw ID 200 OF oDlg;
                DATASOURCE oRsHdr;
            COLUMNS "HDR_FOL","HDR_FDM","HDR_REF","","","","","","SUC_NOM","HDR_CAN";
                HEADERS "Folio","Fecha","Referencia","Tipo","Unidades","Costos","Unidades","Costos","Sucursal","Can";
                COLSIZES 50,80,80,60,70,75,70,75,110,32;
                PICTURES "@Z 9999999","dd/mmm/yyyy",Nil,Nil,"@Z 9,999,999","@Z 99,999,999.99","@Z 9,999,999","@Z 99,999,999.99",Nil,Nil;
                JUSTIFY {AL_RIGHT,AL_RIGHT,AL_LEFT,AL_LEFT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_LEFT,AL_CENTER};
                FOOTERS AUTOSORT //BACKGROUND oApp:cBrush

                WITH OBJECT oBrw
                    :l2007            := (.F.)
                    :lHScroll         := (.F.)
                    :lVScroll         := (.F.)
                    :nMarqueeStyle    := MARQSTYLE_HIGHLROW
                    :nColDividerStyle := LINESTYLE_LIGHTGRAY
                    :nRowDividerStyle := LINESTYLE_LIGHTGRAY
               :SetGroupHeader( "E N T R A D A S",05,06 )
               :SetGroupHeader( "S A L I D A S",07,08 )
                    :nHeaderHeight      := 25
                    :nRowHeight         := 22
                    :nFooterHeight      := 25
                    :bClrHeader       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrFooter       := { || {CLR_WHITE,CLR_BLACK} }
                    :bClrSel          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :bClrSelFocus     := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
                    :bClrStd          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                    :nRecSelColor     := oApp:nRowParClr
                    :lDisplayZeros    := (.F.)

                    WITH OBJECT :Folio
                        :cOrder := "A"
                    END

                    WITH OBJECT :Tipo
                        :bStrData           := { || IF(oRsHdr:RecordCount() > 0 .AND.;
                                                                oRsHdr:Fields("HDR_EOS"):Value == 1,;
                                                                "Entrada","Salida")}
                        :nHeadStrAlign  := AL_LEFT
               END

                    WITH OBJECT :aCols[05]
                        :bStrData           := { || IF(oRsHdr:RecordCount() > 0 .AND.;
                                                                oRsHdr:Fields("HDR_EOS"):Value == 1,;
                                                                Transform(oRsHdr:Fields("HDR_TOU"):Value,"@Z 9,999,999"),"")}
                        :nHeadStrAlign  := AL_RIGHT
                    END

                    WITH OBJECT :aCols[06]
                        :bStrData           := { || IF(oRsHdr:RecordCount() > 0 .AND.;
                                                                oRsHdr:Fields("HDR_EOS"):Value == 1,;
                                                                Transform(oRsHdr:Fields("HDR_TOC"):Value,"@Z 99,999,999.99") ,"")}
                        :nHeadStrAlign  := AL_RIGHT
                    END

                    WITH OBJECT :aCols[07]
                        :bStrData           := { || IF(oRsHdr:RecordCount() > 0 .AND.;
                                                                oRsHdr:Fields("HDR_EOS"):Value == 2,;
                                                                Transform(oRsHdr:Fields("HDR_TOU"):Value,"@Z 9,999,999"),"")}
                        :nHeadStrAlign  := AL_RIGHT
                    END

                    WITH OBJECT :aCols[08]
                        :bStrData           := { || IF(oRsHdr:RecordCount() > 0 .AND.;
                                                                oRsHdr:Fields("HDR_EOS"):Value == 2,;
                                                                Transform(oRsHdr:Fields("HDR_TOC"):Value,"@Z 99,999,999.99") ,"")}
                        :nHeadStrAlign  := AL_RIGHT
                    END

                    WITH OBJECT :aCols[10]
                      :SetLogical()
                    :SetCheck(NIL,(.T.))
                    END
                END

        ACTIVATE DIALOG oDlg NOWAIT ON INIT oDlg:MOVE(0,0) VALID ! GetASyncKey(VK_ESCAPE)
    ACTIVATE WINDOW oWnd ON INIT (oWnd:SETSIZE(oDlg:nWidth+15,oDlg:nHeight+29),oBrw:SetFocus) VALID CloseTable()

    oFont:END()
    oIcono:END()
RETURN(.T.)


* ---------------------------------------------------------------------------- *
STATIC FUNCTION CreateDB()
   LOCAL cCmdSql           := NIL

   oApp:oCon:Execute("USE Test")

   cCmdSql := "CREATE TABLE IF NOT EXISTS HdrVda (" +;
                  "HDR_FOL INTEGER(03)  NOT NULL    AUTO_INCREMENT    COMMENT 'Folio'," +;
                  "HDR_EOS DECIMAL(01,0)  NOT NULL DEFAULT 0            COMMENT 'E=Entrada y S=Salida'," +;
                  "HDR_SUC DECIMAL(03,0)      NULL                      COMMENT 'Número de sucursal'," +;
                  "HDR_FDM DATE           NOT NULL DEFAULT '0000-00-00' COMMENT 'Fecha del movimiento'," +;
                  "HDR_REF VARCHAR(15)    NOT NULL DEFAULT ''           COMMENT 'Referencia'," +;
                  "HDR_TOU DECIMAL(05,0)  NOT NULL DEFAULT 0            COMMENT 'Total de unidades'," +;
                  "HDR_TOC DECIMAL(11,2)  NOT NULL DEFAULT 0.00         COMMENT 'Total de costos'," +;
                  "HDR_CAN BIT            NOT NULL DEFAULT 0            COMMENT 'Cancelado ?'," +;
                  "HDR_MOT VARCHAR(50)    NOT NULL DEFAULT ''           COMMENT 'Motivo de la cancelación'," +;
                  "PRIMARY KEY(HDR_FOL))" +;
                  "ENGINE = InnoDB                                      COMMENT 'Encabezado de vales de almacén';"

   oApp:oCon:Execute(cCmdSql)

RETURN(.T.)

* ---------------------------------------------------------------------------- *
STATIC FUNCTION OpenTable()
   oRsHdr := FW_OpenRecordSet(oApp:oCon,"SELECT " +;
                                          "*," +;
                                          "SUC_NOM " +;
                                       "FROM " +;
                                          "HdrVda " +;
                                       "LEFT JOIN " +;
                                          "Sucursales " +;
                                       "ON " +;
                                          "HDR_SUC = Sucursales.SUC_NUM",adLockOptimistic,adOpenDynamic,0)

   IF oRsHdr == nil
        MsgStop("I can't open the table HDRVDA !",oApp:cAplicacion)
        FW_ShowAdoError(oApp:oCon)
      RETURN(.F.)
   ENDIF

    IF oRsHdr:BOF() .AND. oRsHdr:EOF()
    ELSE
      oRsHdr:MoveFirst()
    ENDIF
RETURN(.T.)

* ---------------------------------------------------------------------------- *
STATIC FUNCTION InsertMovs(oBrw)
   oRsHdr:AddNew()
   oRsHdr:Fields("HDR_EOS"):Value   := 1           // In
   oRsHdr:Fields("HDR_SUC"):Value   := AdoNull()   // Only out movs has value
   oRsHdr:Fields("HDR_FDM"):Value   := Date()
   oRsHdr:Fields("HDR_TOU"):Value   := 10
   oRsHdr:Fields("HDR_TOC"):Value   := 175.25
   oRsHdr:UpDate()

   oRsHdr:AddNew()
   oRsHdr:Fields("HDR_EOS"):Value   := 2           // Out
   oRsHdr:Fields("HDR_SUC"):Value   := 1           // Only out movs has value
   oRsHdr:Fields("HDR_FDM"):Value   := Date()
   oRsHdr:Fields("HDR_REF"):Value   := "F-254"
   oRsHdr:Fields("HDR_TOU"):Value   := 150
   oRsHdr:Fields("HDR_TOC"):Value   := 15000.00
   oRsHdr:UpDate()

   oRsHdr:ReQuery()

   oBrw:Refresh()
   oBrw:SetFocus()
RETURN(.T.)


* ---------------------------------------------------------------------------- *
*/
STATIC FUNCTION CloseTable()
    oWnd        := NIL

    IF oRsHdr <> NIL
        IF oRsHdr:State() = adStateOpen
            oRsHdr:Close()
        ENDIF
    ENDIF
RETURN(.T.)

Error description: (DOS Error -2147352567) WINOLE/1007 El identificador de fila se refirió a una fila eliminada o a una fila marcada para eliminar. (0x80040E23): Microsoft Cursor Engine

Stack Calls
===========
Called from: => TOLEAUTO:VALUE( 0 )

Error description: (DOS Error -2147352567) WINOLE/1007 The row identifier referred to a deleted row or a row marked for deletion. (0x80040E23): Microsoft Cursor Engine

   local oCn, oRs, oField

   oCn   := FW_MSSQLDB()
   oRs   := FW_OpenRecordSet( oCn, "states" )
   oRs:Delete()
   oField   := oRs:Fields( 0 )
   ? oField:Value // error 1007

   Error description: (DOS Error -2147352567) WINOLE/1007  Row handle referred to a deleted row or a row marked for deletion. (0x80040E23): Microsoft Cursor Engine

Stack Calls
===========
   Called from:  => TOLEAUTO:VALUE( 0 )