topic-43196

Board index FiveWin for Harbour/xHarbour Problem with xBrowse (Fixed)

Page: 1 2 3 (35 posts)

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Tue May 30, 2023 10:04 PM

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Tue May 30, 2023 10:08 PM

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "adodef.ch"

static oCn

function Main()

   local oWnd, oBar

   FWNumFormat( "A", .t. )
   SET DATE FORMAT TO "dd/mm/yyyy"

   CursorWait()
   oCn   := FW_OpenAdoConnection( { "MYSQL","208.91.198.197:3306", "fwhdemo", "gnraofwh", "Bharat@1950" }, .t. )

   DEFINE WINDOW oWnd MDI
   DEFINE BUTTONBAR oBar OF oWnd SIZE 45,45 2007
   DEFINE BUTTON OF oBar PROMPT "TEST" CENTER ACTION Test()

   oWnd:oWndClient:bPainted := {||oWnd:oWndClient:DrawImage( "c:\fwh\bitmaps\logo.bmp", "BR" )}

   ACTIVATE WINDOW oWnd

return nil

static function Test()

   local oDlg, oWndChild
   local oBar, oMsgBar, oBrw
   local oRsHdr

   CreateTable()
   oRsHdr   := OpenTable()

   DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL
   DEFINE BUTTONBAR oBar OF oDlg SIZE 56,42 2007

   DEFINE BUTTON OF oBar PROMPT "Add" CENTER ACTION InsertMovs( oBrw )
   DEFINE BUTTON OF oBar PROMPT "Zap" CENTER ACTION ( ;
      oCn:Execute( "TRUNCATE TABLE `HdrVda`" ), ;
      oRsHdr:ReQuery(), oBrw:Refresh(), oBrw:SetFocus() )
   DEFINE BUTTON OF oBar PROMPT "Close" CENTER ACTION oWndChild:End()

   @ oBar:nHeight, 0 XBROWSE oBrw SIZE 0,-30 PIXEL OF oDlg ;
      DATASOURCE oRsHdr ;
     COLUMNS "HDR_FOL","HDR_FDM","HDR_REF",;
      "IF( HDR_EOS == 1, 'Entrada', 'Salida' )",;
      "IF( HDR_EOS == 1, HDR_TOU, 0.00 )",;
      "IF( HDR_EOS == 1, HDR_TOC, 0.00 )",;
      "IF( HDR_EOS == 2, HDR_TOU, 0.00 )",;
      "IF( HDR_EOS == 2, HDR_TOC, 0.00 )",;
      "[SUC_NOM]","HDR_CAN";
     HEADERS "Folio","Fecha","Referencia","Tipo","Unidades","Costos","Unidades","Costos","Sucursal","Can";
     LINES NOBORDER

   WITH OBJECT oBrw
      :bGotFocus := { || oRsHdr:Requery(), oBrw:Refresh() }
      //
      :CreateFromCode()
   END
   oDlg:oClient   := oBrw

   oDlg:bPostEnd  := { || oRsHdr:Close() }
   ACTIVATE DIALOG oDlg AS MDICHILD SETUP ( ;
      oWndChild := oWnd, ;
      oMsgBar := TMsgBar():New( oWnd,,,,,,,,,,.t. ) )

return nil

STATIC FUNCTION CreateTable()
   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';"

   oCn:Execute(cCmdSql)

RETURN(.T.)

STATIC FUNCTION OpenTable()

   local oRsHdr
/*
   oRsHdr := FW_OpenRecordSet( oCn,"SELECT " +;
                                          "*," +;
                                          "SUC_NOM " +;
                                       "FROM " +;
                                          "HdrVda " +;
                                       "LEFT JOIN " +;
                                          "Sucursales " +;
                                       "ON " +;
                                          "HDR_SUC = Sucursales.SUC_NUM",adLockOptimistic,adOpenDynamic,0)
*/
   oRsHdr   := FW_OpenRecordSet( oCn, "HdrVda" )

   IF oRsHdr == nil
        MsgStop("I can't open the table HDRVDA !",)
        FW_ShowAdoError( oCn )
      RETURN nil
   ENDIF

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

RETURN oRsHdr

