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 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. :D FUNCTION Ptas2Eur(nCantidad,lEuro) // Si .T. Ptas -> Euro, .F. Euro->Ptas Local nEntero,nDecimal Local c2Decimales,c3Decimal // DEFAULT lEuro:=.T. error en Harbour ...

... = 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(VAL(cCentimos),2)+"J"+Alltrim(Str(nI))+")"+aDat9[nI,3] ...

... = 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(VAL(cCentimos),2)+"J"+Alltrim(Str(nI))+")"+aDat9[nI,3] ...

... con 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,...AX,AY,AZ,BA,BB,BC,BD, ...

... EF:AddDataField("") EF:AddDataField("") EF:AddDataField( Substr(cProducto,1,30)) EF:AddDataField( nCantidad ) EF:AddDataField( nValorUnidad ) EF:AddDataField( 1900 ) lRes:=SendCommand() //--------------------------------------------- Cualquier avance ...

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

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 de 3 ar...

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

... para 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", ...

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

... regmodi:=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, ...

... regmodi:=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, ...

... cFile ) 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( ...