Página 1 de 1

Insertar fila manualmente en TDDBBrowse

Publicado: Lun Oct 11, 2010 1:26 pm
por Karl Svensson
Hola!
Estoy empezando en Xailer y me encuentro con un pequeño problema que no se
como solucionar :(
Tengo un TDDBBrowse donde estoy creando una fila manualmente ( los datos
provienen de una consulta ) , adjunto el código :
sql="select pdes,pfor,pcta,pdoh from ctapre where pcod='"+valor+"'"
dades:=AppData:oMySQL:QueryArray(sql)
FOR i:=1 TO len(dades)
::oDetalle:Insert()
::oDetalle:aCols[1]:oGridEdit:value:=dades[1]
::oDetalle:aCols[2]:oGridEdit:value:=dades[3]
SWITCH dades[4]
CASE "D"
::oDetalle:aCols[3]:oGridEdit:value:=000
EXIT
CASE "H"
::oDetalle:aCols[4]:oGridEdit:value:=000
EXIT
END SWITCH
::oDetalle:aCols[7]:oGridEdit:value:=dTos(date())
::oDetalle:Update()
::oDetalle:Refresh()
NEXT
Para cada fila de la base de datos va insertando una fila nueva , el
problema es que la fila no se guarda ( no avanza ) y me hace todas las
operaciones sobre la misma fila , que método debo usar para guardar la fila
?
Gracias!

Insertar fila manualmente en TDDBBrowse

Publicado: Mié Oct 13, 2010 10:40 pm
por Carlos Ortiz
Probá con ::oDbBrowse1:Append() o con ::oDetalle:AddNew()
"Karl Svensson" <karl@bcnartis.com> escribió en el mensaje
news:4cb2f465$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola!
>
> Estoy empezando en Xailer y me encuentro con un pequeño problema que no se
> como solucionar :(
>
> Tengo un TDDBBrowse donde estoy creando una fila manualmente ( los datos
> provienen de una consulta ) , adjunto el código :
>
>
> sql="select pdes,pfor,pcta,pdoh from ctapre where pcod='"+valor+"'"
> dades:=AppData:oMySQL:QueryArray(sql)
>
> FOR i:=1 TO len(dades)
> ::oDetalle:Insert()
>
> ::oDetalle:aCols[1]:oGridEdit:value:=dades[1]
> ::oDetalle:aCols[2]:oGridEdit:value:=dades[3]
> SWITCH dades[4]
> CASE "D"
> ::oDetalle:aCols[3]:oGridEdit:value:=000
> EXIT
> CASE "H"
> ::oDetalle:aCols[4]:oGridEdit:value:=000
> EXIT
> END SWITCH
> ::oDetalle:aCols[7]:oGridEdit:value:=dTos(date())
>
> ::oDetalle:Update()
> ::oDetalle:Refresh()
>
> NEXT
>
> Para cada fila de la base de datos va insertando una fila nueva , el
> problema es que la fila no se guarda ( no avanza ) y me hace todas las
> operaciones sobre la misma fila , que método debo usar para guardar la
> fila ?
>
> Gracias!
>