STATIC FUNCTION InsertMovs(oBrw)

   oBrw:oRs:AddNew( { "HDR_EOS", "HDR_FDM", "HDR_TOU", "HDR_TOC" }, ;
                    {  1,         Date(),    10,        175.25   }  )

   oBrw:oRs:AddNew( { "HDR_EOS", "HDR_SUC", "HDR_FDM", "HDR_REF", "HDR_TOU", "HDR_TOC" }, ;
                    {  2,         1,         Date(),   "F_254",    150,       15000.00 }  )

   oBrw:oRs:ReQuery()

   oBrw:Refresh()
   oBrw:SetFocus()

RETURN(.T.)

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Wed May 31, 2023 12:16 AM

Mr. Rao:

Could you please add the HDR_SUC column and with LEFT JOIN access the BRANCHES table to obtain the name of the branch

and display it in the BROWSE?

In an input movement the HDR_SUC column must be null

With best regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Wed May 31, 2023 04:23 AM

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "adodef.ch"

static oCn

function Main()

   local oWnd, oBar

   FWNumFormat( "A", .t. )
   SET DATE FORMAT TO "dd/mm/yyyy"

   CursorWait()
   oCn   := FW_OpenAdoConnection( { "MYSQL","208.91.198.197:3306", "fwhdemo", "gnraofwh", "Bharat@1950" }, .t. )

   DEFINE WINDOW oWnd MDI
   DEFINE BUTTONBAR oBar OF oWnd SIZE 45,45 2007
   DEFINE BUTTON OF oBar PROMPT "TEST" CENTER ACTION Test()

   oWnd:oWndClient:bPainted := {||oWnd:oWndClient:DrawImage( "c:\fwh\bitmaps\logo.bmp", "BR" )}

   ACTIVATE WINDOW oWnd

return nil

static function Test()

   local oDlg, oWndChild
   local oBar, oMsgBar, oBrw
   local oRsHdr

   CreateTable()
   oRsHdr   := OpenTable()

   DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL
   DEFINE BUTTONBAR oBar OF oDlg SIZE 56,42 2007

   DEFINE BUTTON OF oBar PROMPT "Add" CENTER ACTION InsertMovs( oBrw )
   DEFINE BUTTON OF oBar PROMPT "Zap" CENTER ACTION ( ;
      oCn:Execute( "TRUNCATE TABLE `HdrVda`" ), ;
      oRsHdr:ReQuery(), oBrw:Refresh(), oBrw:SetFocus() )
   DEFINE BUTTON OF oBar PROMPT "Close" CENTER ACTION oWndChild:End()

   @ oBar:nHeight, 0 XBROWSE oBrw SIZE 0,-30 PIXEL OF oDlg ;
      DATASOURCE oRsHdr ;
     COLUMNS "HDR_FOL","HDR_FDM","HDR_REF",;
      "IF( HDR_EOS == 1, 'Entrada', 'Salida' )",;
      "IF( HDR_EOS == 1, HDR_TOU, 0.00 )",;
      "IF( HDR_EOS == 1, HDR_TOC, 0.00 )",;
      "IF( HDR_EOS == 2, HDR_TOU, 0.00 )",;
      "IF( HDR_EOS == 2, HDR_TOC, 0.00 )",;
      "[SUC_NOM]","HDR_CAN";
     HEADERS "Folio","Fecha","Referencia","Tipo","Unidades","Costos","Unidades","Costos","Sucursal","Can";
     LINES NOBORDER

   WITH OBJECT oBrw
      :bGotFocus := { || oRsHdr:Requery(), oBrw:Refresh() }
      //
      :CreateFromCode()
   END
   oDlg:oClient   := oBrw

   oDlg:bPostEnd  := { || oRsHdr:Close() }
   ACTIVATE DIALOG oDlg AS MDICHILD SETUP ( ;
      oWndChild := oWnd, ;
      oMsgBar := TMsgBar():New( oWnd,,,,,,,,,,.t. ) )

return nil

STATIC FUNCTION CreateTable()
   LOCAL cCmdSql           := NIL
   local c

