FiveTech Software tech support forums

Dear Jimmy,

if GetKeyState( VK_CONTROL ) .and. ( nKey == Asc( "t" ) .or. nKey == Asc( "T" ) )

nKey is the key value that was pressed

Thanks for the answer
It worked almost 100%, but it is updating all the columns.
I need only the Selected Column to be updated.
See the following images

Asc



Desc

...          cQuery := ' SELECT  * from forneced '    cQuery += ' ORDER BY ' + ALLTRIM(v_Campo_Ordenar)  + IF(v_Ordenacao='A',' DESC',' ASC')    use sql cQuery alias "forneced" new via 'MYSQL'    forneced->( DbGoTop())    oDB_forneced_SQL:oHeaderFonts ...

... the transmission and reception of the program in FW and a program that correctly prints and analyzes the strings character by character with asc () this is the result : Correct --------------- 214 208 185 250 176 230 With FW error -------------------- 228 184 173 229 155 189 231 137 136 I ...

https://vivaclipper.wordpress.com/2014/01/19/asc/ Karinha, its the opposite... ASC returns the numeric code of a character string and Browses bKeyDown gives me a numeric code of a typed character. But in the browse, this code is the same ...

https://vivaclipper.wordpress.com/2014/01/19/asc/

Regards, saludos.

Natter, this is an example. You have to check your ASCII values and then substitute. // for I := 1 to len(cVData) // ? ( cVData + CRLF + substr(cVData,I,1) + " # "+ str( ASC ( substr(cVData,I,1)) )) // next cVData := STRTRAN( cVData, chr( ...

... oFont ) :SetDolphin( oQry, .F. ) END oBrw:aCols[01]:cOrder = "A" oBrw:aCols[01]:bLClickHeader := {|| SetOrden(oBrw:aCols[01],"doc+0 ASC",oQry )} oBrw:aCols[02]:bLClickHeader := {|| SetOrden(oBrw:aCols[02],"serie+numero ASC",oQry )} oBrw:aCols[03]:bLClickHeader := {|| ...

... WHRE NOMBRE IS NOT NULL This code work's fine: cQuery := 'SELECT TOP 10 CODIGO,NOMBRE FROM ARTICULO WHERE NOMBRE IS NOT NULL ORDER BY NOMBRE ASC'oRs := FW_DbfSqlQuery( '.\DBF\', cQuery,,.t.)xBrowse( oRs, 'RecCount:' + Str( oRs:RecordCount() ) ) result: https://i.ibb.co/zbk1TcV/2021-06-28-19h18-58.png ...

Please try adding WHRE NOMBRE IS NOT NULL

Hola. Estoy realizando pruebas para trabajar con ADO los ficheros DBF y me está funcionando todo salvo la combinación de TOP y ORDER BY ASC El siguiente código funciona bien ya que el RecordCount del RecordSet devuelve 10 que es el TOP que se le indica: oRs := FW_DbfSqlQuery( '.\DBF\', ...

... 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 := "FECHA ASC"

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

Amigo:

Debes ordenar el record set así:

oRsGas:SORT := "GAS_USU,GAS_GAS ASC" // o DESC
oRsGas:MoveFirst()

Saludos