FiveTech Software tech support forums

... Soc.Security Medicare Withholding Total Amount 1172.0200 275.2700 839.0600 2291.3500 If I get the VAL() of each database field from the above, round them to 2 decimals, then add them up, I get the result 2291.35 (CORRECT) !!! Now, the second record in the database contains these: Soc.Security ...

... FAR *pv) { return BmiColorCount((LPBITMAPINFOHEADER)pv); } // DibNumColors static size_t RowBytes(int bpp, int w) { // bytes per image row - round up to DWORD return (bpp * w + 31) / 32 * 4; } static long BmiRowBytes(const LPBITMAPINFOHEADER lpbi) { return RowBytes(lpbi->biBitCount, lpbi->biWidth); ...

... ] ) if Len( aFiles ) > 0 AAdd( aSizes, aFiles[ 1 ][ 2 ] ) nTotSize += ATail( aSizes ) else AAdd( aSizes, 0 ) endif SysRefresh() next nTotSize:=round(nTotSize,0) oMeter2:nTotal = nTotSize for n = 1 to Len( aSource ) hTarget = FCreate( aTarget[ n ] ) oFile = TFtpFile():New( aSource[ n ], oFTP ...

Antonio's sample is working fine. Now, to round it up: how to save the cropped image to disk? Sorry for such a dumb question, but I still have to come to terms with all this stuff of Device Contexts and so on...
Thanks
Rafael

... ::vUnimed == "002" IF ::vGet[14] > 0 ::vGet[08] := ::vGet[14] ELSE ::vGet[08] := 1 ENDIF ::vGet[07] := ::vGet[08] ::vGet[08] := 0 ::vGet[10] := Round( ::vGet[07] * ::vGet[09], 0 ) OTHERWISE ::vGet[10] := Round( ::vGet[08] * ::vGet[09] , 0 ) ENDCASE ELSE DO CASE CASE ::vUnimed == "002" ::vGet[08] ...

Hello,

I have to draw round boxes / rectangle and print BMP on an invoice. How can I do the same ? I used to achieve the same using Win32Prn() in xHarbour.

I could not find the solution in samples\Reports.

Can somebody guide me ?

TIA
Milan.

... 0xAF 1 #define LTRIM 0xB0 1 #define MAX 0xB1 1 #define MIN 0xB2 1 #define MODULUS 0xB3 1 #define MONTH 0xB4 1 #define REPLICATE 0xB5 1 #define ROUND 0xB6 1 #define SECONDS 0xB7 1 #define SPACE 0xB8 1 #define QSQRT 0xB9 1 #define STR1 0xBA 1 #define STR2 0xBB 1 #define STR3 0xBC 1 #define SUB2 ...

... := aFolder[nZ] nHan := ADIR( cFolder + cMask ) DECLARE aEdi[nHan] ADIR( cFolder + cMask, aEdi ) FOR nY=1 TO nHan // Message... cSay := LTRIM( STR( ROUND( (nY/nHan)*100, 0), 3) ) + "% Complete..." + cEol cSay += "Total = " + LTRIM(STR(nHan ,9)) + cEol cSay += "Files = " + LTRIM(STR(nFile,9)) + cEol ...

... columna Abonos->CodArt, //cuarta columna LEFT(Abonos->Nombre,39), //quinta columna STR(Abonos->Cantidad,8,2), //_ columna TRANSFORM(ROUND(Abonos->Precio*(1+IIF(!TipImpu->Discrimina.AND.TipMov->Calc_Iva=="SI ",(Abonos->PorGravado/100)*(TipImpu->PorIva/100+TipImpu->PorIvaPlus/100),0))+(IIF(!TipImpu->Discrimina,Abonos->PrecVta*Abonos->PorInterno/100,0)),_REDONDEO),"@Z ...