Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
RefreshAsyncRender and ItemIndex
#1
Hi!

Since the RefreshAsyncRender method was implemented in Intraweb, what I've had lately is a lot of headache.

I use this method (RefreshAsyncRender) to refresh the TMS Grid asynchronously.


I have a form that has the TMS Grid and several TIWDBLookupComboBox controls; Before using the RefreshAsyncRender method to refresh the TMS Grid asynchronously (previously towards the application it refreshed synchronously in the OnClick event of a button), I used the RefreshItems method in the TIWDBLookupComboBox without any problem.

Now since I use the RefreshAsyncRender method, the ItemIndex property of the TIWDBLookupComboBox always returns the value -1, apparently if I don't force the use of the RefreshAsyncRender method in all the TIWDBLookupComboBox I don't have the correct ItemIndex property value.


I have Intraweb version 15.2.10 installed.

Can any one help me?

Code:
unit UFrmObtenerCliente;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  Vcl.Forms, UnfraEncabezado, UnFracNavegador, IWVCLBaseContainer, IWContainer,
  IWHTMLContainer, IWHTML40Container, IWRegion, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWWebGrid, IWDBAdvWebGrid, Data.DB, MemDS,
  DBAccess, Uni, IWCompEdit, IWTMSBase, IWTMSCtrls, IWCompLabel, IWCompButton,
  IWCompListbox, IWDBStdCtrls;

type
  TPantallaCliente = (pclMaestra, pclIngreso);
  TFrmObtenerCliente = class(TIWAppForm)
    fraEncabezado1: TfraEncabezado;
    fraNavegador1: TfraNavegador;
    iwrgnBackGround: TIWRegion;
    iwrgnGrid: TIWRegion;
    iwrgnButton: TIWRegion;
    dsData: TDataSource;
    qryData: TUniQuery;
    GridConsulta: TTIWDBAdvWebGrid;
    IWLabel1: TIWLabel;
    EdtCodigoCliente: TTIWAdvEdit;
    IWLabel2: TIWLabel;
    EdtNombre: TTIWAdvEdit;
    IWLabel3: TIWLabel;
    EdtApellido: TTIWAdvEdit;
    btnBuscar: TIWButton;
    btnLimpiar: TIWButton;
    btnNuevo: TIWButton;
    IWLabel4: TIWLabel;
    EdtDocIdentidad: TTIWAdvEdit;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    cbbTipoCliente: TIWDBLookupComboBox;
    cbbCondicion: TIWDBLookupComboBox;
    IWLabel7: TIWLabel;
    cbbZona: TIWDBLookupComboBox;
    cbbPueblo: TIWDBLookupComboBox;
    IWLabel8: TIWLabel;
    IWLabel9: TIWLabel;
    IWLabel10: TIWLabel;
    IWLabel11: TIWLabel;
    cbbSector: TIWDBLookupComboBox;
    IWLabel12: TIWLabel;
    cbbRuta: TIWDBLookupComboBox;
    EdtCodigoPostal: TTIWAdvEdit;
    EdtCodigoCatastral: TTIWAdvEdit;
    dsRuta: TDataSource;
    qryRuta: TUniQuery;
    dtsStatusCliente: TDataSource;
    dtsTipoCliente: TDataSource;
    dtsZona: TDataSource;
    qryprovincias_pueblos: TUniQuery;
    dtsprovincia_pueblo: TDataSource;
    qrysectores: TUniQuery;
    dtsSectores: TDataSource;
    procedure GridConsultaColumnHeaderClick(Sender: TObject;
      ColumnIndex: Integer);
    procedure qryDataAfterOpen(DataSet: TDataSet);
    procedure IWAppFormCreate(Sender: TObject);
    procedure btnLimpiarAsyncClick(Sender: TObject; EventParams: TStringList);
    procedure GridConsultaButtonClick(Sender: TObject; RowIndex,
      ColumnIndex: Integer);
    procedure cbbZonaAsyncChange(Sender: TObject; EventParams: TStringList);
    procedure cbbPuebloAsyncChange(Sender: TObject; EventParams: TStringList);
    procedure btnBuscarAsyncClick(Sender: TObject; EventParams: TStringList);
    procedure btnNuevoAsyncClick(Sender: TObject; EventParams: TStringList);
  private
    FPantallaCliente: TPantallaCliente;
    procedure SetPantallaCliente(const Value: TPantallaCliente);
    procedure LimpiarEdits;

    procedure CallIngresoCliente(AClienteId: Integer; AInsertar: Boolean);
    procedure CallMaestraCliente(AClienteId: Integer; AInsertar: Boolean);

    procedure OpenProvinciaPueblo(const AZonaId: Integer);
    procedure OpenSector(const AProvinciaPuebloId: Integer);
    procedure DoBuscar;
    procedure CloseDataSets;
  public
    property PantallaCliente: TPantallaCliente read FPantallaCliente write SetPantallaCliente;
  end;

implementation

uses
  UserSessionUnit, ServerController, Unclientes, UnIngresoclientes, UParseSQL,
  UWebGrid
  ;

{$R *.dfm}

procedure TFrmObtenerCliente.btnBuscarAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  DoBuscar;
end;

procedure TFrmObtenerCliente.btnLimpiarAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  LimpiarEdits;
  CloseDataSets;
  cbbZona.RefreshAsyncRender;
  cbbPueblo.RefreshAsyncRender;
  cbbSector.RefreshAsyncRender;
end;

procedure TFrmObtenerCliente.btnNuevoAsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  case PantallaCliente of
    pclMaestra: CallMaestraCliente(0, True);
    pclIngreso: CallIngresoCliente(0, True);
  end;
end;

procedure TFrmObtenerCliente.CallIngresoCliente(AClienteId: Integer;
  AInsertar: Boolean);
var
  lForm: Tfrmingresoclientes;
begin
  Tfrmingresoclientes.ClienteId := AClienteId;
  Tfrmingresoclientes.ModalidadApertura := UnIngresoclientes.maRegistro;
  lForm := Tfrmingresoclientes.Create(UserSession);
  lForm.InsertarAlCrear := AInsertar;
  lForm.Show;
end;

