FiveTech Support Forums

///////////// AVISOS EN INTERNET
static function mirasql(titulo,aAlias) 
local oDlg, oLbx
USE base_mysql VIA "ADORDD" TABLE "recogidas" MYSQL ; 
FROM "myFTP" USER "Myuser" PASSWORD "Mypassword" alias "recogidas" 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 ON INIT Tget():lClrFocus:=.T.
else
 msgstop("No hay avisos que traspasar","ATENCION")
endif
recogidas->(Dbclosearea())
return aAlias

if recogidas->(Recno())>=1

if !recogidas->(Eof())
                      ................
                      .................
                   else
                         msgstop("No hay avisos que traspasar","ATENCION")
                   endif