&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI ADM1
&ANALYZE-RESUME
/* Connected Databases
mcs PROGRESS
*/
&Scoped-define WINDOW-NAME w-win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS w-win
/* (c) MCS . */
/* ****************************************************************** */
/* CopyRight 1998-2000 (c) Metrega Comunicaciones y Servicios, s.l. */
/* CIF B61368825 */
/* C/ Angli, 6 08017 Barcelona (Spain) */
/*
soporte@metregacom.com */
/* ****************************************************************** */
/* (c) MCS .. */
/*------------------------------------------------------------------------
File:
Description: from cntnrwin.w - ADM SmartWindow Template
Input Parameters:
<none>
Output Parameters:
<none>
History:
------------------------------------------------------------------------*/
/* This .W file was created with the Progress UIB. */
/*----------------------------------------------------------------------*/
/* Create an unnamed pool to store all the widgets created
by this procedure. This is a good default which assures
that this procedure's triggers and internal procedures
will execute in this procedure's storage, and that proper
cleanup will occur on deletion of the procedure. */
CREATE WIDGET-POOL.
/* *************************** Definitions ************************** */
/* Parameters Definitions --- */
/* Local Variable Definitions --- */
{utilidades/globales.i}
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
/* ******************** Preprocessor Definitions ******************** */
&Scoped-define PROCEDURE-TYPE SmartWindow
&Scoped-define DB-AWARE no
&Scoped-define ADM-CONTAINER WINDOW
/* Name of first Frame and/or Browse and/or first Query */
&Scoped-define FRAME-NAME F-Main
/* External Tables */
&Scoped-define EXTERNAL-TABLES Clientes
&Scoped-define FIRST-EXTERNAL-TABLE Clientes
/* Need to scope the external tables to this procedure */
DEFINE QUERY external_tables FOR Clientes.
/* Standard List Definitions */
&Scoped-Define ENABLED-OBJECTS btnListados btnSalir RECT-16 RECT-17
/* Custom List Definitions */
/* List-1,List-2,List-3,List-4,List-5,List-6 */
/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME
/* *********************** Control Definitions ********************** */
/* Define the widget handle for the window */
DEFINE VAR w-win AS WIDGET-HANDLE NO-UNDO.
/* Menu Definitions */
DEFINE SUB-MENU m_Ayuda
MENU-ITEM m_Acerca_de_ LABEL "Acerca de ..." ACCELERATOR "SHIFT-F1".
DEFINE MENU MENU-BAR-h_w-claves MENUBAR
SUB-MENU m_Ayuda LABEL "&Ayuda" .
/* Definitions of handles for SmartObjects */
DEFINE VARIABLE h_b-clientes AS HANDLE NO-UNDO.
DEFINE VARIABLE h_bcontactoscli-2 AS HANDLE NO-UNDO.
DEFINE VARIABLE h_folder AS HANDLE NO-UNDO.
DEFINE VARIABLE h_p-updsav AS HANDLE NO-UNDO.
DEFINE VARIABLE h_p-updsav-2 AS HANDLE NO-UNDO.
DEFINE VARIABLE h_v-cli1 AS HANDLE NO-UNDO.
DEFINE VARIABLE h_vcontactoscli-2 AS HANDLE NO-UNDO.
/* Definitions of the field level widgets */
DEFINE BUTTON btnListados
IMAGE-UP FILE "Bitmaps\impr_win":U
LABEL "&Listados"
SIZE 7 BY 1.52 TOOLTIP "Imprimir ... (Shift + F3)".
DEFINE BUTTON btnSalir
IMAGE-UP FILE "Bitmaps\salir":U
IMAGE-INSENSITIVE FILE "Bitmaps\saliri":U
LABEL "&Salir"
SIZE 7 BY 1.52.
DEFINE RECTANGLE RECT-16
EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL
SIZE 9 BY 2.
DEFINE RECTANGLE RECT-17
EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL
SIZE 9 BY 2.
/* ************************ Frame Definitions *********************** */
DEFINE FRAME F-Main
btnListados AT ROW 22.19 COL 87
btnSalir AT ROW 22.19 COL 150
RECT-16 AT ROW 22 COL 86
RECT-17 AT ROW 21.95 COL 149
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT COL 1 ROW 1
SIZE 158.6 BY 23.19.
/* *********************** Procedure Settings ************************ */
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
Type: SmartWindow
External Tables: MCS.Clientes
Allow: Basic,Browse,DB-Fields,Query,Smart,Window
Design Page: 2
Other Settings: COMPILE
*/
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS
/* ************************* Create Window ************************** */
&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION
ISPLAY-TYPE = "GUI":U THEN
CREATE WINDOW w-win ASSIGN
HIDDEN = YES
TITLE = "Entrada/Mant. de Clientes"
HEIGHT = 23.14
WIDTH = 158.8
MAX-HEIGHT = 32.38
MAX-WIDTH = 204.8
VIRTUAL-HEIGHT = 32.38
VIRTUAL-WIDTH = 204.8
RESIZE = no
SCROLL-BARS = no
STATUS-AREA = yes
BGCOLOR = ?
FGCOLOR = ?
PRIVATE-DATA = "mcs"
THREE-D = yes
MESSAGE-AREA = no
SENSITIVE = yes.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.
ASSIGN {&WINDOW-NAME}:MENUBAR = MENU MENU-BAR-h_w-claves:HANDLE.
&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT w-win:LOAD-ICON("Bitmaps\mcs":U) THEN
MESSAGE "Unable to load icon: Bitmaps\mcs"
VIEW-AS ALERT-BOX WARNING BUTTONS OK.
&ENDIF
&IF '{&WINDOW-SYSTEM}' NE 'TTY' &THEN
IF NOT w-win:LOAD-SMALL-ICON("Bitmaps\mcs":U) THEN
MESSAGE "Unable to load small icon: Bitmaps\mcs"
VIEW-AS ALERT-BOX WARNING BUTTONS OK.
&ENDIF
/* END WINDOW DEFINITION */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB w-win
/* ************************* Included-Libraries *********************** */
{src/adm/method/containr.i}
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
/* *********** Runtime Attributes and AppBuilder Settings *********** */
&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW w-win
VISIBLE,,RUN-PERSISTENT */
/* SETTINGS FOR FRAME F-Main
Custom */
IF SESSION
ISPLAY-TYPE = "GUI":U AND VALID-HANDLE(w-win)
THEN w-win:HIDDEN = yes.
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME
/* ************************ Control Triggers ************************ */
&Scoped-define SELF-NAME w-win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-win w-win
ON END-ERROR OF w-win /* Entrada/Mant. de Clientes */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO:
/* This case occurs when the user presses the "Esc" key.
In a persistently run window, just ignore this. If we did not, the
application would exit. */
IF THIS-PROCEDURE
ERSISTENT THEN RETURN NO-APPLY.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL w-win w-win
ON WINDOW-CLOSE OF w-win /* Entrada/Mant. de Clientes */
DO:
/* This ADM code must be left here in order for the SmartWindow
and its descendents to terminate properly on exit. */
APPLY "CLOSE":U TO THIS-PROCEDURE.
RETURN NO-APPLY.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME F-Main
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main w-win
ON ALT-C OF FRAME F-Main
anywhere
DO:
run select-page(3).
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main w-win
ON ALT-F OF FRAME F-Main
ANYWHERE
DO:
run select-page(2).
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main w-win
ON ALT-G OF FRAME F-Main
anywhere
DO:
run select-page(1).
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL F-Main w-win
ON F11 OF FRAME F-Main
ANYWHERE
DO:
apply "close" to this-procedure. /*canvi 25/8/98*/
return no-apply.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME btnListados
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnListados w-win
ON CHOOSE OF btnListados IN FRAME F-Main /* Listados */
OR SHIFT-F3 OF {&WINDOW-NAME} ANYWHERE
DO:
run FicherosMaestros/LisClientes.w .
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME btnSalir
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnSalir w-win
ON CHOOSE OF btnSalir IN FRAME F-Main /* Salir */
DO:
apply "close" to this-procedure. /*canvi 25/8/98*/
return no-apply.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME m_Acerca_de_
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL m_Acerca_de_ w-win
ON CHOOSE OF MENU-ITEM m_Acerca_de_ /* Acerca de ... */
DO:
create widget-pool "Acerca".
{pracerca.wi}.
NombrePrograma = this-procedure:file-name.
DISPLAY NombrePrograma
WITH FRAME ABOUT.
ENABLE ImagenSCSI RECT-1 btnCorrecto
WITH FRAME ABOUT.
ASSIGN FRAME ABOUT:HIDDEN = NO.
WAIT-FOR GO OF FRAME ABOUT .
HIDE FRAME ABOUT.
DELETE WIDGET-POOL "Acerca".
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&UNDEFINE SELF-NAME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK w-win
/* *************************** Main Block *************************** */
/* Include custom Main Block code for SmartWindows. */
{src/adm/template/windowmn.i}
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
/* ********************** Internal Procedures *********************** */
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-create-objects w-win _ADM-CREATE-OBJECTS
PROCEDURE adm-create-objects :
/*------------------------------------------------------------------------------
Purpose: Create handles for all SmartObjects used in this procedure.
After SmartObjects are initialized, then SmartLinks are added.
Parameters: <none>
------------------------------------------------------------------------------*/
DEFINE VARIABLE adm-current-page AS INTEGER NO-UNDO.
RUN get-attribute IN THIS-PROCEDURE ('Current-Page':U).
ASSIGN adm-current-page = INTEGER(RETURN-VALUE).
CASE adm-current-page:
WHEN 0 THEN DO:
RUN init-object IN THIS-PROCEDURE (
INPUT 'FicherosMaestros/SmartBro/bClientes.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'Layout = ':U ,
OUTPUT h_b-clientes ).
RUN set-position IN h_b-clientes ( 1.00 , 1.00 ) NO-ERROR.
RUN set-size IN h_b-clientes ( 23.10 , 37.00 ) NO-ERROR.
RUN init-object IN THIS-PROCEDURE (
INPUT 'adm/objects/folder.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'FOLDER-LABELS = ':U + '&General|&Telf./Conta' + ',
FOLDER-TAB-TYPE = 1':U ,
OUTPUT h_folder ).
RUN set-position IN h_folder ( 1.00 , 39.00 ) NO-ERROR.
RUN set-size IN h_folder ( 20.76 , 120.00 ) NO-ERROR.
RUN init-object IN THIS-PROCEDURE (
INPUT 'objetosuib/p-updsav.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'Edge-Pixels = 2,
SmartPanelType = Save,
AddFunction = One-Record':U ,
OUTPUT h_p-updsav ).
RUN set-position IN h_p-updsav ( 22.00 , 39.00 ) NO-ERROR.
RUN set-size IN h_p-updsav ( 2.00 , 44.00 ) NO-ERROR.
/* Links to SmartFolder h_folder. */
RUN add-link IN adm-broker-hdl ( h_folder , 'Page':U , THIS-PROCEDURE ).
/* Adjust the tab order of the smart objects. */
RUN adjust-tab-order IN adm-broker-hdl ( h_b-clientes ,
btnSalir:HANDLE IN FRAME F-Main , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_folder ,
h_b-clientes , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_p-updsav ,
h_folder , 'AFTER':U ).
END. /* Page 0 */
WHEN 1 THEN DO:
RUN init-object IN THIS-PROCEDURE (
INPUT 'ficherosmaestros/smartvie/vcligeneral.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'Layout = ':U ,
OUTPUT h_v-cli1 ).
RUN set-position IN h_v-cli1 ( 2.71 , 40.80 ) NO-ERROR.
/* Size in UIB: ( 17.62 , 116.00 ) */
/* Links to SmartViewer h_v-cli1. */
RUN add-link IN adm-broker-hdl ( h_b-clientes , 'Record':U , h_v-cli1 ).
RUN add-link IN adm-broker-hdl ( h_p-updsav , 'TableIO':U , h_v-cli1 ).
/* Adjust the tab order of the smart objects. */
RUN adjust-tab-order IN adm-broker-hdl ( h_b-clientes ,
btnSalir:HANDLE IN FRAME F-Main , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_folder ,
h_b-clientes , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_p-updsav ,
h_folder , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_v-cli1 ,
h_p-updsav , 'AFTER':U ).
END. /* Page 1 */
WHEN 2 THEN DO:
RUN init-object IN THIS-PROCEDURE (
INPUT 'ficherosmaestros/smartbro/bcontactoscli.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'Layout = ':U ,
OUTPUT h_bcontactoscli-2 ).
RUN set-position IN h_bcontactoscli-2 ( 4.57 , 40.60 ) NO-ERROR.
RUN set-size IN h_bcontactoscli-2 ( 5.24 , 117.00 ) NO-ERROR.
RUN init-object IN THIS-PROCEDURE (
INPUT 'objetosuib/p-updsav.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'Edge-Pixels = 2,
SmartPanelType = Save,
AddFunction = One-Record':U ,
OUTPUT h_p-updsav-2 ).
RUN set-position IN h_p-updsav-2 ( 16.05 , 96.00 ) NO-ERROR.
RUN set-size IN h_p-updsav-2 ( 1.91 , 44.00 ) NO-ERROR.
RUN init-object IN THIS-PROCEDURE (
INPUT 'ficherosmaestros/smartvie/vcontactoscli.w':U ,
INPUT FRAME F-Main:HANDLE ,
INPUT 'Layout = ':U ,
OUTPUT h_vcontactoscli-2 ).
RUN set-position IN h_vcontactoscli-2 ( 9.81 , 60.00 ) NO-ERROR.
/* Size in UIB: ( 6.19 , 80.00 ) */
/* Links to SmartBrowser h_bcontactoscli-2. */
RUN add-link IN adm-broker-hdl ( h_b-clientes , 'Record':U , h_bcontactoscli-2 ).
/* Links to SmartViewer h_vcontactoscli-2. */
RUN add-link IN adm-broker-hdl ( h_bcontactoscli-2 , 'Record':U , h_vcontactoscli-2 ).
RUN add-link IN adm-broker-hdl ( h_p-updsav-2 , 'TableIO':U , h_vcontactoscli-2 ).
/* Adjust the tab order of the smart objects. */
RUN adjust-tab-order IN adm-broker-hdl ( h_b-clientes ,
btnSalir:HANDLE IN FRAME F-Main , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_folder ,
h_b-clientes , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_p-updsav ,
h_folder , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_bcontactoscli-2 ,
h_p-updsav , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_p-updsav-2 ,
h_bcontactoscli-2 , 'AFTER':U ).
RUN adjust-tab-order IN adm-broker-hdl ( h_vcontactoscli-2 ,
h_p-updsav-2 , 'AFTER':U ).
END. /* Page 2 */
END CASE.
/* Select a Startup page. */
IF adm-current-page eq 0
THEN RUN select-page IN THIS-PROCEDURE ( 1 ).
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE adm-row-available w-win _ADM-ROW-AVAILABLE
PROCEDURE adm-row-available :
/*------------------------------------------------------------------------------
Purpose: Dispatched to this procedure when the Record-
Source has a new row available. This procedure
tries to get the new row (or foriegn keys) from
the Record-Source and process it.
Parameters: <none>
------------------------------------------------------------------------------*/
/* Define variables needed by this internal procedure. */
{src/adm/template/row-head.i}
/* Create a list of all the tables that we need to get. */
{src/adm/template/row-list.i "Clientes"}
/* Get the record ROWID's from the RECORD-SOURCE. */
{src/adm/template/row-get.i}
/* FIND each record specified by the RECORD-SOURCE. */
{src/adm/template/row-find.i "Clientes"}
/* Process the newly available records (i.e. display fields,
open queries, and/or pass records on to any RECORD-TARGETS). */
{src/adm/template/row-end.i}
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI w-win _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
Purpose: DISABLE the User Interface
Parameters: <none>
Notes: Here we clean-up the user-interface by deleting
dynamic widgets we have created and/or hide
frames. This procedure is usually called when
we are ready to "clean-up" after running.
------------------------------------------------------------------------------*/
/* Delete the WINDOW we created */
IF SESSION
ISPLAY-TYPE = "GUI":U AND VALID-HANDLE(w-win)
THEN DELETE WIDGET w-win.
IF THIS-PROCEDURE
ERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI w-win _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
Purpose: ENABLE the User Interface
Parameters: <none>
Notes: Here we display/view/enable the widgets in the
user-interface. In addition, OPEN all queries
associated with each FRAME and BROWSE.
These statements here are based on the "Other
Settings" section of the widget Property Sheets.
------------------------------------------------------------------------------*/
ENABLE btnListados btnSalir RECT-16 RECT-17
WITH FRAME F-Main IN WINDOW w-win.
{&OPEN-BROWSERS-IN-QUERY-F-Main}
VIEW w-win.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LeerCodigoCliente w-win
PROCEDURE LeerCodigoCliente :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
define output parameter CCliente as char.
run LeerCodCliente in h_v-cli1 ( output CCliente ).
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-exit w-win
PROCEDURE local-exit :
/* -----------------------------------------------------------
Purpose: Starts an "exit" by APPLYing CLOSE event, which starts "destroy".
Parameters: <none>
Notes: If activated, should APPLY CLOSE, *not* dispatch adm-exit.
-------------------------------------------------------------*/
APPLY "CLOSE":U TO THIS-PROCEDURE.
RETURN.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-initialize w-win
PROCEDURE local-initialize :
/*------------------------------------------------------------------------------
Purpose: Override standard ADM method
Notes:
------------------------------------------------------------------------------*/
/* Code placed here will execute PRIOR to standard behavior. */
/* Dispatch standard ADM method. */
RUN dispatch IN THIS-PROCEDURE ( INPUT 'initialize':U ) .
/* Code placed here will execute AFTER standard behavior. */
RUN init-pages("1,2,3,4").
/* RUN SELECT-PAGE(4).
RUN SELECT-PAGE(3).
RUN SELECT-PAGE(2).
RUN SELECT-PAGE(1).*/
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE local-view w-win
PROCEDURE local-view :
/*------------------------------------------------------------------------------
Purpose: Override standard ADM method
Notes:
------------------------------------------------------------------------------*/
/* Code placed here will execute PRIOR to standard behavior. */
/* Dispatch standard ADM method. */
RUN dispatch IN THIS-PROCEDURE ( INPUT 'view':U ) .
/* Code placed here will execute AFTER standard behavior. */
RUN titular.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE send-records w-win _ADM-SEND-RECORDS
PROCEDURE send-records :
/*------------------------------------------------------------------------------
Purpose: Send record ROWID's for all tables used by
this file.
Parameters: see template/snd-head.i
------------------------------------------------------------------------------*/
/* Define variables needed by this internal procedure. */
{src/adm/template/snd-head.i}
/* For each requested table, put it's ROWID in the output list. */
{src/adm/template/snd-list.i "Clientes"}
/* Deal with any unexpected table requests before closing. */
{src/adm/template/snd-end.i}
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE state-changed w-win
PROCEDURE state-changed :
/* -----------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
-------------------------------------------------------------*/
DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER p-state AS CHARACTER NO-UNDO.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE titular w-win
PROCEDURE titular :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
RUN LeerEmpresa in BuscarProgramaPrincipal() ( output EmpresaWhere ).
RUN LeerNombreEmpresa in BuscarProgramaPrincipal() ( output NombreEmpresa ).
w-win:title = w-win:title + " " +
"(" + NombreEmpresa + ")".
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
