Tema: Order By no me ordena, por que?
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 19/07/2011, 08:46
Daviel
 
Fecha de Ingreso: octubre-2008
Mensajes: 44
Antigüedad: 15 años, 10 meses
Puntos: 1
Respuesta: Order By no me ordena, por que?
Antes que nada gracias por tu apoyo, lamento decir que no funciona, posteo la subrutina completa, muchas gracias de antemano.

Subrutina:
Código SQL: 
Ver original
  1. Sub CargarDeclaracionesCargo(ByVal vsFxAy AS AxvsFlexLib.AxvsFlexArray, ByVal TipoImpuesto AS String)
  2.         Dim ImpCn AS NEW ADODB.Connection
  3.         Dim ImpRd AS NEW ADODB.Recordset
  4.         Dim Fila, Columna AS INTEGER
  5.         Dim Importe AS DECIMAL
  6.         Dim Consulta AS String
  7.         ImpCn.OPEN("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaRev & ";Persist Security Info=False;Jet OLEDB:DataBase Password=hu9rethu")
  8.         Consulta = "Select T1.* From ImptosCargo As T1 Where T1.TipoImptoCred = '" & TipoImpuesto & "' Order By T1.Mes"
  9.         ImpRd.OPEN(Consulta, ImpCn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
  10.         ON Error Resume NEXT
  11.         WITH vsFxAy
  12.             .ROWS = .FixedRows
  13.             While NOT ImpRd.EOF
  14.                 .ROWS = .ROWS + 1
  15.                 .set_TextMatrix(.ROWS - 1, 1, ImpRd.FIELDS("Año").VALUE)
  16.                 .set_TextMatrix(.ROWS - 1, 2, StrConv(MonthName(ImpRd.FIELDS("Mes").VALUE, FALSE), VbStrConv.ProperCase))
  17.                 .set_TextMatrix(.ROWS - 1, 3, ImpRd.FIELDS("TipoDeclaracion").VALUE)
  18.                 .set_TextMatrix(.ROWS - 1, 4, ImpRd.FIELDS("TipoImptoCred").VALUE)
  19.                 .set_TextMatrix(.ROWS - 1, 5, ImpRd.FIELDS("Impuesto").VALUE)
  20.                 .set_TextMatrix(.ROWS - 1, 6, ImpRd.FIELDS("ImptoDeclAnt").VALUE)
  21.                 .set_TextMatrix(.ROWS - 1, 7, ImpRd.FIELDS("Actualizacion").VALUE)
  22.                 .set_TextMatrix(.ROWS - 1, 8, ImpRd.FIELDS("Recargos").VALUE)
  23.                 .set_TextMatrix(.ROWS - 1, 9, ImpRd.FIELDS("Total").VALUE)
  24.                 .set_TextMatrix(.ROWS - 1, 10, ImpRd.FIELDS("Compensacion").VALUE)
  25.                 .set_TextMatrix(.ROWS - 1, 11, ImpRd.FIELDS("AcredIVA").VALUE)
  26.                 .set_TextMatrix(.ROWS - 1, 12, ImpRd.FIELDS("AcredIDE").VALUE)
  27.                 .set_TextMatrix(.ROWS - 1, 13, ImpRd.FIELDS("PagadoSubsEmp").VALUE)
  28.                 .set_TextMatrix(.ROWS - 1, 14, ImpRd.FIELDS("PagadoEfectivo").VALUE)
  29.                 .set_TextMatrix(.ROWS - 1, 15, ImpRd.FIELDS("FechaPresent").VALUE)
  30.                 .set_TextMatrix(.ROWS - 1, 16, ImpRd.FIELDS("NumOprn").VALUE)
  31.                 .set_TextMatrix(.ROWS - 1, 17, ImpRd.FIELDS("Portal").VALUE)
  32.                 .set_TextMatrix(.ROWS - 1, 18, ImpRd.FIELDS("NumFolioComp").VALUE)
  33.                 .set_TextMatrix(.ROWS - 1, 19, ImpRd.FIELDS("NumOprnAnt").VALUE)
  34.                 .set_TextMatrix(.ROWS - 1, 20, ImpRd.FIELDS("FechaDeclAnt").VALUE)
  35.                 .set_TextMatrix(.ROWS - 1, 21, ImpRd.FIELDS("Observacion").VALUE)
  36.                 CALL AjustarAltoFila(vsFxAy, .ROWS - 1, 260, 21, 60, 4000)
  37.                 ImpRd.MoveNext()
  38.             END While
  39.             .ROWS = .ROWS + 1
  40.             FOR Columna = 5 TO 14
  41.                 Importe = 0
  42.                 FOR Fila = .FixedRows TO .ROWS - 2
  43.                     Importe = Importe + .get_TextMatrix(Fila, Columna)
  44.                 NEXT Fila
  45.                 .set_TextMatrix(Fila, Columna, Importe)
  46.             NEXT Columna
  47.         END WITH
  48.         CALL AjustarColumnas(vsFxAy, 1, 18)
  49.         ImpRd.Close()
  50.         ImpCn.Close()
  51.         ImpRd = Nothing
  52.         ImpCn = Nothing
  53.         Fila = Nothing
  54.         Columna = Nothing
  55.         Importe = Nothing
  56.     END Sub

P.D. No sé como postear una imagen (para la tabla de datos y la grilla) espero que la subrutina completa ayude en ausencia de la BD y la Grilla.