Grover Flores
20 de Septiembre del 2004

Como puedo actualizar datos en el datareport, enviados desde una consulta.

Perriche
20 de Septiembre del 2004

Es una putada...lo se,pero tranquilo con el MSDN se arregla todo (bueno casi todo)

Comprobar que el recorset esta abierto, si es asi lo cierra,llama al DE y lo actualiza en otro caso llama al DE y lo actualiza.

El codigo es el siguiente:

with dataenvironment1
if .rsXXXXX.state=adopen then
.rsXXXXX.close
.command1
.refresh
else
.command1
.refresh
end with
datareport1.show

Con eso seguro que funciona de p*** madre, con lo facil que es y lo jodio que lo hacen los de microsoft...bueno de todo hay en el mundo del señor.

suerte

Perriche
20 de Septiembre del 2004

cuidado!!!! no me he dado cuenta,donde pongo .refresh me refiero al datareport, es decir datareport1.refresh y luego el show

ahora si

edith
20 de Septiembre del 2004

ojala m puedas ayudar mira tengo un problema con un dbgrid, resulta q varias cantidades q tengo en el quiero q el resultado m lo de en una caja d texto, pero resulta q la primera vez sumo bien todos los datos q tenia pero ahora q vuelvo a entrar al sistema la cantidad q ya tenia la vuelve a sumar nuevamente y la verdad no se q onda espero y me entiendas gracias.

Rulo
20 de Septiembre del 2004

Copia y Adecúa esta rutina
Private Sub Print_Printer()
Dim Listado As ADODB.Command 'Objeto de tipo comando
Dim Entorno As dteCOM013 'Nuestro entorno de datos
On Error GoTo mierr
'Iniciamos el entorno de datos.
Set Entorno = New dteCOM013
Set Listado = Entorno.Commands("Command1_Grouping")
Listado.CommandType = adCmdText
' construir la consulta SQL
Listado.CommandText = " SHAPE ( SHAPE {SELECT DISTINCT LCSSISEGE.NOMPF01.DESCRI, " & _
" LCSSISEGE.NOMPF01.NUMDIR, LCSSISEGE.NOMPF01.NUMSUB, LCSSISEGE.NOMPF01.NUMDEP " & _
" FROM LCSSISEGE.SSGVWCOM03, LCSSISEGE.NOMPF01 " & _
" WHERE (LCSSISEGE.NOMPF01.NUMDIR = " & Numdir & ") " & _
" AND (LCSSISEGE.NOMPF01.NUMSUB = " & Numsub & ") " & _
" AND (LCSSISEGE.NOMPF01.NUMDEP = " & Numdep & ")} " & _
" AS Command1 APPEND (( SHAPE {SELECT CONTROL, PLACAS, DESCRI, TIPO_COMBUSTIBLE, " & _
" NUM_SERVICIO, FECHA, HORA, LITROS, IMPORTE, DIRECCION, SUBDIRECCION, DEPARTAMENTO " & _
" FROM LCSSISEGE.SSGVWCOM03 WHERE (DIRECCION = " & Numdir & ")" & _
" AND (SUBDIRECCION = " & Numsub & ")" & _
" AND (DEPARTAMENTO = " & Numdep & ")" & _
" AND (FECHA BETWEEN '" & DTPicker1.Value & "' AND '" & DTPicker2.Value & "')} AS Command2 COMPUTE Command2 BY 'CONTROL','PLACAS','DESCRI','TIPO_COMBUSTIBLE','DIRECCION','SUBDIRECCION','DEPARTAMENTO') AS Command2_Grouping RELATE 'NUMDIR' TO 'DIRECCION','NUMSUB' TO 'SUBDIRECCION','NUMDEP' TO 'DEPARTAMENTO') AS Command2_Grouping) COMPUTE Command1 BY 'DESCRI'"
Load dtrCOM013
dtrCOM013.Title = "PERIODO DEL " & Format$(DTPicker1.Value, "yyyy-mm-dd") & _
" AL " & Format$(DTPicker2.Value, "yyyy-mm-dd")
dtrCOM013.Show
Exit Sub
mierr:
MsgBox Err.Number & "-" & Err.Description
Err.Clear
End Sub