Problem with xBrowse (Fixed)

Re: Problem with xBrowse

Postby nageswaragunupudi » Tue May 30, 2023 10:04 pm

Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby nageswaragunupudi » Tue May 30, 2023 10:08 pm

Code: Select all  Expand view
#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
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby Armando » 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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby nageswaragunupudi » Wed May 31, 2023 4:23 am

ok
Code: Select all  Expand view
#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
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby Armando » Wed May 31, 2023 5:06 pm

Mr. Rao:

Your sample works very fine.

If I use

Code: Select all  Expand view

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


Instead
Code: Select all  Expand view

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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby nageswaragunupudi » Thu Jun 01, 2023 7: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
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby Armando » Fri Jun 02, 2023 1: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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby nageswaragunupudi » Fri Jun 02, 2023 2: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
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby Armando » Fri Jun 02, 2023 3:08 am

Mr. Rao:

Here is the full structure of sucursales table

Code: Select all  Expand view

   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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby nageswaragunupudi » Sun Jun 04, 2023 7:21 am

This is the table I used
Code: Select all  Expand view
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
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby Armando » Sun Jun 04, 2023 5: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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby Armando » Sun Jun 04, 2023 5: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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby nageswaragunupudi » Sun Jun 04, 2023 5:33 pm

Please try my original program on any other computer.
Or try on this cloud server
Code: Select all  Expand view
"209.250.245.152","fwh","fwhuser","FiveTech@2022"
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Problem with xBrowse

Postby Armando » Sun Jun 04, 2023 5: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: Select all  Expand view

#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
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Problem with xBrowse

Postby Cgallegoa » Mon Jun 05, 2023 11:45 pm

Armando:

Instead of:
Code: Select all  Expand view
"SELECT *,S.SUC_NOM FROM HdrVda H LEFT JOIN Sucursales S ON H.HDR_SUC = S.SUC_NUM ORDER BY HDR_FOL"


Use
Code: Select all  Expand view
"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-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Cgallegoa
 
Posts: 491
Joined: Sun Oct 16, 2005 3:32 am
Location: Quito - Ecuador

PreviousNext

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 34 guests