FiveTech Support Forums

   oQry:= ::oConn:oSrv:Query( "select A.dia, A.hora, @L:= B.desc_club, A.tantos1, @V:= C.desc_club, A.tantos2, A.idfecha "+ ;
                                                           "from fechas as A, clubes as B, clubes as C where A.idclub1=B.id_club and A.idclub2=C.id_club" )
   ::oData= oQry

   // Dialogo
   DEFINE DIALOG soDlg3 RESOURCE "dlg_Browse" OF soDlg2 TITLE "Fechas"
   soDlg3:lHelpIcon:= FALSE

   REDEFINE XBROWSE oBrw OBJECT oQry ID 500 ;
            HEADERS "Dia", "Hora", "Local", "TantosL", "Visita", "TantosV" AUTOCOLS ;


   WITH OBJECT oBrw
      ...

      :bLDblClick:= {|| ::oData:= oQry:GetRowObj(), ;
                        ::CargaResultados(), ;
                        ::oData:LoadQuery(), ::oData := oQry, ;
                        oBrw:Refresh() }
   END
   WITH OBJECT oBrw:tantosl
      :cHeader:= "Tantos"
      :nWidth:= 40
   END
   WITH OBJECT oBrw:tantosv
      :cHeader:= "Tantos"
      :nWidth:= 40
   END
   ...

PROCEDURE CargaResultados( oQry )  CLASS TCompetencias
local oSelf:= Self, ;
      oDlg

   DEFINE DIALOG oDlg RESOURCE "dlg_Partido"

   REDEFINE GET ::oData:tantos1 ID 101 OF oDlg ;
            PICTURE "999"

   REDEFINE GET ::oData:tantos2 ID 102 OF oDlg ;
            PICTURE "999"

   REDEFINE RBBTN PROMPT "Guardar"+CRLF+"<F5>" ID BTN_ACCION OF oDlg TRANSPARENT ;
                  BITMAP "bmp_Save" ;
                  ACTION ( oSelf:oData:Save(), oDlg:End() )
   ...

"CREATE TABLE IF NOT EXISTS posiciones(" + ;                             
"idposic    INT(10)    UNSIGNED ZEROFILL PRIMARY KEY AUTO_INCREMENT," + ;
"idtorneo   INT(10)    UNSIGNED NOT NULL,"  + ;                          
"zona       CHAR(1)    DEFAULT '',"         + ;                          
"desc_club  VARCHAR(40) NOT NULL,"          + ;                          
"jugados    INT(2)     UNSIGNED DEFAULT 0," + ;                          
"ganados    INT(2)     UNSIGNED DEFAULT 0," + ;                          
"empate     INT(2)     UNSIGNED DEFAULT 0," + ;                          
"perdidos   INT(2)     UNSIGNED DEFAULT 0," + ;                          
"afavor     INT(3)     UNSIGNED DEFAULT 0," + ;                          
"encontra   INT(3)     UNSIGNED DEFAULT 0," + ;                          
"diferencia INT(3)     UNSIGNED DEFAULT 0," + ;                          
"puntos     INT(3)     UNSIGNED DEFAULT 0)" + ;                          
"COMMENT=   'Tabla de Posiciones'" + ;                                   
"ENGINE=  INNODB;"

local oDatPos:= soConx:oConn:oSrv:Query( "SELECT * FROM posiciones WHERE idtorneo="+Str( ::oData:idTorneo,,,.T.)+" and zona='"+::oData:Zona+"' " + "and desc_club='"+::oData:FieldGet(_FLocal)+"'" )

   if oDatPos:LastRec() == 0
      oDatPos:GetBlankRow()
   elseif oDatPos:LastRec() == 1
      oDatPos:GetRowObj()
   end

?  ;
   oDatPos:idtorneo  := ::oData:idtorneo, ;
   oDatPos:zona      := ::oData:zona, ;
   oDatPos:desc_club := ::oData:FieldGet(_FLocal), ;
   oDatPos:jugados   += 1, ;
   oDatPos:ganados   := 0, ;
   oDatPos:empate    := 0, ;
   oDatPos:perdidos  := 0, ;
   oDatPos:afavor    += ::oData:tantos1, ;
   oDatPos:encontra  += ::oData:tantos2, ;
   oDatPos:diferencia+= (::oData:tantos1-::oData:tantos2), ;
   oDatPos:puntos    += 0
// Verificado los valores, todos reflejan el dato asignado coorrespondiente, (::oData...son valores de una consulta previa)
   ? oDatPos:Save()

METHOD GetBlankRow( lRow ) CLASS TDolphinQry
...
   IF lRow
      ::oRow = ::GetRowObj()
   ENDIF
   
RETURN ::oRow