DPMARCAS

DPMARCAS EDIT

TMDICHILD|1|0|0|321|431|16775666|1|1|Modificar Marcas de Productos |.t.|
TGROUP|5|138|16|281|58|16775666|0|2|1|Comisión|.t.|
TGET|5|66|16|76|22|16646143|0|3|1||.f.|
TSAY|5|50|16|64|14|16775666|0|2|1|Código|.t.|
TGET|10|112|16|281|22|16646143|0|3|1||.f.|
TSAY|10|96|16|124|14|16775666|0|2|1|Descripción|.t.|
TGET|15|214|16|282|22|16646143|0|2|1||.f.|
TSAY|15|198|16|216|14|16775666|0|2|1|Dirección de Página WEB|.t.|
TGET|20|168|24|50|22|16646143|0|3|1||.f.|
TGET|25|168|80|50|22|16646143|0|3|1||.f.|
TMULTIGET|5|262|16|280|122|16646143|0|4|1||.f.|
TSAY|20|246|16|124|14|16775666|0|2|1|Comentarios|.t.|
TSAY|25|154|26|46|14|16775666|0|2|1|Venta|.t.|
TSAY|30|154|82|64|14|16775666|0|2|1|Cobranza|.t.|
TCHECKBOX|5|64|102|100|22|16775666|0|2|1||.t.|
TSTSAY||138|25|281|19|||2|1|Comisión|.f.|
FONT|{“TAHOMA”,0,-12,.F.,0,.F.}
FONT|{“Tahoma”,0,-12,.T.,700,.F.}
FONT|{“Tahoma”,0,-11,.T.,700,.F.}
FONT|{“Tahoma”,0,-11,.F.,0,.F.}

DPMARCAS LBX

//
// TABLAS DE DATAOS
//
TITLE      :={oDp:DPMARCAS}
TABLE      :=DPMARCAS
SELECT     :=MAR_CODIGO,MAR_DESCRI,MAR_DIRWEB,IF(INV_CODMAR<>'',COUNT(*),0) AS CUANTOS,MAR_ACTIVO
INNER      :=LEFT JOIN DPINV ON MAR_CODIGO=INV_CODMAR OR INV_CODMAR IS NULL
WHERE      :=
ORDER BY   :=MAR_CODIGO
GROUP BY   :=MAR_CODIGO,MAR_DESCRI,MAR_DIRWEB,INV_CODMAR
WIDTH      :=759
HEIGHT     :=320
APLICACION :=
TOPIC      :=
FILECHM    :=
DELETECOL  :=INV_CODMAR

STYLE      :=0

COLORPANE1 :=16775408
COLORPANE2 :=16771797

FREEZE     :=0

// Tamaño de los Botones
BTNHEIGHT :=50
BTNWITH   :=40

// Color de los Botones
BTNCLRPANE  :=0
BTNCLRTEXT  :=0

// Antes de Borrar
[BOTONES]
BTN01_BMP      :=xNEW.BMP
BTN01_ACTION   :=SCRRUN("DPMARCAS",1,IIF(oCursor:Eof(),NIL,oCursor:MAR_CODIGO))
BTN01_WHEN     :=
BTN01_TOOLTIP  :=Incluir
BTN01_MESSAGE  :=Incluir
BTN01_TYPE     :=NEW

// Consultar
BTN02_BMP     :=VIEW.BMP
BTN02_ACTION  :=EJECUTAR("DPMARCASCON",NIL,oCursor:MAR_CODIGO,oCursor:MAR_DESCRI)
BTN02_WHEN    :=!oCursor:Eof()
BTN02_TOOLTIP :=Consultar
BTN02_MESSAGE :=Consultar
BTN02_TYPE    :=VIEW

// Modificar
BTN03_BMP     :=xEDIT.BMP
BTN03_ACTION  :=SCRRUN("DPMARCAS",3,oCursor:MAR_CODIGO)
BTN03_WHEN    :=!oCursor:Eof()
BTN03_TOOLTIP :=Modificar
BTN03_MESSAGE :=Modificar
BTN03_TYPE    :=OPEN

// Eliminar
BTN04_BMP      :=xDELETE.BMP
BTN04_ACTION   :=oDpLbx:Delete()
BTN04_WHEN     :=!oCursor:Eof()
BTN04_TOOLTIP  :=Eliminar
BTN04_MESSAGE  :=Eliminar Registro
BTN04_TYPE     :=DELETE

// UNIR
BTN05_BMP    :=xUnir.BMP
BTN05_ACTION :=SCRRUN("DPCHANGECOD","DPMARCAS","MAR_CODIGO","MAR_DESCRI",oCursor:MAR_CODIGO)
BTN05_WHEN :=!oCursor:Eof()
BTN05_TOOLTIP :=Unir Marcas
BTN05_MESSAGE :=Unir Marcas
BTN05_TYPE :=OTHER

// Buscar
BTN06_BMP :=xFIND.BMP
BTN06_ACTION :=oDpLbx:Find()
BTN06_WHEN :=.T.
BTN06_TOOLTIP :=Buscar Registro
BTN06_MESSAGE :=Buscar Registro
BTN06_TYPE :=FIND

