FiveTech Support Forums

COPY TO newfile DELIMITED WTH ( '"', "," )

COPY TO newfile DELIMITED WITH ( { "",";" } )

static function Prestabeheer()
   local oDlg, oFont, nWild := 1, cZoek:=""
   local cList, aFlds, aHdrs, oBold
   local nChoice, uDataSource, nCombo1:= 1 , nCombo2:= 1
   local aTabs:={"Kleuren","Volgorde"}
   local oBrw[5]
   Public oRsATT


  Public cServer     := "YOUR DATA HERE"
  Public cDataBase   := ""
  Public cUser       := ""
  Public cPassWord   := ""
  Public oCn, oRs, oRsATT, oRsVolgorde

  FWCONNECT oCn HOST cServer USER cUser PASSWORD cPassword DATABASE cDatabase

  if oCn == nil
     ? "Failed to connect"
     return nil
  endif

  oRsProduct := oCn:RowSet( "select * from ps_product_lang " )

  xbrowse(oRsProduct)

  cZoek := "1"
  oRs := oCn:RowSet( "select * from `ps_attribute` where `id_attribute` = ? ", { cZoek } )

  oRsAtt:= oCn:RowSet( "SELECT * FROM `ps_attribute_lang` where `id_lang` = ? ORDER BY id_attribute", { "1" } )
  cDbf:="c:\data\temp.dbf"
  oRsAtt:savework(cDbf)

  oRsGroepen:= oCn:RowSet( "SELECT * FROM `ps_category_lang` where `id_lang` = ? ", { "1" } )

  cZoekProduct := "77"

  oRsvolgorde:= oCn:RowSet( "SELECT * FROM `ps_category_product` where `id_category` = ? ", { cZoekProduct } )

  oRsvolgorde:= oCn:RowSet( "SELECT *,P.description_short AS PName FROM ps_category_product C LEFT JOIN ps_product_lang P ON C.id_product WHERE id_category = ?" )

   DEFINE FONT oBold NAME 'CALIBRI' SIZE 0,-12 BOLD
   DEFINE FONT oFont NAME "CALIBRI" SIZE 0,-12
   DEFINE FONT oFontS NAME "Segoe UI" SIZE 0,-09

   DEFINE DIALOG oDlg SIZE 1410,800 PIXEL TRUEPIXEL ;
   STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU,WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME );
   TITLE "Ploegen";
   GRADIENT { { 1, nRGB( 125, 155, 175 ), nRGB( 125, 155, 175 ) } }

   DEFINE BUTTONBAR oBar OF oDlg SIZE 56,56 2007

   @ 90,05 FOLDER oFld SIZE 1400,700 PIXEL OF oDlg ITEMS aTabs

/////////////////////////////////////////////////////////////////  BRW FOLDER 1 /////////////////////////////////////////////////

   aVelden1 :=  { ;
   { "id_attribute"   , "ID"          ,nil,  50 }, ; // 1
   { "id_lang"        , "Taal"        ,nil,  50 }, ; // 2
   { "name"           , "Kleurnaam"   ,nil, 100 }}   // 9

   @ 1,1 XBROWSE oBrw[1] size 1400,100 PIXEL OF  oFld:aDialogs[ 1 ] font oFont ;
      DATASOURCE oRsATT;
      COLUMNS aVelden1;
      AUTOSORT CELL LINES NOBORDER FOOTERS
      //FASTEDIT

     oBrw[1]:nEditTypes = EDIT_GET
     oBrw[1]:SetChecks()


     oBrw[1]:lF2KeyToEdit := .t.  // Edit when F2 is pressed
     oBrw[1]:nHeadStrAligns  := AL_CENTER

   WITH OBJECT oBrw[1]

      :lColChangeNotify := .t.

      :oHeaderFonts     := oBold

      :bClrEdits        := { || { CLR_BLACK, CLR_YELLOW }}
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }

      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

      :bOnChange     := { || oRs:Requery( { oBrw[1]:ID:Value } ), oBrw[2]:refresh() }

      :bRClicked        := {|nRow, nCol| Prestapop( nRow,nCol, oBrw[1], oRsATT ),oBrw[1]:refresh() }

      :bKeyDown   := { |nKey| If( nKey == VK_DELETE,  oBrw[1]:kleurnaam:varput("##DEL"+oBrw[1]:kleurnaam:value), nil )  }

      :lFooter          := .t.
      :bRecSelHeader    := { || "RowNo" }
      :bRecSelData      := { |o| o:KeyNo }
      :bRecSelFooter    := { |o| o:nLen }
      :oRecSelFont      := oFont  // optional
      :nRecSelWidth     := "99999" // required size

   END

   oBrw[1]:CreateFromCode()

