FiveTech Software tech support forums

... Funci¢n MesLet( <nMes> )
// Objeto: Obtiene el Mes en letras correspondiente a <nMes>
// Return: <cMes>
// Nota: Si <nMes> no es v lido devuelve el mes de la fecha actual ...

... SELECT 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 ORDER BY v.fecha_salida,v.hora ...

... v.*,(SELECT 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")
cviaje ...

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&#40;dattime3.obj&#41; : warning LNK4006: HB_FUN_SETTIME ya ...

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 ...

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, @nMes, @codusu) - dbo.calcSalMes ...

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 := nMesF - nMesI
dias := nDiaF - nDiaI

IF ...

#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/" + Str(If(nMes == 12, 01, nMes+ 1), 2)+ "/" + Str ...

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 completa, por lo menos asi pude ...

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

Saludos,

Adhemar