In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Navegar por un txxxBrowse con un cursor ADO

Foro de Xailer profesional en español
Responder
joseluis
Mensajes: 642
Registrado: Jue Sep 08, 2005 12:54 pm

Navegar por un txxxBrowse con un cursor ADO

Mensaje por joseluis »

Hola,
Lo siento... me siento incapaz de hacer andar un browse con un cursor de
ADO.
En FWH lo hago así­... ¿Y como se puede hacer en Xailer?
FUNCTION Do_Browse ( oClientes )
LOCAL oDlg, oBrw
DEFINE DIALOG oDlg NAME "BROWSE_ADO"
REDEFINE BROWSE oBrw ID 100 OF oDlg
oBrw:cargo := oClientes
oBrw:bGotop := { || oBrw:cargo:MoveFirst() }
oBrw:bGoBottom := { || oBrw:cargo:MoveLast() }
oBrw:bSkip := { | n, nold | GoNext(n,oBrw:cargo)}
oBrw:bLogicLen := { || oBrw:cargo:RecordCount}
oBrw:cAlias := "ARRAY"
oBrw:lNoLiteBar := .f.
oCol := TcColumn():New( "Código",{|| oBrw:cargo:clie_codigo } )
oBrw:AddCol( oCol)
...

ACTIVATE DIALOG oDlg
RETURN NIL
// For Reference...
FUNCTION GoNext( n, rs )
LOCAL nSkipped := 0
LOCAL nDirection := IIF(n > 0, 1, -1)
LOCAL oCol := nil
do while nSkipped != n .AND. !rs:EOF() .AND. !rs:BOF()
if nDirection > 0
rs:MoveNext()
else
rs:MovePrevious()
endif
nSkipped += nDirection
enddo
if rs:Eof()
rs:MoveLast()
nSkipped--
elseif rs:Bof()
rs:MoveFirst()
nSkipped++
endif
RETURN (nSkipped)
Gracias por la ayuda.
Saludos,
José Luis Capel
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Navegar por un txxxBrowse con un cursor ADO

Mensaje por ignacio »

José Luis,
Mandanos tus logros actuales para ver hasta donde has llegado, y te lo
reviso.
Un saludo,
"José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
news:4318963a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> Lo siento... me siento incapaz de hacer andar un browse con un cursor de
> ADO.
>
> En FWH lo hago así... ¿Y como se puede hacer en Xailer?
>
> FUNCTION Do_Browse ( oClientes )
>
> LOCAL oDlg, oBrw
>
> DEFINE DIALOG oDlg NAME "BROWSE_ADO"
>
> REDEFINE BROWSE oBrw ID 100 OF oDlg
>
>
> oBrw:cargo := oClientes
> oBrw:bGotop := { || oBrw:cargo:MoveFirst() }
> oBrw:bGoBottom := { || oBrw:cargo:MoveLast() }
> oBrw:bSkip := { | n, nold | GoNext(n,oBrw:cargo)}
> oBrw:bLogicLen := { || oBrw:cargo:RecordCount}
> oBrw:cAlias := "ARRAY"
> oBrw:lNoLiteBar := .f.
>
>
> oCol := TcColumn():New( "Código",{|| oBrw:cargo:clie_codigo } )
> oBrw:AddCol( oCol)
>
> ...
>
>
> ACTIVATE DIALOG oDlg
> RETURN NIL
>
> // For Reference...
> FUNCTION GoNext( n, rs )
> LOCAL nSkipped := 0
> LOCAL nDirection := IIF(n > 0, 1, -1)
> LOCAL oCol := nil
> do while nSkipped != n .AND. !rs:EOF() .AND. !rs:BOF()
> if nDirection > 0
> rs:MoveNext()
> else
> rs:MovePrevious()
> endif
> nSkipped += nDirection
> enddo
>
> if rs:Eof()
> rs:MoveLast()
> nSkipped--
> elseif rs:Bof()
> rs:MoveFirst()
> nSkipped++
> endif
> RETURN (nSkipped)
>
>
> Gracias por la ayuda.
> Saludos,
> José Luis Capel
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
joseluis
Mensajes: 642
Registrado: Jue Sep 08, 2005 12:54 pm

Navegar por un txxxBrowse con un cursor ADO

Mensaje por joseluis »

Ignacio,
Te he respondido por privado.
Saludos,
José Luis Capel
Ignacio Ortiz de Zúñiga escribió:
> José Luis,
>
> Mandanos tus logros actuales para ver hasta donde has llegado, y te lo
> reviso.
>
> Un saludo,
>
> "José Luis Capel" <joseluis@iaicom.com> escribió en el mensaje
> news:4318963a$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>>Hola,
>>
>>Lo siento... me siento incapaz de hacer andar un browse con un cursor de
>>ADO.
>>
>>En FWH lo hago así­... ¿Y como se puede hacer en Xailer?
>>
>>FUNCTION Do_Browse ( oClientes )
>>
>> LOCAL oDlg, oBrw
>>
>> DEFINE DIALOG oDlg NAME "BROWSE_ADO"
>>
>> REDEFINE BROWSE oBrw ID 100 OF oDlg
>>
>>
>> oBrw:cargo := oClientes
>> oBrw:bGotop := { || oBrw:cargo:MoveFirst() }
>> oBrw:bGoBottom := { || oBrw:cargo:MoveLast() }
>> oBrw:bSkip := { | n, nold | GoNext(n,oBrw:cargo)}
>> oBrw:bLogicLen := { || oBrw:cargo:RecordCount}
>> oBrw:cAlias := "ARRAY"
>> oBrw:lNoLiteBar := .f.
>>
>>
>> oCol := TcColumn():New( "Código",{|| oBrw:cargo:clie_codigo } )
>>oBrw:AddCol( oCol)
>>
>> ...
>>
>>
>> ACTIVATE DIALOG oDlg
>>RETURN NIL
>>
>>// For Reference...
>>FUNCTION GoNext( n, rs )
>> LOCAL nSkipped := 0
>> LOCAL nDirection := IIF(n > 0, 1, -1)
>> LOCAL oCol := nil
>> do while nSkipped != n .AND. !rs:EOF() .AND. !rs:BOF()
>> if nDirection > 0
>> rs:MoveNext()
>> else
>> rs:MovePrevious()
>> endif
>> nSkipped += nDirection
>> enddo
>>
>> if rs:Eof()
>> rs:MoveLast()
>> nSkipped--
>> elseif rs:Bof()
>> rs:MoveFirst()
>> nSkipped++
>> endif
>>RETURN (nSkipped)
>>
>>
>>Gracias por la ayuda.
>>Saludos,
>>José Luis Capel
>
>
>
Arriba
Responder

Volver a “Xailer Pro Spanish”