procedure TFrmObtenerCliente.CallMaestraCliente(AClienteId: Integer;
  AInsertar: Boolean);
var
  lForm: Tfrmclientes;
begin
  Tfrmclientes.ClienteId := AClienteId;
  Tfrmclientes.ModalidadApertura := Unclientes.maRegistro;
  lForm := Tfrmclientes.Create(UserSession);
  lForm.InsertarAlCrear := AInsertar;
  lForm.Show;
end;

procedure TFrmObtenerCliente.cbbPuebloAsyncChange(Sender: TObject;
  EventParams: TStringList);
begin
  qrysectores.Close;
  cbbSector.ItemIndex := -1;
  cbbSector.KeyValue := EmptyStr;
  cbbSector.Items.Clear;
  if cbbPueblo.ItemIndex >= 0 then
  begin
    OpenSector(cbbPueblo.KeyValue);
  end;
//  cbbSector.RefreshItems;
  cbbSector.RefreshAsyncRender;
end;

procedure TFrmObtenerCliente.cbbZonaAsyncChange(Sender: TObject;
  EventParams: TStringList);
begin
  qryprovincias_pueblos.Close;
  qrysectores.Close;
  cbbPueblo.ItemIndex := -1;
  cbbPueblo.KeyValue := EmptyStr;
  cbbPueblo.Items.Clear;
  cbbSector.ItemIndex := -1;
  cbbSector.KeyValue := EmptyStr;
  cbbSector.Items.Clear;
  if cbbZona.ItemIndex >= 0 then
  begin
    OpenProvinciaPueblo(cbbZona.KeyValue);
  end;
//  cbbPueblo.RefreshItems;
  cbbPueblo.RefreshAsyncRender;
end;

procedure TFrmObtenerCliente.GridConsultaButtonClick(Sender: TObject; RowIndex,
  ColumnIndex: Integer);
begin
  if qryData.IsEmpty then
    Exit;
  qryData.RecNo := RowIndex + 1;
  if (ColumnIndex = 0) then
  begin
    case PantallaCliente of
      pclMaestra: CallMaestraCliente(qryData.FieldByName('clienteid').AsInteger, False);
      pclIngreso: CallIngresoCliente(qryData.FieldByName('clienteid').AsInteger, False);
    end;
  end;
end;

procedure TFrmObtenerCliente.GridConsultaColumnHeaderClick(Sender: TObject;
  ColumnIndex: Integer);
var
  lField, lFiltro: string;
  lGrid: TTIWDBAdvWebGrid;
begin
  if (ColumnIndex <= 0) or (TTIWDBAdvWebGrid(Sender).DataSource.DataSet.IsEmpty) then
    Exit;
  lGrid := TTIWDBAdvWebGrid(Sender);
  lField := lGrid.Columns[ColumnIndex].DataField;
  lGrid.SortSettings.Column := ColumnIndex;

  lFiltro := TUniQuery(lGrid.DataSource.DataSet).IndexFieldNames;

  if lFiltro.StartsWith(lField, True) and lFiltro.EndsWith('ASC', True) then
  begin
    TUniQuery(lGrid.DataSource.DataSet).IndexFieldNames := lField + ' DESC';
    lGrid.SortSettings.Direction := sdAscending;
  end
  else
  begin
    TUniQuery(lGrid.DataSource.DataSet).IndexFieldNames := lField + ' ASC';
    lGrid.SortSettings.Direction := sdDescending;
  end;
end;

procedure TFrmObtenerCliente.IWAppFormCreate(Sender: TObject);
begin
  fraEncabezado1.SetEditablePropsComps(Self);
  LimpiarEdits;
  GridConsulta.DoRefreshControl := True;

  qryRuta.Close;
  qryRuta.ParamByName('companiaid').Value := UserSession.gs_compania;
  qryRuta.Open;

  with UserSession.qrystatus_clientes do
  begin
    Close;
    ParamByName('companiaid').Value := UserSession.gs_compania;
    Open;
  end;

  with UserSession.qrytipos_clientes do
  begin
    Close;
    ParamByName('companiaid').Value := UserSession.gs_compania;
    Open;
  end;

  with UserSession.qryzonas do
  begin
    Close;
    ParamByName('companiaid').Value := UserSession.gs_compania;
    Open;
  end;
end;

procedure TFrmObtenerCliente.LimpiarEdits;
begin
  EdtCodigoCliente.Text := EmptyStr;
  EdtCodigoCliente.Hint := EmptyStr;
  EdtNombre.Text := EmptyStr;
  EdtNombre.Hint := EmptyStr;
  EdtApellido.Text := EmptyStr;
  EdtApellido.Hint := EmptyStr;
  EdtDocIdentidad.Text := EmptyStr;
  EdtDocIdentidad.Hint := EmptyStr;
  cbbTipoCliente.ItemIndex := -1;
  cbbTipoCliente.KeyValue := EmptyStr;
  cbbCondicion.ItemIndex := -1;
  cbbCondicion.KeyValue := EmptyStr;
  cbbZona.ItemIndex := -1;
  cbbZona.KeyValue := EmptyStr;
  cbbPueblo.ItemIndex := -1;
  cbbPueblo.KeyValue := EmptyStr;
  cbbPueblo.Items.Clear;
  cbbSector.ItemIndex := -1;
  cbbSector.KeyValue := EmptyStr;
  cbbSector.Items.Clear;
  cbbRuta.ItemIndex := -1;
  cbbRuta.KeyValue := EmptyStr;
  EdtCodigoPostal.Text := EmptyStr;
  EdtCodigoPostal.Hint := EmptyStr;
  EdtCodigoCatastral.Text := EmptyStr;
  EdtCodigoCatastral.Hint := EmptyStr;
  qryprovincias_pueblos.Close;
  qrysectores.Close;
end;

procedure TFrmObtenerCliente.OpenProvinciaPueblo(const AZonaId: Integer);
begin
  qryprovincias_pueblos.Close;
  qryprovincias_pueblos.ParamByName('zonaid').Value := AZonaId;
  qryprovincias_pueblos.Open;
end;