// Ejecutar Query
BTN07_BMP :=QUERY.BMP
BTN07_ACTION :=oDpLbx:Query()
BTN07_WHEN :=.T.
BTN07_TOOLTIP :=Ejecutar Query de Búsqueda
BTN07_MESSAGE :=Ejecutar Query de Búsqueda
BTN07_TYPE :=QUERY

// Ejecutar Query
BTN08_BMP :=xPRINT.BMP
BTN08_ACTION :=REPORTE("DPMARCAS")
BTN08_WHEN :=!oCursor:Eof()
BTN08_TOOLTIP :=Ejecutar de Reporte
BTN08_MESSAGE :=Ejecutar de Reporte
BTN08_TYPE :=QUERY

// Acceso
BTN09_BMP :=xunlock.BMP
BTN09_ACTION :=EJECUTAR("DPTABXUSU",oCursor:MAR_CODIGO,oCursor:MAR_DESCRI,"DPMARCAS","Usuarios por "+GetFromVar("DPMARCAS"))
BTN09_WHEN :=oDp:lPermisos
BTN09_TOOLTIP :=Usuarios Autorizados
BTN09_MESSAGE :=Usuarios Autorizados
BTN09_TYPE :=OTHER

// Productos Asociados
BTN10_BMP :=producto.BMP
BTN10_ACTION :=DPLBX("DPINV.LBX",oDp:DPINV+","+oDp:xDPMARCAS+":"+oCursor:MAR_CODIGO+" "+ALLTRIM(oCursor:MAR_DESCRI),"INV_CODMAR"+GetWhere("=",oCursor:MAR_CODIGO))
BTN10_WHEN :=.T.
BTN10_TOOLTIP :=Productos
BTN10_MESSAGE :=Productos
BTN10_TYPE :=OTHER

// Abastecimiento
BTN11_BMP :=ACTIVOS.BMP
BTN11_ACTION :=EJECUTAR("DPINVPLAABASTG","INV_CODMAR"+GetWhere("=",oCursor:MAR_CODIGO),"DPMARCAS",oCursor:MAR_CODIGO,oCursor:MAR_DESCRI)
BTN11_WHEN :=oDp:P_LDpAbastec
BTN11_TOOLTIP :=Planificar Abastecimiento
BTN11_MESSAGE :=Planificar Abastecimiento
BTN11_TYPE :=OTHER

BTN12_BMP :=FILTRAR.BMP
BTN12_ACTION :=EJECUTAR("LBXSETFILTER",oDpLbx)
BTN12_WHEN :=!oCursor:Eof()
BTN12_TOOLTIP :=Filtrar Registros
BTN12_MESSAGE :=Filtrar Registros
BTN12_TYPE :=OTHER

BTN13_BMP :=MENU.BMP
BTN13_ACTION :=EJECUTAR("DPMARCASMNU",oCursor:MAR_CODIGO)
BTN13_WHEN :=!oCursor:Eof()
BTN13_TOOLTIP :=Menú de Opciones
BTN13_MESSAGE :=Menú de Opciones
BTN13_TYPE :=MENU

// Ir Final final del Archivo
BTN13_BMP :=xTOP.BMP
BTN13_ACTION :=oBrw:GoTop()
BTN13_WHEN :=!oCursor:Eof()
BTN13_TOOLTIP :=Primer Registro
BTN13_TYPE :=TOP

// Avance de Pagina
BTN14_BMP :=xSIG.BMP
BTN14_ACTION :=oBrw:PageDown()
BTN14_WHEN :=!oCursor:Eof()
BTN14_TOOLTIP :=Siguiente
BTN14_TYPE :=FORWARD

// Pagina Previa
BTN15_BMP :=xANT.BMP
BTN15_ACTION :=oBrw:PageUp()
BTN15_WHEN :=!oCursor:Eof()
BTN15_TOOLTIP :=Anterior
BTN15_TYPE :=REWIND

// Ir Final final del Archivo
BTN16_BMP :=xFIN.BMP
BTN16_ACTION :=oBrw:GoBottom()
BTN16_WHEN :=!oCursor:Eof()
BTN16_TOOLTIP :=Ultimo Registro
BTN16_TYPE :=BOTTOM

//
BTN17_BMP :=xSALIR.BMP
BTN17_ACTION :=oWnd:End()
BTN17_WHEN :=.T.
BTN17_TOOLTIP :=Cerrar
BTN17_TYPE  :=EXIT

// Particularidades de las Columnas

[COLUMNAS]
COL01_HEADER :=Código
COL02_HEADER :=Descripción de la Marca
COL03_HEADER :=Página Web

COL04_HEADER :=Productos
COL04_WIDTH  :=075
COL04_DATA   :=TRAN(oCursor:CUANTOS,"999999")
COL04_ALING  :=1
COL05_HEADER :=Activo
COL05_VIEW   :=4

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
Solicitar Soporte Tecnicoscreen tag