FiveTech Software tech support forums

... browse, desaparece toda la data filtrada y se queda el xbrowse vacio Hola Artu01 puedes solucionarlo con un condicional Ejemplo IF EOF() GO BOTT ENDI si no encuentra el dato que se ponga en el ultimo registro asi la tabla xbrowse no se verá vacia Saludos Julio Cesar Gómez Cortéz Jultzem

... ) // "lecturas" es una tabla de cDatabasename oRs:GoTop() Whil !oRs:Eof() If Subs(oRs:bcodi,1,1)="1" oRs:Delete();oRs:Save() Endi oRs:Skip(1) End XBROWSER oRs FASTEDIT oCn:Execute( "DELETE FROM `cont0500` WHERE `bcodi` LIKE '1%'" )oRs := oCn:RowSet( "cont0500" ...

... ) // "lecturas" es una tabla de cDatabasename oRs:GoTop() Whil !oRs:Eof() If Subs(oRs:bcodi,1,1)="1" oRs:Delete();oRs:Save() Endi oRs:Skip(1) */ cQry := "DELETE FROM cont0500" + CLRF cQry += "WHERE bcodi=" + ClipValue2SQL( "1" ) oCn:Execute( cQry

... ) // "lecturas" es una tabla de cDatabasename oRs:GoTop() Whil !oRs:Eof() If Subs(oRs:bcodi,1,1)="1" oRs:Delete();oRs:Save() Endi oRs:Skip(1) End XBROWSER oRs FASTEDIT

... oInternet, cUser:='Joel', cPassword:='123456', lFTPPAsivo:=.f., nPuerto:=21) if empty(oFTP:hFTP) oInternet:End() retu .f. endi cFileOrigen:='c:\respaldo\Archivo.txt' hSource :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile :=TFtpFile():New(cFileFTP, ...

... cUpStr, 1, nPos1 - LEN( cDelm1 ) - 1 ) + SUBS( cUpStr, nPos2 + LEN(cDelm2) ) ELSE cRVal := SUBS( cUpStr, nPos1 ) cUpStr := LEFT( cUpStr, nPos1 ) ENDIF cDelm2 $ SUBS( cUpStr, nPos1 ) ENDIF cDelm1 $ cUpStr ENDIF !EMPTY( cUpStr ) .AND. !EMPTY( cDelm1 ) .AND. !EMPTY( cDelm2 ) // A517 RETU cRVal // ...

... .AND. Chr( nKey ) == "+" mivar1=::oGet:buffer IF LEN(ALLTRIM(mivar1))>0 mivar1=UPPER(mivar1) ::oGet:VarPut( mivar1 ) ::Refresh() ENDI elseif ::oGet:Type == "C" .AND. Chr( nKey ) == "-" mivar1=::oGet:buffer IF LEN(ALLTRIM(mivar1))>0 mivar1=LOWER(mivar1) ::oGet:VarPut( ...

... password de tu MAIN ... Intenta Asi: STATIC MIVENTANAMENU FUNCTION Main() IF Password() DEFINE WINDOW MIVENTANAMENU ACTIVATE WINDOW MIVENTANAMENU ENDI RETU NIL FUNCTION PASSWORD() LOCAL VF VF=.F. ... TU RUTINA PASSWORD CORRECTO?? VF=.T. RETU VF

... lineas: if ::oGet:Type == "N" .and. ( Chr( nKey ) == "." .or. Chr( nKey ) == "," ) ::oGet:ToDecPos() else ... endi y aqui se reemplazan, en su parte pertinente, por las siguientes lineas: if ::oGet:Type == "N" .and. ( Chr( nKey ) == "." .or. ...

... en los campos necesarios. Eligió los datos de un registro en la tabla sin pulsar ESC ?? uvf=.T. No eligió, la tabla esta vacia ?? sigue uvf en .F. ENDI ELSEIF LEN(CampoGetConTabla)=6 //usuario conoce el codigo de la tabla ... realizas la busqueda y le retornas //los datos complementarios en los ...

... en los campos necesarios. Eligió los datos de un registro en la tabla sin pulsar ESC ?? uvf=.T. No eligió, la tabla esta vacia ?? sigue uvf en .F. ENDI ELSEIF LEN(CampoGetConTabla)=6 //usuario conoce el codigo de la tabla ... realizas la busqueda y le retornas //los datos complementarios en los ...

... := GetSysMetrics(0) IF nResoAncho > 800 CamReso ( 800, 600) MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 800 X 600') ENDI RETU nil Function CamReso(nAncho, nAlto) Local DM_PELSWIDTH := nHex("80000") Local DM_PELSHEIGHT := nHex("100000") Local oDevMode ...

... Asize(mMatriz,0) For i:=1 to 5 npar := '"'+Ltrim(Str(i))+'"' If i > 1 .AND. i < 6 nlon := nlon+coma+npar Else nlon := nlon+npar Endi Next nlon := PARI+NLON+PARF Aadd(mMatriz,nlon) xBrowse(mMatriz) Aparece en Xbrowse :                   A                     B   C   D   E {"01"," ...

... 1 ] + ' ' + oDbf:FieldName( 1 ) ) oDbf:End() oOdbc:End() ELSE oOdbc:ShowErrorList( 'Error al ejecutar consulta' ) oOdbc:aErrors := {} oDbf:End() ENDI ELSE oOdbc:ShowErrorList( 'Error al iniciar sesion ODBC' ) oOdbc:End() ENDI RETU /*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ...

... 1 ] UPDATE REDEFINE GET oObj[14] VAR vVar ID 115 OF oFld:aDialogs[ 1 ] UPDATE REDEFINE GET oObj[15] VAR vVar ID 114 OF oFld:aDialogs[ 1 ] UPDATE Endi oFld:SetOption( 1 ) oFld:EnableTab( 1 ) REDEFINE BTNBMP oBtn[07] ID 102 RESOURCE 5170 OF oDlg REDEFINE BTNBMP oBtn[08] ID 103 RESOURCE 5180 OF ...