procedure TFrmObtenerCliente.OpenSector(const AProvinciaPuebloId: Integer);
begin
  qrysectores.Close;
  qrysectores.ParamByName('provincia_puebloid').Value := AProvinciaPuebloId;
  qrysectores.Open;
end;

procedure TFrmObtenerCliente.DoBuscar;
begin
  qryData.Close;
  qryData.SQL.Clear;
  qryData.SQL.Add('select');
  qryData.SQL.Add(ParseSQL.GetLimit(ddSQLServer, 500));
  qryData.SQL.Add('clt.*, cp.descripcion as descripcion_condicion_pago');
  qryData.SQL.Add('  from cliente clt');
  qryData.SQL.Add(' left join condicion_pago cp on clt.condicion_pagoid = cp.condicion_pagoid');
  qryData.SQL.add(' where clt.companiaid = ' + usersession.gs_compania);
  qryData.SQL.Add('and UPPER(clt.identidad) = ' + QuotedStr('CLIENTE'));
  if Trim(EdtCodigoCliente.Text) <> EmptyStr then
    qryData.SQL.Add('and clt.codigo_cliente ' + ParseSQL.GetLike + Trim(EdtCodigoCliente.Text + '%').QuotedString);
  if Trim(EdtNombre.Text) <> EmptyStr then
    qryData.SQL.Add('and clt.nombres ' + ParseSQL.GetLike + Trim('%' + EdtNombre.Text + '%').QuotedString);
  if Trim(EdtApellido.Text) <> EmptyStr then
    qryData.SQL.Add('and clt.apellidos ' + ParseSQL.GetLike + Trim('%' + EdtApellido.Text + '%').QuotedString);
  if Trim(EdtDocIdentidad.Text) <> EmptyStr then
    qryData.SQL.Add('and ((clt.cedula ' + ParseSQL.GetLike + Trim(EdtDocIdentidad.Text + '%').QuotedString + ') or ' + '(clt.rnc ' + ParseSQL.GetLike + Trim(EdtDocIdentidad.Text + '%').QuotedString + '))');
  if cbbTipoCliente.ItemIndex >= 0 then
    qryData.SQL.Add('and clt.TIPO_CLIENTEID = 0' + cbbTipoCliente.KeyValue);
  if cbbCondicion.ItemIndex >= 0 then
    qryData.SQL.Add('and clt.STATUS_CLIENTEID = 0' + cbbCondicion.KeyValue);
  if cbbZona.ItemIndex >= 0 then
    qryData.SQL.Add('and clt.ZONAID = 0' + cbbZona.KeyValue);
  if cbbPueblo.ItemIndex >= 0 then
    qryData.SQL.Add('and clt.PROVINCIA_PUEBLOID = 0' + cbbPueblo.KeyValue);
  if cbbSector.ItemIndex >= 0 then
    qryData.SQL.Add('and clt.SECTORID = 0' + cbbSector.KeyValue);
  if cbbRuta.ItemIndex >= 0 then
    qryData.SQL.Add('and clt.rutaid = 0' + cbbRuta.KeyValue);
  if Trim(EdtCodigoPostal.Text) <> EmptyStr then
    qryData.SQL.Add('and UPPER(clt.codigo_postal) = ' + Trim(EdtCodigoPostal.Text).ToUpper.QuotedString);
  if Trim(EdtCodigoCatastral.Text) <> EmptyStr then
    qryData.SQL.Add('and clt.codigo_catastral ' + ParseSQL.GetSimilar(Trim(EdtCodigoCatastral.Text)));
//    qryData.SQL.Add('and UPPER(clt.codigo_catastral) = ' + Trim(EdtCodigoCatastral.Text).ToUpper.QuotedString);
  qryData.SQL.Add(' order by clt.nombres');
  qryData.SQL.Add(ParseSQL.GetLimit(ddPostgres, 500));
  qryData.Open;
  if qryData.IsEmpty then
    WebApplication.ShowMessage('No existen registros para los filtros indicados');
end;

procedure TFrmObtenerCliente.CloseDataSets;
begin
  qryData.Close;
  UWebGrid.GridRowCount(GridConsulta);
end;

procedure TFrmObtenerCliente.qryDataAfterOpen(DataSet: TDataSet);
begin
  UWebGrid.GridRowCount(GridConsulta, DataSet.RecordCount);
end;

procedure TFrmObtenerCliente.SetPantallaCliente(const Value: TPantallaCliente);
begin
  FPantallaCliente := Value;
end;

---------------------------------
UWebGrid
procedure GridRowCount(var AGrid: TTIWDBAdvWebGrid; const ACantidad: Integer = 1);
var
  lCantidad: Integer;
begin
  lCantidad := ACantidad;
  if lCantidad >= 1 then
    AGrid.RowCount := lCantidad
  else
    AGrid.RowCount := 1;
  AGrid.RefreshAsyncRender;
//  AGrid.DoRefreshControl := True;
  AGrid.AsyncUpdateAllCells;
end;

