DPMARCAS TXT

// Programa    : DPMARCAS
// Fecha/Hora  : 23/10/2005 09:21:03
// Propósito   : Incluir/Modificar DPMARCAS
// Creado Por  : DpXbase
// Llamado por : DPMARCAS.LBX
// Aplicación  : Inventario 
// Tabla       : DPMARCAS

#INCLUDE "DPXBASE.CH"
#INCLUDE "TSBUTTON.CH"
#INCLUDE "IMAGE.CH"

FUNCTION DPMARCAS(nOption,cCodigo)
   LOCAL oBtn,oTable,oGet,oFont,oFontB,oFontG
   LOCAL cTitle,cSql,cFile,cExcluye:=""
   LOCAL nClrText
   LOCAL cTitle:=GETFROMVAR("{oDp:DPMARCAS}")

  cExcluye:="MAR_CODIGO,;
             MAR_DESCRI,;
             MAR_DIRWEB,;
             MAR_MEMO"

  DEFAULT cCodigo:=SQLGET("DPMARCAS","MAR_CODIGO")

  DEFAULT nOption:=1

  nOption:=IIF(nOption=2,0,nOption)

  DEFINE FONT oFont NAME "Tahoma" SIZE 0, -10 BOLD
  DEFINE FONT oFontB NAME "Tahoma" SIZE 0, -12 BOLD 
  DEFINE FONT oFontG NAME "Tahoma" SIZE 0, -11

  nClrText:=10485760 // Color del texto
  cSql    :=[SELECT * FROM DPMARCAS WHERE MAR_CODIGO]+GetWhere("=",cCodigo)

  IF nOption=1 
    // Incluir
    cTitle :=" Incluir {oDp:DPMARCAS}"
  ELSE 
    // Modificar o Consultar
    cTitle :=IIF(nOption=2,"Consultar","Modificar")+" {oDp:DPMARCAS}"
  ENDIF

  oTable :=OpenTable(cSql,"WHERE"$cSql) // nOption!=1)

  IF nOption=1 .AND. oTable:RecCount()=0 
      oTable:End()
      cSql    :=[SELECT * FROM DPMARCAS]
     oTable   :=OpenTable(cSql,.F.) // nOption!=1)
  ENDIF

  oTable :cPrimary:="MAR_CODIGO" // Clave de Validación de Registro

  oMARCAS:=DPEDIT():New(cTitle,"DPMARCAS.edt","oMARCAS" , .F. )

  oMARCAS:nOption   :=nOption
  oMARCAS:SetTable( oTable , .F. )   // Asocia la tabla  con el formulario oMARCAS
  oMARCAS:SetScript()       // Asigna Funciones DpXbase como Metodos de oMARCAS
  oMARCAS:SetDefault()      // Asume valores standar por Defecto, CANCEL,PRESAVE,POSTSAVE,ORDERBY
  oMARCAS:nClrPane  :=oDp:nGris

  IF oMARCAS:nOption=1 // Incluir en caso de ser Incremental
     oMARCAS:MAR_CODIGO:=oMARCAS:Incremental("MAR_CODIGO",.T.)
     oMARCAS:MAR_ACTIVO:=.T.
  ENDIF

  oMARCAS:CreateWindow()      // Presenta la Ventana

  // Opciones del Formulario

  @ 2,1 GROUP oBtn TO 4, 21.5 PROMPT "Comisión"

  //
  // Campo  : MAR_CODIGO
  // Uso    : Código 
  //

  @ 1.0, 1.0 GET oMARCAS:oMAR_CODIGO VAR oMARCAS:MAR_CODIGO;
                  VALID CERO(oMARCAS:MAR_CODIGO) .AND. oMARCAS:ValUnique(oMARCAS:MAR_CODIGO) .AND. !VACIO(oMARCAS:MAR_CODIGO,NIL);
                  WHEN (AccessField("DPMARCAS","MAR_CODIGO",oMARCAS:nOption) .AND. oMARCAS:nOption!=0);
                  FONT oFontG;
                  SIZE 24,10

  oMARCAS:oMAR_CODIGO:cMsg      :="Código"
  oMARCAS:oMAR_CODIGO:cToolTip  :="Código"

  @ oMARCAS:oMAR_CODIGO:nTop-08,oMARCAS:oMAR_CODIGO:nLeft SAY "Código" PIXEL;
                            SIZE NIL,7 FONT oFont COLOR nClrText,oDp:nGris

  //
  // Campo : MAR_DESCRI
  // Uso   : Descripción 
  //
  @ 2.8, 1.0 GET oMARCAS:oMAR_DESCRI VAR oMARCAS:MAR_DESCRI ;
                    WHEN (AccessField("DPMARCAS","MAR_DESCRI",oMARCAS:nOption);
                    .AND. oMARCAS:nOption!=0);
                    FONT oFontG;
                    SIZE 120,10

      oMARCAS:oMAR_DESCRI:cMsg     :="Descripción"
      oMARCAS:oMAR_DESCRI:cToolTip :="Descripción"

  @ oMARCAS:oMAR_DESCRI:nTop-08,oMARCAS:oMAR_DESCRI:nLeft SAY "Descripción" PIXEL;
                             SIZE NIL,7 FONT oFont COLOR nClrText,oDp:nGris

  //
  // Campo : MAR_DIRWEB
  // Uso   : Página Web 
  //
  @ 4.6, 1.0 GET oMARCAS:oMAR_DIRWEB VAR oMARCAS:MAR_DIRWEB ;
                    WHEN (AccessField("DPMARCAS","MAR_DIRWEB",oMARCAS:nOption) .AND. oMARCAS:nOption!=0);
                    FONT oFontG;
                    SIZE 120,10

      oMARCAS:oMAR_DIRWEB:cMsg     :="Página Web"
      oMARCAS:oMAR_DIRWEB:cToolTip :="Página Web"

  @ oMARCAS:oMAR_DIRWEB:nTop-08,oMARCAS:oMAR_DIRWEB:nLeft SAY "Dirección de Página WEB" PIXEL;
                            SIZE NIL,7 FONT oFont COLOR nClrText,oDp:nGris

  //
  // Campo : MAR_COMVTA
  // Uso   : Comisión x Venta
  //
  @ 2.8, 1.0 GET oMARCAS:oMAR_COMVTA VAR oMARCAS:MAR_COMVTA;
                 PICTURE "999.99";
                 WHEN (AccessField("DPGRU","MAR_COMVTA",oMARCAS:nOption) .AND. oMARCAS:nOption!=0);
                 FONT oFontG;
                 RIGHT

       oMARCAS:oMAR_COMVTA:cMsg      :="Comisión x Venta"
       oMARCAS:oMAR_COMVTA:cToolTip  :="Comisión x Venta"

  //
  // Campo : MAR_COMCOB
  // Uso   : Comisión x Cobranza
  //
  @ 2.8, 1.0 GET oMARCAS:oMAR_COMCOB VAR oMARCAS:MAR_COMCOB;
                 PICTURE "999.99";
                 WHEN (AccessField("DPGRU","MAR_COMCOB",oMARCAS:nOption) .AND. oMARCAS:nOption!=0);
                 FONT oFontG;
                 RIGHT

       oMARCAS:oMAR_COMCOB:cMsg      :="Comisión x Cobranza"
       oMARCAS:oMAR_COMCOB:cToolTip  :="Comisión x Cobranza"

  oMARCAS:MAR_MEMO:=ALLTRIM(oMARCAS:MAR_MEMO)         //
  // Campo : MAR_MEMO 
  // Uso   : Comentarios 
  //
  @ 6.4, 1.0 GET oMARCAS:oMAR_MEMO VAR oMARCAS:MAR_MEMO ;
                  MEMO SIZE 80,80; 
                  ON CHANGE 1=1;
                  WHEN (AccessField("DPMARCAS","MAR_MEMO",oMARCAS:nOption) .AND. oMARCAS:nOption!=0);
                  FONT oFontG;
                  SIZE 40,10

      oMARCAS:oMAR_MEMO :cMsg :="Comentarios"
      oMARCAS:oMAR_MEMO :cToolTip:="Comentarios"

  @ oMARCAS:oMAR_MEMO :nTop-08,oMARCAS:oMAR_MEMO :nLeft SAY "Comentarios" PIXEL;
                           SIZE NIL,7 FONT oFont COLOR nClrText,oDp:nGris

  @ 1,1 SAY "Venta" PIXEL

  @ 1,1 SAY "Cobranza" PIXEL

  @ 8, 1.0 CHECKBOX oMARCAS:oMAR_ACTIVO VAR oMARCAS:MAR_ACTIVO PROMPT ANSITOOEM("Activo");
                     WHEN (AccessField("DPMARCAS","MAR_ACTIVO",oMARCAS:nOption) .AND. oMARCAS:nOption!=0 .AND. DPVERSION()>4);
                     FONT oFont COLOR nClrText,NIL SIZE 166,10;
                     SIZE 4,10

  oMARCAS:oMAR_ACTIVO:cMsg        :="Activo"
  oMARCAS:oMAR_ACTIVO:cToolTip    :="Activo"

  oMARCAS:Activate({||oMARCAS:INICIO()})

  STORE NIL TO oTable,oGet,oFont,oGetB,oFontG

