FiveTech Support Forums

static function mirasql(titulo,aAlias) 
local oDlg, oLbx
USE mi_base VIA "ADORDD" TABLE "mi_tabla" MYSQL ; 
FROM "mysql6.equsolutions.net" USER "usuario" PASSWORD "mi_password" alias "mi_alias" NEW 
// ErrorBlock( { | oError | MsgInfo( oError:Description ) } ) 
 if recogidas->(Recno())>=1
  DEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 
  oDlg:cTitle:=titulo
  @ 1, 1 LISTBOX oLbx FIELDS recogidas->fecha, ; 
  recogidas->compania, ; 
  recogidas->Nombrer, ;
  recogidas->Caller, ; 
  recogidas->Poblar, ;
  recogidas->Comentario ;
  HEADERS "Fecha ","Avisado por:","Recoger en:","Domicilio","Poblacion","Observaciones" ; 
  FIELDSIZES 45,100,100,100,60,100 ; 
  SIZE 284, 137 OF oDlg 

  oLbx:nLineStyle := 1
  oLbx:nClrBackHead := RGB(248,191,36)
  oLbx:bTextColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==8,CLR_HRED, ) }
  oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}

  @154,08  BTNBMP LEFT PROMPT " Agregar"   SIZE 50,19 OF oDlg RESOURCE "grabasql"  ACTION (Descarga(aAlias),oDlg:End())
  @154,67  BTNBMP LEFT PROMPT " Modificar" SIZE 50,19 OF oDlg RESOURCE "modifisql" ACTION oDlg:End() 
  @154,125 BTNBMP LEFT PROMPT " Borrar"    SIZE 50,19 OF oDlg RESOURCE "borrasql"  //ACTION BorraU(oLbx ) 
  @154,184 BTNBMP LEFT PROMPT " Buscar"    SIZE 50,19 OF oDlg RESOURCE "buscasql"  //ACTION BuscaU(oLbx,3,"Color") 
  @154,242 BTNBMP LEFT PROMPT " Salir"     SIZE 50,19 OF oDlg RESOURCE "salirsql"  ACTION (oDlg:End())

  ACTIVATE DIALOG oDlg CENTERED 
else
 msgstop("No hay avisos que traspasar","ATENCION")
endif
recogidas->(Dbclosearea())
return aAlias

USE mi_base VIA "ADORDD" TABLE "mi_tabla" MYSQL ; 
FROM "mysql6.equsolutions.net" USER "user" PASSWORD "password" alias "recogidas" NEW 
IF !eof() .and. !bof() 
 msginfo("no hay registros")
endif