//   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';"

   oCn:Execute(cCmdSql)

   if !FW_AdoTableExists( "Sucursales" )
      FWAdoCreateTable( "Sucursales", {{ "SUC_NOM","C",10,0}}, oCn, "SUC_NUM" )

      for each c in { "One", "Two", "Three" }
         oCn:Execute( "INSERT INTO Sucursales ( SUC_NOM ) VALUES ('" + c +  "')" )
      next



   endif


RETURN(.T.)

STATIC FUNCTION OpenTable()

   local oRsHdr
/*
   oRsHdr := FW_OpenRecordSet( oCn,"SELECT " +;
                                          "*," +;
                                          "SUC_NOM " +;
                                       "FROM " +;
                                          "HdrVda " +;
                                       "LEFT JOIN " +;
                                          "Sucursales " +;
                                       "ON " +;
                                          "HDR_SUC = Sucursales.SUC_NUM",adLockOptimistic,adOpenDynamic,0)
*/
   oRsHdr   := FW_OpenRecordSet( oCn, ;
      "SELECT *,S.SUC_NOM FROM HdrVda H LEFT JOIN Sucursales S ON H.HDR_SUC = S.SUC_NUM ORDER BY HDR_FOL" )

   IF oRsHdr == nil
        MsgStop("I can't open the table HDRVDA !",)
        FW_ShowAdoError( oCn )
      RETURN nil
   ENDIF

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

RETURN oRsHdr

STATIC FUNCTION InsertMovs(oBrw)

   oBrw:oRs:AddNew( { "HDR_EOS", "HDR_FDM", "HDR_TOU", "HDR_TOC" }, ;
                    {  1,         Date(),    10,        175.25   }  )

   oBrw:oRs:AddNew( { "HDR_EOS", "HDR_SUC", "HDR_FDM", "HDR_REF", "HDR_TOU", "HDR_TOC" }, ;
                    {  2,         1,         Date(),   "F_254",    150,       15000.00 }  )

   oBrw:oRs:ReQuery()

   oBrw:Refresh()
   oBrw:SetFocus()

RETURN(.T.)

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Wed May 31, 2023 05:06 PM

Mr. Rao:

Your sample works very fine.

If I use

Code (fw): Select all Collapse

oCn   := FW_OpenAdoConnection( { "MYSQL","localhost", "SiaJAEM", "root", "91502127" }, .t. )

Instead

Code (fw): Select all Collapse

oCn   := FW_OpenAdoConnection( { "MYSQL","208.91.198.197:3306", "fwhdemo", "gnraofwh", "Bharat@1950" }, .t. )

I got the error, perhaps the problem is my MySql version? what do you think?, or my connector?

I have MySql 5.1 version

BEst regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Thu Jun 01, 2023 07:20 AM

I got the error

Same Error?

Please make sure that except the connection, please do not make any changes in my program. In particular, retian oRsHdr as local variable only.

Cloud server version is 5.6.39. But I don't this it is version problem.

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Fri Jun 02, 2023 01:42 AM

Mr. Rao:

Yes, it's the same error, and I'm sure I haven't changed anything other than the connection

by the way, if I remove the LEFT JOIN code, there is no error at all.

With best regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Fri Jun 02, 2023 02:58 AM

by the way, if I remove the LEFT JOIN code, there is no error at all.

What is the structure of `Sucursales` table?

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Fri Jun 02, 2023 03:08 AM

Mr. Rao:

Here is the full structure of sucursales table

