FiveTech Software tech support forums

Leandro:

En oRs:GetRows(nCantidad de registros, a partir de que registro, campos a convertir)

En tu caso creo que quedaría así:

1er parámetro es el recorset
2do la cantidad registros (En blanco = Todos)
3er A partir de que número de registro (En blanco = A partir del primero)
4to array con los ...

... en clipper. Y ahora como estoy mirando de volver a
Xbase con Harbour, jaja, ya he visto a mas de uno y me han dado envidia.

FUNCTION Ptas2Eur(nCantidad,lEuro) // Si .T. Ptas -> Euro, .F. Euro->Ptas

Local nEntero,nDecimal
Local c2Decimales,c3Decimal

// DEFAULT lEuro:=.T. error en Harbour
hb ...

... 2)
IF len(cCentimos) = 0
cCentimos:="00"
ENDIF
IF len(cCentimos) = 1
cCentimos:=cCentimos+"0"
ENDIF

cEntero:=SUBSTR(cPrecio,1,nPunto-1)

nCantidad:= Round(aDat9[nI,4], 2)
nEntero := Int(nCantidad)
nCents := nCantidad - nEntero


IF aDat9[nI,8]=1
cmd:=["]+STRZERO(VAL(cEntero),8)+STRZERO ...

... 2)
IF len(cCentimos) = 0
cCentimos:="00"
ENDIF
IF len(cCentimos) = 1
cCentimos:=cCentimos+"0"
ENDIF

cEntero:=SUBSTR(cPrecio,1,nPunto-1)

nCantidad:= Round(aDat9[nI,4], 2)
nEntero := Int(nCantidad)
nCents := nCantidad - nEntero


IF aDat9[nI,8]=1
cmd:=["]+STRZERO(VAL(cEntero),8)+STRZERO ...

... letras. (Con los caracteres desde 'A' a 'Z')

A,B,C,D,....X,Y,Z,AA,AB,AC,AD,...AX,AY,AZ,BA,BB,BC,BD, etc,

Poner por ejemplo:

aResultado:={}
FOR nCantidad=1 TO 200
cCadena := contar con letras
AADD(aResultado,cCadena)
NEXT

Y el resultado del array sería algo asi: {A,B,C,D,....X,Y,Z,AA,AB,AC,AD ...

... EF:AddDataField("")
EF:AddDataField("")
EF:AddDataField("")
EF:AddDataField("")
EF:AddDataField( Substr(cProducto,1,30))
EF:AddDataField( nCantidad )
EF:AddDataField( nValorUnidad )
EF:AddDataField( 1900 )

lRes:=SendCommand()


//---------------------------------------------


Cualquier ...

... función que posteara Adhemar, haciendole pequeñas modificaciones para que se adaptase al uso que voy a darle.

La llamo así:

NumToCadena(nCantidad,cMoneda,lDecimales)

- nCantidad es el número a convertir
- cMoneda el tipo de moneda (ej. "pesos")
- lDecimales es un valor lógico (.t. si ...

intenta esto...

nCantidad_Promocion = int( nCantidad_Productos / 3 )
nCantidad_No_Promocion = nCantidad_Prodictos%3

si hay 10 productos

nCantidad_Promocion = Int( 10 / 3 ) => 3 Promiciones
nCantidad_No_Promocion = 10%3 => 1

esto quiere decir que vas a tener 3 promosiones cada promosion ...

... y/o en números, tambien puedes cambiar a tu gusto el tipo de modeda (mira las 3 primeras líneas de la función).

//*******######
Function Num2Txt(nCantidad)
//*******######

//Utilices o cambie estos valores según su moneda
Local acMoneda := {" euro " , " euros "} //Moneda en singular y plurar ...

... todos...

Esta es una función muy sencilla pero efectiva para convertir números en letra, espero te sirva:

//*******######
Function Num2Txt(nCantidad)
//*******######
Local aUni:= {"un", "dos", "tres", "cuatro", "cinco", ;
"seis", "siete", "ocho", "nueve"}

Local aDec:= {"diez", "veinte ...

... ya tengo varios dias con esto y nada... si alguien ya hizo esto me podría ayudar.... la insistencia es porque estamos migrando nuestro sistema y tenemos ncantidad de grids en todala aplicación...

Me falta agregar algo a los programas???

Mil gracias de antemano!!!!

Laura Edith Hernández H.

... 0
nRegact:=Recno()
nPar:=0

nProvedor:=0
cProvedor:=Space(60)
dFecha:=Date()
dFecharec:=Date()
nDesc:=0
nDescFinal:=0
cClave:=Space(20)
nCantidad:=0

SET 3DLOOK ON // Microsoft 3D Look
DEFINE FONT oFont62 NAME "monospac821 bt" SIZE 0, -18 BOLD
DEFINE FONT oFont61 NAME "Arial" SIZE 0, -10 ...

... 0
nRegact:=Recno()
nPar:=0

nProvedor:=0
cProvedor:=Space(60)
dFecha:=Date()
dFecharec:=Date()
nDesc:=0
nDescFinal:=0
cClave:=Space(20)
nCantidad:=0

SET 3DLOOK ON // Microsoft 3D Look
DEFINE FONT oFont62 NAME "monospac821 bt" SIZE 0, -18 BOLD
DEFINE FONT oFont61 NAME "Arial" SIZE 0, -10 ...

... nActual := Existencias( cBarCode )
lReturn := .T. // Pasa al campo de encargado
else
nActual := nCant // Debera devolverse al campo de nCantidad
endif
if nActual <> -777
oInvPC:VarPut( "Inventario PC:"+transform( nActual ,"99999" ))
oInvPc:refresh()
if nActual = nCant
oMsg:VarPut ...