FiveTech Software tech support forums

... v.*,COUNT(*) AS npasaje FROM viajes_generados v LEFT JOIN vendido d ON v.codigo_control=d.cod_interno WHERE MONTH(v.fecha_salida)='"+Str(nMes,2)+"' And YEAR(v.fecha_salida)='"+Str(namo,4)+"' AND v.fecha_salida >='"+dtos(date())+"' GROUP BY v.codigo_control ...

... COUNT(*) FROM vendido ve WHERE ve.COD_INTERNO=v.codigo_control) AS npasaje FROM viajes_generados v WHERE MONTH(v.fecha_salida)='"+Str(nMes,2)+"' And YEAR(v.fecha_salida)='"+Str(namo,4)+"' AND v.fecha_salida >='"+dtos(date())+"' ORDER BY v.fecha_salida,v.hora_salida,v.nom_viaje") ...

Buenas tardes Antonio, A pesar que en el linkado arroja los dos warnings siguientes la función setdate(nDía, nMes, nAño) ya funciona bien, eso si,hay que ejecutar la aplicación como adminstrador. warnings: Linking with MSVC 2019...hbct.lib(dattime3.obj) : warning LNK4006: ...

Qué es el record set? Esta es la consulta en la función principal: cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC' oQry := o : oRep : RowSet( cQuery ) En las funciones siguientes es donde quiero invertir el orden, de DESC a ASC oQry:Sort := ...

Amigo:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'
oQry := o : oRep : RowSet( cQuery )

// Después de crear el record set (oQry)
oQry:SORT := "CAMPO1,CAMPO2,etc ASC" // o DESC
oQry:MoveFirst()

Saludos

Qué es el record set?

Esta es la consulta en la función principal:

cQuery := 'select * from reporte where mes_fantasma = ' + Str( nMes ) + ' order by fecha DESC'

oQry := o : oRep : RowSet( cQuery )


En las funciones siguientes es donde quiero invertir el orden, de DESC a ASC

... y muy pocas con datos pero la misma consultada en Chrome si da resultados. como usar el Chrome. muchas gracias de antemano Function TCambioSunat(nMes,nAno) local oIe,WshShell,oDoc,nPos, oForm, oObj,cName,oElem,oWait Local mResultado :={} local cUrl := "https://e-consulta.sunat.gob.pe/cl-at-ittipcam/tcS01Alias ...

En el SQl create PROCEDURE [dbo].[CalcSaldo](@Codigo varchar(8), @nMes int, @codusu char(2), @nResul Int Output ) As Begin Set Nocount On; Set @nResul = (dbo.CalcIngAno(@Codigo, @nMes,@codusu) - dbo.CalcSalAno(@Codigo, @nMes, @codusu)) + (dbo.CalcIngMes(@Codigo, ...

Cristobal tenia razon si funciona con tu indicacion, yo no me di cuenta que habia dejado dentro de mi funcion SeleccionMes() al final
una sentencia oBot:SetText(ladescripciondelmes(nMes)) que era la linea que producia el error y no era como yo suponia en la linea del Action

Gracias Doc!

... LOCAL oGraph1, oBar,oDlg,oFnt1,oFnt2 LOCAL oGraph2,oShape LOCAL aVenta:={} LOCAL nTotReg:=0 LOCAL ntotal:=0 Local ntotVenta:=0 Local nMes,ndia LOCAL aGets := Array( 30 ) Local I Local nValor:=0 Local fila:=0 Local nTotalAgencia,nTotalCamino LOCAL cLogo:="c:\systema\bus\ima\logo.bmp" ...

FUNCTION CalcTiempo( dFchIni , dFchFin ) local anios,meses,dias,nAni,nMes nDiaI := DAY( dFchIni ) nMesI := MONTH( dFchIni ) nAniI := YEAR( dFchIni ) nDiaF := DAY( dFchFin ) nMesF := MONTH( dFchFin ) nAniF := YEAR( dFchFin ) anios := nAniF - nAniI meses := ...

#include "FiveWin.ch" FUNCTION Main() LOCAL nMes, nAno PRIV D SET DATE BRITISH SET CENTURY ON nMes := 02;nAno := 2016 D := UltimoDiaMes(nMes, nAno) ? D // Retorna: 29/02/2016 RETURN NIL FUNCTION UltimoDiaMes(nMes, nAno) Local d d:= CToD("01/" ...

No se porque quieren descubrir la pólvora si existe la función: nDia:=DaysInMonth(nMes) Saludos, Adhemar Creo esta es mejor para lo que el colega quiere DaysInMonth(nMes) ya que solo colocas el numero del MES, en esta EoM( Date() ) , parece hay que colocar la fecha ...

No se porque quieren descubrir la pólvora si existe la función: nDia:=DaysInMonth(nMes)

Saludos,

Adhemar

Jbrita

Utiliza ésta función DaysInMonth(nMes) te retorna el último día del mes.

Code: Select all  Expand view

?DaysInMonth(Month(date()))
 

Saludos,

Adhemar