end.
Code:
object FrmObtenerCliente: TFrmObtenerCliente
  Left = 0
  Top = 0
  Width = 1500
  Height = 672
  RenderInvisibleControls = True
  AllowPageAccess = True
  ConnectionMode = cmAny
  Title = 'Buscar Clientes'
  OnCreate = IWAppFormCreate
  Background.Fixed = False
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  ShowHint = True
  DesignLeft = 8
  DesignTop = 8
  inline fraEncabezado1: TfraEncabezado
    Left = 0
    Top = 0
    Width = 1500
    Height = 42
    Align = alTop
    TabOrder = 0
    ExplicitWidth = 1500
    inherited IWFrameRegion: TIWRegion
      Width = 1500
      TabOrder = 1
      ExplicitWidth = 1500
      inherited lblOpcion: TIWLabel
        FriendlyName = 'Buscar Clientes'
      end
    end
  end
  inline fraNavegador1: TfraNavegador
    Left = 0
    Top = 42
    Width = 1500
    Height = 31
    HorzScrollBar.Visible = False
    VertScrollBar.Visible = False
    Align = alTop
    TabOrder = 1
    ExplicitTop = 42
    ExplicitWidth = 1500
    inherited IWFrameRegion: TIWRegion
      Width = 1500
      TabOrder = 2
      ExplicitWidth = 1500
      inherited btncancelar: TIWButton
        Visible = False
      end
      inherited btnBorrar: TIWButton
        Visible = False
      end
      inherited btnAdicionar: TIWButton
        Visible = False
      end
      inherited btneditar: TIWButton
        Visible = False
      end
      inherited btnGrabar: TIWButton
        Visible = False
      end
    end
  end
  object iwrgnBackGround: TIWRegion
    Left = 16
    Top = 96
    Width = 1041
    Height = 529
    HorzScrollBar.Visible = False
    VertScrollBar.Visible = False
    RenderInvisibleControls = True
    BorderOptions.NumericWidth = 1
    BorderOptions.BorderWidth = cbwNumeric
    BorderOptions.Style = cbsSolid
    BorderOptions.Color = clWebSILVER
    object iwrgnGrid: TIWRegion
      Left = 1
      Top = 145
      Width = 1039
      Height = 383
      HorzScrollBar.Visible = False
      VertScrollBar.Visible = False
      RenderInvisibleControls = True
      Align = alClient
      BorderOptions.NumericWidth = 1
      BorderOptions.BorderWidth = cbwNumeric
      BorderOptions.Style = cbsNone
      BorderOptions.Color = clNone
      object GridConsulta: TTIWDBAdvWebGrid
        Left = 0
        Top = 0
        Width = 1039
        Height = 383
        Align = alClient
        Css = 'table-condensed table-striped table-hover table-bordered'
        ActiveRowColor = clMoneyGreen
        ActiveRowFontColor = clNone
        AdvanceOnReturn = False
        AutoEdit = False
        AutoHTMLAdapt = False
        Background.GradientDirection = gdHorizontal
        Background.Gradient1 = clNone
        Background.Gradient2 = clNone
        Background.Picture.Stretch = False
        Background.Picture.Frame = 0
        Bands.Active = False
        Bands.PrimaryColor = clInfoBk
        Bands.SecondaryColor = clWebWHITE
        Borders.Inner = ibAll
        Borders.Outer = obAll
        Borders.Padding = 0
        Borders.Spacing = 0
        Borders.Width = 1
        Borders.Collapsed = True
        Borders.Color = clNone
        Borders.ColorDark = clNone
        Borders.ColorLight = clNone
        CellComment.BorderColor = 14263350
        CellComment.Color = 15784080
        CellComment.DisplayType = dtMouseOver
        CellComment.Font.Color = 9330453
        CellComment.Font.Size = 10
        CellComment.Font.Style = []
        CheckTruePicture.Stretch = False
        CheckTruePicture.Frame = 0
        CheckFalsePicture.Stretch = False
        CheckFalsePicture.Frame = 0
        Color = clWebWHITE
        Columns = <
          item
            ButtonText = '...'
            ButtonWidth = 25
            CanSort = False
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderClick = False
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            ColumnType = ctButton
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'Sel.'
            Width = 35
          end
          item
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'C'#243'digo'
            Width = 115
            DataField = 'codigo_cliente'
          end
          item
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'Nombres'
            Width = 190
            DataField = 'nombres'
          end
          item
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'Apellidos'
            Width = 190
            DataField = 'apellidos'
          end
          item
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'Doc. Identidad'
            Width = 110
            DataField = 'cedula'
          end
          item
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'Telefono'
            Width = 95
            DataField = 'telefono'
          end
          item
            CheckTrue = 'true'
            CheckFalse = 'false'
            ColumnHeaderFont.Color = clNone
            ColumnHeaderFont.Size = 10
            ColumnHeaderFont.Style = []
            DefaultDynEdit = '0'
            DefaultDynText = '0'
            DetailFont.Color = clNone
            DetailFont.Size = 10
            DetailFont.Style = []
            Font.Color = clNone
            Font.Size = 10
            Font.Style = []
            FooterFormat = '%g'
            SpinEditMaxValue = 100
            SpinEditMinValue = 0
            Title = 'No. Cuenta'
            Width = 100
            DataField = 'numero_cuenta'
          end>
        ColumnHeaderColor = clBtnFace
        ColumnHeaderFont.Color = clNone
        ColumnHeaderFont.Size = 10
        ColumnHeaderFont.Style = []
        ColumnHeaderBorders.Inner = ibAll
        ColumnHeaderBorders.Outer = obAll
        ColumnHeaderBorders.Padding = 0
        ColumnHeaderBorders.Spacing = 0
        ColumnHeaderBorders.Width = 1
        ColumnHeaderBorders.Collapsed = True
        ColumnHeaderBorders.Color = clNone
        ColumnHeaderBorders.ColorDark = clNone
        ColumnHeaderBorders.ColorLight = clNone
        ColumnSizing = False
        Controller.Alignment = taLeftJustify
        Controller.Borders.Inner = ibAll
        Controller.Borders.Outer = obAll
        Controller.Borders.Padding = 0
        Controller.Borders.Spacing = 0
        Controller.Borders.Width = 1
        Controller.Borders.Collapsed = True
        Controller.Borders.Color = clNone
        Controller.Borders.ColorDark = clNone
        Controller.Borders.ColorLight = clNone
        Controller.Caption = 'Listado de Clientes'
        Controller.Color = clNone
        Controller.Font.Color = clNone
        Controller.Font.Size = 10
        Controller.Font.Style = []
        Controller.Gradient1 = clNone
        Controller.Gradient2 = clNone
        Controller.GradientDirection = gdHorizontal
        Controller.Height = 22
        Controller.MaxPages = 10
        Controller.Position = cpNone
        Controller.Pager = cpPrevNext
        Controller.PagerType = cptLink
        Controller.IndicatorFormat = '%d of %d'
        Controller.IndicatorType = itNone
        Controller.TextPrev = 'Anterior'
        Controller.TextNext = 'Proximo'
        Controller.TextFirst = 'Primero'
        Controller.TextLast = 'Ultimo'
        Controller.ImgPrev.Stretch = False
        Controller.ImgPrev.Frame = 0
        Controller.ImgNext.Stretch = False
        Controller.ImgNext.Frame = 0
        Controller.ImgFirst.Stretch = False
        Controller.ImgFirst.Frame = 0
        Controller.ImgLast.Stretch = False
        Controller.ImgLast.Frame = 0
        Controller.RowCountSelect = False
        Controller.ShowFind = True
        Controller.HintFind = 'Find'
        Controller.ShowPagersAlways = False
        DateSeparator = '/'
        DateFormat = gdEU
        DecimalPoint = '.'
        DefaultColumnHeaderHeight = 22
        DefaultRowHeight = 22
        DetailRowHeight = 0
        DetailRowShow = dsNormal
        EditColor = clNone
        EditSelectAll = False
        FooterBorders.Inner = ibAll
        FooterBorders.Outer = obAll
        FooterBorders.Padding = 0
        FooterBorders.Spacing = 0
        FooterBorders.Width = 1
        FooterBorders.Collapsed = True
        FooterBorders.Color = clNone
        FooterBorders.ColorDark = clNone
        FooterBorders.ColorLight = clNone
        FooterColor = clBtnFace
        FooterFont.Color = clNone
        FooterFont.Size = 10
        FooterFont.Style = []
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        Glyphs.EditButton.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          0800000000000001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A6000020400000206000002080000020A0000020C0000020E000004000000040
          20000040400000406000004080000040A0000040C0000040E000006000000060
          20000060400000606000006080000060A0000060C0000060E000008000000080
          20000080400000806000008080000080A0000080C0000080E00000A0000000A0
          200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
          200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
          200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
          20004000400040006000400080004000A0004000C0004000E000402000004020
          20004020400040206000402080004020A0004020C0004020E000404000004040
          20004040400040406000404080004040A0004040C0004040E000406000004060
          20004060400040606000406080004060A0004060C0004060E000408000004080
          20004080400040806000408080004080A0004080C0004080E00040A0000040A0
          200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
          200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
          200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
          20008000400080006000800080008000A0008000C0008000E000802000008020
          20008020400080206000802080008020A0008020C0008020E000804000008040
          20008040400080406000804080008040A0008040C0008040E000806000008060
          20008060400080606000806080008060A0008060C0008060E000808000008080
          20008080400080806000808080008080A0008080C0008080E00080A0000080A0
          200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
          200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
          200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
          2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
          2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
          2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
          2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
          2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
          2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
          2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000707E4E4E4E4
          E4E4E4E4E4E4E4E4E4070707EDF609090909090909090909E4070707EDF60707
          0707070707070709E4070707EDF6F6090909090909090909E4070707EDFFF609
          0909095A09090909E4070707F5FF07070707075200070709E4070707F5FFFFF6
          F609095A00000709E407070707FFFFFFF6F6095AFB360007E407070707FF0707
          070707A4FB360007ED07070709FFFFFFFFF6F6F65BFB3600ED07070709FFFFFF
          FFFFF6F6ACFB36000707070709FF070707070707F652FB360007070709FFFFFF
          FFFFFFFF079A7F360007070709FFFFFFFFFFFFFF08EC51000200070709FFFFFF
          FFFFFFFF07EC9A0202410707090909090909090907E407838307}
        Glyphs.EditHint = 'Edit'
        Glyphs.PostButton.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          0800000000000001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A6000020400000206000002080000020A0000020C0000020E000004000000040
          20000040400000406000004080000040A0000040C0000040E000006000000060
          20000060400000606000006080000060A0000060C0000060E000008000000080
          20000080400000806000008080000080A0000080C0000080E00000A0000000A0
          200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
          200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
          200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
          20004000400040006000400080004000A0004000C0004000E000402000004020
          20004020400040206000402080004020A0004020C0004020E000404000004040
          20004040400040406000404080004040A0004040C0004040E000406000004060
          20004060400040606000406080004060A0004060C0004060E000408000004080
          20004080400040806000408080004080A0004080C0004080E00040A0000040A0
          200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
          200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
          200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
          20008000400080006000800080008000A0008000C0008000E000802000008020
          20008020400080206000802080008020A0008020C0008020E000804000008040
          20008040400080406000804080008040A0008040C0008040E000806000008060
          20008060400080606000806080008060A0008060C0008060E000808000008080
          20008080400080806000808080008080A0008080C0008080E00080A0000080A0
          200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
          200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
          200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
          2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
          2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
          2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
          2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
          2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
          2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
          2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707071D
          1D1D1D1D1D0707070707070707271E1F2727271F1E1D1D07070707071E276FB7
          F6F6F6BF6F271E1D0707072727B7F6FFF6F6F6FFFFBF271E1D070727B7FFF6B7
          6FBF276FF6FFBF271D07276FF6FF6F27F6FF6F1F27F6FF6F1E1D27B7FFBF6FF6
          FFF6B7271F6FFFBF1F1D27B7FFB7BFFFAF6FF6672727F6F6271E67BFFFB76F6F
          2727B7B72727F6F6271E6F08FFB76F6F6F676FB72727F6F6271E67BFFFF66F6F
          6F6F676F6FB7FFB7271D076FF6FFBF6F6F6F6727B7F6F66F1E07076FF6F6FFF6
          B7B7B7BFFFFFB7271E070707AFF6FFFFFFFFFFFFF6B7271F07070707076FBFF6
          F6F6F6B76F272707070707070707076FAFAF6F67270707070707}
        Glyphs.PostHint = 'Post'
        Glyphs.CancelButton.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          0800000000000001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A6000020400000206000002080000020A0000020C0000020E000004000000040
          20000040400000406000004080000040A0000040C0000040E000006000000060
          20000060400000606000006080000060A0000060C0000060E000008000000080
          20000080400000806000008080000080A0000080C0000080E00000A0000000A0
          200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
          200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
          200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
          20004000400040006000400080004000A0004000C0004000E000402000004020
          20004020400040206000402080004020A0004020C0004020E000404000004040
          20004040400040406000404080004040A0004040C0004040E000406000004060
          20004060400040606000406080004060A0004060C0004060E000408000004080
          20004080400040806000408080004080A0004080C0004080E00040A0000040A0
          200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
          200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
          200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
          20008000400080006000800080008000A0008000C0008000E000802000008020
          20008020400080206000802080008020A0008020C0008020E000804000008040
          20008040400080406000804080008040A0008040C0008040E000806000008060
          20008060400080606000806080008060A0008060C0008060E000808000008080
          20008080400080806000808080008080A0008080C0008080E00080A0000080A0
          200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
          200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
          200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
          2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
          2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
          2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
          2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
          2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
          2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
          2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707071D
          1D1D1D1D1D0707070707070707271E1F2727271F1E1D1D07070707071E276FB7
          F6F6F6BF6F271E1D0707072727B7F6FFF6F6F6FFFFBF271E1D070727B7FFF627
          27271F1FB7F6BF271D07276FF6FFB7B767272727B7B7FF6F1E1D27B7FFBF67B7
          F66767F6B727F6BF1F1D27B7FF6F6F67B7F6F6B72727BFF6271E67BFFF6F6F6F
          6FF6F66F2727B7F6271E6F08FF6F6F6FF6B7B7F66F27F6F6271E67BFFFF66FF6
          B76F6FB7F66FF6B7271D076FF6FFB7AF6F6F6F6FB7F6F66F1E07076FF6F6FFF6
          6F6F6FB7FFFFB7271E070707AFF6FFFFFFFFFFFFF6B7271F07070707076FBFF6
          F6F6F6B76F272707070707070707076FAFAF6F67270707070707}
        Glyphs.CancelHint = 'Cancel'
        Glyphs.SpinEditButtonDownImage.Stretch = False
        Glyphs.SpinEditButtonDownImage.Frame = 0
        Glyphs.SpinEditButtonUpImage.Stretch = False
        Glyphs.SpinEditButtonUpImage.Frame = 0
        HoverColor = clNone
        HoverFontColor = clNone
        HeaderStyle = hsRaised
        ID = 0
        Indicators.Browse.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888880888888888888888008888888888888800088888
          8888888800008888888888880000088888888888000000888888888800000008
          8888888800000088888888880000088888888888000088888888888800088888
          8888888800888888888888880888888888888888888888888888}
        Indicators.Insert.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888888888888888888888888888888888888888088888
          8888888888088888888888800808008888888888800088888888888880008888
          8888888008080088888888888808888888888888880888888888888888888888
          8888888888888888888888888888888888888888888888888888}
        Indicators.Edit.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888888888888888888880080088888888888880888888
          8888888880888888888888888088888888888888808888888888888880888888
          8888888880888888888888888088888888888888808888888888888880888888
          8888888008008888888888888888888888888888888888888888}
        MouseSelect = msNone
        Nodes.NodeOpen.Stretch = False
        Nodes.NodeOpen.Frame = 1
        Nodes.NodeOpen.Data = {
          424DBE0000000000000076000000280000000900000009000000010004000000
          000048000000120B0000120B0000100000001000000000000000000080000080
          00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
          000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000FFF
          FFFF000000000FFF0FFF000000000FFF0FFF000000000F00000F000000000FFF
          0FFF000000000FFF0FFF000000000FFFFFFF000000000000000000000000}
        Nodes.NodeClosed.Stretch = False
        Nodes.NodeClosed.Frame = 1
        Nodes.NodeClosed.Data = {
          424DBE0000000000000076000000280000000900000009000000010004000000
          000048000000120B0000120B0000100000001000000000000000000080000080
          00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
          000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000FFF
          FFFF000000000FFFFFFF000000000FFFFFFF000000000F00000F000000000FFF
          FFFF000000000FFFFFFF000000000FFFFFFF000000000000000000000000}
        NameOfDays.Strings = (
          'Sun'
          'Mon'
          'Tue'
          'Wed'
          'Thu'
          'Fri'
          'Sat')
        NameOfMonths.Strings = (
          'January'
          'February'
          'March'
          'April'
          'May'
          'June'
          'July'
          'August'
          'September'
          'October'
          'November'
          'December')
        OuterBorder.Show = False
        OuterBorder.Color = clWebBLACK
        Page = 0
        RowCount = 1
        RowHeader.Show = False
        RowHeader.Width = 22
        RowHeader.Borders.Inner = ibAll
        RowHeader.Borders.Outer = obAll
        RowHeader.Borders.Padding = 0
        RowHeader.Borders.Spacing = 0
        RowHeader.Borders.Width = 1
        RowHeader.Borders.Collapsed = True
        RowHeader.Borders.Color = clNone
        RowHeader.Borders.ColorDark = clNone
        RowHeader.Borders.ColorLight = clNone
        RowHeader.Color = clBtnFace
        RowHeader.Gradient1 = clNone
        RowHeader.Gradient2 = clNone
        RowHeader.GradientDirection = gdHorizontal
        Scroll.Style = scAuto
        Scroll.Scrollbar3DLightColor = clNone
        Scroll.ScrollbarArrowColor = clNone
        Scroll.ScrollbarBaseColor = clNone
        Scroll.ScrollbarTrackColor = clNone
        Scroll.ScrollbarDarkshadowColor = clNone
        Scroll.ScrollbarFaceColor = clNone
        Scroll.ScrollbarHighlightColor = clNone
        Scroll.ScrollbarShadowColor = clNone
        SelectColor = clMoneyGreen
        SelectFontColor = clHighlightText
        ShowColumnHeader = True
        ShowFooter = False
        ShowSelect = True
        SortSettings.Show = True
        SortSettings.Column = 0
        SortSettings.Direction = sdAscending
        SortSettings.InitSortDir = sdAscending
        StretchColumn = -1
        TabOrder = 0
        UseFullHeight = True
        UseFullWidth = True
        OnButtonClick = GridConsultaButtonClick
        OnColumnHeaderClick = GridConsultaColumnHeaderClick
        AsyncActiveRowMove = True
        AsyncEdit = False
        AsyncPaging = False
        AsyncSorting = False
        DataSource = dsData
        ShowRowsAlways = True
        ExplicitLeft = 2
        ExplicitTop = 2
        ExplicitWidth = 965
        ExplicitHeight = 381
      end
    end
    object iwrgnButton: TIWRegion
      Left = 1
      Top = 1
      Width = 1039
      Height = 144
      HorzScrollBar.Visible = False
      VertScrollBar.Visible = False
      RenderInvisibleControls = True
      Align = alTop
      BorderOptions.NumericWidth = 1
      BorderOptions.BorderWidth = cbwNumeric
      BorderOptions.Style = cbsNone
      BorderOptions.Color = clNone
      object IWLabel1: TIWLabel
        Left = 10
        Top = 13
        Width = 55
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'C'#243'digo'
      end
      object EdtCodigoCliente: TTIWAdvEdit
        Left = 80
        Top = 8
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        FocusColor = clNone
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'EdtCodigoCliente'
        SubmitOnAsyncEvent = True
        TabOrder = 6
        AdvanceOnReturn = True
        AdvanceOnUpDown = False
        BorderColor = clWebBLACK
        BorderWidth = 1
        Color = clNone
        DecimalPoint = ','
        EditType = etString
        Flat = False
        PasswordPrompt = False
        SelectAll = False
        Signed = False
        SubmitOnReturn = False
        Text = 'EdtCodigoCliente'
      end
      object IWLabel2: TIWLabel
        Left = 10
        Top = 46
        Width = 63
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Nombres'
      end
      object EdtNombre: TTIWAdvEdit
        Left = 80
        Top = 41
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        FocusColor = clNone
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'EdtCodigoCliente'
        SubmitOnAsyncEvent = True
        TabOrder = 7
        AdvanceOnReturn = True
        AdvanceOnUpDown = False
        BorderColor = clWebBLACK
        BorderWidth = 1
        Color = clNone
        DecimalPoint = ','
        EditType = etString
        Flat = False
        PasswordPrompt = False
        SelectAll = False
        Signed = False
        SubmitOnReturn = False
        Text = 'EdtCodigoCliente'
      end
      object IWLabel3: TIWLabel
        Left = 10
        Top = 82
        Width = 63
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Apellidos'
      end
      object EdtApellido: TTIWAdvEdit
        Left = 80
        Top = 77
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        FocusColor = clNone
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'EdtCodigoCliente'
        SubmitOnAsyncEvent = True
        TabOrder = 8
        AdvanceOnReturn = True
        AdvanceOnUpDown = False
        BorderColor = clWebBLACK
        BorderWidth = 1
        Color = clNone
        DecimalPoint = ','
        EditType = etString
        Flat = False
        PasswordPrompt = False
        SelectAll = False
        Signed = False
        SubmitOnReturn = False
        Text = 'EdtCodigoCliente'
      end
      object btnBuscar: TIWButton
        Left = 283
        Top = 108
        Width = 120
        Height = 30
        Css = 'btn btn-primary'
        Caption = 'Buscar'
        Color = clBtnFace
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'btnBuscar'
        TabOrder = 18
        RenderButtonTag = True
        Image.WebFontClass = 'fas fa-search'
        OnAsyncClick = btnBuscarAsyncClick
      end
      object btnLimpiar: TIWButton
        Left = 423
        Top = 108
        Width = 120
        Height = 30
        Css = 'btn btn-primary'
        Caption = 'Limpiar'
        Color = clBtnFace
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'btnLimpiar'
        TabOrder = 19
        RenderButtonTag = True
        Image.WebFontClass = 'fas fa-minus-octagon'
        OnAsyncClick = btnLimpiarAsyncClick
      end
      object btnNuevo: TIWButton
        Left = 563
        Top = 108
        Width = 120
        Height = 30
        Css = 'btn btn-primary'
        Caption = 'Nuevo'
        Color = clBtnFace
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'btnNuevo'
        TabOrder = 20
        RenderButtonTag = True
        Image.WebFontClass = 'far fa-file-plus'
        OnAsyncClick = btnNuevoAsyncClick
      end
      object IWLabel4: TIWLabel
        Left = 242
        Top = 13
        Width = 107
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Doc. Identidad'
      end
      object EdtDocIdentidad: TTIWAdvEdit
        Left = 352
        Top = 8
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        FocusColor = clNone
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'EdtCodigoCliente'
        SubmitOnAsyncEvent = True
        TabOrder = 9
        AdvanceOnReturn = True
        AdvanceOnUpDown = False
        BorderColor = clWebBLACK
        BorderWidth = 1
        Color = clNone
        DecimalPoint = ','
        EditType = etString
        Flat = False
        PasswordPrompt = False
        SelectAll = False
        Signed = False
        SubmitOnReturn = False
        Text = 'EdtCodigoCliente'
      end
      object IWLabel5: TIWLabel
        Left = 242
        Top = 46
        Width = 83
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Tipo Cliente'
      end
      object IWLabel6: TIWLabel
        Left = 242
        Top = 82
        Width = 74
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Condici'#243'n'
      end
      object cbbTipoCliente: TIWDBLookupComboBox
        Left = 352
        Top = 41
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        TabOrder = 10
        AutoEditable = False
        FriendlyName = 'cbbTipoCliente'
        KeyField = 'tipo_clienteid'
        ListField = 'descripcion'
        ListSource = dtsTipoCliente
        DisableWhenEmpty = False
        NoSelectionText = '-- No Selection --'
      end
      object cbbCondicion: TIWDBLookupComboBox
        Left = 352
        Top = 77
        Width = 149
        Height = 21
        StyleRenderOptions.RenderBorder = False
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        TabOrder = 11
        AutoEditable = False
        FriendlyName = 'cbbCondicion'
        KeyField = 'status_clienteid'
        ListField = 'descripcion'
        ListSource = dtsStatusCliente
        DisableWhenEmpty = False
        NoSelectionText = '-- No Selection --'
      end
      object IWLabel7: TIWLabel
        Left = 514
        Top = 8
        Width = 35
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Zona'
      end
      object cbbZona: TIWDBLookupComboBox
        Left = 568
        Top = 3
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        OnAsyncChange = cbbZonaAsyncChange
        TabOrder = 12
        AutoEditable = False
        FriendlyName = 'cbbTipoCliente'
        KeyField = 'zonaid'
        ListField = 'descripcion'
        ListSource = dtsZona
        DisableWhenEmpty = False
        NoSelectionText = '-- No Selection --'
      end
      object cbbPueblo: TIWDBLookupComboBox
        Left = 568
        Top = 39
        Width = 149
        Height = 21
        StyleRenderOptions.RenderBorder = False
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        OnAsyncChange = cbbPuebloAsyncChange
        TabOrder = 13
        AutoEditable = False
        FriendlyName = 'cbbCondicion'
        KeyField = 'provincia_puebloid'
        ListField = 'descripcion'
        ListSource = dtsprovincia_pueblo
        DisableWhenEmpty = False
        NoSelectionText = '-- No Selection --'
      end
      object IWLabel8: TIWLabel
        Left = 514
        Top = 44
        Width = 49
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Pueblo'
      end
      object IWLabel9: TIWLabel
        Left = 738
        Top = 44
        Width = 125
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'C'#243'digo Catastral'
      end
      object IWLabel10: TIWLabel
        Left = 738
        Top = 8
        Width = 102
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'C'#243'digo Postal'
      end
      object IWLabel11: TIWLabel
        Left = 514
        Top = 81
        Width = 44
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Sector'
      end
      object cbbSector: TIWDBLookupComboBox
        Left = 568
        Top = 76
        Width = 149
        Height = 21
        StyleRenderOptions.RenderBorder = False
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        TabOrder = 14
        AutoEditable = False
        FriendlyName = 'cbbCondicion'
        KeyField = 'sectorid'
        ListField = 'descripcion'
        ListSource = dtsSectores
        DisableWhenEmpty = False
        NoSelectionText = '-- No Selection --'
      end
      object IWLabel12: TIWLabel
        Left = 738
        Top = 81
        Width = 33
        Height = 17
        Font.Color = clNone
        Font.FontName = 'century gothic'
        Font.Size = 10
        Font.Style = []
        HasTabOrder = False
        FriendlyName = 'IWLabel1'
        Caption = 'Ruta'
      end
      object cbbRuta: TIWDBLookupComboBox
        Left = 864
        Top = 76
        Width = 149
        Height = 21
        StyleRenderOptions.RenderBorder = False
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        TabOrder = 17
        AutoEditable = False
        FriendlyName = 'cbbCondicion'
        KeyField = 'rutaid'
        ListField = 'descripcion'
        ListSource = dsRuta
        DisableWhenEmpty = False
        NoSelectionText = '-- No Selection --'
      end
      object EdtCodigoPostal: TTIWAdvEdit
        Left = 864
        Top = 3
        Width = 150
        Height = 21
        StyleRenderOptions.RenderBorder = False
        FocusColor = clNone
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'cbbTipoCliente'
        SubmitOnAsyncEvent = True
        TabOrder = 15
        AdvanceOnReturn = False
        AdvanceOnUpDown = False
        BorderColor = clWebBLACK
        BorderWidth = 1
        Color = clNone
        DecimalPoint = ','
        EditType = etString
        Flat = False
        PasswordPrompt = False
        SelectAll = False
        Signed = False
        SubmitOnReturn = False
        Text = 'EdtCodigoPostal'
      end
      object EdtCodigoCatastral: TTIWAdvEdit
        Left = 864
        Top = 39
        Width = 149
        Height = 21
        StyleRenderOptions.RenderBorder = False
        FocusColor = clNone
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        FriendlyName = 'cbbCondicion'
        SubmitOnAsyncEvent = True
        TabOrder = 16
        AdvanceOnReturn = False
        AdvanceOnUpDown = False
        BorderColor = clWebBLACK
        BorderWidth = 1
        Color = clNone
        DecimalPoint = ','
        EditType = etString
        Flat = False
        PasswordPrompt = False
        SelectAll = False
        Signed = False
        SubmitOnReturn = False
        Text = 'EdtCodigoCatastral'
      end
    end
  end
  object dsData: TDataSource
    DataSet = qryData
    Left = 1152
    Top = 216
  end
  object qryData: TUniQuery
    Connection = IWUserSession.Praxisdb
    SQL.Strings = (
      'select *'
      '  from cliente'
      ' where 0 > 1')
    AfterOpen = qryDataAfterOpen
    Left = 1144
    Top = 272
  end
  object dsRuta: TDataSource
    DataSet = qryRuta
    Left = 1112
    Top = 588
  end
  object qryRuta: TUniQuery
    Connection = IWUserSession.Praxisdb
    SQL.Strings = (
      'select *'
      'from ruta'
      'where companiaid = :companiaid'
      'and estado = '#39'A'#39
      'order by descripcion')
    Left = 1168
    Top = 588
    ParamData = <
      item
        DataType = ftInteger
        Name = 'companiaid'
        Value = nil
      end>
  end
  object dtsStatusCliente: TDataSource
    DataSet = IWUserSession.qrystatus_clientes
    Left = 1104
    Top = 352
  end
  object dtsTipoCliente: TDataSource
    DataSet = IWUserSession.qrytipos_clientes
    Left = 1106
    Top = 430
  end
  object dtsZona: TDataSource
    DataSet = IWUserSession.qryzonas
    Left = 1064
    Top = 272
  end
  object qryprovincias_pueblos: TUniQuery
    Connection = IWUserSession.Praxisdb
    SQL.Strings = (
      'select *'
      '   from provincia_pueblo'
      'where ZONAID =  :ZONAID'
      'order by Descripcion'
      '')
    Left = 1098
    Top = 105
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ZONAID'
        Value = nil
      end>
  end
  object dtsprovincia_pueblo: TDataSource
    DataSet = qryprovincias_pueblos
    Left = 1184
    Top = 96
  end
  object qrysectores: TUniQuery
    Connection = IWUserSession.Praxisdb
    SQL.Strings = (
      'select *'
      '   from sector'
      'where provincia_puebloid = :provincia_puebloid'
      'order by Descripcion'
      '')
    Left = 1175
    Top = 527
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'provincia_puebloid'
        Value = nil
      end>
  end
  object dtsSectores: TDataSource
    DataSet = qrysectores
    Left = 1176
    Top = 488
  end
end


Attached Files Thumbnail(s)
   
Reply


Messages In This Thread
RefreshAsyncRender and ItemIndex - by Rolphy Reyes - 09-18-2020, 01:54 PM

Forum Jump:


Users browsing this thread: 1 Guest(s)