Ver Mensaje Individual
  #4 (permalink)  
Antiguo 19/07/2011, 13:44
Avatar de lujan29
lujan29
 
Fecha de Ingreso: julio-2011
Ubicación: Hermosillo
Mensajes: 1
Antigüedad: 11 años
Puntos: 0
Respuesta: accesar a elementos de arreglo de objetos

De fabor les solicito la modificacion de este codigo nesesito asignarle los ciguientes campos a este reporte de cliente calle,colonia,poblacion,estado,RFC,Zona
espero y me puedan ayudar.





Public Sub Main()

' Colocamos los datos del rango
ParamData.ParametrosRequeridos "Clientes por clave", "Cliente inicial", "Clientes por clave", "Cliente final"

' Mostramos la ventana de rangos
Rangos Ambiente, False

' Si se presiono el boton cancelado detenemos la operación
if Cancelado Then
Exit Sub
end if

Reporte.Titulo = "Catálogo de clientes generico"

if Not ParamData.Todos1 Then
cCondicion = " AND clients.cliente >= '" & ParamData.BusquedaIni & "' AND clients.cliente <= '" & ParamData.busquedaFin & "'"
Reporte.Titulo2 = "Clientes entre el siguiente rango " & Trim(ParamData.BusquedaIni) & " - " & Trim(ParamData.BusquedaFin)
End if

IniciaDocumento()
strSQL = ""
strSQL = strSQL & "SELECT "
strSQL = strSQL & "clients.cliente, "
strSQL = strSQL & "clients.nombre, "
strSQL = strSQL & "clients.telefono "
strSQL = strSQL & "FROM clients "
strSQL = strSQL & "WHERE clients.cliente <> 'SYS' "
strSQL = strSQL & cCondicion
strSQL = strSQL & "ORDER BY clients.cliente "
Reporte.SQL = strSQL
Reporte.RetrieveColumns
Reporte.Columns("cliente").Titulo = "CLIENTE"

Reporte.Columns("nombre").Titulo = "NOMBRE DE CLIENTE"
Reporte.Columns("nombre").Ancho = 35


Reporte.Columns("telefono").Titulo = "TELÉFONO"
Reporte.ImprimeReporte
FinDocumento()

End Sub