RETURN oMARCAS

FUNCTION INICIO()
   LOCAL oCursor,oBar,oBtn,oFont,oCol
   LOCAL oDlg:=oMARCAS:oDlg
   LOCAL nLin:=0

   DEFINE CURSOR oCursor HAND
   DEFINE BUTTONBAR oBar SIZE 52-15,60-15 OF oDlg 3D CURSOR oCursor
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -14 BOLD

   IF oMARCAS:nOption!=2

      DEFINE BUTTON oBtn;
             OF oBar;
             NOBORDER;
             FONT oFont;
             FILENAME "BITMAPS\XSAVE.BMP",NIL,"BITMAPS\XSAVEG.BMP";
             ACTION (oMARCAS:Save())

       oBtn:cToolTip:="Guardar"

       oMARCAS:oBtnSave:=oBtn

       DEFINE BUTTON oBtn;
              OF oBar;
              NOBORDER;
              FONT oFont;
              FILENAME "BITMAPS\XCANCEL.BMP";
              ACTION (oMARCAS:Cancel()) CANCEL

   ELSE

        DEFINE BUTTON oBtn;
               OF oBar;
               NOBORDER;
               FONT oFont;
               FILENAME "BITMAPS\XSALIR.BMP";
               ACTION (oMARCAS:Cancel()) CANCEL

   ENDIF

   oBar:SetColor(CLR_BLACK,oDp:nGris)

   AEVAL(oBar:aControls,{|o,n| o:SetColor(CLR_BLACK,oDp:nGris) })