/////////////////////////////////////////////////////////////////  BRW FOLDER 2 /////////////////////////////////////////////////


   aVelden2 :=  { ;
   { "id_attribute"      , "ID"       ,nil,  50 }, ; // 1
   { "id_attribute_group", "Groep"    ,nil,  50 }, ; // 2
   { "color"             , "Kleur"    ,nil,  55 }, ;   // 9
   { "id_attribute"      , "File"     ,nil,  70 }}   // 9

   @ 105,1 XBROWSE oBrw[2] size 1400,200 PIXEL OF  oFld:aDialogs[ 1 ] font oFont ;
      DATASOURCE oRs;
      COLUMNS aVelden2;
      AUTOSORT CELL LINES NOBORDER FOOTERS

     oBrw[2]:nRowHeight:= 70
     oBrw[2]:nEditTypes = EDIT_GET
     oBrw[2]:SetChecks()

     oBrw[2]:lF2KeyToEdit := .t.  // Edit when F2 is pressed
     oBrw[2]:nHeadStrAligns  := AL_CENTER

     oBrw[2]:kleur:bClrStd := { || showcolors(oBrw[2]:kleur:Value)  }

   WITH OBJECT oBrw[2]

      :lColChangeNotify := .t.

      :oHeaderFonts     := oBold

      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY

      WITH OBJECT :file
       :bStrImage     := { || "d:\pictures\kleuronline\"+alltrim(str(oBrw[2]:SelectedCol():Value))+".jpg" }
       :oDataFont     := oFontS
       :nDataStrAlign := AL_CENTER + AL_BOTTOM
       :nDataBmpAlign := AL_CENTER
       :aImgRect      := { nil, nil, -10, nil }

       END

   END

   oBrw[2]:CreateFromCode()

/////////////////////////////////////////////////////////////////  /////////////////////////////////////////////////
   aVelden4 :=  { ;
   { "id_category"    , "Cat_ID"          ,nil,  50 }, ; // 1
   { "name"           , "Naam"            ,nil,  200 }, ; // 2
   { "position"       , "Pos"             ,nil,  50 }}   // 9

   @ 1,1 XBROWSE oBrw[4] size 1100,100 PIXEL OF  oFld:aDialogs[ 2 ] font oFont ;
      DATASOURCE oRsgroepen;
      COLUMNS aVelden4;
      AUTOSORT CELL LINES NOBORDER FOOTERS
      //FASTEDIT

     oBrw[4]:nEditTypes = EDIT_GET
     oBrw[4]:SetChecks()


     oBrw[4]:lF2KeyToEdit := .t.  // Edit when F2 is pressed
     oBrw[4]:nHeadStrAligns  := AL_CENTER

   WITH OBJECT oBrw[4]

      :lColChangeNotify := .t.

      :oHeaderFonts     := oBold

      :bClrEdits        := { || { CLR_BLACK, CLR_YELLOW }}
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }

      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

      :lFooter          := .t.
      :bRecSelHeader    := { || "RowNo" }
      :bRecSelData      := { |o| o:KeyNo }
      :bRecSelFooter    := { |o| o:nLen }
      :oRecSelFont      := oFont  // optional
      :nRecSelWidth     := "99999" // required size

      :bOnChange     := { || oRSNewGroep(oBrw[4]:cat_id:Value), oBrw[3]:refresh() }

   END

   oBrw[4]:CreateFromCode()

/////////////////////////////////////////////////////////////////  BRW FOLDER 3 /////////////////////////////////////////////////
   aVelden3 :=  { ;
   { "id_category"    , "Cat_ID"          ,nil,  50 }, ; // 1
   { "id_product"     , "Product_ID"      ,nil,  70 }, ; // 2
   { "position"       , "Pos"             ,nil,  50 }, ;   // 9
   { "oRsProduct:description_short"       , "Naam"             ,nil,  150 }}   // 9

   @ 110,1 XBROWSE oBrw[3] size 1100,200 PIXEL OF  oFld:aDialogs[ 2 ] font oFont ;
      DATASOURCE oRsvolgorde;
      COLUMNS aVelden3;
      AUTOSORT CELL LINES NOBORDER FOOTERS FASTEDIT

     //oBrw[3]:nEditTypes = EDIT_GET
     oBrw[3]:SetChecks()

     oBrw[3]:lF2KeyToEdit := .t.  // Edit when F2 is pressed
     //oBrw[3]:nHeadStrAligns  := AL_CENTER

   WITH OBJECT oBrw[3]

      :lColChangeNotify := .t.

      //:oHeaderFonts     := oBold

      :bClrEdits        := { || { CLR_BLACK, CLR_YELLOW }}
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }

      :nColDividerStyle := LINESTYLE_LIGHTGRAY
      :nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :bClrRowFocus     := { || { CLR_BLACK, RGB(185,220,255) } }
      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS


      //:bOnChange     := { || oRs:Requery( { oBrw[1]:ID:Value } ), oBrw[2]:refresh() }

      :lFooter          := .t.
      :bRecSelHeader    := { || "RowNo" }
      :bRecSelData      := { |o| o:KeyNo }
      :bRecSelFooter    := { |o| o:nLen }
      :oRecSelFont      := oFont  // optional
      :nRecSelWidth     := "99999" // required size

   END

   oBrw[3]:CreateFromCode()


/////////////////////////////////////////////////////////////////  /////////////////////////////////////////////////

//   BrwBarploegen( oBar, oBrw )

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont
   oCn:close()

return nil