Code (fw): Select all Collapse

   cCmdSql := "CREATE TABLE IF NOT EXISTS Sucursales (" +;
                  "SUC_NUM TINYINT         NOT NULL    AUTO_INCREMENT    COMMENT 'Número de sucursal'," +;
                  "SUC_NOM VARCHAR(40)      NOT NULL    DEFAULT ''        COMMENT 'Nombre o Razón Social'," +;
                  "SUC_IAT VARCHAR(05)      NOT NULL    DEFAULT ''        COMMENT 'Código IATA'," +;
                  "SUC_CAL VARCHAR(60)    NOT NULL    DEFAULT ''        COMMENT 'Domicilio'," +;
                  "SUC_NUE VARCHAR(20)    NOT NULL    DEFAULT ''        COMMENT 'Número exterior'," +;
                  "SUC_NUI VARCHAR(20)    NOT NULL    DEFAULT ''        COMMENT 'Número interior'," +;
                  "SUC_COL VARCHAR(60)    NOT NULL    DEFAULT ''        COMMENT 'Colonia'," +;
                  "SUC_COP VARCHAR(05)    NOT NULL    DEFAULT ''        COMMENT 'Código postal'," +;
                  "SUC_CIU VARCHAR(25)    NOT NULL    DEFAULT ''        COMMENT 'Población'," +;
                  "SUC_MUN VARCHAR(30)    NOT NULL    DEFAULT ''        COMMENT 'Delegación o municipio'," +;
                  "SUC_EST VARCHAR(25)    NOT NULL    DEFAULT ''        COMMENT 'Entidad federativa'," +;
                  "SUC_TEL VARCHAR(25)    NOT NULL    DEFAULT ''        COMMENT 'Teléfono'," +;
                  "SUC_EMA VARCHAR(50)    NOT NULL    DEFAULT ''        COMMENT 'e-mail'," +;
                  "PRIMARY KEY(SUC_NUM))" +;
                  "ENGINE = InnoDB                                                COMMENT 'Sucursales';"

Best regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Sun Jun 04, 2023 07:21 AM

This is the table I used

Code (fw): Select all Collapse