RETURN .T.

/*
// Carga de Datos, para Incluir
*/
FUNCTION LOAD()

   IF oMARCAS:nOption=1 // Incluir en caso de ser Incremental

      // Para cargar mas rapido
      oMARCAS:MAR_MEMO:=""

      // Incrementa valor en el caso de esta vacio
      IF Empty(oMARCAS:MAR_CODIGO)
         oMARCAS:MAR_CODIGO:=oMARCAS:Incremental("MAR_CODIGO",.T.)
      ENDIF

    ENDIF

RETURN .T.
/*
// Ejecuta Cancelar
*/
FUNCTION CANCEL()
RETURN .T.

/*
// Ejecución PreGrabar
*/
FUNCTION PRESAVE()
   LOCAL lResp:=.T.

  lResp:=oMARCAS:ValUnique(oMARCAS:MAR_CODIGO)

  IF !lResp
      MsgAlert("Registro "+CTOO(oMARCAS:MAR_CODIGO),"Ya Existe")
  ENDIF

  IF EMPTY(oMARCAS:MAR_CODIGO)
     MensajeErr("Código no Puede estar Vacio")
  RETURN .F.
ENDIF

RETURN lResp

/*
// Ejecución despues de Grabar
*/
FUNCTION POSTSAVE()
RETURN .T.

/*
<LISTA:MAR_CODIGO:Y:GET:N:N:Y:Código,MAR_DESCRI:N:GET:N:N:Y:Descripción,MAR_DIRWEB:N:GET:N:Y:Y:Dirección de Página WEB,MAR_MEMO:N:GET:N:N:Y:Comentarios>
*/
//EOF