FiveTech Software tech support forums

... the user edit a new record? I use local cId := strzero(oRec:RecNo,4) But when I used the normal use to insert a new code I made IF SE->(EOF()) cNumero := strzero(RecNo(),4) ELSE cNumero := strzero((VAL(SE->id)+1),4) ENDIF with tdatabase how I must make it ?

... L'ho fatta semplice: oFatturaElettronica := TFatturaElettronica():New( oTree ) with object ( oFatturaElettronica ) :cFileXlm := cPatXml() + cNumero + ".xml" :cFileTemp := cPatXml() + cNumeroTemp + ".xml" //per la stampa :lPrivato :=.f. // PA end with oFatturaElettronica:Creafattura() ...

... los lugares donde se encuentren %1, %2, ...%n. por ejemplo cSql := "select * from clientes where numero=%1 and fecha=%2 and activo=%3" cNumero := "001" dFecha := date() lActivo := .f. if ADSSql( "TEMP", cSql, { cNumero, dFecha, lActivo }, .... .... salu2 carlos vargas

Enrico, in this way? oBtn:bAction = { || oClp:SetText( ALLTRIM(cNumero) ) , ; SetStateKey( VK_CONTROL, .T. ) , ; SetStateKey( ASC("C"), .T. ) , ; HB_IDLESLEEP(1) , ; SetStateKey( ASC("C"), .T. ) , ; SetStateKey( VK_CONTROL, .F. ) , ; ...

... VK_A 65 STATIC oClp FUNCTION MAIN() LOCAL oDlg LOCAL oBtn LOCAL cNumber := SPACE(20) DEFINE DIALOG oDlg DEFINE CLIPBOARD oClp OF oDlg @ 1, 1 GET cNumero @ 2, 1 BUTTON oBtn PROMPT "Call" // I perform a CTRL+C+C oBtn:bAction = { || oClp:SetText( ALLTRIM(cNumero) ) , ; SetStateKey( VK_CONTROL, ...

// Function Ntoc(nNumero,nLongitud,cRelleno) Local cNumero,nInicio,nI Default nNumero := 0,nLongitud := 10,cRelleno := "0" If ValType(nNumero)<>"N" nNumero := 0 EndIf cNumero := AllTrim(Str(nNumero,nLongitud)) nInicio := ...

... LOCAL nDcrClt:=0 LOCAL nPorDes:=0 LOCAL nDescuento:=0 LOCAL cBusca :=SPACE(45) LOCAL cBusPed:=SPACE(45) LOCAL cCodPed:="" LOCAL cDesDoc:="" LOCAL cNumero:="" LOCAL cTitDet LOCAL AliasVta LOCAL aCodDoc :={} LOCAL aNomDoc :={} LOCAL aMaxDoc :={} LOCAL aLptDoc :={} LOCAL aArrClt :=Array(14) LOCAL ...

... LOCAL nDcrClt:=0 LOCAL nPorDes:=0 LOCAL nDescuento:=0 LOCAL cBusca :=SPACE(45) LOCAL cBusPed:=SPACE(45) LOCAL cCodPed:="" LOCAL cDesDoc:="" LOCAL cNumero:="" LOCAL cTitDet LOCAL AliasVta LOCAL aCodDoc :={} LOCAL aNomDoc :={} LOCAL aMaxDoc :={} LOCAL aLptDoc :={} LOCAL aArrClt :=Array(14) LOCAL ...

... Self,::Cargo ) ) endif El motivo es que de esta manera , puedo usar en una clase propia; METHOD View() CLASS TMY .... cNumero := "{|Self|Self:ViewDemo("+ str(z)+ ")}" aoBtn[z] := TButton():New( X, 90, "MEMO", oFld:aDialogs[ nFolders ],,50,10,,, .F., .T., .F.,, .F.,,, ...

... en version de 16bits, vi que la aplicacion consumia muchos recursos y opte por usar arreglos de variables.. es decir, en lugar de usar cNombre cNumero ... use un arreglo oGet[0,space(x)] que contenia el total de variables que necesito en el programa, esto me soluciono el problema un poco ya ...

A ver como va esto,,, (lo hacia años atras) Function Num2ChrC(nValor) local nEntero, nDecimal, cNumero, cNumCrpt nEntero := INT(nValor) nDecimal := FRAC(nValor) cNumero := STRZERO(nEntero, 14) // quedaria +- asi 00000000034567 cNumero := cNumero + ALLTRIM(STR(nDecimal)) ...

... #include "FiveWin.ch" #include "ord.ch" //----------------------------------------------------------------------------// function Main() local cNumero, nAlgo local aCampos := {{ 'NUMERO', 'C', 6, 0 }} set delete on REQUEST DBFCDX RDDSETDEFAULT( "DBFCDX" ) dbcreate( 'PRUEBA', aCampos ) select ...

... #include "FiveWin.ch" #include "ord.ch" //----------------------------------------------------------------------------// function Main() local cNumero local aCampos := {{ 'NUMERO', 'C', 6, 0 }} REQUEST DBFCDX RDDSETDEFAULT( "DBFCDX" ) SET DATE FRENCH SET CENT ON dbcreate( 'PRUEBA', aCampos ...

Que tal si intentas esto?

PRUEBA->(OrdScope( 0, cNumero ) )
PRUEBA->(OrdScope( 1, cNumero ) )
PRUEBA->(DBGoTop())

y para quitar el filtro

PRUEBA->(OrdScope( 0, NIL ) )
PRUEBA->(OrdScope( 1, NIL ) )

Espero te sirva

... #include "FiveWin.ch" #include "ord.ch" //----------------------------------------------------------------------------// function Main() local cNumero local aCampos := {{ 'NUMERO', 'C', 6, 0 }} REQUEST DBFCDX RDDSETDEFAULT( "DBFCDX" ) SET DATE FRENCH SET CENT ON dbcreate( 'PRUEBA', aCampos ...