FiveTech Support Forums

    LOCAL aStruct  := {  { "FECHA",   "D",  8, 0 }, ;
                         { "DOCNUM",  "C",  8, 0 }, ;
                         { "TDOC",    "C",  3, 0 }, ;
                         { "OBS",     "C", 75, 0 }, ;
                         { "DEBE",    "N", 14, 2 }, ;
                         { "HABER",   "N", 14, 2 }, ;
                         { "SALDO",   "N", 14, 2 }  }
    PUBLIC oFrPrn

    DBCREATE( "TEMP\RC_EDCTA", aStruct, "DBFCDX", .t., "C_EDCTA" ) ; CargarDatosdesdeSQL()
        CrearReporte()
        SELECT C_EDCTA ; USE

        RETURN NIL

FUNCTION CrearReporte()

    SELECT C_EDCTA ; DBGOTOP() 
    AdjReport()
    oFrPrn:LoadFromFile(CurDrive()+":\"+CurDir() +"\REPS\Clientes Estados de Cuenta.fr3")

    oFrPrn:AddVariable("My Vars", "cTitulo", "'" + cTitulo + "'" )
    oFrPrn:AddVariable("My Vars", "cTitCta", "'" + ALLTRIM(cCliente) + "'" )
    oFrPrn:ShowReport()
    
    RETURN NIL

    
FUNCTION AdjReport()

    With Object oFrPrn
        :AddReport()
        :LoadLangRes( CurDrive()+":\"+CurDir() +"\REPS\spanish.xml" )
        :EngineOptions:SetTempDir( CurDrive()+":\"+CurDir()+"\TEMP\" )
        :PreviewOptions:SetModal(.F.)
        :PreviewOptions:SetRemoveReportOnClose(.T.)
        :SetWorkArea( ALIAS(), SELECT() )
    End

RETURN NIL

if ! used()
   // write to log file
else
   // run report
endif

// Author: James Bott

#include "fivewin.ch"

function main()
   msgInfo( tempFile( "dbf" ) )
   msgInfo( tempFile( "ntx", getTempDir() ) )
   msgInfo( tempFile( indexExt() ) )
return nil


// Returns an unused filename with cExtension.
// cPath is optional. Defaults to current directory.
FUNCTION tempFile(cExtension,cPath)
   local cFile
   default cPath:=""
   if ! empty(cPath)
      if left(cPath,1) != "\"
          cPath:= cPath + "\"
      endif
   endif
   cExtension:= strtran(cExtension,".","")
   // loop until you find a name that doesn't exist
   do while .t.
      cFile:="AAA"+trim(str(seconds(),5,0))+"."+upper(cExtension)
      cFile:=strtran(cFile," ","0") // fix for hours between 00:00 & 01:00
       if .not. file( cPath + cFile )
         exit
      endif
   enddo
return (cPath + cFile)


#define MAX_PATH 260

// Returns the temp directory
// ( Fixes path returned from getTempPath() )
// Works with (x)Harbour. Won't crash under Clipper,
// but path is not right.
FUNCTION getTempDir()
    LOCAL cDir := SPACE( MAX_PATH )
    GETTEMPPATH( MAX_PATH, cDir )
    cDir = LEFT( cDir, AT( CHR( 0 ), cDir ) - 2 )
RETURN cDir


DLL32 FUNCTION GETTEMPPATH( nBufferLength AS DWORD, cBuffer AS LPSTR ) ;
   AS DWORD;
   PASCAL FROM "GetTempPathA" LIB "kernel32.dll"

// eof