FiveTech Support Forums

pplication
===========
   Path and name: C:\Work\Errori\Fsdi_Plan\main.Exe (32 bits)
   Size: 3,676,672 bytes
   Compiler version: Harbour 3.2.0dev (r1904111533)
   FiveWin  version: FWH 19.05
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 6 secs 
   Error occurred at: 01-07-2019, 12:19:12
   Error description: Error BASE/1005  No exported variable: CARGO
   Args:
     [   1] = U   
     [   2] = H   {=>}

Stack Calls
===========
   Called from:  => _CARGO( 0 )
   Called from: source\sample01.prg => SAMPLEPLAN:MOVERESERVATION( 537 )
   Called from: source\sample01.prg => (b)SAMPLEPLAN_BUILDPLANNING( 355 )
   Called from: Lib\Plan\tplan.prg => TPLANNING:LBUTTONUP( 702 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
   Called from: Lib\Plan\tplan.prg => TPLANNING:HANDLEEVENT( 619 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1078 )
   Called from: source\main.prg => TAPPLICATION:ACTIVATE( 166 )
   Called from: source\main.prg => MAIN( 29 )

  


function Planning()
    local nSplit := VAL(GetPvProfString("Browse", "StSplit","102", oApp():cIniUser))
    Local oExBar //new
    local cDir     := oApp():cDbfPath


    IF oApp():oDlg != NIL
      IF oApp():nEdit > 0
         RETURN NIL
      ELSE
         oApp():oDlg:End()
         SysRefresh()
      ENDIF
   ENDIF


   oApp():oDlg := TFsdi():New(oApp():oWndMain)
   oApp():oDlg:cTitle := i18n('Booking Hotel')
   oApp():oDlg:SetColor(0,RGB(143,172,230))
   oApp():oWndMain:oClient := oApp():oDlg


    //pannel left
  oExBar := TPanel():New(0,0,oApp():oDlg:nBottom,nSplit, oApp():oDlg  )
  oExBar:SetColor(0,RGB(143,172,230))

  //pannel Booking
   oApp():oPanelBook  :=  TPanel():New(0,oExBar:nwidth+5,200, oApp():oDlg:nRight, oApp():oDlg  )
   oApp():oPanelBook:SetColor(0,CLR_WHITE)


    ACTIVATE DIALOG oApp():oDlg NOWAIT ;
      ON PAINT( oApp():oSplit:AdjClient()) ;
      ON INIT (BuildExplorerBar(oExBar,nSplit, oApp():oDlg,.t.," Prenotazioni")  ,;
               BuildSplitterV(oExBar)                          ,;
               oApp():oBook:=SamplePlan():New(oApp():oPanelBook,oApp:cDbfPath),;
               ResizeWndMain());
        VALID ( WritePProString("Book","Split",Ltrim(Str(oApp():oSplit:nleft/2)),oApp():cIniFile) ,; //save the split on inifile
               DbCloseAll(), oApp():oDlg := NIL, .t. )
               RETURN NIL

  METHOD MoveReservation( oData, nRowId, oPlann ) CLASS SamplePlan

       local oItem := oData
       local cDescribe, cTooltip, nStatus

       ::oReserva:Seek( oItem:Cargo['INDICE'] )

       if oPlann:nDaysOffset != 0 .OR. oPlann:nRoomsOffset != 0
          cDescribe = oItem:cDescribe
          nStatus = oItem:Cargo['STATUS']
          oPlann:DeleteData( oItem, .F. )

          ::oReserva:CHECK_IN += oPlann:nDaysOffset //determina cuantos dias nos movimos
          ::oReserva:CHECK_OUT += oPlann:nDaysOffset //determina cuantos dias nos movimos
          ::oReserva:ROOMS_ID = nRowId
          ::oReserva:Save()
          ::oReserva:Commit()
          ::oRooms:Seek( nRowId )

          cTooltip  = "Elemento     : " + ::oRooms:NAME + CRLF
          cTooltip += "Numero       : " + ::oRooms:ID + CRLF
          cTooltip += "Ospite       : " + ::oReserva:GUEST + CRLF
          cTooltip += "Arrivo       : " + DToC( ::oReserva:CHECK_IN ) + CRLF
          cTooltip += "Partenza     : " + DToC( ::oReserva:CHECK_OUT )

          oData = oPlann:AddData( ::oReserva:ROOMS_ID,;
                              ::oReserva:CHECK_IN,;
                              ::oReserva:CHECK_OUT,;
                              cDescribe, cToolTip )
          oData:Cargo = {=>}
          oData:Cargo['STATUS'] = nStatus
          oData:Cargo['INDICE'] = ::oReserva:ROOMS_ID + DToS(::oReserva:CHECK_IN)
          oPlann:oLastData = NIL
       endif

    RETURN nil

          oData = oPlann:AddData( ::oReserva:ROOMS_ID,;

DATA cDbfPath init cFilePath(GetModuleFileName( GetInstance() ))  + "Data\"  // just for testing

[Config]
YearPath=2013
PdfPath=.\2013\Pdf\
DbfPath=.\2013\Data\
ZipPath=.\2013\Zip\
DocPath=.\2013\Doc\
XLsPath=.\2013\Xls\
ImgPath=.\images\
TempImg=.\temp\

function Planning()
   local nSplit := VAL(GetPvProfString("Browse", "StSplit","102", oApp():cIniUser))
    Local oExBar //new
    local cDir     := oApp():cDbfPath

     IF oApp():oDlg != NIL
      IF oApp():nEdit > 0
         RETURN NIL
      ELSE
         oApp():oDlg:End()
         SysRefresh()
      ENDIF
   ENDIF


   oApp():oDlg := TFsdi():New(oApp():oWndMain)
   oApp():oDlg:cTitle := i18n('Booking Hotel')
   oApp():oDlg:SetColor(0,RGB(143,172,230))
   oApp():oWndMain:oClient := oApp():oDlg


 //pannel left
  oExBar := TPanel():New(0,0,oApp():oDlg:nBottom,nSplit, oApp():oDlg  )
  oExBar:SetColor(0,RGB(143,172,230))

  //pannel Booking
   oApp():oPanelBook  :=  TPanel():New(0,oExBar:nwidth+5,200, oApp():oDlg:nRight, oApp():oDlg  )
   oApp():oPanelBook:SetColor(0,CLR_WHITE)


   ACTIVATE DIALOG oApp():oDlg NOWAIT ;
      ON PAINT( oApp():oSplit:AdjClient()) ;
      ON INIT (BuildExplorerBar(oExBar,nSplit, oApp():oDlg,.t.," Prenotazioni")  ,;
               BuildSplitterV(oExBar)                          ,;
               oApp():oBook:=SamplePlan():New(),;
               ResizeWndMain());
        VALID ( WritePProString("Book","Split",Ltrim(Str(oApp():oSplit:nleft/2)),oApp():cIniFile) ,; //save the split on inifile
               DbCloseAll(),oApp():oBook:= NIL, oApp():oDlg := NIL, .t. )
               RETURN NIL