CREATE TABLE `Sucursales` (
  `SUC_NUM` int(11) NOT NULL AUTO_INCREMENT,
  `SUC_NOM` varchar(10) DEFAULT NULL,
  PRIMARY KEY (`SUC_NUM`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Sun Jun 04, 2023 05:04 PM

Mr. Rao:

I'll try with your structur.

Best regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Sun Jun 04, 2023 05:20 PM

Mr. Rao:

I tried with your structure, the problem persists.

I'm going crazy

Regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problem with xBrowse
Posted: Sun Jun 04, 2023 05:33 PM

Please try my original program on any other computer.
Or try on this cloud server

Code (fw): Select all Collapse

"209.250.245.152","fwh","fwhuser","FiveTech@2022"

Regards

G. N. Rao.

Hyderabad, India

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Problem with xBrowse
Posted: Sun Jun 04, 2023 05:47 PM

Mr. Rao:

With the new connection string I got the same error

At the first time everything is fine, but at the second time i got the same error.

Here is the full code

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "adodef.ch"

static oCn

function Main()

   local oWnd, oBar

   FWNumFormat( "A", .t. )
   SET DATE FORMAT TO "dd/mm/yyyy"

   CursorWait()
      oCn   := FW_OpenAdoConnection( { "MYSQL","209.250.245.152","fwh","fwhuser","FiveTech@2022" }, .t. )
//   oCn   := FW_OpenAdoConnection( { "MYSQL","208.91.198.197:3306", "fwhdemo", "gnraofwh", "Bharat@1950" }, .t. )
//   oCn   := FW_OpenAdoConnection( { "MYSQL","localhost", "SiaJAEM", "root", "91502127" }, .t. )

   DEFINE WINDOW oWnd MDI
   DEFINE BUTTONBAR oBar OF oWnd SIZE 45,45 2007
   DEFINE BUTTON OF oBar PROMPT "TEST" CENTER ACTION Test()

   oWnd:oWndClient:bPainted := {||oWnd:oWndClient:DrawImage( "c:\fwh\bitmaps\logo.bmp", "BR" )}

   ACTIVATE WINDOW oWnd

return nil

static function Test()

   local oDlg, oWndChild
   local oBar, oMsgBar, oBrw
   local oRsHdr

   CreateTable()
   oRsHdr   := OpenTable()

   DEFINE DIALOG oDlg SIZE 700,400 PIXEL TRUEPIXEL
   DEFINE BUTTONBAR oBar OF oDlg SIZE 56,42 2007

   DEFINE BUTTON OF oBar PROMPT "Add" CENTER ACTION InsertMovs( oBrw )
   DEFINE BUTTON OF oBar PROMPT "Zap" CENTER ACTION ( ;
      oCn:Execute( "TRUNCATE TABLE `HdrVda`" ), ;
      oRsHdr:ReQuery(), oBrw:Refresh(), oBrw:SetFocus() )
   DEFINE BUTTON OF oBar PROMPT "Close" CENTER ACTION oWndChild:End()

   @ oBar:nHeight, 0 XBROWSE oBrw SIZE 0,-30 PIXEL OF oDlg ;
      DATASOURCE oRsHdr ;
     COLUMNS "HDR_FOL","HDR_FDM","HDR_REF",;
      "IF( HDR_EOS == 1, 'Entrada', 'Salida' )",;
      "IF( HDR_EOS == 1, HDR_TOU, 0.00 )",;
      "IF( HDR_EOS == 1, HDR_TOC, 0.00 )",;
      "IF( HDR_EOS == 2, HDR_TOU, 0.00 )",;
      "IF( HDR_EOS == 2, HDR_TOC, 0.00 )",;
      "[SUC_NOM]","HDR_CAN";
     HEADERS "Folio","Fecha","Referencia","Tipo","Unidades","Costos","Unidades","Costos","Sucursal","Can";
     LINES NOBORDER

   WITH OBJECT oBrw
      :bGotFocus := { || oRsHdr:Requery(), oBrw:Refresh() }
      //
      :CreateFromCode()
   END
   oDlg:oClient   := oBrw

   oDlg:bPostEnd  := { || oRsHdr:Close() }
   ACTIVATE DIALOG oDlg AS MDICHILD SETUP ( ;
      oWndChild := oWnd, ;
      oMsgBar := TMsgBar():New( oWnd,,,,,,,,,,.t. ) )

return nil

STATIC FUNCTION CreateTable()
   LOCAL cCmdSql           := NIL
   local c

//   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               NULL                      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';"

//                  "HDR_FDM DATE           NOT NULL DEFAULT '0000-00-00' COMMENT 'Fecha del movimiento'," +;

   oCn:Execute(cCmdSql)

   if !FW_AdoTableExists( "Sucursales" )
      FWAdoCreateTable( "Sucursales", {{ "SUC_NOM","C",10,0}}, oCn, "SUC_NUM" )

      for each c in { "One", "Two", "Three" }
         oCn:Execute( "INSERT INTO Sucursales ( SUC_NOM ) VALUES ('" + c +  "')" )
      next



   endif


RETURN(.T.)

STATIC FUNCTION OpenTable()

   local oRsHdr
   oRsHdr   := FW_OpenRecordSet( oCn, ;
      "SELECT *,S.SUC_NOM FROM HdrVda H LEFT JOIN Sucursales S ON H.HDR_SUC = S.SUC_NUM ORDER BY HDR_FOL" )

////      "SELECT * FROM HdrVda ORDER BY HDR_FOL"

   IF oRsHdr == nil
        MsgStop("I can't open the table HDRVDA !",)
        FW_ShowAdoError( oCn )
      RETURN nil
   ENDIF

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

RETURN oRsHdr

STATIC FUNCTION InsertMovs(oBrw)

   oBrw:oRs:AddNew( { "HDR_EOS", "HDR_FDM", "HDR_TOU", "HDR_TOC" }, ;
                    {  1,         Date(),    10,        175.25   }  )

   oBrw:oRs:AddNew( { "HDR_EOS", "HDR_SUC", "HDR_FDM", "HDR_REF", "HDR_TOU", "HDR_TOC" }, ;
                    {  2,         1,         Date(),   "F_254",    150,       15000.00 }  )

   oBrw:oRs:ReQuery()

   oBrw:Refresh()
   oBrw:SetFocus()

RETURN(.T.)

Perhaps you can see my fault.

Best regards

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: Problem with xBrowse
Posted: Mon Jun 05, 2023 11:45 PM

Armando:

Instead of:

Code (fw): Select all Collapse

"SELECT *,S.SUC_NOM FROM HdrVda H LEFT JOIN Sucursales S ON H.HDR_SUC = S.SUC_NUM ORDER BY HDR_FOL"

Use

Code (fw): Select all Collapse

"SELECT H.*,S.SUC_NOM FROM HdrVda H LEFT JOIN Sucursales S ON H.HDR_SUC = S.SUC_NUM ORDER BY HDR_FOL"

"H.*" make the trick.

Regards,

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Page: 1 2 3 (35 posts)

FiveTech Support Forums