FiveTech Software tech support forums

:bKeyDown := { | nKey | FWBrowseKey( xDlg, xControl, nKey, ... ) }



CASE IsRange( nKey, 32, 127 )
cFilter += Upper( Chr( nKey ) )


If type letters ok
if type numbers from normal keyboard ok
if type numbers from numeric keyboard not
Is it expected ?

Note:
1 from normal keyboard returns ...

... con el ejemplo que viene en la documentación de la Agencia Tributaria.
Lo hago utilizando todo en una cadena continua de caracteres
FWrite( nMan, Upper( HB_SHA256( "IDEmisorFactura=89890001K&NumSerieFactura=12345678/G33&FechaExpedicionFactura=01-01-2024&TipoFactura=F1&CuotaTotal=12.35&ImporteTotal ...

upper(reflev)+upper(kleur)+upper(size)

I suggest this optimization:

upper(reflev+kleur+size)

I see that the index will be faster since upper is from 3 to 1, but is it also nessesary to change how the filter will be created ?

Current filter :

"WIC" $ UPPER( TAG ) .AND. "POLO" $ UPPER( NAAM ...

Marc Venken wrote:upper(reflev)+upper(kleur)+upper(size)

I suggest this optimization:

... snipped where you use Xbrowse Header gets and use temp index instead of filter.
You would make

local ...
Field Tag, Naam, Kleur

Filter =
"WIC" $ UPPER( TAG ) .AND. "POLO" $ UPPER( NAAM ) .AND. "WHITE" $ UPPER( KLEUR )
Index will be like
index on upper(TAG)+upper(NAAM)+upper(KLEUR) tmp (sample, not ...

I have a dbf with 380.000 records, 32 fields and 7 tags. (242 Megabite)

the filter look like :

"WIC" $ UPPER( TAG ) .AND. "POLO" $ UPPER( NAAM ) .AND. "WHITE" $ UPPER( KLEUR )

This filter is build with the above function Marc_Setfilter using Xbrowse header gets.

The active tag =

upper(reflev ...

... PRIMER APELLIDO
*** APELLIDO_2: DONDE QUEREMOS DEJAR EL SEGUNDO APELLIDO
********************************************************************
VAPET=UPPER(ALLTRIM(NOMB_APE))
VAPE2=SUBSTR(VAPET,RAT(" ",VAPET)+1)
REPLA APELLIDO_2 WITH VAPE2
VAPET=ALLTRIM(SUBSTR(VAPET,1,RAT(" ",VAPET)-1))
VAPE1=SUBSTR ...

... lBorder.>,;
<.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,;
<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;
<.lTrans.>, [<(oSay)>], [Upper( Left( <"uni">, 1 ) ) == "U"], <.lVCenter.>, [<uCargo>], [<.relpix.>], <nClrBorder> ); [ <oSay>:SetSize( <nWidth>, <nHeight> ) ]

... nClrText>, <nClrBack>, <nWidth>, <nHeight>,;
<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;
<.lTrans.>, [<(oSay)>], [Upper( Left( <"uni">, 1 ) ) == "U"], <.lVCenter.>, [<uCargo>], [<.relpix.>], <nClrBorder> ); [ <oSay>:SetSize( <nWidth>, <nHeight> ) ]

You are right and ...

Debes de añadir un Upper() al retorno del valor.
https://www.agenciatributaria.es/static_files/AEAT_Desarrolladores/EEDD/IVA/VERI-FACTU/Veri-Factu_especificaciones_huella_hash_registros.pdf
Apartado 6. Ejemplos

Además yo forzaré a guardar los datos/campos que intervienen en la huella directamente ...

... 2 )) + "&Huella=" + "3C464DAF61ACB827C65FDA19F352A4E3BDC2 C640E9E9FC4CC058073F38F12F60" + "&FechaHoraHusoGenRegistro=" + cUtcTime
h['Huella'] := Upper(HB_SHA256( h['TextHuella'] ))


No se porque le antepones hb_base64Encode()... ¿?¿?

Debes de añadir un Upper() al retorno del valor.
Además ...

My last comment focused on a different issue / question:

The code is:


bFor:= compile( "_Field->"+ upper(cSearchField) + cOpsType + cValToChar(uOldValue ) )
/code]

bFor becomes a code block.
The field I am searching is CLSBAL
The type is Numeric
However uOldValue is translated to a character ...

... static function TToD(cDate, cFormat)
LOCAL cDay, cMonth, cYear, cLYear
LOCAL RetDate
LOCAL cClipFormat := UPPER(SET(4))
LOCAL nEPOCH := SET(5)

IF VALTYPE(cFormat) != "C"
cFormat := "MM/DD/YY"
ENDIF
IF EMPTY(cDate)
RetDate := CTOD("")
ELSE
IF ("YYYY ...

Jimmy

All you need to do is add two fields to your database table

cUser := WNetGetUser() // FiveWin function
cUser := UPPER( cUser )


"LastUpdate" "D" 8 and "UpdatedBy" "C" 15

When you add or save a record just update the lastupdate field with Date() and UpdatedBy by the person logged into the ...

... Tanque:"+ ALLTRIM(Pico:m_strTanks)+";"+;
"ID fisico:"+ALLTRIM(STR(Pico:m_iPhysicalID))+CHR(13)
AADD(Vec1,Li)

VecDes[Pico:m_iGradeNr]:=UPPER(Desc)
VecMan[N] :=Pico:m_iGradeNr
VecPre[N] :=VAL(Pico:m_strPPU)
VecTan[N] :=VAL(SUBSTR(Pico:m_strTanks,1,2))
VecTanq[VecTan[N]] :=1

IF L=1 ...