Primera carga de Minds Cliente para el proyecto de blackrock

This commit is contained in:
Vicente Hernandez 2019-07-05 13:43:55 -05:00
commit 3c9d798741
1068 changed files with 227610 additions and 0 deletions

BIN
.vs/Minds Cliente/v14/.suo Normal file

Binary file not shown.

BIN
.vs/Minds Cliente/v15/.suo Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,330 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ
DQAAAk1TRnQBSQFMAgEBCAEAAaQBAAGkAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAHBwMA
FgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wBBwEA
AjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3
AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEA
AjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEA
A+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF/wHw
AQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD7AEH
AQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0BFAH/
AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQACBwEA
Cf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sBDQEU
ARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQABNwEA
BAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH/wEA
ATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwBBwEA
ATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewBFAHv
BuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4EFQFD
AQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsBAAMH
AewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8DAAUH
AQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB/wMA
BQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcBFwGS
BwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB9wIA
Af8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB/wMA
AQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkBkgEH
AgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcDBw0A
AwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwABBwEA
Af8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB7AUH
BQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C7wQH
AwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQADBwEA
Af8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL7AIH
AvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCCAAs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cAAHd3d3d3d3d3d3cAAHd3d3eId3d3d3cAAHd3d3zIh3d3d3cAAHd3d8IsiHd3d3cAAHd3
eiIiyId3d3cAAHd3oiIiLIh3d3cAAHd3oiKiIsiHd3cAAHd3oiyKIiyHd3cAAHd3oiyHoiyId3cAAHd3
eix3eiLIh3cAAHd3d6p3d6IsiHcAAHd3d3d3d3oiyIcAAHd3d3d3d3eiLIcAAHd3d3d3d3d6LIcAAHd3
d3d3d3d3rHcAAHd3d3d3d3d3d3cAAHd3d3d3d3d3d3cAAHd3d3d3d3d3d3cAAHd3d3d3d3d3d3cAAA==
</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cAAHd3d3h3d3d3d3cAAHd3dwiHd3d3d3cAAHd3eRCHd3eId3cAAHd3eRCId3AIh3cAAHd3
eREIh5EQh3cAAHd3d5EQiREQd3cAAHd3d5ERkREHd3cAAHd3d3kRERB3d3cAAHd3d3eREQiHd3cAAHd3
d3eRERCHd3cAAHd3d3kRARCId3cAAHd3d3kQeREIh3cAAHd3d5EHd5EQiHcAAHd3d5EHd3kRCHcAAHd3
d3l3d3eRB3cAAHd3d3d3d3d5d3cAAHd3d3d3d3d3d3cAAHd3d3d3d3d3d3cAAHd3d3d3d3d3d3cAAA==
</value>
</data>
<data name="Btnbaja.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsGAAALBgFkNOkkAAAEAElE
QVRYR+3W609adxzH8d/fsj1Y4pq0y5LWXeI2s8wHbgyt1XbaqW1lVLxPQREUlXrBVUq51LtCoRWLt0Kx
siKI0QNeoCgoKspUKmi9zFadiuecmayxywmy7umhyevB73zz/jw/AIao/5sxH4Zo2GMQAKiRdprdYZZ7
oGZay/9DU/L2PlqEzEjWLA+tj2+97Ke/vQcBAI+zT7MG8YY1ba3tT7pkgjdHcwU83fxqda5Pb2yquzvd
W34SBwOAWLmn2Ru/O6ltFLW0SZqEb472+qMlzYJzTvZI9UTG9QzWnMTBAMBT9wPwjkrrm6U8YYNr6PhT
Cs8r917OP302VMa+BSmqdy0tmB7fALKgCmDHoZTLFdVCqba3+9D1O+IxeT3e2lZFKplk6xNhYtwDiNsY
wJ4L0mj6hc2KJkm7Z2bs9cqs3THP4bempKTYdQ8xMe4BdGM2gH2vA4JGGmU91QLJgF5vHhuVd/dRi6pT
b6YuWvWYGPcA+nolgIPNZYvZIm5TcfhiWXu3+EEHnc1LvplXkE/bXpnFxLgH0L+2AvDtrLtdc109amal
kFEhyKZX/EzKik8kCXi397Y8mBj3AOrbDexof0c/ZEnPZydRaHHJmdEJFCq9xGAwIIc7mBL3AIoc/ido
4gU5h/XTNUpsUs6llBJR06MltxfTBAOAor4Advd9VtehoGc1kaXLrOpLK++NylFlcfobu2d0lg3H4p8v
1l5hJjgGYPTIr4OjI8/Woca8V6XYjud4LrLm80TTeUI7kTFJYM4SCh3p3Mm6TofGtIQZ4hiAEZ9f3q2D
LmiHLNpK4q5H08e/I8mJqeK43M4Y+iCBPkkomIjI6E+r0DV2WjBDHAPo/rZfamiT3roZV+n5sXDi6xuK
r67wI5O535MlUdRBjtQlVS+yakdjf+1MzG/HDHHs+D9r1S9mq4fMXyPVuBKYA98mN38Ry80tfZBRpvoh
b8xgch8H4+a5S5mST4mcf6/wDcAbTr8Sq5eLW9xjZqft+VTpHdXnMbfVan2nykQstKl1Tt+6c3hojEji
nY2gYYY4BuCVEb9i2Is1stl/3tw61YVozuSg0g5p4kusjFpbw31tQWnTubD4D86En0xwD8Cup35dZjvL
6p47jM8Mml4KUxZKYI48Fiyb5NTf9BFZhvMX74SEkT4MCTv7SShmiGMAmZL4da18IpZuIjO6ruZIPoti
nw+/amwr3re2SMXyyOuikC+vf3ThCiEug81iY4Y4BmAL368qvjI6Wxkad+9cZPGZ8EwyKc3WwTi+L2hF
EgEnl/ILIye9o6Fqqhc7xDGAjJb4pZXzyyvrv7lc9XHYjYTkbMW9Iq+GhmmCDUBMhe+9I4Cast97J6bs
vwE9dtJr28GAfQAAAABJRU5ErkJggg==
</value>
</data>
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:InactiveBorder;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;178&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 727, 178&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 727, 178&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,703 @@
Public Class ActTipoCambio
Inherits System.Windows.Forms.Form
Dim clCmp As New clsComplejo()
Private ltFecha As String
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents Btnbaja As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Private lsComando As String
Dim blnuevo As Boolean = True
Dim blcarga As Boolean = True
Dim clase As New ValidaTexto
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents Label1 As Label
Private WithEvents panel3 As Panel
Friend WithEvents Label3 As Label
Friend WithEvents lblFooter As Label
Dim clsfecha As New clsComplejo
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents grdTiposCambio As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents cmbMonedas As System.Windows.Forms.ComboBox
Friend WithEvents txtBX As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents dtpFecha As AxMSComCtl2.AxDTPicker
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents txtIdTipoCambio As System.Windows.Forms.TextBox
Friend WithEvents dtpfecha1 As System.Windows.Forms.DateTimePicker
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ActTipoCambio))
Me.cmbMonedas = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.txtBX = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.pnlBotones = New System.Windows.Forms.Panel()
Me.btnAceptar = New System.Windows.Forms.Button()
Me.btnCancelar = New System.Windows.Forms.Button()
Me.txtIdTipoCambio = New System.Windows.Forms.TextBox()
Me.dtpfecha1 = New System.Windows.Forms.DateTimePicker()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.Btnbaja = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblFooter = New System.Windows.Forms.Label()
Me.pnlBotones.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel3.SuspendLayout()
Me.SuspendLayout()
'
'cmbMonedas
'
Me.cmbMonedas.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbMonedas.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbMonedas.Location = New System.Drawing.Point(179, 57)
Me.cmbMonedas.Name = "cmbMonedas"
Me.cmbMonedas.Size = New System.Drawing.Size(493, 21)
Me.cmbMonedas.TabIndex = 1
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label4.Location = New System.Drawing.Point(24, 57)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(46, 13)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Moneda"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(24, 28)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(117, 13)
Me.Label2.TabIndex = 52
Me.Label2.Text = "Fecha Tipo de Cambio"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
'
'txtBX
'
Me.txtBX.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtBX.BackColor = System.Drawing.Color.White
Me.txtBX.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtBX.Location = New System.Drawing.Point(179, 91)
Me.txtBX.MaxLength = 12
Me.txtBX.Name = "txtBX"
Me.txtBX.Size = New System.Drawing.Size(112, 20)
Me.txtBX.TabIndex = 4
Me.txtBX.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label5.Location = New System.Drawing.Point(24, 94)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(31, 13)
Me.Label5.TabIndex = 60
Me.Label5.Text = "Valor"
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(752, 57)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 79
Me.pnlBotones.Visible = False
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAceptar.UseVisualStyleBackColor = False
Me.btnAceptar.Visible = False
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCancelar.UseVisualStyleBackColor = False
Me.btnCancelar.Visible = False
'
'txtIdTipoCambio
'
Me.txtIdTipoCambio.BackColor = System.Drawing.Color.White
Me.txtIdTipoCambio.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtIdTipoCambio.Location = New System.Drawing.Point(675, 188)
Me.txtIdTipoCambio.Name = "txtIdTipoCambio"
Me.txtIdTipoCambio.Size = New System.Drawing.Size(104, 20)
Me.txtIdTipoCambio.TabIndex = 80
Me.txtIdTipoCambio.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtIdTipoCambio.Visible = False
'
'dtpfecha1
'
Me.dtpfecha1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dtpfecha1.Location = New System.Drawing.Point(179, 26)
Me.dtpfecha1.Name = "dtpfecha1"
Me.dtpfecha1.Size = New System.Drawing.Size(493, 20)
Me.dtpfecha1.TabIndex = 81
'
'BntSalie
'
Me.BntSalie.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BntSalie.BackColor = System.Drawing.Color.Black
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.White
Me.BntSalie.Location = New System.Drawing.Point(744, 348)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 95
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.UseVisualStyleBackColor = False
'
'BtnAlta
'
Me.BtnAlta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnAlta.BackColor = System.Drawing.Color.Black
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.White
Me.BtnAlta.Location = New System.Drawing.Point(744, 270)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 93
Me.BtnAlta.Text = "Guardar"
Me.BtnAlta.UseVisualStyleBackColor = False
'
'Btnbaja
'
Me.Btnbaja.BackColor = System.Drawing.Color.White
Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand
Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Btnbaja.ForeColor = System.Drawing.Color.MidnightBlue
Me.Btnbaja.Image = CType(resources.GetObject("Btnbaja.Image"), System.Drawing.Image)
Me.Btnbaja.Location = New System.Drawing.Point(753, 149)
Me.Btnbaja.Name = "Btnbaja"
Me.Btnbaja.Size = New System.Drawing.Size(106, 33)
Me.Btnbaja.TabIndex = 92
Me.Btnbaja.Text = "Baja"
Me.Btnbaja.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Btnbaja.UseVisualStyleBackColor = True
Me.Btnbaja.Visible = False
'
'BtnLimpiar
'
Me.BtnLimpiar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnLimpiar.BackColor = System.Drawing.Color.Black
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.White
Me.BtnLimpiar.Location = New System.Drawing.Point(744, 309)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 90
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.UseVisualStyleBackColor = False
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.dtpfecha1)
Me.GroupBox1.Controls.Add(Me.txtBX)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.cmbMonedas)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Location = New System.Drawing.Point(12, 257)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(726, 125)
Me.GroupBox1.TabIndex = 97
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Tipo de Cambio"
'
'GridMaster
'
Me.GridMaster.AllowArrows = False
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridMaster.BackColor = System.Drawing.Color.White
Me.GridMaster.EditDropDown = False
Me.GridMaster.FilterBar = True
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 57)
Me.GridMaster.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(731, 182)
Me.GridMaster.TabIndex = 98
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.Label1)
Me.panel2.Controls.Add(Me.pnlBotones)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(-3, 0)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(878, 39)
Me.panel2.TabIndex = 160
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(758, -11)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.SystemColors.Window
Me.Label1.Location = New System.Drawing.Point(21, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(158, 22)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Tipos de cambio"
'
'panel3
'
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label3)
Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(-3, 435)
Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(878, 29)
Me.panel3.TabIndex = 361
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.SystemColors.Window
Me.Label3.Location = New System.Drawing.Point(833, 7)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(42, 17)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Minds"
'
'lblFooter
'
Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds"
'
'ActTipoCambio
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(871, 463)
Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.GridMaster)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.txtIdTipoCambio)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.Btnbaja)
Me.Controls.Add(Me.BtnLimpiar)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "ActTipoCambio"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Tipos de cambio"
Me.pnlBotones.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private Sub LIMPIAR()
Me.txtBX.Text = ""
cmbMonedas.SelectedIndex = -1
cmbMonedas.SelectedIndex = -1
End Sub
Private Sub Habilita(ByVal Bandera As Boolean)
If clsVaribles.lbDemo = True Then Exit Sub
Me.txtBX.Enabled = Bandera
'Me.txtcompra.Enabled = Bandera
'Me.txtVenta.Enabled = Bandera
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
'LLENA GRID
SQL = " ConsultaTipoDeCambio '" & Classcom.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
If GridMaster.RowCount > 0 Then
GridMaster.Splits(0).DisplayColumns(0).Visible = False
For Each c As C1.Win.C1TrueDBGrid.C1DisplayColumn In GridMaster.Splits(0).DisplayColumns
c.AutoSize()
Next
'Btnbaja.Visible = True
End If
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub ActTipoCambio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If clsVaribles.lbDemo = True Then Exit Sub
dtpfecha1.Value = Date.Now.Date
Habilita(True)
Try
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
If clsVaribles.lbDemo = True Then Exit Sub
GroupBox1.Visible = False
Me.GroupBox1.Visible = True
'LLENA GRID
'SQL = "spConTipoCambio 2,'" & Classcom.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'"
SQL = "ConsultaMoneda 0"
Classcom.sbLlenaCombo(SQL, Me.cmbMonedas)
Classcom = New clsComplejo
blcarga = False
llenagrid()
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub sbConfiguraGrid()
If clsVaribles.lbDemo = True Then Exit Sub
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub txtcompra_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
'clase.NumeroDec(e, Me.txtcompra)
End Sub
Private Sub txtVenta_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)
'clase.NumeroDec(e, Me.txtVenta)
End Sub
Private Sub txtBX_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtBX.KeyPress
clase.NumeroDec(e, Me.txtBX)
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
'VALIDACION DE CAMPOS
Try
If cmbMonedas.SelectedIndex = -1 Then
MsgBox("Moneda no válida", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Exit Sub
End If
'If Len(txtcompra.Text) = 0 Or Not IsNumeric(txtcompra.Text) Then
' MsgBox("Valor de compra no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
' Exit Sub
'End If
'If Len(txtVenta.Text) = 0 Or Not IsNumeric(txtVenta.Text) Then
' MsgBox("Valor de venta no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
' Exit Sub
'End If
If Len(txtBX.Text) = 0 Or Not IsNumeric(txtBX.Text) Then
MsgBox("El campo valor no es válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
txtBX.Focus()
Exit Sub
End If
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
strSQLComodin = "sp_CargarTipoDeCambio " & cmbMonedas.SelectedValue & ",'" & dtpfecha1.Value.Date.ToString("yyyy/MM/dd") & "'," & txtBX.Text
'Dim liAud As Integer
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 3," & Me.cmbMonedas.SelectedValue & ",'" & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'")
'If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
' liAud = 2
'Else
' liAud = 4
'End If
''strSQLComodin = "spGrabaTipoCambio " & Me.cmbMonedas.SelectedValue & " ,'" & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'," & txtcompra.Text & "," & Me.txtVenta.Text & "," & Me.txtBX.Text & ",1"
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 111, 1, clsVaribles.lsValAnt & " | Valores Nuevos: Moneda = " & Me.cmbMonedas.Text & " Fecha = " & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & " , Valor Compra " & txtcompra.Text & ", Valor Venta" & Me.txtVenta.Text & ", Valor BX" & Me.txtBX.Text)
LIMPIAR()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub Btnbaja_Click(sender As System.Object, e As System.EventArgs) Handles Btnbaja.Click
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
clsfecha = New clsComplejo
'VALIDACION DE CAMPOS
Try
'If cmbMonedas.Text = "" Or cmbMonedas.SelectedIndex = -1 Then
' MessageBox.Show("Es Necesario seleccionar el tipo de Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
If GridMaster.RowCount < 0 Then
MsgBox("No hay registros para Eliminar.", MsgBoxStyle.Question + "MINDS Cliente")
Exit Sub
End If
If MsgBox("¿Desea Eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
'Dim liAud As Integer
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 3," & Me.cmbMonedas.SelectedValue & ",'" & ClassComodin.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'")
'liAud = 3
'strSQLComodin = "spGrabaTipoCambio " & Me.cmbMonedas.SelectedValue & " ,'" & clsfecha.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "',0,0,0,2"
Dim idMoneda As Integer = GridMaster.Columns("IDMONEDA").Value
Dim fechaCambio As Date = GridMaster.Columns("FECHA CAMBIO").Value
strSQLComodin = "sp_EliminarTipoDeCambio " & idMoneda & " ,'" & fechaCambio.ToString("yyyy/MM/dd") & "'"
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
blnuevo = False
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 111, 1, "Eliminación de tipo de cambio")
LIMPIAR()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
SQL = "spConTipoCambio 3,'" & Classcom.ObtenFecha(dtpfecha1.Value.Date, "YYYYMMDD") & "'," & Me.GridMaster.Columns("idmoneda").Value
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtBX.Text = Fila("DIVISABX").ToString
cmbMonedas.SelectedValue = Fila("IdMoneda")
End If
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub dtpfecha1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpfecha1.ValueChanged
llenagrid()
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
Me.txtBX.Text = ""
cmbMonedas.SelectedValue = -1
dtpfecha1.Value = Date.Now.Date
End Sub
Private Sub panel2_Paint(sender As Object, e As PaintEventArgs) Handles panel2.Paint
End Sub
End Class

367
Actualizadores/FRCalificacion.Designer.vb generated Normal file
View File

@ -0,0 +1,367 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FRCalificacion
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FRCalificacion))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.CHKr24 = New System.Windows.Forms.CheckBox()
Me.TXTTransaccion = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.CBEstatus = New System.Windows.Forms.ComboBox()
Me.TXTRazon = New System.Windows.Forms.TextBox()
Me.TXTDescripcion = New System.Windows.Forms.TextBox()
Me.CBPatron = New System.Windows.Forms.ComboBox()
Me.TXTReferencia = New System.Windows.Forms.TextBox()
Me.TXTNombre = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.BTAceptar = New System.Windows.Forms.Button()
Me.BtSalir = New System.Windows.Forms.Button()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.DesHeader = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel()
Me.lblFooter = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel3.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.CHKr24)
Me.GroupBox1.Controls.Add(Me.TXTTransaccion)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.CBEstatus)
Me.GroupBox1.Controls.Add(Me.TXTRazon)
Me.GroupBox1.Controls.Add(Me.TXTDescripcion)
Me.GroupBox1.Controls.Add(Me.CBPatron)
Me.GroupBox1.Controls.Add(Me.TXTReferencia)
Me.GroupBox1.Controls.Add(Me.TXTNombre)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 48)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(658, 349)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Datos relacionados a la transacción"
'
'CHKr24
'
Me.CHKr24.AutoSize = True
Me.CHKr24.ForeColor = System.Drawing.Color.MidnightBlue
Me.CHKr24.Location = New System.Drawing.Point(351, 318)
Me.CHKr24.Name = "CHKr24"
Me.CHKr24.Size = New System.Drawing.Size(110, 17)
Me.CHKr24.TabIndex = 20
Me.CHKr24.Text = "Reporte 24 Horas"
Me.CHKr24.UseVisualStyleBackColor = True
Me.CHKr24.Visible = False
'
'TXTTransaccion
'
Me.TXTTransaccion.Enabled = False
Me.TXTTransaccion.Location = New System.Drawing.Point(490, 46)
Me.TXTTransaccion.Name = "TXTTransaccion"
Me.TXTTransaccion.Size = New System.Drawing.Size(159, 20)
Me.TXTTransaccion.TabIndex = 14
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label7.Location = New System.Drawing.Point(376, 50)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(106, 13)
Me.Label7.TabIndex = 13
Me.Label7.Text = "Número Transacción"
'
'CBEstatus
'
Me.CBEstatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CBEstatus.FormattingEnabled = True
Me.CBEstatus.Location = New System.Drawing.Point(80, 316)
Me.CBEstatus.Name = "CBEstatus"
Me.CBEstatus.Size = New System.Drawing.Size(218, 21)
Me.CBEstatus.TabIndex = 12
'
'TXTRazon
'
Me.TXTRazon.Location = New System.Drawing.Point(79, 215)
Me.TXTRazon.MaxLength = 1500
Me.TXTRazon.Multiline = True
Me.TXTRazon.Name = "TXTRazon"
Me.TXTRazon.Size = New System.Drawing.Size(571, 92)
Me.TXTRazon.TabIndex = 11
'
'TXTDescripcion
'
Me.TXTDescripcion.Location = New System.Drawing.Point(80, 119)
Me.TXTDescripcion.MaxLength = 4000
Me.TXTDescripcion.Multiline = True
Me.TXTDescripcion.Name = "TXTDescripcion"
Me.TXTDescripcion.Size = New System.Drawing.Size(571, 92)
Me.TXTDescripcion.TabIndex = 10
'
'CBPatron
'
Me.CBPatron.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CBPatron.FormattingEnabled = True
Me.CBPatron.Location = New System.Drawing.Point(80, 83)
Me.CBPatron.Name = "CBPatron"
Me.CBPatron.Size = New System.Drawing.Size(400, 21)
Me.CBPatron.TabIndex = 9
'
'TXTReferencia
'
Me.TXTReferencia.Enabled = False
Me.TXTReferencia.Location = New System.Drawing.Point(79, 48)
Me.TXTReferencia.Name = "TXTReferencia"
Me.TXTReferencia.Size = New System.Drawing.Size(219, 20)
Me.TXTReferencia.TabIndex = 8
'
'TXTNombre
'
Me.TXTNombre.Enabled = False
Me.TXTNombre.Location = New System.Drawing.Point(78, 21)
Me.TXTNombre.Name = "TXTNombre"
Me.TXTNombre.Size = New System.Drawing.Size(571, 20)
Me.TXTNombre.TabIndex = 7
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label6.Location = New System.Drawing.Point(8, 320)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(42, 13)
Me.Label6.TabIndex = 5
Me.Label6.Text = "Estatus"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label5.Location = New System.Drawing.Point(6, 216)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(38, 13)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Razón"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label4.Location = New System.Drawing.Point(7, 120)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Descripción"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label3.Location = New System.Drawing.Point(8, 88)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(38, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Patrón"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(7, 54)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(59, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Referencia"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(7, 23)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Nombre"
'
'BTAceptar
'
Me.BTAceptar.BackColor = System.Drawing.Color.Black
Me.BTAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTAceptar.ForeColor = System.Drawing.Color.White
Me.BTAceptar.Location = New System.Drawing.Point(676, 56)
Me.BTAceptar.Name = "BTAceptar"
Me.BTAceptar.Size = New System.Drawing.Size(106, 33)
Me.BTAceptar.TabIndex = 6
Me.BTAceptar.Text = "Guardar"
Me.BTAceptar.UseVisualStyleBackColor = False
'
'BtSalir
'
Me.BtSalir.BackColor = System.Drawing.Color.Black
Me.BtSalir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtSalir.ForeColor = System.Drawing.Color.White
Me.BtSalir.Location = New System.Drawing.Point(676, 364)
Me.BtSalir.Name = "BtSalir"
Me.BtSalir.Size = New System.Drawing.Size(106, 33)
Me.BtSalir.TabIndex = 21
Me.BtSalir.Text = "Cerrar"
Me.BtSalir.UseVisualStyleBackColor = False
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.DesHeader)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(-1, -1)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(796, 40)
Me.panel2.TabIndex = 161
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(666, -9)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'DesHeader
'
Me.DesHeader.AutoSize = True
Me.DesHeader.BackColor = System.Drawing.Color.Transparent
Me.DesHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DesHeader.ForeColor = System.Drawing.SystemColors.Window
Me.DesHeader.Location = New System.Drawing.Point(21, 8)
Me.DesHeader.Name = "DesHeader"
Me.DesHeader.Size = New System.Drawing.Size(70, 22)
Me.DesHeader.TabIndex = 2
Me.DesHeader.Text = "Perfiles"
'
'panel3
'
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label8)
Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(-1, 432)
Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(796, 38)
Me.panel3.TabIndex = 403
'
'lblFooter
'
Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(899, 7)
Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.BackColor = System.Drawing.Color.Transparent
Me.Label8.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.SystemColors.Window
Me.Label8.Location = New System.Drawing.Point(741, 6)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(42, 17)
Me.Label8.TabIndex = 3
Me.Label8.Text = "Minds"
'
'FRCalificacion
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(791, 464)
Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.BtSalir)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.BTAceptar)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FRCalificacion"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Calificación de la transacción"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents CBPatron As System.Windows.Forms.ComboBox
Friend WithEvents TXTReferencia As System.Windows.Forms.TextBox
Friend WithEvents TXTNombre As System.Windows.Forms.TextBox
Friend WithEvents BTAceptar As System.Windows.Forms.Button
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CBEstatus As System.Windows.Forms.ComboBox
Friend WithEvents TXTRazon As System.Windows.Forms.TextBox
Friend WithEvents TXTDescripcion As System.Windows.Forms.TextBox
Friend WithEvents TXTTransaccion As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents CHKr24 As System.Windows.Forms.CheckBox
Friend WithEvents BtSalir As System.Windows.Forms.Button
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents DesHeader As Label
Private WithEvents panel3 As Panel
Friend WithEvents lblFooter As Label
Friend WithEvents Label8 As Label
End Class

View File

@ -0,0 +1,180 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,270 @@
Public Class FRCalificacion
Private Sub CBPatron_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBPatron.DropDown
Dim SQL As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
'SQL = "spLlenaComboPatronI " & clsVaribles.idproducto
'SQL = " sp_ConsultarPatronXProducto " & clsVaribles.idproducto
SQL = "SELECT IDPATRON as clave,PATRON as nombre from cat_patron where IDPATRON = 4 "
'clCmj1.cm.CommandText = SQL
'clCmj1.ad.SelectCommand = clCmj1.cm
clCmj1.sbLlenaCombo(SQL, CBPatron)
Catch ex As Exception
MessageBox.Show("Mensaje: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub llenaComboPatron()
Dim SQL As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
SQL = "SELECT IDPATRON as clave,PATRON as nombre from cat_patron where IDPATRON = 4 "
clCmj1.sbLlenaCombo(SQL, CBPatron)
Catch ex As Exception
MessageBox.Show("Mensaje: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub CBPatron_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBPatron.SelectedIndexChanged
End Sub
Private Sub FRCalificacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strTabla As String
Dim cmdSQL As String
Dim Classcom As New clsComplejo
Dim strNota As String
TXTNombre.Text = clsVaribles.Nombre
TXTReferencia.Text = clsVaribles.No_Referencia
TXTTransaccion.Text = clsVaribles.varTransaccion
If Me.TXTDescripcion.Text = "" Then
Select Case clsVaribles.idproducto
Case 1
strTabla = "BANCATRADICIONAL"
Case 2
strTabla = "MERCADODECAPITALES" '"MERCADODEDINERO"
Case 3
strTabla = "MERCADODECAPITALES"
Case 4
strTabla = "SOCIEDADESDEINVERSION"
Case 11
strTabla = "DIVISAS"
Case 8
strTabla = "CREDITO"
Case 7
strTabla = "BANCAINTERNACIONAL"
End Select
'Se asignan valores a los controles
'clsVAr.idproducto
'cmdSQL = "SELECT i.InstrumentoMonetario, t.tipooperacion as nombretipooperacion,c.monto,c.fecha,I.IdInstrumentoMonetario FROM " & strTabla & " c "
'cmdSQL = cmdSQL & " inner join cat_tipooperacion t on t.idtipooperacion = c.idtipooperacion "
'cmdSQL = cmdSQL & " inner join cat_instrumentomonetario i on i.IdInstrumentoMonetario = c.IdInstrumentoMonetario"
'cmdSQL = cmdSQL & " WHERE idtransaccion = '" & clsVaribles.varTransaccion & "'"
cmdSQL = "SELECT i.Nombre, t.tipooperacion as nombretipooperacion,c.monto,c.fecha,I.IdInstrumentoMonetario FROM " & strTabla & " c "
cmdSQL = cmdSQL & " inner join cat_tipooperacion t on t.idtipooperacion = c.idtipooperacion "
cmdSQL = cmdSQL & " inner join cat_instrumentomonetario i on i.IdInstrumentoMonetario = c.IdInstrumentoMonetario"
cmdSQL = cmdSQL & " WHERE idtransaccion = '" & clsVaribles.varTransaccion & "'"
' cmdSQL = "SELECT * FROM " & strTabla & " WHERE NO_REFERENCIA = '" & clsVaribles.No_Referencia & "'"
Classcom.fdtDataSet(cmdSQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
'Select Case Classcom.ds.Tables(0).Rows(0).Item("id_tipooperacion").ToString
' Case Is = "1" 'DEPOSITO
' strNota = "Deposito "
' Case Is = "2" 'RETIRO
' strNota = "Retiro "
' Case Is = "8" 'OTORGAMENTO DE CREDITO
' strNota = "Otorgamiento de Credito"
' Case Is = "9" 'PAGO DE CREDITO
' strNota = "Pago de Credito"
'End Select
strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " en " & Classcom.ds.Tables(0).Rows(0).Item("Nombre").ToString & " por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
'Select Case Classcom.ds.Tables(0).Rows(0).Item("ID_INSMONETARIO").ToString
' Case Is = "1" 'EFECTIVO
' strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " en Efectivo por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
' Case Is = "2" 'CHEQUE
' strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " mediante Cheque por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
' Case Is = "3" 'TRANSFERENCIA
' strNota = Classcom.ds.Tables(0).Rows(0).Item("nombretipooperacion").ToString & " mediante Transferencia por " & Classcom.ds.Tables(0).Rows(0).Item("monto").ToString
'End Select
End If
Me.TXTDescripcion.Text = strNota
End If
DesHeader.Text = Me.Text
llenaComboPatron()
End Sub
Private Sub CBEstatus_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBEstatus.DropDown
Dim SQL As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
SQL = "spLlenaComboEstatusTransacciones"
'clCmj1.cm.CommandText = SQL
'clCmj1.ad.SelectCommand = clCmj1.cm
clCmj1.sbLlenaCombo(SQL, CBEstatus)
Catch ex As Exception
MessageBox.Show("Error CBO2Plaza_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub CBEstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBEstatus.SelectedIndexChanged
End Sub
Private Sub BTAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTAceptar.Click
Dim classCom As New clsComplejo
Dim strSQL As String
Dim varIDTransaccion As Long
Dim varPatron As Long
Dim varEstatus As Long
Dim varFecha As String
Dim varProducto As String
Dim varSubproducto As Integer
Dim forma As New FrmNewInsuales
Try
'validacion de los campos requeridos
If Me.CBPatron.Text = "" Then
MessageBox.Show("Es necesario el patrón para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Me.CBEstatus.Text = "" Then
MessageBox.Show("Es necesario el estatus para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Me.TXTDescripcion.Text = "" Then
MessageBox.Show("Es necesaria la descripción para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Me.TXTRazon.Text = "" Then
MessageBox.Show("Es necesaria la razón para reportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'idtransaccion,idproducto,ID_SUBPRODUCTO,ID_PATRON,ID_ALARMA,ID_ESTATUSTRANSACCION,FECHa,NOTA,RAZON
'INSERTA EN TRANSACCIONREPORTE
varProducto = classCom.BuscaValores("isnull(idproducto,0)", "cat_producto", "producto = '" & clsVaribles.strProdFraccionada & "'")
varPatron = classCom.BuscaValores("isnull(idpatron,0)", "cat_patron", "patron = '" & Me.CBPatron.Text & "'")
varSubproducto = classCom.BuscaValores("idsubproducto", clsVaribles.strProdFraccionada, " idtransaccion = " & clsVaribles.varTransaccion)
strSQL = "INSERT INTO TRANSACCIONREPORTE (idtransaccion, idproducto, IDSUBPRODUCTO, IDPATRON, IDTIPOALARMA, "
strSQL = strSQL & "IDESTATUSALARMA, FECHA, NOTA, RAZON, FECHADETECCION) VALUES ( "
strSQL = strSQL & clsVaribles.varTransaccion & ", " & varProducto & ", " & varSubproducto & ", "
strSQL = strSQL & varPatron & ", 2, " & Me.CBEstatus.SelectedValue & ", "
'''strSQL = strSQL & "CONVERT(DATETIME,'" & clsVaribles.varFecha & "',103), "
strSQL = strSQL & "'" & Year(clsVaribles.varFecha) & "-" & Month(clsVaribles.varFecha).ToString("00") & "-" & DateAndTime.Day(clsVaribles.varFecha).ToString("00") & "', "
strSQL = strSQL & "'" & TXTDescripcion.Text & "', "
strSQL = strSQL & "'" & TXTRazon.Text & "', "
'''strSQL = strSQL & "'" & classCom.ObtenFecha(Now.Date, "yyyymmdd") & "')"
strSQL = strSQL & "convert(datetime,'" & classCom.ObtenFecha(Now.Date, "yyyymmdd") & "',112))"
classCom.sbInserta(strSQL)
classCom = New clsComplejo
'- para kuspit no se usa el 24Horas
'classCom.sbInserta("Update Transaccionreporte set r24 = " & Math.Abs(CInt(Me.CHKr24.Checked)) & " where idtransaccion = " & clsVaribles.varTransaccion & " AND idproducto = " & varProducto)
MessageBox.Show("Operación satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
''Auditoria
Dim ClassAud As New ClassMyUtils
Dim sTextoAud As String
sTextoAud = "Calificacion de la transaccion : idtransaccion: " & clsVaribles.varTransaccion & ",Producto:" & clsVaribles.strProdFraccionada & ", Patron:" & Me.CBPatron.Text & ",Estatus: " & Me.CBEstatus.Text & ",Fecha: " & clsVaribles.varFecha & ",Nota: " & TXTDescripcion.Text & ",Razon: " & TXTRazon.Text & ",Fecha Deteccion. " & classCom.ObtenFecha(Now.Date, "dd/mm/yyyy")
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 112, 1, sTextoAud)
''Fin de Auditoria
forma.BTConsultar.PerformClick()
Me.Close()
Catch ex As Exception
MessageBox.Show("Error BTAceptar_Click: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub CHKr24_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CHKr24.CheckedChanged
Dim strDescripcionAnt As String
If Me.TXTDescripcion.Text <> "Reporte de 24 horas" Then
strDescripcionAnt = Me.TXTDescripcion.Text.Trim
End If
If CHKr24.Checked = True Then
TXTDescripcion.Text = "Reporte de 24 horas"
Else
TXTDescripcion.Text = strDescripcionAnt
End If
End Sub
Private Sub BtSalir_Click(sender As System.Object, e As System.EventArgs) Handles BtSalir.Click
Me.Close()
End Sub
Private Sub panel3_Paint(sender As Object, e As PaintEventArgs) Handles panel3.Paint
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,344 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ
DQAAAk1TRnQBSQFMAgEBCAEAAQwBAQEMAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAHBwMA
FgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wBBwEA
AjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3
AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEA
AjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEA
A+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF/wHw
AQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD7AEH
AQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0BFAH/
AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQACBwEA
Cf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sBDQEU
ARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQABNwEA
BAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH/wEA
ATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwBBwEA
ATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewBFAHv
BuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4EFQFD
AQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsBAAMH
AewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8DAAUH
AQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB/wMA
BQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcBFwGS
BwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB9wIA
Af8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB/wMA
AQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkBkgEH
AgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcDBw0A
AwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwABBwEA
Af8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB7AUH
BQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C7wQH
AwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQADBwEA
Af8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL7AIH
AvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCCAAs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BtnImprimir.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsFAAALBQHJjchJAAAFq0lE
QVRYR+WX6U8bRxiH9/+qqvZLVSlRmjZR0qTNhxS1UVFLSJpAQy5IgEJwOMsdijkCCjcEc4Nt8LW28a7x
iW3wBTa+jY+18dq709mAVpuo7Zd+27x6NBpZOz9pH82M30UoVTnLmtIo11ll2xaZzrKlZdjUQMwS1CRW
GTeUxlXFztrynH/xNnfVxwMC0N9ZzPt+8J9lcwen1jST46/9i6XchR8JCKWrYTE6fGdW/qVwqycQTWmN
7pHRIe/KQ+7ajwGE3mlmOZV1kiMlSlyhNcq1RtnpqDFsqRmmVlCXLw6fWVGYh14P+sQ13OW8B6EswywG
OyMrRWRUmJn+p1LiDrs3lgcgR4N5qWF0bOJgs4ObwG8Q2iliMdgPGFnpDIqZ4YRbNM2MKv1+Xdf4s9bh
8vq+hwLhuZsPWluauAn8BqEPURb9LiMrmc4odO/LokGeAmQBRJK5mXW8sX+xvnehumuxskd8/soPpFtR
OFBRB2jeq+Km8Q8ERO0s+l0vNMPI2n5PFkWDXB5kSJDMAqMzuqq0ijaNU+v6/hn0edtw18DY0Lioc3By
anqGm8Y/EJDys+DWM1lyrelUEyxoCu6pTA6kc8DmiYukeCAci8SO4egPRry+UDiWhI9NLG1iKgkZ83AD
eQYCsnEWzOKBr51MEVsawztRjKk8NEUCIgcCcfKtZMd9ECoU8v5AGGqyu30mm9sfiMq3LQMjY4mgl0yG
uIE8AwF5gkVncUNBiRQhVTOy4KUOTWVJZk8dZ4Fc791QWSiK9hweWWxuzLQn15otDm84lugYnPI4bdwo
XoIAmmTRmc5kSVBGVoECJ++uqngGmnKPLqh2nb40kTliTl/Q5vRZ972ReFKMGgQdwuWVFYfDxk3jHwgA
sG06Q2t0ncoSq3bgJEcypo4ztAxziSSYSIqliCy8raAph/twx+Ky7R/Cw9j3ZqGoXPBLZUdd75QCVXED
eQZCMRvoDK3ReSprXaGHE2gqQdBKg3dTs3sUii1u4VAW7O8z2RN4rwXCUbPdJVbiT5uE35dWFz9qqng5
3Nzeww3kGQhF51k0hn3oKJ4kVuU4BQBBAsdhQiTBoSCITLcr01olqBn+700uK8cWZL1vFjuGZgW9Y8/b
hp42Dt77Y6i5vZsbyDMQcJJgUe/sQVnRBLG0hZM0SGSBxRWXqj/s5j8okiRF6+iz1tHb1X81tnRwA3kG
7LOCLKjeAV8+HE8vSLFMAcQIYHLGJ1bUFmdQZznUmtxKfF+ms0lQy7rSuCzTL23ic2sa4aT4fu2rWxXN
F25VCQRN3ECegVDRPRbVO1mBaHpeiiVzIJQCGmt4ehWNJzPRYyJynA5FU0fhhC+UcPui8Ita7/KIbf7p
TU/Rg87Pvy397HpZX1dbIeLgZvIJhPJrWFS4HcryhaAsnIBfggRQWaIzy0rmsHEqV2A6r+QJqJ08X9J8
fkV7cunnmk8ul/xRWx00rWbccm4mn0Ao1zLLqSxviBiYFku37esa+8CccmR249RRlgLxLDg4BrtBYPDR
Gg9A+yXzxS9L2sWfXrlTW1URxMaT5tmCc4mbyScQ2jLEosRsNAChBI3ZggqDT6b3r2kPesal7QMzLcK3
dd2zlW0T5Q0jpTUDxZWvfnzcfe2J8OJD4Rc3Htc/vRNRdaWxvoJpkBvIMxAK/5Nl27gHey9nGOxHgDkA
8EOgcoFlI3i9lRJK0n0b6Y7VVOtiqnE+8WIuIZhP3eoOnLt01TzzJCipJ9RNeV0bN41/ILT2GYtYY52Q
7FUJd570YxV9uvIeXVmP7l4nVtqJ/9qOFbfhP7VgRU3YzUb8hgD/rgG/9gL78tL1vLqSRCspTRU3ipcg
tPoRy0BdUXPF1ZaKK43llwVllwRl30Aa7n/dcA9y8QXkN8hX9QwX6u9egJO+qqspaTk3hMcgQH33f5KV
lXzwCz9R3/0b+7ckfJZA4D0AAAAASUVORK5CYII=
</value>
</data>
<data name="BtnBorrar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsFAAALBQHJjchJAAAEEklE
QVRYR+3VW0xTdwDH8f/zluyJLDGZW3wQ4h423XQLc8LGEp0kQxgEEwtsiIaLYNeJYgJBkIsbMhjiJWMD
lJuliIqWlGsppfQmLbdeLIVSofcb9EJP29Nz/jtLFx9qmvBcT/LJefnn+3/45SR/gAmuENw86vpkrnos
S8ZMljAOSfr2e7mFoSPSawAKywg7s7R1TpFjrXNL17X5In+2J9bPo4WOSK8BN7/UJbxq4BYqOBTUJ4ZQ
5tBUjrTHiRnpsidZGyMFmKSWFALWxk5rucUvZ3Pl4tOIiwmD/SbFT8P349qbPmiqiKHfPIQvNpNCgJJF
sWkeBHyLiGcCRVhB7z2fucSqTLUoTvTf+bi9JhFTdJNCwBIz2W3ogFABsWF0pwN1VkHnOehIg9bj9xtj
6y8l4RomKQTM0Q+s8Sh62WXdwlmvpQzbLrTKjvMGPnnaFltCeY+W9TmuE5JCgLjjw6m/9w027318+yP7
Whbcypjqjcv45t1vj8SkJu1rKs+E9hVSCEAMfK9BoOI3drfsd6hToPlYT/OegwdiZoZ7HboVzGWAbtL/
AES2CGopvbl8z4Om2M7f9lLPvJNw+H2/y2rQW4RKZFLqGRfbx0UWFt/6eNrCYJt7x8z/ME1NA8ZGhunP
QXPohrcBgOgOQfty8uGdH2/VpdVdTauhJd9tKEJ9nmk5+scja+tz561nzpYh581H25U9jrIOO63Nntdi
S7lu/rpUG0/ThG54GwCIByJhLwWIpbp5sHMatrGxVhba8CRQO+C/RveXdfnz7+4klaoSflkKq6IYgBCN
hL2M/c5w1D+01fbZKrtt1L8slAZTWo3xRIXh6GX9Z1T9wULVl8XKsCqKAQwGI+EuWekTr8RKt1S9M6f2
cmUepmh7WOx+JvL0cT0tQ46TF/rjKffCqigGMByNhD+vEsyrIDEpirg9LhxDIMQh5vUhrmDQ73B6zl+q
Tjj1c1gVxQD0OSMRSFQz0lUMD87JN4Y58uUVfRAPChe1Tydk/PlXslVD7q83EtOLw6ooBqDbHIlgTjE9
pyb+Jl8g4PYiSMBPDOfx+uxuv9GBSBSbOdS6/8Z6I4xWALOvRsITSDliFQ5xvWVbqTEZbU4MYhqdTarU
L6otwiVtNrWeGCusimIAM4gj4XC4UyLisYPEUmzhimzN5PahXImWMSobFa7PLGizQmO9EUYrgK2PRDI5
xmJxF3Acc2xvbRrN6g3TwopRLDfwlo2cBcMQR55ZWH0srSisimIAV3RFwh59Xnubnl1clXOxOufi9TMX
qjILrmUWEN/qjPyq1LyKxPSSo6cKwqooBrD51khmxwev3Gj/9Lvsw9+f/SL53JGTeWHif8j/KqUgrIpi
AH9RTdolgIvKSbsEoIhG2hUR7V/eUODvEvf9zAAAAABJRU5ErkJggg==
</value>
</data>
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{BackColor:InactiveBorder;}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;268&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 792, 268&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 792, 268&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,788 @@
Public Class frmMyParametroGrupo
Dim blnuevo As Boolean = True
Dim blcarga As Boolean = True
Private Sub frmMyParametroGrupo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
If clsVaribles.lbDemo = True Then Exit Sub
PnPais.Visible = False
Me.Text = "Parámetros de Grupo"
Me.PnPais.Visible = True
Label5.Text = Me.Text
'LLENA GRID
SQL = "sp_ConsultaGruposRiesgo 0"
Classcom.sbLlenaCombo(SQL, Me.CMBGrupo)
CMBGrupo.SelectedIndex = -1
Classcom = New clsComplejo
SQL = "sp_ConsultaParametros "
Classcom.sbLlenaCombo(SQL, Me.cboParamRango)
cboParamRango.SelectedIndex = -1
blcarga = False
Classcom = New clsComplejo
SQL = "sp_ConsultaPatrones"
Classcom.sbLlenaCombo(SQL, Me.cboPatron)
cboPatron.SelectedIndex = -1
'Classcom = New clsComplejo
'SQL = "sp_ConsultaCatalogoDescripcionRiesgo"
'Classcom.sbLlenaCombo(SQL, Me.cmbDescripcion)
'cmbDescripcion.SelectedIndex = -1
'Classcom = New clsComplejo
'SQL = "sp_ConsultaCatalogoRiesgo"
'Classcom.sbLlenaCombo(SQL, Me.cmbRiesgo)
'cmbRiesgo.SelectedIndex = -1
limpiarParametros()
ConsultaParametrosGenerales()
End Sub
Private Sub Exportar()
If GridMaster.DataSource Is Nothing Then
MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
''Preparo la tabla a exportar
''hago una copia por valor de la tabla
Dim copyDS As DataSet = GridMaster.DataSource.Copy() ''clCmp.ds.Copy()
If copyDS.Tables(0) Is Nothing Then
MessageBox.Show("Presione primero el botón de consultar y despues el boton de exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
If copyDS.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No existen datos para exportar", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
Dim Resul As DialogResult
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Resul = DialogResult.No Then
Return
End If
''Quito las columnas ocultas del grid.
Dim i As Integer
For i = 0 To GridMaster.Columns.Count - 1
If Me.GridMaster.Splits(0).DisplayColumns(i).Visible = False Then
Dim j As Integer
For j = 0 To copyDS.Tables(0).Columns.Count - 1
If Me.GridMaster.Splits(0).DisplayColumns(i).Name = copyDS.Tables(0).Columns.Item(j).ColumnName Then
copyDS.Tables(0).Columns.Remove(copyDS.Tables(0).Columns.Item(j).ColumnName)
Exit For
End If
Next
End If
Next
Try
Dim sError As String = ""
''Inicia Exportacion
'Creo una instancia de la clase aExcel
Dim clsExcel As aExcel = New aExcel
'Obtenemos el nombre o el titulo del form
clsExcel.Titulo = "Parámetros de Grupo"
'Utilizo la funcion ExportDataset de la clase aExcel
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Cursor = System.Windows.Forms.Cursors.Default
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
PnPais.Visible = False
Me.Text = "Parametros de Grupo"
Me.PnPais.Visible = True
If CMBGrupo.SelectedIndex > -1 Then
'LLENA GRID
'SQL = " spConParametrorango 3"
SQL = "sp_ConsultarGrupoPatron " & CMBGrupo.SelectedValue & IIf(cboPatron.SelectedIndex = -1, "", "," & cboPatron.SelectedValue)
'If blcarga = True Then
' SQL = SQL & " , 0"
'Else
' SQL = SQL & "," & Me.CMBGrupo.SelectedValue
'End If
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
GridMaster.Splits(0).DisplayColumns(0).AutoSize()
GridMaster.Splits(0).DisplayColumns(1).AutoSize()
GridMaster.Splits(0).DisplayColumns(2).AutoSize()
GridMaster.Splits(0).DisplayColumns(3).AutoSize()
GridMaster.Splits(0).DisplayColumns(4).AutoSize()
GridMaster.Splits(0).DisplayColumns(0).Visible = False
GridMaster.Splits(0).DisplayColumns(2).Visible = False
Else
GridMaster.ClearFields()
GridMaster.Refresh()
End If
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub CMBGrupo_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Private Sub limpiar()
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
CMBGrupo.SelectedIndex = -1
cboPatron.SelectedIndex = -1
txtValor.Text = ""
blnuevo = False
llenagrid()
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
'If GridMaster.RowCount = 0 Then
' Exit Sub
'End If
Dim descripcionParametro As String
Dim index As Integer
descripcionParametro = GridMaster.Columns("Parametro").Value
index = cboParamRango.FindString(descripcionParametro)
If index = -1 Then
Exit Sub
Else
cboParamRango.SelectedIndex = index
End If
If GridMaster.RowCount = 0 Then
Exit Sub
End If
'SQL = "spConParametrorango 4, " & Me.GridMaster.Columns("idgrupocuenta").Value & "," & Me.GridMaster.Columns("idparametrorango").Value
SQL = "sp_ConsultarValorDeGpoPatron " & GridMaster.Columns("IdGrupoRiesgo").Value & "," & GridMaster.Columns("idParametro").Value
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtValor.Text = Fila("valor").ToString
cboParamRango.SelectedValue = Fila("IdParametro")
blnuevo = True
End If
txtValor.Enabled = True
cboParamRango.Enabled = True
txtClave.Enabled = False
Me.txtValor.Focus()
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs)
Me.Close()
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs)
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Dim idPatron As Integer
Dim Sql As String
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
If CMBGrupo.SelectedIndex = -1 Then
MessageBox.Show("Es Necesario Seleccionar un grupo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
CMBGrupo.Focus()
Exit Sub
End If
If cboParamRango.Text = "" Or cboParamRango.SelectedIndex = -1 Then
MessageBox.Show("Es Necesario Seleccionar un Parametro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
cboParamRango.Focus()
Exit Sub
End If
If txtValor.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Valor para el parametro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtValor.Focus()
Exit Sub
End If
'If blnuevo = True Then
'Dim liAud As Integer
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 2," & Me.CMBGrupo.SelectedValue & "," & cboParamRango.SelectedValue)
'If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
' liAud = 2
'Else
' liAud = 4
'End If
'strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',1"
'Else
' strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',3"
'End If
'idPatron
'sp_ConsultaParametros
Sql = "sp_ConsultaParametros " & cboParamRango.SelectedValue
classcom = New clsComplejo
classcom.fdtDataSetTabla(Sql)
idPatron = classcom.ds.Tables(0).Rows(0)(2)
Sql = "sp_CargarGrupoRiego " & CMBGrupo.SelectedValue & "," & cboParamRango.SelectedValue & "," & txtValor.Text
classcom = New clsComplejo
classcom.sbInserta(Sql)
blnuevo = True
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 41, 1, clsVaribles.lsValAnt & " | Valores Nuevos: Grupo Poliza = " & Me.CMBGrupo.Text & " Parametro = " & cboParamRango.Text & " Valor = " & Me.txtValor.Text)
'limpiar()
cboParamRango.SelectedIndex = -1
txtValor.Text = ""
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs)
limpiar()
End Sub
Private Sub BtnBorrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBorrar.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
If blnuevo = False Then
MessageBox.Show("Es necesario seleccionar un registro", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
If cboParamRango.Text = "" Or cboParamRango.SelectedIndex = -1 Then
MessageBox.Show("Es Necesario Seleccionar el Parametro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Dim idPatron As Integer
Dim liAud As Integer
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 2," & Me.CMBGrupo.SelectedValue & "," & cboParamRango.SelectedValue)
'liAud = 3
strSQLComodin = "sp_ConsultaParametros " & cboParamRango.SelectedValue
classcom = New clsComplejo
classcom.fdtDataSetTabla(strSQLComodin)
idPatron = classcom.dt.Columns("IDPatron").ToString()
strSQLComodin = "sp_EliminarGrupoPatron " & CMBGrupo.SelectedValue & "," & idPatron & "," & cboParamRango.SelectedValue
'strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',2"
classcom = New clsComplejo
classcom.sbInserta(strSQLComodin)
blnuevo = False
limpiar()
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 41, 1, "ELIMINACION DE GRUPO PATRON " & clsVaribles.lsValAnt)
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Function ConsultaParametrosGenerales()
Dim classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim Fila As DataRow
Dim sql As String
sql = "sp_ConsultaParametrosGenerales 1 "
classcom.fdtDataSetTabla(sql)
If classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = classcom.ds.Tables(0).Rows(0)
txtRiesgoBajoMin.Text = Fila("MINIMO").ToString
txtRiesgoBajoMax.Text = Fila("MAXIMO").ToString
End If
sql = "sp_ConsultaParametrosGenerales 2 "
classcom.fdtDataSetTabla(sql)
If classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = classcom.ds.Tables(0).Rows(0)
txtRiesgoMedioMin.Text = Fila("MINIMO").ToString
txtRiesgoMedioMax.Text = Fila("MAXIMO").ToString
End If
sql = "sp_ConsultaParametrosGenerales 3 "
classcom.fdtDataSetTabla(sql)
If classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = classcom.ds.Tables(0).Rows(0)
txtRiesgoAltoMin.Text = Fila("MINIMO").ToString
txtRiesgoAltoMax.Text = Fila("MAXIMO").ToString
End If
txtOrigenBajo.Text = ObtenerParametro(4)
txtOrigenMedio.Text = ObtenerParametro(5)
txtOrigenAlto.Text = ObtenerParametro(6)
txtDestinoBajo.Text = ObtenerParametro(7)
txtDestinoMedio.Text = ObtenerParametro(8)
txtDestinoAlto.Text = ObtenerParametro(9)
txtBajoAct.Text = ObtenerParametro(10)
txtMedioAct.Text = ObtenerParametro(11)
txtAltoAct.Text = ObtenerParametro(12)
End Function
Private Function ObtenerParametro(ByVal idParametros As Integer) As String
Dim classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim Fila As DataRow
Dim sql As String
ObtenerParametro = ""
sql = "sp_ObtenerControlParametros " & idParametros & " "
classcom.fdtDataSetTabla(sql)
If classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = classcom.ds.Tables(0).Rows(0)
ObtenerParametro = Fila("valor").ToString
End If
End Function
Private Sub CMBGrupo_DropDownClosed(sender As Object, e As System.EventArgs)
If CMBGrupo.SelectedValue <> Nothing Then
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
llenagrid()
blnuevo = True
End If
End Sub
Private Sub txtValor_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
If Asc(e.KeyChar) = 46 And InStr(txtValor.Text, ".") > 0 Then
e.Handled = True
Exit Sub
End If
If Asc(e.KeyChar) <> 8 Then
If (Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57) And Asc(e.KeyChar) <> 46 Then
e.Handled = True
End If
End If
End Sub
Private Sub cboPatron_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
If CMBGrupo.SelectedIndex <> -1 And cboPatron.SelectedIndex <> -1 Then
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
llenagrid()
End If
End Sub
Private Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Exportar()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs)
End Sub
Private Sub txtCalificacion_KeyPress(sender As Object, e As KeyPressEventArgs)
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub BtnAlta_Click_1(sender As Object, e As EventArgs) Handles BtnAlta.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Dim idPatron As Integer
Dim Sql As String
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
If CMBGrupo.SelectedIndex = -1 Then
MessageBox.Show("Es Necesario Seleccionar un grupo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
CMBGrupo.Focus()
Exit Sub
End If
If cboParamRango.Text = "" Or cboParamRango.SelectedIndex = -1 Then
MessageBox.Show("Es Necesario Seleccionar un Parametro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
cboParamRango.Focus()
Exit Sub
End If
If txtValor.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Valor para el parametro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtValor.Focus()
Exit Sub
End If
'If blnuevo = True Then
'Dim liAud As Integer
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 2," & Me.CMBGrupo.SelectedValue & "," & cboParamRango.SelectedValue)
'If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
' liAud = 2
'Else
' liAud = 4
'End If
'strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',1"
'Else
' strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',3"
'End If
'idPatron
'sp_ConsultaParametros
Sql = "sp_ConsultaParametros " & cboParamRango.SelectedValue
classcom = New clsComplejo
classcom.fdtDataSetTabla(Sql)
idPatron = classcom.ds.Tables(0).Rows(0)(2)
Sql = "sp_CargarGrupoRiego " & CMBGrupo.SelectedValue & "," & cboParamRango.SelectedValue & "," & txtValor.Text
classcom = New clsComplejo
classcom.sbInserta(Sql)
blnuevo = True
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 41, 1, clsVaribles.lsValAnt & " | Valores Nuevos: Grupo Poliza = " & Me.CMBGrupo.Text & " Parametro = " & cboParamRango.Text & " Valor = " & Me.txtValor.Text)
'limpiar()
cboParamRango.SelectedIndex = -1
txtValor.Text = ""
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Function limpiarParametros()
'cmbRiesgo.SelectedIndex = -1
'cmbDescripcion.SelectedIndex = -1
'txtCalificacion.Text = ""
'chkEstatus.Checked = True
End Function
Private Sub Button3_Click(sender As Object, e As EventArgs)
limpiarParametros()
End Sub
Private Function Valida() As Boolean
Valida = True
If Len(txtRiesgoBajoMax.Text) = 0 Then
Valida = False
Exit Function
End If
If Len(txtRiesgoMedioMax.Text) = 0 Then
Valida = False
Exit Function
End If
If Valida Then
If Convert.ToInt32(txtRiesgoBajoMax.Text) <= 0 Then
MessageBox.Show("Riesgo bajo Max no puede ser 0 o menor a 0", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Valida = False
Exit Function
End If
If Convert.ToInt32(txtRiesgoMedioMax.Text) <= Convert.ToInt32(txtRiesgoMedioMin.Text) Then
MessageBox.Show("Riesgo Medio Max no puede ser menor o igual al Riesgo Medio Min", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Valida = False
Exit Function
End If
End If
End Function
Private Sub btnGuardarParametro_Click(sender As Object, e As EventArgs)
'If Valida() Then
' Try
' sql = "sp_GuardarParametrosGenerales " & cmbDescripcion.SelectedValue & "," & cmbRiesgo.SelectedValue & "," & txtCalificacion.Text & ", " & chkEstatus.Checked & " "
' classcom = New clsComplejo
' classcom.sbInserta(sql)
' MessageBox.Show("El parámetro se guardó correctamente", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Catch ex As Exception
' MessageBox.Show("Ocurrió un error al guardar el parámetro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' End Try
' ConsultaParametrosGenerales()
' limpiarParametros()
' lblID.Text = 0
'End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
End
End Sub
Private Sub BntSalie_Click_1(sender As Object, e As EventArgs)
End Sub
Private Sub GridParametros_DoubleClick(sender As Object, e As EventArgs)
'lblID.Text = 0
'Try
' lblID.Text = GridParametros.Columns(0).Value
' cmbDescripcion.SelectedValue = GridParametros.Columns(5).Value
' cmbRiesgo.SelectedValue = GridParametros.Columns(6).Value
' chkEstatus.Checked = GridParametros.Columns(4).Value
' txtCalificacion.Text = GridParametros.Columns(3).Value
'Catch ex As Exception
' MessageBox.Show(ex.Message)
'End Try
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles txtFideicomiso.TextChanged
End Sub
Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles txtMedioAct.TextChanged
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles txtAltoAct.TextChanged
End Sub
Private Sub txtRiesgoBajoMax_TextChanged(sender As Object, e As EventArgs) Handles txtRiesgoBajoMax.TextChanged
If Len(txtRiesgoBajoMax.Text) > 0 Then
txtRiesgoMedioMin.Text = Convert.ToInt32(txtRiesgoBajoMax.Text) + 1
End If
End Sub
Private Sub txtRiesgoMedioMax_TextChanged(sender As Object, e As EventArgs) Handles txtRiesgoMedioMax.TextChanged
If Len(txtRiesgoMedioMax.Text) > 0 Then
txtRiesgoAltoMin.Text = Convert.ToInt32(txtRiesgoMedioMax.Text) + 1
End If
End Sub
Private Sub btnGuardaParametros_Click(sender As Object, e As EventArgs) Handles btnGuardaParametros.Click
Dim classcom As New clsComplejo
Dim sql As String = ""
If Valida() Then
Try
sql = "sp_GuardarParametrosGenerales 1, " & txtRiesgoBajoMin.Text & "," & txtRiesgoBajoMax.Text & " "
classcom = New clsComplejo
classcom.sbInserta(sql)
sql = "sp_GuardarParametrosGenerales 2, " & txtRiesgoMedioMin.Text & "," & txtRiesgoMedioMax.Text & " "
classcom = New clsComplejo
classcom.sbInserta(sql)
sql = "sp_GuardarParametrosGenerales 3, " & txtRiesgoAltoMin.Text & "," & txtRiesgoAltoMax.Text & " "
classcom = New clsComplejo
classcom.sbInserta(sql)
'----------------------------------------
sql = "sp_GuardarParametrosGenerales 3, " & txtRiesgoAltoMin.Text & "," & txtRiesgoAltoMax.Text & " "
classcom = New clsComplejo
classcom.sbInserta(sql)
MessageBox.Show("El parámetro se guardó correctamente", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Ocurrió un error al guardar el parámetro ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
ConsultaParametrosGenerales()
limpiarParametros()
End If
End Sub
Private Sub txtRiesgoBajoMax_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtRiesgoBajoMax.KeyPress
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub txtRiesgoMedioMin_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtRiesgoMedioMin.KeyPress
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub BntSalie_Click_2(sender As Object, e As EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles txtUbicacionRiesgoAlto.TextChanged
End Sub
Private Sub TextBox10_TextChanged_1(sender As Object, e As EventArgs) Handles txtOptimizacion.TextChanged
End Sub
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles txtOperaciones.TextChanged
End Sub
Private Sub cboPatron_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboPatron.SelectionChangeCommitted
End Sub
Private Sub cboPatron_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles cboPatron.SelectedIndexChanged
If CMBGrupo.SelectedIndex <> -1 And cboPatron.SelectedIndex <> -1 Then
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
llenagrid()
End If
End Sub
Private Sub CMBGrupo_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles CMBGrupo.SelectionChangeCommitted
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
llenagrid()
End Sub
Private Sub BtnLimpiar_Click_1(sender As Object, e As EventArgs) Handles BtnLimpiar.Click
limpiar()
End Sub
End Class

303
Actualizadores/Form1.Designer.vb generated Normal file
View File

@ -0,0 +1,303 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmCatalogos
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCatalogos))
Me.BtnBorrar = New System.Windows.Forms.Button()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnImprimir = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.CMBGrupo = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.PnPais = New System.Windows.Forms.Panel()
Me.cboParamRango = New System.Windows.Forms.ComboBox()
Me.txtValor = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.chkActivo = New System.Windows.Forms.CheckBox()
Me.txtClave = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PnPais.SuspendLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'BtnBorrar
'
Me.BtnBorrar.BackColor = System.Drawing.Color.White
Me.BtnBorrar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnBorrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnBorrar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnBorrar.Image = CType(resources.GetObject("BtnBorrar.Image"), System.Drawing.Image)
Me.BtnBorrar.Location = New System.Drawing.Point(745, 253)
Me.BtnBorrar.Name = "BtnBorrar"
Me.BtnBorrar.Size = New System.Drawing.Size(106, 33)
Me.BtnBorrar.TabIndex = 99
Me.BtnBorrar.Text = "&Borrar"
Me.BtnBorrar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnBorrar.UseVisualStyleBackColor = True
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.White
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(745, 330)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 98
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnImprimir
'
Me.BtnImprimir.BackColor = System.Drawing.Color.White
Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnImprimir.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnImprimir.Image = CType(resources.GetObject("BtnImprimir.Image"), System.Drawing.Image)
Me.BtnImprimir.Location = New System.Drawing.Point(745, 135)
Me.BtnImprimir.Name = "BtnImprimir"
Me.BtnImprimir.Size = New System.Drawing.Size(106, 33)
Me.BtnImprimir.TabIndex = 97
Me.BtnImprimir.Text = "Exportar"
Me.BtnImprimir.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnImprimir.UseVisualStyleBackColor = True
Me.BtnImprimir.Visible = False
'
'BtnAlta
'
Me.BtnAlta.BackColor = System.Drawing.Color.White
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnAlta.Image = CType(resources.GetObject("BtnAlta.Image"), System.Drawing.Image)
Me.BtnAlta.Location = New System.Drawing.Point(745, 214)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 96
Me.BtnAlta.Text = "&Grabar"
Me.BtnAlta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnAlta.UseVisualStyleBackColor = True
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(745, 292)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 95
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'CMBGrupo
'
Me.CMBGrupo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CMBGrupo.Location = New System.Drawing.Point(235, 79)
Me.CMBGrupo.Name = "CMBGrupo"
Me.CMBGrupo.Size = New System.Drawing.Size(272, 21)
Me.CMBGrupo.TabIndex = 94
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(12, 82)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(235, 18)
Me.Label3.TabIndex = 93
Me.Label3.Text = "Seleccione el Catalogo a Modificar:"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'PnPais
'
Me.PnPais.Controls.Add(Me.cboParamRango)
Me.PnPais.Controls.Add(Me.txtValor)
Me.PnPais.Controls.Add(Me.Label4)
Me.PnPais.Controls.Add(Me.chkActivo)
Me.PnPais.Controls.Add(Me.txtClave)
Me.PnPais.Controls.Add(Me.Label2)
Me.PnPais.Controls.Add(Me.Label1)
Me.PnPais.Location = New System.Drawing.Point(12, 282)
Me.PnPais.Name = "PnPais"
Me.PnPais.Size = New System.Drawing.Size(722, 81)
Me.PnPais.TabIndex = 92
'
'cboParamRango
'
Me.cboParamRango.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.cboParamRango.Location = New System.Drawing.Point(324, 10)
Me.cboParamRango.Name = "cboParamRango"
Me.cboParamRango.Size = New System.Drawing.Size(272, 21)
Me.cboParamRango.TabIndex = 82
Me.cboParamRango.Visible = False
'
'txtValor
'
Me.txtValor.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtValor.Location = New System.Drawing.Point(324, 43)
Me.txtValor.Name = "txtValor"
Me.txtValor.Size = New System.Drawing.Size(362, 20)
Me.txtValor.TabIndex = 41
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(202, 46)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(186, 20)
Me.Label4.TabIndex = 40
Me.Label4.Text = "Valor/Descripcion"
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
'
'chkActivo
'
Me.chkActivo.Checked = True
Me.chkActivo.CheckState = System.Windows.Forms.CheckState.Checked
Me.chkActivo.Enabled = False
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(205, 10)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 21)
Me.chkActivo.TabIndex = 5
Me.chkActivo.Text = "Activo:"
'
'txtClave
'
Me.txtClave.BackColor = System.Drawing.Color.White
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(110, 14)
Me.txtClave.Name = "txtClave"
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 1
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(202, 15)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 16)
Me.Label2.TabIndex = 36
Me.Label2.Text = "Nombre:"
Me.Label2.Visible = False
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 16)
Me.Label1.TabIndex = 35
Me.Label1.Text = "Clave País:"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'GridMaster
'
Me.GridMaster.AllowArrows = False
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GridMaster.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.GridMaster.EditDropDown = False
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 118)
Me.GridMaster.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(722, 145)
Me.GridMaster.TabIndex = 91
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(6, 6)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(122, 38)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 100
Me.PictureBox1.TabStop = False
'
'frmCatalogos
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(861, 373)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.BtnBorrar)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnImprimir)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.BtnLimpiar)
Me.Controls.Add(Me.CMBGrupo)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.PnPais)
Me.Controls.Add(Me.GridMaster)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmCatalogos"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Catalogos"
Me.PnPais.ResumeLayout(False)
Me.PnPais.PerformLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents BtnBorrar As System.Windows.Forms.Button
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnImprimir As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents CMBGrupo As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents PnPais As System.Windows.Forms.Panel
Friend WithEvents cboParamRango As System.Windows.Forms.ComboBox
Friend WithEvents txtValor As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
End Class

781
Actualizadores/Form1.resx Normal file
View File

@ -0,0 +1,781 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BtnBorrar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALCQAA
CwkBEvpHPgAABCdJREFUWEftlVtMU3ccx//PW7InssRkbvFBjHvYdNMtzAkbS3SSDGEQTCywIS5cBLtO
FBMIglzckMEQLxkboNwsRVS0pFxLKaU3abn1YimUCvR+gV7oaXt6zn9n6eLDktPwXE/yyf/lm3wePvkl
f4CJrhB4BPS1iRztaKaCnSRjHZb17vfxC8ITxesCAIpLCXZmGGu8Qudqx9Zm58aLvJnu2ICAEZ4oXhcA
HmGJW3zVyC9Q8WioXwqhwqmrGG47IGWlKZ5krg/nY7IainABsDp6Rs8vejmTo5SeQdxsGOozq34Yun+g
rfG9xvIY5s3D+EITRbgAUHNodt2DoH8B8Y6jCCfku+e3FNvUKVbVyb47H7ZVJ2CqLopwAbDITvIY2yFU
QWwI3WlHXZXQdR46U6HtxP2G2LpLibiOTREuAGaZB1cFNIPi8ub8OZ+1FNsusClOCPo/etoaW0x7h5H5
Kb4ppggXANL29yf/2jfQtPfx7Q8cq5lwK32y50D6V29/fTQmJXFfY1kGdCxThAsAxCj0GUUaYUNX836n
Nhlajnc37Tl0MGZ6qMe5uYy5jdBD8V8BAJEtAq2c2VS250FjbMeve+ln34o/8m7AbTMarGI1MiH3jkkd
YxIrR2h7PGVlcS09o5a/2ebGflMDy/zHgCVseBMAEN0h0L+ceHjn+1u1qbVXU6sZSXfrC1G/d0qJ/v7I
1vLcdeuZq3nQdfPRdkW3s7TdwWh15Dbbk69bvizRxzF0YcObAIB4kAzuYpAo1SWAHVOwlYu1cND6J8Ga
/sA1ZqC0M5B3dyexRBP/82IEQ5RNAEKUDO4S9hvLWffQXtNrr+iy0/+00urNqdWmk+XGY5cNn9ANhwo0
nxepIxiibAIYDJHBX7Qxx19J1R65dmdW6+MrvGzJ9pDU80zi7eV7mwedpy70xdHuRTBE2QQwHCVDOKcR
zWkgcR4o4vG6cQyBEIeYz4+4Q6GA0+X96VJV/OkfIxiibALQ7yJDJNNMy1cwPDSrXB/iKZeWDSE8JF7Q
Px1XCOdeKVaMOb/cSEgrimCIsglAj4UM0axqalZLXJM/GPT4ECQYIMJ5fX6HJ2ByIjLVRja99t9Y5IYo
mwDmWCFDIJLzpBoc4gbrtlpnNtldGMR0m3a52rCgtYoX9Vn0OiJWBEOUTQAzSsng8fiTEuKzg0QprnhZ
sWr2+FG+TM8aUYyI16bn9ZnhWOSGKJsAtjZMxsQoh8Ofx3HMub21YbJo183zyyap0ihYMvHmjYM8ZUZB
1fHUwgiGKJsAruokgzvyvOY2M6uoMvtiVfbF62cvVGbkX8vIJ96q9LzKlNzyhLTiY6fzIxiibALYXAsZ
M2MDV260ffxN1pFvz32WdP7oqdz/Efdd3hfJ+REMUTYB/EUVxS4LAFxSRrHLAgBKGBS7LPAP3lDg7/cp
OfYAAAAASUVORK5CYII=
</value>
</data>
<data name="BntSalie.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALCQAA
CwkBEvpHPgAABM9JREFUWEftmG1MU2cUx58si+HbgnSiwoQWTSdUmkDLwLbeAmWuswJ7EYhZsw/DFMEP
FJSWFXvv7QultOUWpMlEIkGdM2MhLGwCIXuJiRnuJUS2kW1xsuiGgYGDMCMB2u70XiwMdL0f1xtvfh9O
T07/Tf45z7nnKfJ/VfcUlg6g4IjhKSwdQP7vbBF5YXvsS09+lEpldnY2QigxEcXGshKM+Iv/zwIUuElF
RLw3ybXp8dBPW1ubWq3Oysp2udxeb/WelLiIatFbgPzjFyOS/iKfePTgOG61Wp1Op15fXVZ2NC1NbDSa
u7pIn++I13s0Oem5iGrRW4ACtz/ZzOxY78J4XzifnpoSNouiqNraWo1Gk5MjLykpHBi46PXWkaTUbMYa
G/ME/MTHCnIjiQK/j2xg/ucvDVW66/1d4bw4TQgNZbPZmpqapFKpUqk6cULf3X3h0iWt0ZiJ4zKCUAIO
h0rA37FZkDMZFJz9ZT0P7o6ZhodiKiu//bw3nBfu5oNNRUVFycnJON7U2lre3X2KJDGTSUHbJCeIAoJQ
OBz5Aj5vgyCXPqLgwmSYv+/dMn1w+ZlAAFVUXO+9PDPxw5+3v5/+daxQLjtDEBKR6GSdsaND39gINmXh
eD5BQE/lEoSKIPYTRL7DUSAQ7FovyLEYBR/+xTB377eGng+fXVpCwSC6ckXu87129erh/v7C/v7XBwff
HBpK0miacJyiinAcoz06QBB5dGcxARY6hoLtYUHuBSi4/ABYuD9FfNQTs7gYcupJGAwthjraLDAIzIIz
CM3FmAXBAdqseEaQk6BgYAmo9fm2rKz8l1PgYE2Nx1hPUVp6ooNBL//7GKroY5jECHIS8GcZyJDL0fnz
EcwyGDyhzjpsMEiMRgmOw1yHaQWdBS3GDHjorG2MICdB/uAKML8wp3xVvebXnTvo2jU0MrLG6CgqKXGb
GtrbYYK1Dw+fdTgwHIf+gvMY2htWVwfBTkaQkyB/YJlhZnZaoVKhzs5Qf9ntKC4OxcevkZCAYmIoj7u+
vtRshkHv0ukwq5V5GzKvRXgbQmftCgtyL0DBxfkwD+em9itkqK8PGY2f9vXMTE4wpO1OIevrxSKRxUJ2
dh7R63Vbt245fpxvt7/yaM+C+SUP7VmC59cLciyGPWtqPYszd2WH1Cg1deSLgXBenC6CO7NEIrFYrBRV
Bn1ksylJEgYWTCvoLNgbIMijOytxgyCXPiL/7K0N3J8YzcoQf/x+RzifLtoLfzpkZmYyZuE4WAOrFnjE
zKzVgL7uJGwW5EwG+Se/3sz0j8OzP30WzqenCeGvGLgVkiRJUYdwHNwBYGuHl+DqdcdiwTyegykC3mMF
uZFE/onBiCTs2FZZWSkUCu32Rop6i14aoKfAKQhCA97txk6fztHppDzezohq0VuAAuMXItJ8qsxQrpFl
7GlpaaGoN+jrDjQUrA5Ku73A5SooLsZy5bFQ01BRFFEteguQf/QMS5zVxR6PG5ZS8MhiybdaFc3NmtJS
nlCY0G3T3ux5l6VO9JahwDckS/BjSo+nxevVOp25JpOkqurgPmGS+Rj2x8BJlgrRXoYCN0wswcsV5869
195eqtXmqGQ8rXofyy9ypgwFb+hZYnxbimGYLEfRWqOc6HuH5be4VPYPcSlYgZT/dj8AAAAASUVORK5C
YII=
</value>
</data>
<data name="BtnImprimir.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALCQAA
CwkBEvpHPgAABbJJREFUWEflmNlPG0cAh/f/qqr2paqUKE2bKGnS5iFFbVTUEpIm0JALEiAQHM5yh2KO
gMINwdxgG3zs2sa7xie2wRfY+MT4WBuvvTsdB7TaoKoveepm9Wn1k7Xze/g0M55dhEZLWVaUBrnWIts0
y7TmDU2edTXEJMGMYtSwpjQsK7ZWFmd887e5oz6djADsTxbTrg/852V1BSZW1OOjb3zzxdyBn0hGaG0V
i8Hu/W9ZhMXtjyQ0BtfQ8IBn6SF37KeQEWarkeVE1nGGkigJhcYg1xhkJ3e1fkOVZ2IJc3qj8JklhWng
Tb9XXMUdzvuM0OZBFr0tLytBplDcxPzbpSTsNs9hFoAMA2al+uGRsb31Nm4DvzPCOEQsetteXlYyheGm
M+uRYfI/oLrdmo7RZ82DpbU9DwXCczcfNDc1cBv4nRFmH2PRbedlxZMphfZDWQzI0oDKgXA8M7VK1PfO
13bPVXbMl3eJz1/5iXIpcnsovYdlPSi3jX8ZAREbi27bcypr8wNZNAMyWZCiQDwNDI7IstIiWjdMrOp6
p7DnLYMdfSMDo6L2/vGJySluG/8yAhI+FsJyKkuuMbLLEJqCcyqVAckMsLqjIinhDx2GD4/g3RcIe7zB
0GEcPjy2sI6jEurQzS3kWUZAOsqCm935mZUgN9T6E1nQVBaaogCZAf4o9U6y5doL5nJZnz8ENdlcXqPV
5fNH5JvmvqGRWMBDxYPcQp5lBGRJFq3ZBQXFEqRUlZcFN3VoKk3l59RRGsh1njXUTNOMe//AbHXhxh25
xmS2e0KHsbb+CbfDyq3iZUYAQ7FojaeyJFheVo4Gx++3qmgKmnINz6HbDm+STB3kV1/A6vBadj3haFyM
6QVtwsWlJbvdym3jX0YAgMemUzQG58nMEqNbMGSovKmjFCPDnSIJLpLiCTINdytoyu7a3zI7rbv7cDH2
vJ0rKBX8Vt5W0z2hwFBuIc8yQucn0Ckag+NE1qpCBwM0FSMZpd6zrt4+CB7ObxBQFjzfp9LHcF/zhyIm
m1OsJJ42CH8srix81FD2arCxtYtbyLOM0EyWRa3fhY6icXJZTtAAkBSw78dEEgIKgsi02zKNRYKZ4P/e
+KJyZE7W/Xa+bWBa0D3yvGXgaX3/vRcDja2d3EKeZQQcx1hUWztQViRGLmwQFANiaWB2RqWqs6f5M4d7
iqJEq9iz5uHblX/XN7VxC3mW4TkrwILp7FBEKJqck+KpHDgkgdERHVtSmR0BrXlfY3QpiV2Z1irBzKtK
w6JMt7BOzKyohePi+9Wvb5U1XrhVIRA0cAt5lhE6ssOCvpfljyRnpXg8A4IJoLaEJpexaDwVOSLDR8lg
JHEQinmDMZc3At+odU632OqbXHcXPGj/8vviL66X9HS05MJ2biefMkL71CwoYYOyvEEoiyDhmyAJUHNk
alF5Zt1lcvmTV/wYVI+fL2o8v6Q5vvRr1WeXi15UVwaMyymXnNvJp4zQzkWWE1meINk3KZZu2lbVtr4Z
5dD02omsNA2iabB3BLYDQO9l1G6A9UpmC18VtYo/v3KnuqIsgI/GTdM5xwK3k08ZYcwDLErcCr/EBGMM
bg0o9F6Zzrei2esalbb2TTUJ39V0Tpe3jJXWDRVX9RWWv/75cee1J8KLD4Vf3Xhc+/ROGO1I4j05Yz+3
kGcZoYm/WDYNO/B46giB3TAw+QGxD1AnWDSANxsJoSTZs5ZsW040zyfqZ2MvZ2KC2cStTv+5S1dNU08C
klpS1ZDVtnDb+JcRRvOMRay2jEl2KoRbT3rxsh5taZe2pEt7rx0vbid+b8ULW4hfmvCCBvxmPXFDQPxQ
R1x7iX996XpWVU5h5bS6glvFy4wwqkcsfTUFjWVXm8qu1JdeFpRcEpR8B6m7/23dPcjFl5A/IN/U5rlQ
e/cCDD0VVxPSUm4JjzMCVHc/krSs6CMb/i/D/wH7tyR87/B8kAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BtnAlta.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALCQAA
CwkBEvpHPgAABCdJREFUWEftlVtMU3ccx//PW7InssRkbvFBjHvYdNMtzAkbS3SSDGEQTCywIS5cBLtO
FBMIglzckMEQLxkboNwsRVS0pFxLKaU3abn1YimUCvR+gV7oaXt6zn9n6eLDktPwXE/yyf/lm3wePvkl
f4CJrhB4BPS1iRztaKaCnSRjHZb17vfxC8ITxesCAIpLCXZmGGu8Qudqx9Zm58aLvJnu2ICAEZ4oXhcA
HmGJW3zVyC9Q8WioXwqhwqmrGG47IGWlKZ5krg/nY7IainABsDp6Rs8vejmTo5SeQdxsGOozq34Yun+g
rfG9xvIY5s3D+EITRbgAUHNodt2DoH8B8Y6jCCfku+e3FNvUKVbVyb47H7ZVJ2CqLopwAbDITvIY2yFU
QWwI3WlHXZXQdR46U6HtxP2G2LpLibiOTREuAGaZB1cFNIPi8ub8OZ+1FNsusClOCPo/etoaW0x7h5H5
Kb4ppggXANL29yf/2jfQtPfx7Q8cq5lwK32y50D6V29/fTQmJXFfY1kGdCxThAsAxCj0GUUaYUNX836n
Nhlajnc37Tl0MGZ6qMe5uYy5jdBD8V8BAJEtAq2c2VS250FjbMeve+ln34o/8m7AbTMarGI1MiH3jkkd
YxIrR2h7PGVlcS09o5a/2ebGflMDy/zHgCVseBMAEN0h0L+ceHjn+1u1qbVXU6sZSXfrC1G/d0qJ/v7I
1vLcdeuZq3nQdfPRdkW3s7TdwWh15Dbbk69bvizRxzF0YcObAIB4kAzuYpAo1SWAHVOwlYu1cND6J8Ga
/sA1ZqC0M5B3dyexRBP/82IEQ5RNAEKUDO4S9hvLWffQXtNrr+iy0/+00urNqdWmk+XGY5cNn9ANhwo0
nxepIxiibAIYDJHBX7Qxx19J1R65dmdW6+MrvGzJ9pDU80zi7eV7mwedpy70xdHuRTBE2QQwHCVDOKcR
zWkgcR4o4vG6cQyBEIeYz4+4Q6GA0+X96VJV/OkfIxiibALQ7yJDJNNMy1cwPDSrXB/iKZeWDSE8JF7Q
Px1XCOdeKVaMOb/cSEgrimCIsglAj4UM0axqalZLXJM/GPT4ECQYIMJ5fX6HJ2ByIjLVRja99t9Y5IYo
mwDmWCFDIJLzpBoc4gbrtlpnNtldGMR0m3a52rCgtYoX9Vn0OiJWBEOUTQAzSsng8fiTEuKzg0QprnhZ
sWr2+FG+TM8aUYyI16bn9ZnhWOSGKJsAtjZMxsQoh8Ofx3HMub21YbJo183zyyap0ihYMvHmjYM8ZUZB
1fHUwgiGKJsAruokgzvyvOY2M6uoMvtiVfbF62cvVGbkX8vIJ96q9LzKlNzyhLTiY6fzIxiibALYXAsZ
M2MDV260ffxN1pFvz32WdP7oqdz/Efdd3hfJ+REMUTYB/EUVxS4LAFxSRrHLAgBKGBS7LPAP3lDg7/cp
OfYAAAAASUVORK5CYII=
</value>
</data>
<data name="BtnLimpiar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALCQAA
CwkBEvpHPgAABONJREFUWEfll+tTGmcUxvef64fOtNNJp+3USTK2SSZNFQnxgnESTYxOvGaIWms1FBAx
CgKKyEUuu1wWFhBFnMSowQtKQLntRYEYXehLSImj8ZKP4MxvmLPnPef58Mw5L7sQjbG/ihTyJCLnx8ZG
NuQtYV31V/UWejGUcdRenBTcHJaN4CYkjsBR1RQh5XmFdSTMvrhCQVdC9GzzBUmYOrclIgK17s25d90z
u24XsCwuH1vueTrHu59yNl1Qp3DLoLSXcxGSlp7QyCBuNe+6nZQDoxx2ErNRTgdpR3Gjfu3vbndnDYF1
XESqcGsgenHoXBJ2QXBYgJvgXZcja5MdJe1WEgVYSCvAvD/v8XS2uaSd50oVdAGUXps6m6RbGhDx4rCB
cmKkDSVtVgK1EFYzYTERFoQwwxRqjrgwdRXLJO4+V62gC6B0wHEGCY9ua/DfuF5HYbasQTmPzAhhggE4
bCRNcHzGYeA84377DTLGP1ut0E+hTGzlNJKLmF/Ajeq02WkCNgGPPtqEI0ZgE7iqCNiAu5z2gT7RrRsj
pb/OIaoz1IrgCMrsBr9IyrewweNGNSpwMX0apaxHhixGPW7Q4fppsJizwyJxRbno+lXJwzr/kuc0teLI
Q5kUfpLk+tI6dyAypQSXN458HCXj/x4ZdHH9NK7TUg7b6wm5hMkQM8peXv1lenSECAe+qFY0SShzkDhG
0u9b6+/bmVSAgfrskT7rUVynzaJVU6h1RauWV92TMMrEN0pF9Q2rvpUEFTupVkwZKJP+cJRUcHMVODUh
J8BAgXUDQwQ8yts0rQFOkWZkAzYq7rOldytGb998WVHunfdGomH68P0xtSJ7hDKZgzzJ4Javt3tbLiUQ
Y27XsnMEDMqjVYOjLbNJ87hBdpcpKbsjufkbZra8CwX395NHpYoyhujMYY79BOXjc2NmBAzOp3U75tS0
hjAaghYT3N4qYzJkFQzJtRLN2Lg/GNxLJfI6RRxAdPogxzuddqm5MayYoOY9hNkU16iOzRTYx7Ddhvb2
ypmMcdZdScnP4r4X61sBao86pD/kdYo4gDLvyRwrnE5/93N/FyckGSVdTvAWGvvslxqf1kQxu1vAn2Ax
FdWVY9dKJG3tvuU3RCSYThF5keIOwHvWTo63rU8DA/8E+vsCfb0hIZ9AwTezKztcWjWu1cQxm1c8qqhk
TdZUSW+UTjQ2LC/MxrZ8NLWdVyj6AKJjvhyvWpo2uzkhHjcI4A6AX/BvuOudI6wmHLO9kkmV7Grg1MSd
W8qae17UsLPqOYi8zbdfhgCig64cAbdmoeWx/1n79qBgRyjYFvAAUYUsbrcsDAtVtewpdrWS8afs5nVU
IQq9hvc3sXzvJQkgel2bJ+qRW1sfLT1p2BYKIiLhztBgeGhw80W/ml2tqq1Rsipe/nRFzedsuWXJZdXR
xksSQ+lF4VESHj7CeThbwwoJeJHhobBI+KanS11Xq6xkCX/4TtFVv2nt35vjHeu6JI8Q7ek5xr67e+ZF
vZ1VBi77uHjE3dEGnBJd+X6yhbmu7yCx5ydbLkkGSs80noSeaVwavY/Vlm90tFirmOMlPyrrf19RPiAs
j8DRF1suQxJKOx+cxrqCrWj5Q9p02/gXY0VRE4PrDh2nFp+hUzRHUMZ572xSKGvPwkpYWYfYOZXnShV6
wX+TqdltqJqp7gAAAABJRU5ErkJggg==
</value>
</data>
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style9{}EvenRow{BackColor:Aqua;}Normal{}FilterBar{BackColor:InactiveBorder;}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}Style13{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{AlignHorz:Near;}Style3{}Style15{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style5{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style12{}Style11{}Style4{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;141&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 718, 141&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 718, 141&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="PictureBox1.ErrorImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEASABIAAD/4RmCRXhpZgAATU0AKgAAAAgACAESAAMAAAABAAEAAAEaAAUAAAAB
AAAIegEbAAUAAAABAAAIggEoAAMAAAABAAIAAAExAAIAAAAvAAAIigEyAAIAAAAUAAAIuodpAAQAAAAB
AAAIzuocAAcAAAgMAAAAbgAAETIc6gAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABIAAAAAQAAAEgAAAABAABNaWNy
b3NvZnQgV2luZG93cyBQaG90byBHYWxsZXJ5IDYuMC42MDAxLjE4MDAwAAAyMDExOjA0OjI2IDEzOjAw
OjM2AAAEoAIABAAAAAEAAACjoAMABAAAAAEAAAAvpCAAAgAAACEAABEQ6hwABwAACAwAAAkEAAAAABzq
AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAOTY2OUM0NTdDRDZDNDAzM0EyMEFDRjg0NzQ2MDZFMUIAAAAGAQMAAwAA
AAEABgAAARoABQAAAAEAABGAARsABQAAAAEAABGIASgAAwAAAAEAAgAAAgEABAAAAAEAABGQAgIABAAA
AAEAAAfpAAAAAAAAAAAAAAABAAAAAAAAAAH/2P/bAEMACAYGBwYFCAcHBwkJCAoMFA0MCwsMGRITDxQd
Gh8eHRocHCAkLicgIiwjHBwoNyksMDE0NDQfJzk9ODI8LjM0Mv/bAEMBCQkJDAsMGA0NGDIhHCEyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMv/AABEIABwAYAMBIQAC
EQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0B
AgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVG
R0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAA
AAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGh
scEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1
dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri
4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/APfz0ri9J8R6hNqmoWszJJHAkroSuCNp4HFcGLxE
6VSmo9WzuwmHhVp1HLolYt+ENavdYe9a7dSE2bFVQAuc11HQVeBrSrUI1J7v/MjH0YUcRKnDZW/I5J/H
KXuo3Nh4e0u41ma1O2eWJ0jhjb+7vY8njsDVOL4jC01620bX9DvNJubpgkDsyyxuScD5l9yBxnGecV6i
w99L+92PPdXrbQveMPHEXg1YZbzS7ye1lO1Z4ChUPz8pBIIOBn0rZ0LXbTxFotvqtgxaGZchW4ZSOCp9
weKiVFqmql9GNVE5uJl2fiy4u/EkuiNoN7DPCiyyyPJGUWMkgNkMc5wcDrxWXr3xMg8O67HpF7ol+bmX
b5HltGwlDMVUj5u5GOcVpDD80uVS6XJlV5VdoTUviZDoUkA1zw9q+nxTHaszpG6+/wB1j+XWunh160ub
q1it8zR3MQljmTBUqQSP0H+cHEzoOKUk7pjjUTdupga5peuyavK9hfMlvJgqpuCu045GKyvOk8IXJWWN
Lq+uE3SszHaqkngHqSSOT9K+VxEatCrKvN3Sei9T6jDzo16UcPBcsmtXbt/wRYNE1P7Ot7o90Yba5G7Y
ZijL7H1xzzV/XJ9S0D4YatdT3TvfCJtsgkLFCxCDB9s5+tdmVYarHERvL3HsvU5MzxNGdF2j799XbsZn
wOiVPA9w4HzSXzkn6Kg/pXYan/YF7eWkl9dWZm0+486IPMoKSAFeefc8eoHpX0Ffm9vLl3PBpW9mrmJ8
QbK11i28P2dwBLaXWqRo21vvKY35BFcF4dv7v4UeNptB1Vy2jXrho5zwBnhZP/ZWHtntztQ9+k6T66r5
EVPdmpnpViQfiZq5ByDpdrgj/rpNXnHxV/5K14b/AN22/wDR7UsN/F+X6BV+D5mx8Y9YsNT0a00HT5lv
dUkvFdbe3PmOu1WByBnB5xjr19K73wfpU+i+EtL066x9oggVZMHOG6kZ9s4/Cs6l40Ixe92yoq9VszNY
8IXWrapLeG/RFbAVTGTtAH1rF0RLe6u7vT9Uj+1R2iO8TEkFdpwQDnOD6V8pXwrpYhOo7xm3p+J9TQxa
q4ZqmuWUErP8CHS9KuvFUk8hu1hWHaFTaSqqc4CjPAGK6G+8KXM/gLUtANwk0s0b+S2NoDfeUH/gQroy
ijNVFinLfp8zDNq8OR4RR2tr8jjPg3rlrpdnqHhvU5RZ6hFdGRYpzsLZUAgZ7gr096zvG0en3Xxu0GON
LaVJGtxOqhWDMZG+96nGOvbFfWWaxE5dGmfMXTpJeZ6B44urW1uvC6yzRRAavEQGYLgBHGfpyKseOfCF
t4z8PvbfIt5GPMtJ/wC63oT/AHT0P59q5IzdPkmbySkpROI+DlxqT63rFpq28XVhbQ2mxx8yKjyYU+uM
kfTFZfxUniPxY8PnzUxGtt5h3D5P37Hn045rsil9ZfLtb9DnbfsVfv8Aqe022nafBK9xa2dtHJISzSRx
qC2eckgc1crzG29zsSS2E7Vz+leH7KKSe7/etLcB1fc3ADHkDFctahCpODl0udNGvOlCSj1sTaJo9to9
1dx2pk2OEJDnOOvTitO8ma3tZJUALKBjPTrVYWjGnTVOOwsTVlVqOpLd/wCRyuowadq8ok1HR9Ou5FGA
81uGYD0yaNPttN0p/MsNG0y1kx9+G3Ct+Y5r0feS5buxwu172FvodO1O4+0X+jaZdTYC+ZPbB2wOgye3
Jq7baibG2jtrW1toIIxhI449qqPQAHik4XXK3oO9ncZHerDdzXkdnaJczACWVYsM4HTJzk4rOk0zRZZX
kk8O6O8jsWZms1JYnqSfWhJp3TYnZ6NGnZ3/ANgtktrO0tbeBPuxxR7VXJ7AGr1nqs9xdpE6xhWJzgHP
TPrUSgtylJ6I/9kA/+0ctlBob3Rvc2hvcCAzLjAAOEJJTQQlAAAAAAAQAAAAAAAAAAAAAAAAAAAAADhC
SU0EOgAAAAAAkwAAABAAAAABAAAAAAALcHJpbnRPdXRwdXQAAAAFAAAAAENsclNlbnVtAAAAAENsclMA
AAAAUkdCQwAAAABJbnRlZW51bQAAAABJbnRlAAAAAENscm0AAAAATXBCbGJvb2wBAAAAD3ByaW50U2l4
dGVlbkJpdGJvb2wAAAAAC3ByaW50ZXJOYW1lVEVYVAAAAAEAAAA4QklNBDsAAAAAAbIAAAAQAAAAAQAA
AAAAEnByaW50T3V0cHV0T3B0aW9ucwAAABIAAAAAQ3B0bmJvb2wAAAAAAENsYnJib29sAAAAAABSZ3NN
Ym9vbAAAAAAAQ3JuQ2Jvb2wAAAAAAENudENib29sAAAAAABMYmxzYm9vbAAAAAAATmd0dmJvb2wAAAAA
AEVtbERib29sAAAAAABJbnRyYm9vbAAAAAAAQmNrZ09iamMAAAABAAAAAAAAUkdCQwAAAAMAAAAAUmQg
IGRvdWJAb+AAAAAAAAAAAABHcm4gZG91YkBv4AAAAAAAAAAAAEJsICBkb3ViQG/gAAAAAAAAAAAAQnJk
VFVudEYjUmx0AAAAAAAAAAAAAAAAQmxkIFVudEYjUmx0AAAAAAAAAAAAAAAAUnNsdFVudEYjUHhsQFIA
AAAAAAAAAAAKdmVjdG9yRGF0YWJvb2wBAAAAAFBnUHNlbnVtAAAAAFBnUHMAAAAAUGdQQwAAAABMZWZ0
VW50RiNSbHQAAAAAAAAAAAAAAABUb3AgVW50RiNSbHQAAAAAAAAAAAAAAABTY2wgVW50RiNQcmNAWQAA
AAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklNBCYAAAAAAA4AAAAAAAAAAAAAP4AAADhC
SU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPzAAAAAAAJAAAAAAAAAAABADhCSU0nEAAA
AAAACgABAAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmAAEAoZmaAAYAAAAA
AAEAMgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklNA/gAAAAAAHAAAP//////////
//////////////////8D6AAAAAD/////////////////////////////A+gAAAAA////////////////
/////////////wPoAAAAAP////////////////////////////8D6AAAOEJJTQQAAAAAAAACAAA4QklN
BAIAAAAAAAQAAAAAOEJJTQQwAAAAAAACAQE4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAAB
AAACQAAAAkAAAAAAOEJJTQQeAAAAAAAEAAAAADhCSU0EGgAAAAADSQAAAAYAAAAAAAAAAAAAAG4AAADI
AAAACgBVAG4AdABpAHQAbABlAGQALQAxAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAADI
AAAAbgAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAABAAAAAAAAbnVsbAAAAAIA
AAAGYm91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcA
AAAAAAAAAEJ0b21sb25nAAAAbgAAAABSZ2h0bG9uZwAAAMgAAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAA
AQAAAAAABXNsaWNlAAAAEgAAAAdzbGljZUlEbG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9y
aWdpbmVudW0AAAAMRVNsaWNlT3JpZ2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNs
aWNlVHlwZQAAAABJbWcgAAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcA
AAAAAAAAAExlZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAG4AAAAAUmdodGxvbmcAAADIAAAAA3VybFRF
WFQAAAABAAAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVYVAAA
AAEAAAAAAA5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAAAAlob3J6QWxp
Z25lbnVtAAAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRBbGlnbmVudW0AAAAPRVNs
aWNlVmVydEFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVlbnVtAAAAEUVTbGljZUJHQ29sb3JU
eXBlAAAAAE5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAAAAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJv
dHRvbU91dHNldGxvbmcAAAAAAAAAC3JpZ2h0T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAj/w
AAAAAAAAOEJJTQQUAAAAAAAEAAAAAzhCSU0EDAAAAAAUbwAAAAEAAACgAAAAWAAAAeAAAKUAAAAUUwAY
AAH/2P/tAAxBZG9iZV9DTQAB/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8V
GBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQU
Dg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAWACgAwEi
AAIRAQMRAf/dAAQACv/EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAA
AAAAAQACAwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVS
wWIzNHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFRYXEiEwUy
gZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8rOEw9N14/NGlKSF
tJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQACEQMRAD8AtJJKxg4GRn5AooEn
l7zw0fvOXJQhKchGI4pS0AD185xhEzmRGMRZJa/eBqTwBytDE6D1PKgtpNbDw9+n/RXVdM6Hh9PYC1vq
XH6VrtTP8n91aK18HwiIAOaRJ/chpH/GcfP8YkSRgiAP356y/wAT9F5Jv1PzCJdexp8Ns/8AflL/AJnZ
X/cln+Yf/Jrq0lb/ANG8p/mv+dk/79qf6T5z/O/8zH/3jyn/ADOyv+5LP8w/+TS/5nZX/cln+Yf/ACa6
tJL/AEdyn+a/52T/AL9X+k+c/wA7/wAzH/3jyn/M7K/7ks/zD/5NL/mdlf8Acln+Yf8Aya6tJL/R3Kf5
r/nZP+/V/pPnP87/AMzH/wB48p/zOyv+5LP8w/8Ak0v+Z2V/3JZ/mH/ya6tJL/R3Kf5r/nZP+/V/pPnP
87/zMf8A3jyn/M7K/wC5LP8AMP8A5NL/AJnZX/cln+Yf/Jrq0kv9Hcp/mv8AnZP+/V/pPnP87/zMf/eP
Kf8AM7K/7ks/zD/5NRd9UMwCW3scfDbH/fl1qSH+jeU/zX/Oyf8AfK/0nzn+d/5mP/vHg8vofU8SS6kv
rH57Nf8AohUPLuOQvS1mdU6Dh9QaXAelePo2N/7+PzlVz/CI0ThkQf3J7fSbbwfGJWBniCP34b/4UHh0
kbMw8jCvdj5Ddrxwezh+81BWPOEoSMZDhlHQguzGUZxEokSjIWCH/9C5VW+2xlVYl9hDWjzK7zpXTaun
YramCXnWx/cuXPfVLDF2ZZlPEtoEM/rO/wDItXXLM+FcuI4/eI9WT5fCA/751Pi3MGWX2QfTjoy/rZJf
97FSz83rmBg5YxcourLmB4s2ksgktg7Nzm/R/dU7Os9KrsdXZl1Mewlr2lwBBHIK5b60ZeNk57bce1tt
YpAL2GQCHPO3RT85zXtYuLHKMpiQHDfEw8lyZy5eHLCcYGJPFXD/AHfU9VldW6fiU1333BtdwmoiXF4j
d7GsDt3Kn0/Oq6hjDJpDm1uLg3eIPtO2Y18Fzn1hotr6X0re0t9JgrfPZxrb7f8AwN6ufV3qXT8bpNVV
+TVVYHPJY9wBEucR7Smw5uR5k4p8MICAnr6fVLg/e/vLp8nAcqMuPinkOQw09Q4Imf6Mf7sXoEkDGzsP
LLhjXMu2Rv2ODon6O7auK+uH1v6k7rVP1W+r9jacu6xlORmEbix1uvp16Oa30qT619v9iv8ASrQxR90+
ggjfi/RoOfO4aSBiex0Or3iS5Yf4uuh21D7fdmZ2URD8u3Jt3k/vBrXitv8AV2Lm/wBl/WX6qfWvpuB0
zNuy+n9Stiqq95ez02e/LrvY6W120UfpmZFDK/U/6CfHFCViM/UAT6hwg14rTIjeP2PpqSxPrd0xud0b
ItbkX4mRh1WXUXY9r6yC1u/bY2tzW21v2fn/APW15l9Ufrn1DpPVqrepZV9/T8gNZlNve+z02uh1WXX6
jnO/Rfn7P5zH/sI48ByQlKJ1j+iiWQRIB69X2hJV8rFxuoYjqLS51FwB3VPdWSJD2uZdQ6uxvH5j1xv1
f6E0/W3rOJkZ+dk43Sjivxqbcm0jdew5P6XbY31vSdXsra/8z+d9RMjAESJNcIvb/BXE1Xi90kuD/wAZ
2KcHAr6thZOVjZV2Syq0VZFra3NLH/4Ftnpsc30m/wA01io/UfoNn1g6RbnZvV+qMtbkPpa2nLe1u1gY
Qff6jt3vTxhHt+4ZULrbqt4/Vw1ru+lJLyHrHUfrL9S/rA7Gp6nfnY7WtvqrynmxtlTif0dos3bLN9b6
/Vo9P/Sf8GvQfRzupZGJ1XFuczFvqqtqaXFuxrg212+oe2zcz/tz1f0mz0K0p4OERlxAxkLjJQyWSK1B
1De6x0uvqOKWHS1mtT+4P/mS4RzXMe5jxD2EtcPAhelLjfrVhijqAvYIbktk/wBZujli/FuXEsYzAeqF
CXjA7f4snY+EcwY5DgJ9M7lDwnHf/Gi//9Hu/qpUG9KD41se4k+MFbSyfqx/yNT8XflWsouWFYMQ/wBX
D/os3NG+YzH/AFk/+m851j6t35nUH5WPbVW21rS9r5ncBs3e3+SGqs/oA6Vi2dSyntyX44DqqGgisvkN
rda76djGPdv2JutdH6zn9TuyG426oQykmxg9jRzG789+9yz93UOjXehksmqxk3YjnB7LKzLXfRLmss9v
sesnN7ccs5y5ecLkeHNLi4OM/Lk9vhdjB7ssWOEeZhOox4sEeD3OAfNi9yMuOPp9HEmo6vmZt7MPqLhk
42U9tT2bQ0tLjFdtLmDc19b/AHK3d9Tslr/0OTW5nY2NId89ntcnz8TpnR8erPwd1mRkR9kNrt7aw5u4
3tYfpbK/oeos2rpPV+o1jLZW7IbYTFr7GyYO1303fvBNlEj9XmhLms3zjglK4Yz/AF/UvjIEe5hyR5TD
8p9yEIxnl8MfFGMf+7/wHqug9Kd0zEdXY5r7bXl73smI+ixon91oXk/1WvfmfX7FyrdX35mRc74lt7l6
l9WcTqGFi242ZV6TWv30nc12jh72+wu27X/9WvLMVrfq99fa2ZP6OrDzy1znaAU3bm1XOP7no5DLF0Xw
sD7vKIgcZ9vSEvmj81vP/ECfvBJmMnr/AJyPyyv5flfanvZWxz3uDWNBc5zjAAGpc4lVD1Ho73MtOTjO
cwE1vNjCQHD3Fjt3t3NVxzWuaWuAc1wgg6gg9ivFsvpvT2/4xvsDcWpuGeo1V/ZgwCvY4VudX6f0fTc4
/wA39BHBiGTiskcI4tGOcuGvEvrPWLarvq/n20vbZU/Eucx7CHNINb/c1zfa5cL1H6pv619R+j9Twml/
U8LBqbsGpuoDZ+zx/pavp43/AGz/AIVd11mqun6v51VTG1114lzWMaA1rQK3BrWtb7WtVb6l/wDiS6R/
4Uq/6kJQmYR4o9J/sVKIkSD1Dyf+LH62h7GfV7NsJLWz021xmWAbnYbnH86lvux/+B/Rf4Bb/Qf/ABa/
Wn4dP/8APFi5L/GL9VrOlZo+sPTN1WNdY195r0NGTumvJrc3+brvt/7byv8Aj1s/4t+qX9Y6p1zqWS1r
b724TbAz6JNdd1O8fu+ps37FNkjEwnmh8s41Ifuz44LIyIkIS3B0P70aTf42v/E3j/8Ah2r/AKi5B/xY
5uHhfVa63Mvrxqzm3APte1jZ21u+lYWov+Nr/wATeP8A+Hav+ouQP8WvTen9R+qttPUMarLqbn2vay5j
XtDg2tu8NeHe7a5AV91F7cfRX+W+jzn1nuf9dvraMfoLftFdVTMYZAB9MNDn2XZVr/8AB0V+rtZ/ptn6
H+cXrWFi14eHRh1Sa8atlTCedrGits/5qWLh4mHV6OJRXj1c+nUxrGz/AFaw1qMocuXjEYgVGA07/VfG
FEnrJSwfrfWD0+uzuy0Cf6y3lifW7/kof8az8qp82L5fL/ck2+TNczh/vx/N/9Lvfqq8O6SxvdjnD8Vs
LlPqhlhmRdiOMeqN7PiNHLq1W5LIJ8tiI6RED54/Q2eexnHzOUHrIzHlk9alyX1nxcrJ6sxmNS+53oNn
Y0kD3P8ApO+gz+0utSTuZ5cZ8ftkmIsHTwW8rzB5fJ7giJGjGj4vMdb6bn2dN6a2uh1j8avbc1kOLTsr
b9EH3+5v+DWl9WGub0alrgWuDrAWuBBB3v5aVqpJsOVjDOcwkbMBjMT/AFeH/vF+TnJZMAwGI0mcgkP6
3HKv/HFLmvrV9TekfWQNust+y51bdjMlkOlv+ivqd7bq9f3q7P8AhF0qwulW9C6s57sXptZx2usYMg1V
wX1P9G6qyv8AnqLd36Stl1f6Sr9IrmMyieKJI4eoacqOhF25HT+kfX7pdLcTH6xg5WLWNtRyq3l7Wjhs
sO923/hLrEHp3+L1zetM651Xq/2rLbeMlzaq21h1jTLdznOt/Re3ZsZXV7FvdQd0XBzsbBPTK7bsuu6y
otrpDIoDX3Nsfbs2O22M9NXG9P6N9mGTbg0UM2eo8W1VtLBG93q6bW+n+epDlkNR6eMbxjG5LeEHQ613
KD6w4nUupYTsLp2dThMvY+vIsfX6ry1w27af0tTK/bv3uc2z/g1V+rPSusdFoqwcnqdGbgUM2VN9E12s
A/m2Nu9d7H1t/wCEq3/y0TAd0nqDce+jo4+xZYJpyXU1AbQN9dtlR/TV05Df5h+z9z1PT9RE6qOh9Lbj
Ot6dXb9ryK8SsV01mLLjtrc/fs/R7vpuTbNe336cMbvzT/WdLKqw8zGtxckMtovaa7a3HRzXDa5q5/6o
fVOv6sXZ5ZmjJpyzX6LXNDXsbX6u0Wv3uba/bbt37K1p42J0m/IyqP2bUw4j2sL3VV7XlzG3TXtl3tZY
z6azuq9S+rnSsm+nL6Y0VYtdN9+Q2mpzW132OxarNg/TP2XMf6uyr6CUeKjCJNSq40P8FR6SIGnVD9bP
q31T6yAYx6nj4vT6rBbVSKS+wuDdm6643t3bd9mz0660vqr9W+rfVxv2VnU8bJwLLTbbU6gteC4Q403N
yDt3bWfzldi2szD6Bg4l2ZlYuNVj47HWWvNTTDWjc4w1hc7+yqOPd0R+ZjYWT0pmHdnVOuxG3VVe8MAd
bSdm/wBPJqrd6llL/wAz/riInIw4B8g6cMVUOK+vm7nq1/vt+8JxZWTAcJPmFkdTb0Ppxxq34FD7s230
Mdnp1tDn7X27XW2BtbNza/Z/pLP0at43T+mOrqyG4FVFhDbGtdUxtjHEbtrtm7bbX/Jeo6FXrqus3TeW
F9b3gdNYzu61v4LdXI/W3LFuZXjNMihsv/rO/wDMVT5/IIctkJ/SHAPObc+H4zPmsYH6J4z5Q9T/AP/T
vY2RZjZFeRV9Op24efi3+0u/wcynNxmZFRlrxqPA92rzxXuk9Wv6bfuZ76X/AM7V4/ym/wAtc/8ADudG
CRhP+bmd/wByX73/AHz0PxHkjniJw/nYDb/OQ/d/7x71JVsHqGLnVC3HeHeLe4Pg5qsrfBBAINg7EPPk
EEgggjQg7qSSSRQpYvS+gWYnVrerXWsORdQMe8UM9Jl7mv8AUbm5VW5zHZe39F/27/xdW0kiJEAgdd0U
43Wugu6n1DDyy6l1WHXfWca+r1G2faGsrfuO9uz021/urQdifaMB2HnOGR61RqySBsDw9uy3axp/Rtdu
/fVlJEyNAfu7Koanu4XT+g9SxLOm1u6i52J0pr6m1tBaciss9HFZmNDvT34f+lb/AD3+jqVzrnST1TGp
ZXYKcjFyKsvHe5u5vqUu9Rrbaw5m+t/uY73rRSS45WD1CqFU1MHEtoN917mvvyXiyzYCGiGspYxm6Xe1
lf0lldX+q9nUuo29QGSKLhVjtw3tr3OqtxrbMqq50v2X12PufXdjuZ/NroEkhOQNg6qoVTT6j02rqvSr
+m5v0Mqo1Wur0guH06t276D/AH171Sp6JlW5/T87qeQ3It6XXYyg1sNe+y1optyrm7nNa70W7W0V+xnq
Wf8AB+nspJCZAofyvdVBzeudKf1XG+yu9GzGsa9l9GRXva7cP0VrHNcyyq7Hf769n/gdnp2128HGOJhY
+IbXXnHqZUbrDL37GhnqWH9+zbuejqpn9TxOn1Gy94B/NYPpE+ACbKdR9RAjHWzoujEylUQZSloANSv1
HPqwMV+RaeNGt7l35rVwN1tl9z7rDL7HFzj8VZ6n1PI6lf6lvtrb/NV9mj/yaprnviHODPIRh/Nw2/ry
/e/716H4dyR5eBlP+dnv/Uj+5/37/9S0kvIElyD2L7FTddQ/1KHurf8AvNMLXxfrX1CkBt7W5DR3+i78
PavBklc5T75/4H4uH/xr/n/q2nzf3L/wRwcX/jv/AI3+sfoZv1yrj3Yr58nNT/8APKn/ALi2f5zV88JL
RH+k/wCp/wA1zv8Agr+v/wA9+h/+eVP/AHFs/wA5qX/PKn/uLZ/nNXzwkl/wn/q/wV/wX/X/AOe/Q/8A
zyp/7i2f5zUv+eVP/cWz/OavnhJL/hP/AFf4K/4L/r/89+h/+eVP/cWz/Oal/wA8qf8AuLZ/nNXzwkl/
wn/q/wAFf8F/1/8Anv0P/wA8qf8AuLZ/nNS/55U/9xbP85q+eEkv+E/9X+Cv+C/6/wDz36H/AOeVP/cW
z/Oamd9cq49uK+fNw/gvnlJI/wCk/wCp/wA1Q/0V/X/577xl/WrqN0toDcdp7j3O+8rItttuf6lz3WPP
5zjJXjySzeb++X/SOKr/AOp/8z9W6XKfc6/o/Bdf9V+vH+tfX0l5Akqjbf/ZADhCSU0EIQAAAAAAVQAA
AAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8AcwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8A
dABvAHMAaABvAHAAIABDAFMANQAAAAEAOEJJTQQGAAAAAAAHAAgAAAABAQD/4Q62aHR0cDovL25zLmFk
b2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVnaW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pO
VGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRv
YmUgWE1QIENvcmUgNS4wLWMwNjAgNjEuMTM0Nzc3LCAyMDEwLzAyLzEyLTE3OjMyOjAwICAgICAgICAi
Pg0KCTxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDovL3d3dy53My5vcmcvMTk5OS8wMi8yMi1yZGYtc3lu
dGF4LW5zIyI+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSIiIHhtbG5zOnhtcD0iaHR0cDov
L25zLmFkb2JlLmNvbS94YXAvMS4wLyIgeG1sbnM6eG1wTU09Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFw
LzEuMC9tbS8iIHhtbG5zOnN0RXZ0PSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvc1R5cGUvUmVz
b3VyY2VFdmVudCMiIHhtbG5zOnBob3Rvc2hvcD0iaHR0cDovL25zLmFkb2JlLmNvbS9waG90b3Nob3Av
MS4wLyIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIiB4bXA6Q3JlYXRv
clRvb2w9Ik1pY3Jvc29mdCBXaW5kb3dzIFBob3RvIEdhbGxlcnkgNi4wLjYwMDEuMTgwMDAiIHhtcDpD
cmVhdGVEYXRlPSIyMDEwLTEyLTI5VDE0OjE5OjA4LTA2OjAwIiB4bXA6TWV0YWRhdGFEYXRlPSIyMDEw
LTEyLTI5VDE0OjE5OjA4LTA2OjAwIiB4bXA6TW9kaWZ5RGF0ZT0iMjAxMC0xMi0yOVQxNDoxOTowOC0w
NjowMCIgeG1wTU06SW5zdGFuY2VJRD0ieG1wLmlpZDowMjgwMTE3NDA3MjA2ODExQUNBRjhDQUE0OTkx
NTI2MSIgeG1wTU06RG9jdW1lbnRJRD0ieG1wLmRpZDowMTgwMTE3NDA3MjA2ODExQUNBRjhDQUE0OTkx
NTI2MSIgeG1wTU06T3JpZ2luYWxEb2N1bWVudElEPSJ4bXAuZGlkOjAxODAxMTc0MDcyMDY4MTFBQ0FG
OENBQTQ5OTE1MjYxIiBwaG90b3Nob3A6Q29sb3JNb2RlPSIzIiBwaG90b3Nob3A6SUNDUHJvZmlsZT0i
c1JHQiBJRUM2MTk2Ni0yLjEiIGRjOmZvcm1hdD0iaW1hZ2UvanBlZyI+DQoJCQk8eG1wTU06SGlzdG9y
eT4NCgkJCQk8cmRmOlNlcT4NCgkJCQkJPHJkZjpsaSBzdEV2dDphY3Rpb249ImNyZWF0ZWQiIHN0RXZ0
Omluc3RhbmNlSUQ9InhtcC5paWQ6MDE4MDExNzQwNzIwNjgxMUFDQUY4Q0FBNDk5MTUyNjEiIHN0RXZ0
OndoZW49IjIwMTAtMTItMjlUMTQ6MTk6MDgtMDY6MDAiIHN0RXZ0OnNvZnR3YXJlQWdlbnQ9IkFkb2Jl
IFBob3Rvc2hvcCBDUzUgTWFjaW50b3NoIi8+DQoJCQkJCTxyZGY6bGkgc3RFdnQ6YWN0aW9uPSJzYXZl
ZCIgc3RFdnQ6aW5zdGFuY2VJRD0ieG1wLmlpZDowMjgwMTE3NDA3MjA2ODExQUNBRjhDQUE0OTkxNTI2
MSIgc3RFdnQ6d2hlbj0iMjAxMC0xMi0yOVQxNDoxOTowOC0wNjowMCIgc3RFdnQ6c29mdHdhcmVBZ2Vu
dD0iQWRvYmUgUGhvdG9zaG9wIENTNSBNYWNpbnRvc2giIHN0RXZ0OmNoYW5nZWQ9Ii8iLz4NCgkJCQk8
L3JkZjpTZXE+DQoJCQk8L3htcE1NOkhpc3Rvcnk+DQoJCQk8cGhvdG9zaG9wOkRvY3VtZW50QW5jZXN0
b3JzPg0KCQkJCTxyZGY6QmFnPg0KCQkJCQk8cmRmOmxpPnhtcC5kaWQ6MDM4MDExNzQwNzIwNjgxMUFF
NTY4NjQ0MDZGQ0YwRDI8L3JkZjpsaT4NCgkJCQk8L3JkZjpCYWc+DQoJCQk8L3Bob3Rvc2hvcDpEb2N1
bWVudEFuY2VzdG9ycz4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJPC9yZGY6UkRGPg0KPC94OnhtcG1l
dGE+DQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9J3cnPz7/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQ
AABtbnRyUkdCIFhZWiAHzgACAAkABgAxAABhY3NwTVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAQAA
9tYAAQAAAADTLUhQICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ABFjcHJ0AAABUAAAADNkZXNjAAABhAAAAGx3dHB0AAAB8AAAABRia3B0AAACBAAAABRyWFlaAAACGAAA
ABRnWFlaAAACLAAAABRiWFlaAAACQAAAABRkbW5kAAACVAAAAHBkbWRkAAACxAAAAIh2dWVkAAADTAAA
AIZ2aWV3AAAD1AAAACRsdW1pAAAD+AAAABRtZWFzAAAEDAAAACR0ZWNoAAAEMAAAAAxyVFJDAAAEPAAA
CAxnVFJDAAAEPAAACAxiVFJDAAAEPAAACAx0ZXh0AAAAAENvcHlyaWdodCAoYykgMTk5OCBIZXdsZXR0
LVBhY2thcmQgQ29tcGFueQAAZGVzYwAAAAAAAAASc1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAABJz
UkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAWFlaIAAAAAAAAPNRAAEAAAABFsxYWVogAAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAA
OPUAAAOQWFlaIAAAAAAAAGKZAAC3hQAAGNpYWVogAAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklF
QyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAAC5JRUMgNjE5NjYt
Mi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAAAAAAAC5JRUMgNjE5NjYtMi4x
IERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAA
AAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAA
LFJlZmVyZW5jZSBWaWV3aW5nIENvbmRpdGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHZpZXcAAAAAABOk/gAUXy4AEM8UAAPtzAAEEwsAA1yeAAAAAVhZWiAAAAAAAEwJVgBQ
AAAAVx/nbWVhcwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAo8AAAACc2lnIAAAAABDUlQgY3VydgAA
AAAAAAQAAAAABQAKAA8AFAAZAB4AIwAoAC0AMgA3ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACB
AIYAiwCQAJUAmgCfAKQAqQCuALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwENARMBGQEf
ASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJAdEB2QHhAekB8gH6
AgMCDAIUAh0CJgIvAjgCQQJLAlQCXQJnAnECegKEAo4CmAKiAqwCtgLBAssC1QLgAusC9QMAAwsDFgMh
Ay0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oDxwPTA+AD7AP5BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASa
BKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJBVgFZwV3BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZq
BnsGjAadBq8GwAbRBuMG9QcHBxkHKwc9B08HYQd0B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiW
CKoIvgjSCOcI+wkQCSUJOglPCWQJeQmPCaQJugnPCeUJ+woRCicKPQpUCmoKgQqYCq4KxQrcCvMLCwsi
CzkLUQtpC4ALmAuwC8gL4Qv5DBIMKgxDDFwMdQyODKcMwAzZDPMNDQ0mDUANWg10DY4NqQ3DDd4N+A4T
Di4OSQ5kDn8Omw62DtIO7g8JDyUPQQ9eD3oPlg+zD88P7BAJECYQQxBhEH4QmxC5ENcQ9RETETERTxFt
EYwRqhHJEegSBxImEkUSZBKEEqMSwxLjEwMTIxNDE2MTgxOkE8UT5RQGFCcUSRRqFIsUrRTOFPAVEhU0
FVYVeBWbFb0V4BYDFiYWSRZsFo8WshbWFvoXHRdBF2UXiReuF9IX9xgbGEAYZRiKGK8Y1Rj6GSAZRRlr
GZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyjHMwc9R0eHUcdcB2ZHcMd7B4W
HkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEcIUghdSGhIc4h+yInIlUigiKvIt0jCiM4
I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijU
KQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2K2krnSvRLAUsOSxuLKIs1y0MLUEtdi2rLeEuFi5MLoIuty7u
LyQvWi+RL8cv/jA1MGwwpDDbMRIxSjGCMbox8jIqMmMymzLUMw0zRjN/M7gz8TQrNGU0njTYNRM1TTWH
NcI1/TY3NnI2rjbpNyQ3YDecN9c4FDhQOIw4yDkFOUI5fzm8Ofk6Njp0OrI67zstO2s7qjvoPCc8ZTyk
POM9Ij1hPaE94D4gPmA+oD7gPyE/YT+iP+JAI0BkQKZA50EpQWpBrEHuQjBCckK1QvdDOkN9Q8BEA0RH
RIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhLSJFI10kdSWNJqUnwSjdKfUrESwxLU0uaS+JMKkxy
TLpNAk1KTZNN3E4lTm5Ot08AT0lPk0/dUCdQcVC7UQZRUFGbUeZSMVJ8UsdTE1NfU6pT9lRCVI9U21Uo
VXVVwlYPVlxWqVb3V0RXklfgWC9YfVjLWRpZaVm4WgdaVlqmWvVbRVuVW+VcNVyGXNZdJ114XcleGl5s
Xr1fD19hX7NgBWBXYKpg/GFPYaJh9WJJYpxi8GNDY5dj62RAZJRk6WU9ZZJl52Y9ZpJm6Gc9Z5Nn6Wg/
aJZo7GlDaZpp8WpIap9q92tPa6dr/2xXbK9tCG1gbbluEm5rbsRvHm94b9FwK3CGcOBxOnGVcfByS3Km
cwFzXXO4dBR0cHTMdSh1hXXhdj52m3b4d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2h
fgF+Yn7CfyN/hH/lgEeAqIEKgWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokz
iZmJ/opkisqLMIuWi/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVf
lcmWNJaflwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqIm
opajBqN2o+akVqTHpTilqaYapoum/adup+CoUqjEqTepqaocqo+rAqt1q+msXKzQrUStuK4trqGvFq+L
sACwdbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5tvC3aLfguFm40blKucK6O7q1uy67p7whvJu9Fb2P
vgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTOxUvFyMZGxsPHQce/yD3IvMk6ybnKOMq3yzbLtsw1
zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG1EnUy9VO1dHWVdbY11zX4Nhk2OjZbNnx2nba+9uA
3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj4+vkc+T85YTmDeaW5x/nqegy6LzpRunQ6lvq5etw
6/vshu0R7ZzuKO6070DvzPBY8OXxcvH/8ozzGfOn9DT0wvVQ9d72bfb794r4Gfio+Tj5x/pX+uf7d/wH
/Jj9Kf26/kv+3P9t////2wBDAAQCAwMDAgQDAwMEBAQEBQkGBQUFBQsICAYJDQsNDQ0LDAwOEBQRDg8T
DwwMEhgSExUWFxcXDhEZGxkWGhQWFxb/2wBDAQQEBAUFBQoGBgoWDwwPFhYWFhYWFhYWFhYWFhYWFhYW
FhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhb/wAARCAAvAKMDASIAAhEBAxEB/8QAHwAAAQUB
AQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1Fh
ByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNk
ZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT
1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL
/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYk
NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImK
kpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3
+Pn6/9oADAMBAAIRAxEAPwD7+rF+Ieq3GieDNQ1a0SN5rSBpEWTO0kDocVavtc0izujbXeo20MwGSkkq
qwH0Jrl/i7r2jXHw11mGDVLSSR7NwqrMpJP515+PxcKeGqOM0pJPr1sd+Bws6mIpKUG4tro9rmB8NfjN
aeI9ZtNFvtJmtLu6YqjxuJImIBPsRwD2qz8U/i7Y+E9bl0aDS57y9hVWYswSNcjI56nt271458AbeW4+
LWjCNSwid5HIH3VCHk/iQPxq/wDtNwSRfFq7klQqtxbxSR57jG04/Fa/P48R5n/YcsTze+pKN7dLfcfo
cuGsr/t+OE5fccOa13vf7/ke/fCrXrrxN4HstavIYop7lWLJESVXDkADPsK6Ida87+AOraVafCjSorjU
bWKRVcMjyqCP3jdQTXb2ms6TcXCwwajayyvwqJMpJ+gBr77LcXGrhKUpzXM0vxPz7MsHKli6sIQfKpNL
TomXScdajuZ4IIWknljjRRlmdgAPxNcn8dviFo/ww+GWpeMNZy8NmgEMCth7mZuEiX3J/IAntXyN8A9K
8Yfta+PdY174leIdQg8I6LIiJounzNDbySN8yxADqFXBZ2yxJGMdvfw2BdWlKvN2gt359kjxauJUJqnF
Xkz7Fn+IfgKGZopfGugI6HDK2pRAqfQjdW1pepadqVsLnT763u4W6SQSiRT+I4rxfVf2RPgNeaU9mngw
2cjLgXVtfTCZT6gsxGfqDXyj49+HfxM/Zw/aB0Ow8Ba1fTxa9doujywfKl984DW9xGMqSN3Jx0JIxg46
MPgsLiLxpVHzLo1a/wCJnUr1qVnKOnkfo9NLHFEZJXVEXqzHAH4mof7QsQf+PyDPTHmis3xFoOneKfBs
2geJ9PgvLTULcR3tsSdj9CQCDkYI4Oc8D0r8uP2qPBGm/Dn47a54P0a5upNOs3je2E0jF0SRA4QnOTty
RnPOKWW5dDGTlSc7NbafrcMXipUIqajdM/WHdxweKjubmCAjz544gxwpdguT6DPWvnT/AIJ4/Gn/AIWF
8Pf+EQ1+88zxL4ciVGaRsvfWo+VJcn7zL91j9D/FXs3xS+H3hD4iaGNJ8YaLDqdtGS8O5mSSFyCNyOpD
Keexrjr4Z4eu6VbSxtTrKrSU4HQnULAAk3luAOpMq/40+a7tYWVZbmJCwyoZwCR6iviz9lr4CeA7v9pX
4jaPrNlJq+m+Db2GHTLa7lYqPMBcM+CN5XGBnjvivoT9qD4WeB/Gvw11W/8AEOhxTX2kaVcPYXkLmKa2
KoWXay44yo+U5Fb1sNRp140lNtO2tu+3UiFWpKm5uO3n/wAA9M/tCx73tvgjI/ejn9aQ39kQMXcBycAe
aK/JP9n3w5Z+NvjL4X8Katc3UdjrF+kF01vJtk27WY7T0B+XrjvX2p42/Yi+Hc/hu5Xwtq2vabqyxk2s
1xfedEZMcB12g4J4JBGOtd2MyrD4SpGnVqvXXb/gnPQxtStBzjDRdL/8A+oEdWXIYEevamtNCrhWkVWP
IUnBNfl/+zr8b/Hfwn+I1pZ3es313ocd59m1XSrqdpo1Tdtdotx+R1wSNpAJHNfdnj7wJ4g1zx82s2cg
khljT7LP54X7Mfl5OfmXYQXGzlixBxwRz43KnhKqjOSs1dPuaYfGqtF8q1W6PVyy5+8KKjhWVYVVmLMA
AWJ5J9elFeS0+52qR4l+1P4Ov9R1rT9b0nTJrt2jMFwsMe5uOVYj25H415hpngDxdeXQit/DV7uLfeeI
IF9ySeK9x/aA+It/4OlsLLSEt5Lq53SS+cCQqDjt7/yrgdM+O3iiG4VrvT9PuYgcsi7kJHsc/wA6/Lc+
w+SSzSft6slLqktD9WyDE5/HKofV6MZR15W3ruJazx/B0KJbeDUfEt/CGkG8iGzhz90HqSSOfpTrnVo/
jGy6bc20OmeIrONpLKZXJiuUHLRN39/zqP4iWk3xNmj8WeErd554oVg1DTmcCWFhkhgDwQQeo9Ki+Hmi
XPw/vh4y8Y28lklsHjs7PIae6lYY6Z4ABPNc166xCw0Y/wCxd/s8ve9t/wBdDe1D6s8VJ/7d2v73N/Ly
/wAtvK1tb9TltV+H3jCxuWhuPDd27rwJIYxIp+jDtXoP7L/grUrXxlca1q2kz2i2cHlwGePaXZ+pH0A/
WqGrfHbxJPcs1hptjawnlA+ZGx7nIGfpXa/AP4l6j4s1q80vWUto5Y4RLb+QCNw6MDn0yK3yahkcc0p+
wrSlK+iasvIzzrE5/LKqnt6MYxa1aetuuh8//wDBW3xHP9r8IeEkdlgKzajMg6O2RGn5fP8AnXdf8Eo4
Fj/Z91acABp/EMxJ9QIogP5V5X/wVrtJR8UPCl/tPlS6PJCrdtyykkfkwr1X/glLcJJ+z3qsGRug8QzA
gcnBiiI/mfyr9+rxUcihy91f7z8MptvMnfsfTjdKxvEHhnRNa1zSNX1TTo7m70Gd7jTpH5NvI8ZjZh77
SRT/ABzZ63qPhS8s/DWspo+qSx/6LfParcLC2QcmNuGB6fjXwLr37Tv7QOl/Ei78GS+I9DkvbTVm00zp
pUYjdxJ5e4AjOM89jz1rxsBl9bFc0qUkrd77fJHo4jFU6NudXufocowTkV8lr4G0D4i/tr/F3wn4itEm
tL3w7ZKsm0GS2fAKyxsfusDg/hX0r8MdO8U6X4ThtvGPiOLXtX3FpryGyS1j56Isa9APU8mvEPhB/wAp
Fvib/wBgGx/kKeBcqXtXF6paNeoVkpqN1oz4z1iy8c/s6fH9VSTydX0C48y2mwRDqNs2RkjvG65BHYg9
CtfpZ8DviHonxQ+HFh4u0KTEN0m2e3ZsvazLjfE47FSfxBU9CK4P9tn4JQfF34dmfTIo4/FGio8ulTMc
eeOrW7n+62Bj+62D0zXxl+xx8YtR+CvxVlsNcFxFoGo3Btdcs5AQ1pKpKibb2ZGyGHcbu4FezVUc2wnt
YL97DfzPOpt4Ktyy+B7eR9Z/srf8nVfHL/sLWX/opq9k+MH/ACSbxP8A9ga6/wDRLV4r+yJd2t/+018b
L6xuobu1udSsZIZ4ZA6SKYWwQw4P/wBavavjD/ySbxN/2Brr/wBEtXj4pP65FPf3f0PQou9GTXmfmH+x
r/yc94D/AOwsn/ot6/Vi/ure1s5bm5mSGGBGkkkdgqooGSSTwABnmvyn/Y14/ad8B++rL/6LevtP4zfB
H40/EfVdR0zVPjNFZ+FLu4do9Os9L8uQwFsrHIwYb8Djk4Ne1n1KFXFU1Oaikut31PPyybVCXKru58Op
pc/xJ/aDn03w1AZD4j8Qym1CrlUieZm3n0ULlj7Cv1psIFtrSK3TO2JAi5POAMV5T+zj+z14G+Dwe80i
KbUdanTy5tWviGm2nqqAfLGp77QM45zXrajB715eb5jHFzjGnflirep14DCSoJynuxaKKK8c9A4vxt8M
/DXivWv7U1eO6e4EYjGy5dVCjtgHFcf8RfhH4N0bwPqeqWdvdC5tbZniLXTsAwHHBNexAYGAK5v4vwyT
/DXWIIk3SSWrKoyBkngda8LMsnwNWjVquinNp621vY93LM5x9KtSpKvJQTWl7K1z59/Zy1OfTvipYRxs
fKv1eCZc8MNpZe3YqPwJq7+1JqUt78TjYyE+TYWqLGvYFgWJ+vQfhW38FvhZ4msvFmna/qQtrSC1bzPK
MoeR8qQMbeB19aufHf4Y+I9Z8W3PiDSfstxFNGgMBl8uRdq4PXjt618BTy7M/wDV2VH2bvz3t1sfoE8z
yv8A1mjX9orclr9Ob122JvhJ8K/CfiHwBp2salBcvc3UZaQx3TqCdxHABwOgrtvCfwt8K+G9ei1fSobu
O6hVlBa6dgQwwQQTzU/wJt5rT4WaVbXEZSaKN1dSwODvbuODXXnt7195lWT4Knh6VR0UppLW2t7HwOaZ
zj6mIrU/bydNtq19LX/I+f8A/god8KNQ+I3wfj1DQLZrrWvDczXdvboMvcRFcSxoO7YAYD/Zx1NfOf8A
wTj+MOi/DvxjqvhLxbdpYaXr7o8F5N8sdtdJ8pEhP3Q6kDJ6FRnGa/QHUdQs7VhHcShWYZAKk5H4A15F
8WfgX8EfiJqcup67oYttTmbMt9prPbTSt/efaNrt7spPvxX3WCxq+qSwteD5Hs10PjsRhpe2Vek1dHsF
teWk9iLyC6hktmTesySAoV9dw4x71+UPjK7tb79qTUb2zuY57afxk7xTI2VkU3fBB7g9j3r7JsP2TPhB
bK1qnizxqbN+DZjU9kTeoIWIZrsvh/8AAP4CeErm3u9N8J2tzd27horjUDLdMjKcggOSoII4wBit8DiM
PgVPkcpcyttb9TPE06mIcVKyt53PagwxzxXzH8H9X0tv+CjXxIiGoWxefRrSKJRKMyOm3eq+rLnkdRXu
3jSLQfE/hq50HUNRvoLe9TZI9jcS202PRZEwy574Irx+L9l39n5LtbmPTtVScOXWVdVug4b13Bs5968/
CRpwjUVS6clba/6nXWc7xcbaM+hQcg45r4v/AOClHwKOyf4v+FbPlMDxDbRL95cYF0AO4GA/sAexNfWH
g4aF4c8PWui2eo31xBZx+XHJfTy3MzDr80j5Zuvc+lXb7U9EvLKW0upEmguEKSRyRMVdSCCCMcgjNTg6
9bCV1VgnbrpugxFOnXp8smrnyD/wSLeNZPHCA8n7GR9B5o/wr6t+NE8Nv8I/E8txMkUS6NdbmdsAfumx
z+Vcv8F/hx8L/hXearN4Ks5bE6s6m4VpppFG0ttChs4A3NTvjF8P/h98T0gi8WXerz2sCFBaW+o3NvA/
PV40IDN2yRnmt8ZVhiMb7ezUdHsZ0YOlhlTvdn52fsdyxx/tM+A3lkREGroNzsAMlHAGT6kgfUiv1fU5
b8M186j9lb9nhXDLpWpKy4II1O6BGOhHPFesfDLSPDHgbQjo2kanqk9orl1Go3s928XAG1GkJKrx90cC
t84xVPGzjUpxasrWsZ5fSlh04ytZ+Z2lFZ41vTC2Bc85x/q2/wAKF1vTCRi56nH+rb1x6V4vs59j0eeP
c0KKARiioHdH/9k=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

252
Actualizadores/Form1.vb Normal file
View File

@ -0,0 +1,252 @@
Public Class frmCatalogos
Dim blnuevo As Boolean = True
Dim blcarga As Boolean = True
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
If clsVaribles.lbDemo = True Then Exit Sub
PnPais.Visible = False
Me.PnPais.Visible = True
Classcom = New clsComplejo
'LLENA GRID
SQL = "spCargaCatalogo"
Classcom.sbLlenaCombo(SQL, Me.CMBGrupo)
Me.CMBGrupo.SelectedIndex = -1
blcarga = False
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
PnPais.Visible = False
If blcarga = True Then Exit Sub
Me.PnPais.Visible = True
If Me.CMBGrupo.Text <> "" Then
'LLENA GRID
SQL = " spConcatalogo " & Me.CMBGrupo.SelectedValue
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
If Me.CMBGrupo.SelectedValue = 14 Then
txtClave.Enabled = True
txtClave.ReadOnly = False
Else
txtClave.Enabled = False
txtClave.ReadOnly = True
End If
End If
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub CMBGrupo_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMBGrupo.SelectedValueChanged
LlenaGrid()
blnuevo = True
Me.Text = "Mantenimiento Catalogo de " & CMBGrupo.Text
End Sub
Private Sub limpiar()
txtClave.Text = ""
cboParamRango.SelectedIndex = -1
txtValor.Text = ""
blnuevo = False
llenagrid()
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
SQL = "spConcatalogoOpcion " & CMBGrupo.SelectedValue & "," & Me.GridMaster.Columns("id").Value
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtValor.Text = Fila("descripcion").ToString
txtClave.Text = Fila("id")
If CMBGrupo.SelectedValue = 1 Or CMBGrupo.SelectedValue = 2 Then
chkActivo.Visible = False
Else
chkActivo.Visible = True
chkActivo.Enabled = True
chkActivo.Checked = Fila("Estatus")
End If
blnuevo = True
End If
txtValor.Enabled = True
cboParamRango.Enabled = True
If Me.CMBGrupo.SelectedValue = 14 Then
txtClave.Enabled = True
txtClave.ReadOnly = False
Else
txtClave.Enabled = False
txtClave.ReadOnly = True
End If
'--txtClave.Enabled = False
Me.txtValor.Focus()
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim liclave As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
'If cboParamRango.Text = "" Or cboParamRango.SelectedIndex = -1 Then
' MessageBox.Show("Es Necesario Introducir el Nombre o Descripcion", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Exit Sub
'End If
If txtValor.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Valor y/o Descripcion para el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtValor.Focus()
Exit Sub
End If
If Me.CMBGrupo.SelectedValue = 14 Then
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Valor de la clave para el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtClave.Focus()
Exit Sub
Else
liclave = Val(txtClave.Text)
End If
Else
If txtClave.Text = "" Then
liclave = 999999
Else
liclave = Val(txtClave.Text)
End If
End If
strSQLComodin = "spGrabaCatalogos 'A' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & Math.Abs(CInt(Me.chkActivo.Checked)) & "," & clsVaribles.varUsuario & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
'Else
' strSQLComodin = "spParametroGrupo " & Me.CMBGrupo.SelectedValue & " ," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',3"
'End If
classcom = New clsComplejo
classcom.sbInserta(strSQLComodin)
blnuevo = True
limpiar()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
limpiar()
End Sub
Private Sub BtnBorrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBorrar.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim liclave As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
txtClave.Enabled = True
'VALIDACION DE CAMPOS
Try
If blnuevo = False Then
MessageBox.Show("Es necesario seleccionar un registro", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
If txtClave.Text = "" Then
liclave = 99999
Else
liclave = Val(txtClave.Text)
End If
' strSQLComodin = "spGrabaCatalogos 'E' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & chkActivo.Checked & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
strSQLComodin = "spGrabaCatalogos 'E' , " & Me.CMBGrupo.SelectedValue & "," & liclave & ",'" & Me.txtValor.Text & "'," & chkActivo.Checked & "," & clsVaribles.varUsuario & ",'" & My.Application.Info.ProductName & "/" & My.User.Name & "','" & My.Computer.Name & "','" & classcom.ObtenFecha(Date.Now.Date, "YYYYMMDD") & "'"
' strSQLComodin = "spGrabaCatalogos " & Me.CMBGrupo.SelectedValue & " ,'E'," & cboParamRango.SelectedValue & ",'" & Me.txtValor.Text & "',2"
classcom = New clsComplejo
classcom.sbInserta(strSQLComodin)
blnuevo = False
limpiar()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnImprimir_Click(sender As System.Object, e As System.EventArgs) Handles BtnImprimir.Click
End Sub
Private Sub CMBGrupo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CMBGrupo.SelectedIndexChanged
limpiar()
End Sub
Private Sub GridMaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub txtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged
End Sub
End Class

407
Actualizadores/FrmAgentes.designer.vb generated Normal file
View File

@ -0,0 +1,407 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmAgentes
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmAgentes))
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmbOficina = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cmbAgencia = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtid = New System.Windows.Forms.TextBox()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtLinea = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cmbAplicativo = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.Btnbaja = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.DesHeader = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblFooter = New System.Windows.Forms.Label()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel3.SuspendLayout()
Me.SuspendLayout()
'
'GridMaster
'
Me.GridMaster.AllowArrows = False
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridMaster.BackColor = System.Drawing.Color.White
Me.GridMaster.EditDropDown = False
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 55)
Me.GridMaster.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(559, 145)
Me.GridMaster.TabIndex = 112
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.cmbOficina)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cmbAgencia)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.txtid)
Me.GroupBox1.Controls.Add(Me.txtNombre)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.txtLinea)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cmbAplicativo)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Location = New System.Drawing.Point(17, 216)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(554, 139)
Me.GroupBox1.TabIndex = 111
Me.GroupBox1.TabStop = False
'
'cmbOficina
'
Me.cmbOficina.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbOficina.Location = New System.Drawing.Point(85, 77)
Me.cmbOficina.Name = "cmbOficina"
Me.cmbOficina.Size = New System.Drawing.Size(181, 21)
Me.cmbOficina.TabIndex = 85
Me.cmbOficina.Visible = False
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label6.Location = New System.Drawing.Point(25, 82)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(40, 13)
Me.Label6.TabIndex = 86
Me.Label6.Text = "Oficina"
Me.Label6.Visible = False
'
'cmbAgencia
'
Me.cmbAgencia.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAgencia.Location = New System.Drawing.Point(367, 77)
Me.cmbAgencia.Name = "cmbAgencia"
Me.cmbAgencia.Size = New System.Drawing.Size(181, 21)
Me.cmbAgencia.TabIndex = 83
Me.cmbAgencia.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(286, 82)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(46, 13)
Me.Label2.TabIndex = 84
Me.Label2.Text = "Agencia"
Me.Label2.Visible = False
'
'txtid
'
Me.txtid.Enabled = False
Me.txtid.Location = New System.Drawing.Point(85, 39)
Me.txtid.Name = "txtid"
Me.txtid.Size = New System.Drawing.Size(125, 20)
Me.txtid.TabIndex = 82
'
'txtNombre
'
Me.txtNombre.BackColor = System.Drawing.Color.LightGray
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(85, 112)
Me.txtNombre.MaxLength = 240
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(463, 20)
Me.txtNombre.TabIndex = 4
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label5.Location = New System.Drawing.Point(25, 115)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(44, 13)
Me.Label5.TabIndex = 60
Me.Label5.Text = "Nombre"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(25, 42)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(16, 13)
Me.Label1.TabIndex = 51
Me.Label1.Text = "Id"
'
'txtLinea
'
Me.txtLinea.BackColor = System.Drawing.Color.White
Me.txtLinea.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtLinea.Location = New System.Drawing.Point(143, 155)
Me.txtLinea.MaxLength = 4
Me.txtLinea.Name = "txtLinea"
Me.txtLinea.Size = New System.Drawing.Size(120, 20)
Me.txtLinea.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label3.Location = New System.Drawing.Point(24, 163)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(113, 13)
Me.Label3.TabIndex = 58
Me.Label3.Text = "Linea De Negocio:"
'
'cmbAplicativo
'
Me.cmbAplicativo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAplicativo.Location = New System.Drawing.Point(367, 154)
Me.cmbAplicativo.Name = "cmbAplicativo"
Me.cmbAplicativo.Size = New System.Drawing.Size(181, 21)
Me.cmbAplicativo.TabIndex = 1
Me.cmbAplicativo.Visible = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label4.Location = New System.Drawing.Point(298, 162)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Aplicativo"
Me.Label4.Visible = False
'
'BntSalie
'
Me.BntSalie.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BntSalie.BackColor = System.Drawing.Color.Black
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.White
Me.BntSalie.Location = New System.Drawing.Point(584, 321)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 109
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.UseVisualStyleBackColor = False
'
'BtnAlta
'
Me.BtnAlta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnAlta.BackColor = System.Drawing.Color.Black
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.White
Me.BtnAlta.Location = New System.Drawing.Point(584, 204)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 108
Me.BtnAlta.Text = "Grabar"
Me.BtnAlta.UseVisualStyleBackColor = False
'
'Btnbaja
'
Me.Btnbaja.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Btnbaja.BackColor = System.Drawing.Color.Black
Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand
Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Btnbaja.ForeColor = System.Drawing.Color.White
Me.Btnbaja.Location = New System.Drawing.Point(584, 243)
Me.Btnbaja.Name = "Btnbaja"
Me.Btnbaja.Size = New System.Drawing.Size(106, 33)
Me.Btnbaja.TabIndex = 107
Me.Btnbaja.Text = "Baja"
Me.Btnbaja.UseVisualStyleBackColor = False
'
'BtnLimpiar
'
Me.BtnLimpiar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnLimpiar.BackColor = System.Drawing.Color.Black
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.White
Me.BtnLimpiar.Location = New System.Drawing.Point(584, 282)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 106
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.UseVisualStyleBackColor = False
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.DesHeader)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(-1, -4)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(705, 51)
Me.panel2.TabIndex = 162
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(574, 0)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'DesHeader
'
Me.DesHeader.AutoSize = True
Me.DesHeader.BackColor = System.Drawing.Color.Transparent
Me.DesHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DesHeader.ForeColor = System.Drawing.SystemColors.Window
Me.DesHeader.Location = New System.Drawing.Point(21, 8)
Me.DesHeader.Name = "DesHeader"
Me.DesHeader.Size = New System.Drawing.Size(151, 22)
Me.DesHeader.TabIndex = 2
Me.DesHeader.Text = "Reportes CNBV"
'
'panel3
'
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label7)
Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(-1, 378)
Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(705, 33)
Me.panel3.TabIndex = 363
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor = System.Drawing.Color.Transparent
Me.Label7.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.SystemColors.Window
Me.Label7.Location = New System.Drawing.Point(649, 1)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(42, 17)
Me.Label7.TabIndex = 3
Me.Label7.Text = "Minds"
'
'lblFooter
'
Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds"
'
'FrmAgentes
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(702, 406)
Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.GridMaster)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.Btnbaja)
Me.Controls.Add(Me.BtnLimpiar)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False
Me.Name = "FrmAgentes"
Me.Text = "Catalogo Agentes"
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtid As System.Windows.Forms.TextBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtLinea As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cmbAplicativo As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents Btnbaja As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents cmbOficina As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cmbAgencia As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents DesHeader As Label
Private WithEvents panel3 As Panel
Friend WithEvents Label7 As Label
Friend WithEvents lblFooter As Label
End Class

View File

@ -0,0 +1,219 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style14{}Footer{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:InactiveBorder;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;141&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 555, 141&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 555, 141&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,212 @@
Public Class FrmAgentes
Private lsComando As String
Dim blnuevo As Boolean = True
Friend WithEvents txtcompra As System.Windows.Forms.TextBox
Dim blcarga As Boolean = True
Dim clase As New ValidaTexto
Dim clsfecha As New clsComplejo
Private Sub LIMPIAR()
Me.txtNombre.Text = ""
Me.txtid.Text = ""
Me.txtLinea.Text = ""
cmbAplicativo.SelectedIndex = -1
cmbAplicativo.SelectedIndex = -1
cmbAgencia.SelectedIndex = -1
cmbAgencia.SelectedIndex = -1
cmbOficina.SelectedIndex = -1
cmbOficina.SelectedIndex = -1
End Sub
Private Sub Habilita(ByVal Bandera As Boolean)
If clsVaribles.lbDemo = True Then Exit Sub
Me.txtcompra.Enabled = Bandera
Me.txtid.Enabled = Bandera
Me.txtLinea.Enabled = Bandera
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
'LLENA GRID
SQL = " spConAgente 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub Btnbaja_Click(sender As System.Object, e As System.EventArgs) Handles Btnbaja.Click
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
clsfecha = New clsComplejo
'VALIDACION DE CAMPOS
Try
If txtid.Text = "" Then
MessageBox.Show("Es Necesario seleccionar el tipo de Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If MsgBox("¿Desea Eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 16," & txtid.Text)
strSQLComodin = "spGrabaAgentes 'E'," & txtid.Text
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
blnuevo = False
LIMPIAR()
'auditoria
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, clsVaribles.lsValAnt)
'FIN AUDITORIA
llenagrid()
ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim strSQLComodin As String
Dim liId As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
'VALIDACION DE CAMPOS
Try
'If cmbAplicativo.SelectedIndex = -1 Then
' MsgBox("Aplicativo no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
' Exit Sub
'End If
If Len(txtNombre.Text) = 0 Then
MsgBox("El Nombre no puede ser un campo sin valor", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Exit Sub
End If
If Len(txtid.Text) = 0 Then
liId = 9999999
Else
liId = txtid.Text
End If
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
Dim liAud As Integer
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 16," & liId)
If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
liAud = 2
Else
liAud = 4
End If
strSQLComodin = "spGrabaAgentes 'A'," & liId & " ,'" & IIf(cmbAgencia.SelectedIndex = -1, "", cmbAgencia.SelectedValue) & "'"
strSQLComodin = strSQLComodin & ",'" & IIf(cmbOficina.SelectedIndex = -1, "", cmbOficina.SelectedValue) & "'"
strSQLComodin = strSQLComodin & ",'" & txtLinea.Text & "'," & IIf(cmbAplicativo.SelectedIndex = -1, "''", cmbAplicativo.SelectedValue) & ",'" & txtNombre.Text & "'"
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
ClassAud.RT_Auditoria(clsVaribles.varUsuario, liAud, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdAgente = " & txtid.Text & " Descripcion = " & txtNombre.Text _
& ", Direccion Agencia: " & cmbAgencia.Text & ", Oficina: " & cmbOficina.Text & ", Aplicativo GNP: " & cmbAplicativo.Text & ", Linea de Negocio: " & txtLinea.Text)
LIMPIAR()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid()
ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
SQL = "spConAgente 3,'" & Me.GridMaster.Columns("id").Value & "'"
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtLinea.Text = Fila("lineadenegocio").ToString
Me.txtid.Text = Fila("IdFuncionario").ToString
Me.txtNombre.Text = Fila("descripcion").ToString
'cmbAplicativo.SelectedValue = Fila("IdAplicativoGNP")
'cmbAgencia.SelectedValue = Fila("IdDirAgencia")
'cmbOficina.SelectedValue = Fila("IdOficina")
End If
ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie)
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
LIMPIAR()
Dim ClassCatalogos As New ClassCatalogos
ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie)
End Sub
Private Sub FrmAgentes_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
llenagrid()
DesHeader.Text = Me.Text
'SQL = "spConAplicativo "
'Classcom.sbLlenaCombo(SQL, cmbAplicativo)
'Classcom = New clsComplejo
'SQL = "spConDireccionAgenciaC "
'Classcom.sbLlenaCombo(SQL, cmbAgencia)
'Classcom = New clsComplejo
'SQL = "spConOficinasC "
'Classcom.sbLlenaCombo(SQL, cmbOficina)
ClassCatalogos.CambiaColorbloque2(BtnAlta, Btnbaja, BtnLimpiar, BntSalie)
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
End Class

336
Actualizadores/FrmCanales.Designer.vb generated Normal file
View File

@ -0,0 +1,336 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmCanales
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmCanales))
Me.TXTAlias = New System.Windows.Forms.TextBox()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.BtnOk = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.chkActivo = New System.Windows.Forms.CheckBox()
Me.BtnEditar = New System.Windows.Forms.Button()
Me.txtClave = New System.Windows.Forms.TextBox()
Me.BtnConsulta = New System.Windows.Forms.Button()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.Panel = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.DesHeader = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblFooter = New System.Windows.Forms.Label()
Me.Panel.SuspendLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel3.SuspendLayout()
Me.SuspendLayout()
'
'TXTAlias
'
Me.TXTAlias.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TXTAlias.Location = New System.Drawing.Point(259, 175)
Me.TXTAlias.MaxLength = 12
Me.TXTAlias.Name = "TXTAlias"
Me.TXTAlias.Size = New System.Drawing.Size(132, 20)
Me.TXTAlias.TabIndex = 3
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'BtnOk
'
Me.BtnOk.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnOk.BackColor = System.Drawing.Color.Black
Me.BtnOk.ForeColor = System.Drawing.Color.White
Me.BtnOk.Location = New System.Drawing.Point(620, 284)
Me.BtnOk.Name = "BtnOk"
Me.BtnOk.Size = New System.Drawing.Size(106, 33)
Me.BtnOk.TabIndex = 84
Me.BtnOk.Text = "Guardar"
Me.BtnOk.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label3.Location = New System.Drawing.Point(165, 175)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(63, 16)
Me.Label3.TabIndex = 38
Me.Label3.Text = "Alias:"
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Black
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(620, 323)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(106, 33)
Me.Button1.TabIndex = 83
Me.Button1.Text = "Cerrar"
Me.Button1.UseVisualStyleBackColor = False
'
'chkActivo
'
Me.chkActivo.Enabled = False
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(19, 109)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 21)
Me.chkActivo.TabIndex = 5
Me.chkActivo.Text = "Activo:"
'
'BtnEditar
'
Me.BtnEditar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnEditar.BackColor = System.Drawing.Color.Black
Me.BtnEditar.Enabled = False
Me.BtnEditar.ForeColor = System.Drawing.Color.White
Me.BtnEditar.Location = New System.Drawing.Point(620, 245)
Me.BtnEditar.Name = "BtnEditar"
Me.BtnEditar.Size = New System.Drawing.Size(106, 33)
Me.BtnEditar.TabIndex = 82
Me.BtnEditar.Text = "Editar"
Me.BtnEditar.UseVisualStyleBackColor = False
'
'txtClave
'
Me.txtClave.BackColor = System.Drawing.Color.White
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(110, 34)
Me.txtClave.MaxLength = 20
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(132, 20)
Me.txtClave.TabIndex = 1
'
'BtnConsulta
'
Me.BtnConsulta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnConsulta.BackColor = System.Drawing.Color.Black
Me.BtnConsulta.ForeColor = System.Drawing.Color.White
Me.BtnConsulta.Location = New System.Drawing.Point(620, 206)
Me.BtnConsulta.Name = "BtnConsulta"
Me.BtnConsulta.Size = New System.Drawing.Size(106, 33)
Me.BtnConsulta.TabIndex = 85
Me.BtnConsulta.Text = "Agregar"
Me.BtnConsulta.UseVisualStyleBackColor = False
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(110, 73)
Me.txtNombre.MaxLength = 150
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(478, 20)
Me.txtNombre.TabIndex = 2
'
'Panel
'
Me.Panel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Panel.Controls.Add(Me.TXTAlias)
Me.Panel.Controls.Add(Me.Label3)
Me.Panel.Controls.Add(Me.chkActivo)
Me.Panel.Controls.Add(Me.txtNombre)
Me.Panel.Controls.Add(Me.txtClave)
Me.Panel.Controls.Add(Me.Label2)
Me.Panel.Controls.Add(Me.Label1)
Me.Panel.Location = New System.Drawing.Point(12, 206)
Me.Panel.Name = "Panel"
Me.Panel.Size = New System.Drawing.Size(599, 150)
Me.Panel.TabIndex = 81
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(16, 73)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 16)
Me.Label2.TabIndex = 36
Me.Label2.Text = "Nombre"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(15, 35)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 16)
Me.Label1.TabIndex = 35
Me.Label1.Text = "Clave"
'
'GridMaster
'
Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridMaster.BackColor = System.Drawing.Color.White
Me.GridMaster.FilterBar = True
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 62)
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(588, 136)
Me.GridMaster.TabIndex = 80
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.DesHeader)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(0, 0)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(739, 46)
Me.panel2.TabIndex = 162
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(617, 0)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'DesHeader
'
Me.DesHeader.AutoSize = True
Me.DesHeader.BackColor = System.Drawing.Color.Transparent
Me.DesHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DesHeader.ForeColor = System.Drawing.SystemColors.Window
Me.DesHeader.Location = New System.Drawing.Point(21, 8)
Me.DesHeader.Name = "DesHeader"
Me.DesHeader.Size = New System.Drawing.Size(151, 22)
Me.DesHeader.TabIndex = 2
Me.DesHeader.Text = "Reportes CNBV"
'
'panel3
'
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label6)
Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(0, 368)
Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(753, 33)
Me.panel3.TabIndex = 363
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.SystemColors.Window
Me.Label6.Location = New System.Drawing.Point(682, 5)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(42, 17)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Minds"
'
'lblFooter
'
Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds"
'
'FrmCanales
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(738, 400)
Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.BtnOk)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.BtnEditar)
Me.Controls.Add(Me.BtnConsulta)
Me.Controls.Add(Me.Panel)
Me.Controls.Add(Me.GridMaster)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MinimizeBox = False
Me.Name = "FrmCanales"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Canales"
Me.Panel.ResumeLayout(False)
Me.Panel.PerformLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TXTAlias As System.Windows.Forms.TextBox
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents BtnOk As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents BtnEditar As System.Windows.Forms.Button
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents BtnConsulta As System.Windows.Forms.Button
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Panel As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents DesHeader As Label
Private WithEvents panel3 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents lblFooter As Label
End Class

View File

@ -0,0 +1,225 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;132&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 584, 132&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 584, 132&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>55</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,354 @@
Public Class FrmCanales
Private Sub FrmCanales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Panel.Visible = False
Me.Text = "Canales"
Me.Panel.Visible = True
'LLENA GRID Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
'SQL = "SELECT IdCanal CLAVE,Canal NOMBRE,ACTIVO,Aliasid ALIAS FROM CAT_Canal ORDER BY Canal"
SQL = "sp_ConsultarCanal 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
txtNombre.Enabled = False
chkActivo.Enabled = False
txtClave.Focus()
ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1)
End Sub
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Select Case e.Button.Text
Case "Agregar"
txtClave.Enabled = True
txtClave.ReadOnly = False
txtClave.Text = ""
txtNombre.Text = ""
clsVaribles.varProceso = "Agregar"
txtClave.Focus()
txtClave.Visible = True
txtNombre.Enabled = True
Me.chkActivo.Enabled = True
Case "Actualizar"
clsVaribles.varProceso = "Actualizar"
txtClave.Enabled = False
txtNombre.Enabled = True
Me.chkActivo.Enabled = True
Case "Desactivar"
clsVaribles.varProceso = "Eliminar"
txtClave.Enabled = False
txtNombre.Enabled = False
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub GridMaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
'Recupero Datos del gird
Me.txtClave.Text = Me.GridMaster.Columns("CLAVE").Value
Me.txtNombre.Text = Me.GridMaster.Columns("Nombre").Value
Me.chkActivo.Checked = Me.GridMaster.Columns("ACTIVO").Value
' Me.TXTAlias.Text = Me.GridMaster.Columns("alias").Value
txtClave.Visible = True
txtClave.Enabled = False
txtNombre.Enabled = False
TXTAlias.Enabled = False
Me.chkActivo.Enabled = False
Dim SQL As String = ""
txtClave.Enabled = False
BtnEditar.Enabled = True
ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1)
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Select Case UCase(clsVaribles.varProceso)
Case Is = "AGREGAR"
txtClave.Enabled = True
'VALIDACION DE CAMPOS
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir Clave del Canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre del Canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
strSQLComodin = "SELECT IdCanal FROM Cat_Canal WHERE IdCanal = " & txtClave.Text
If classcom.BuscaDatos(strSQLComodin) Then
MessageBox.Show("La clave del Canal ya existe en el catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
strSQLComodin = "INSERT INTO Cat_Canal(IdCanal,Canal,AliasId,Activo) VALUES ("
strSQLComodin = strSQLComodin & txtClave.Text & ",'" & txtNombre.Text & "','" & TXTAlias.Text & "'," & Me.chkActivo.CheckState & ")"
classcom.sbInserta(strSQLComodin)
'AUDITORIA
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 5, 1, txtNombre.Text)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Is = "ACTUALIZAR"
'VALIDACION DE CAMPOS
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir la Clave del canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre del Canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
strSQLComodin = "UPDATE Cat_Canal SET "
strSQLComodin = strSQLComodin & " Canal = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState
strSQLComodin = strSQLComodin & " where IdCanal = " & txtClave.Text
classcom.sbInserta(strSQLComodin)
'AUDITORIA
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 15, 1, txtNombre.Text)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
classcom = New clsComplejo
Case Is = "ELIMINAR"
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Número del Canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'pnlBotones.Visible = False
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
strSQLComodin = "UPDATE Cat_Canal SET ACTIVO = 0 where IdCanal = " & txtClave.Text
classcom.sbInserta(strSQLComodin)
''AUDITORIA
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 15, 1, txtNombre.Text)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
BtnOk.Enabled = False
Dim SQL As String
Dim CLASSCATALOGOS As New ClassCatalogos
GridMaster.DataSource = Nothing
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
SQL = "SELECT IdCanal CLAVE, Canal NOMBRE,ACTIVO FROM Cat_Canal ORDER BY Canal"
CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)
CLASSCATALOGOS.sbLimpiaControlesEsp(Panel)
End Sub
Private Sub txtClave_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtClave.KeyPress
Dim classCom As New clsComplejo
e.KeyChar = classCom.ValidaCampos("numeros", e.KeyChar)
End Sub
Private Sub txtClave_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClave.TextChanged
End Sub
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Select Case UCase(clsVaribles.varProceso)
Case Is = "AGREGAR"
txtClave.Enabled = True
'VALIDACION DE CAMPOS
'If txtClave.Text = "" Then
' MessageBox.Show("Es Necesario Introducir la Clave del canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtNombre.Focus()
Exit Sub
End If
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
strSQLComodin = "SELECT CANAL FROM Cat_Canal WHERE CANAL = '" & txtNombre.Text & "'"
If classcom.BuscaDatos(strSQLComodin) Then
MessageBox.Show("La clave del canal ya Existe en el Catalogo ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtNombre.Focus()
Exit Sub
End If
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
'strSQLComodin = "INSERT INTO Cat_Canal (IdCanal, Canal, aliasid,Activo) VALUES ("
'strSQLComodin = strSQLComodin & "'" & txtClave.Text & "','" & txtNombre.Text & "','" & Me.txtalias.text & "'," & Me.chkActivo.CheckState & ")"
strSQLComodin = "sp_CargarCanal NULL,'" & txtNombre.Text & "'," & chkActivo.CheckState
classcom.sbInserta(strSQLComodin)
Case Is = "ACTUALIZAR"
'If txtClave.Text = "" Then
' MessageBox.Show("Es Necesario Introducir el Número del canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Exit Sub
'End If
If txtNombre.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre del canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtNombre.Focus()
Exit Sub
End If
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 19," & txtClave.Text)
' ''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
'strSQLComodin = "UPDATE Cat_Canal SET "
'strSQLComodin = strSQLComodin & " Canal = '" & txtNombre.Text & "',Activo = " & Me.chkActivo.CheckState & ",aliasid = '" & Me.TXTAlias.Text & "'"
'strSQLComodin = strSQLComodin & " where IdCanal = '" & txtClave.Text & "'"
strSQLComodin = "sp_CargarCanal " & txtClave.Text & ",'" & txtNombre.Text & "'," & chkActivo.CheckState
classcom.sbInserta(strSQLComodin)
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 15, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdCanal: " & txtClave.Text & ", Canal = " & txtNombre.Text & ",Activo = " & Me.chkActivo.CheckState & ",aliasid = " & Me.TXTAlias.Text)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
classcom = New clsComplejo
Case Is = "ELIMINAR"
If txtClave.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Numero del Canal ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
strSQLComodin = "UPDATE Cat_Canal SET ACTIVO = 0 where IdCanal = '" & txtClave.Text & "'"
classcom.sbInserta(strSQLComodin)
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
BtnOk.Enabled = False
Dim SQL As String
Dim CLASSCATALOGOS As New ClassCatalogos
GridMaster.DataSource = Nothing
''Tabla: Cat_Canal, Campos IdCanal, Canal, AliasId, Activo
'SQL = "SELECT IdCanal CLAVE,Canal NOMBRE,ACTIVO,aliasid ALIAS FROM Cat_Canal ORDER BY Canal"
SQL = "sp_ConsultarCanal 0"
CLASSCATALOGOS.LlenaGrid(SQL, Me.GridMaster)
txtNombre.Text = ""
chkActivo.Checked = False
chkActivo.Enabled = False
txtNombre.Enabled = False
txtClave.Text = ""
ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1)
'CLASSCATALOGOS.sbLimpiaControlesEsp(Panel)
'TXTAlias.Clear()
End Sub
Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click
clsVaribles.varProceso = "Actualizar"
txtClave.Enabled = False
txtNombre.Enabled = True
Me.chkActivo.Enabled = True
Me.TXTAlias.Enabled = True
BtnOk.Enabled = True
BtnEditar.Enabled = False
txtNombre.Focus()
ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1)
End Sub
Private Sub BtnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConsulta.Click
txtClave.Enabled = True
txtClave.ReadOnly = True
txtClave.Text = ""
txtNombre.Text = ""
clsVaribles.varProceso = "Agregar"
'txtClave.Focus()
BtnOk.Enabled = True
txtClave.Visible = True
txtNombre.Enabled = True
Me.chkActivo.Enabled = True
Me.chkActivo.Checked = False
TXTAlias.Enabled = True
TXTAlias.Clear()
BtnEditar.Enabled = False
txtNombre.Focus()
ClassCatalogos.CambiaColorbloque2(BtnConsulta, BtnEditar, BtnOk, Button1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

287
Actualizadores/FrmDirAgencia.Designer.vb generated Normal file
View File

@ -0,0 +1,287 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmDirAgencia
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmDirAgencia))
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtid = New System.Windows.Forms.TextBox()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtLinea = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cmbAplicativo = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.Btnbaja = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GridMaster
'
Me.GridMaster.AllowArrows = False
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GridMaster.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.GridMaster.EditDropDown = False
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 71)
Me.GridMaster.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(680, 145)
Me.GridMaster.TabIndex = 112
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtid)
Me.GroupBox1.Controls.Add(Me.txtNombre)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.txtLinea)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cmbAplicativo)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Location = New System.Drawing.Point(17, 232)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(554, 188)
Me.GroupBox1.TabIndex = 111
Me.GroupBox1.TabStop = False
'
'txtid
'
Me.txtid.Enabled = False
Me.txtid.Location = New System.Drawing.Point(85, 39)
Me.txtid.Name = "txtid"
Me.txtid.Size = New System.Drawing.Size(125, 20)
Me.txtid.TabIndex = 82
'
'txtNombre
'
Me.txtNombre.BackColor = System.Drawing.Color.LightGray
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(85, 82)
Me.txtNombre.MaxLength = 30
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(463, 20)
Me.txtNombre.TabIndex = 4
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(25, 85)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(54, 13)
Me.Label5.TabIndex = 60
Me.Label5.Text = "Nombre:"
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(27, 42)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(22, 13)
Me.Label1.TabIndex = 51
Me.Label1.Text = "Id:"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(494, 148)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 24)
Me.Label7.TabIndex = 78
Me.Label7.Text = "..."
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
'
'txtLinea
'
Me.txtLinea.BackColor = System.Drawing.Color.White
Me.txtLinea.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtLinea.Location = New System.Drawing.Point(143, 125)
Me.txtLinea.MaxLength = 2
Me.txtLinea.Name = "txtLinea"
Me.txtLinea.Size = New System.Drawing.Size(120, 20)
Me.txtLinea.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(24, 133)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(113, 13)
Me.Label3.TabIndex = 58
Me.Label3.Text = "Linea De Negocio:"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'cmbAplicativo
'
Me.cmbAplicativo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAplicativo.Location = New System.Drawing.Point(367, 124)
Me.cmbAplicativo.Name = "cmbAplicativo"
Me.cmbAplicativo.Size = New System.Drawing.Size(181, 21)
Me.cmbAplicativo.TabIndex = 1
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(298, 132)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Aplicativo"
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(122, 38)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 110
Me.PictureBox1.TabStop = False
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.White
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(584, 388)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 109
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnAlta
'
Me.BtnAlta.BackColor = System.Drawing.Color.White
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnAlta.Image = CType(resources.GetObject("BtnAlta.Image"), System.Drawing.Image)
Me.BtnAlta.Location = New System.Drawing.Point(584, 271)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 108
Me.BtnAlta.Text = "Grabar"
Me.BtnAlta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnAlta.UseVisualStyleBackColor = True
'
'Btnbaja
'
Me.Btnbaja.BackColor = System.Drawing.Color.White
Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand
Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Btnbaja.ForeColor = System.Drawing.Color.MidnightBlue
Me.Btnbaja.Image = CType(resources.GetObject("Btnbaja.Image"), System.Drawing.Image)
Me.Btnbaja.Location = New System.Drawing.Point(584, 310)
Me.Btnbaja.Name = "Btnbaja"
Me.Btnbaja.Size = New System.Drawing.Size(106, 33)
Me.Btnbaja.TabIndex = 107
Me.Btnbaja.Text = "Baja"
Me.Btnbaja.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Btnbaja.UseVisualStyleBackColor = True
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(584, 349)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 106
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'FrmDirAgencia
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(698, 431)
Me.Controls.Add(Me.GridMaster)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.Btnbaja)
Me.Controls.Add(Me.BtnLimpiar)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FrmDirAgencia"
Me.Text = "Catalogo direccion de Agencias"
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtid As System.Windows.Forms.TextBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtLinea As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cmbAplicativo As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents Btnbaja As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
End Class

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,188 @@
Public Class FrmDirAgencia
Private lsComando As String
Dim blnuevo As Boolean = True
Friend WithEvents txtcompra As System.Windows.Forms.TextBox
Dim blcarga As Boolean = True
Dim clase As New ValidaTexto
Dim clsfecha As New clsComplejo
Private Sub LIMPIAR()
Me.txtNombre.Text = ""
Me.txtid.Text = ""
Me.txtLinea.Text = ""
cmbAplicativo.SelectedIndex = -1
cmbAplicativo.SelectedIndex = -1
End Sub
Private Sub Habilita(ByVal Bandera As Boolean)
If clsVaribles.lbDemo = True Then Exit Sub
Me.txtcompra.Enabled = Bandera
Me.txtid.Enabled = Bandera
Me.txtLinea.Enabled = Bandera
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
'LLENA GRID
SQL = " spConDirAgencias 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub Btnbaja_Click(sender As System.Object, e As System.EventArgs) Handles Btnbaja.Click
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
clsfecha = New clsComplejo
'VALIDACION DE CAMPOS
Try
If txtid.Text = "" Then
MessageBox.Show("Es Necesario seleccionar el tipo de Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If MsgBox("¿Desea Eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 17," & Val(txtid.Text))
strSQLComodin = "spGrabaDirAgencias 'E'," & txtid.Text
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
blnuevo = False
LIMPIAR()
'auditoria
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdDirAgencia = " & txtid.Text & " Nombre = " & txtNombre.Text _
& ", Aplicativo GNP: " & Me.cmbAplicativo.Text & ", Linea de Negocio: " & txtLinea.Text)
'FIN AUDITORIA
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim strSQLComodin As String
Dim liId As Integer
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
'VALIDACION DE CAMPOS
Try
If cmbAplicativo.SelectedIndex = -1 Then
MsgBox("valor no Valido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Exit Sub
End If
If Len(txtNombre.Text) = 0 Then
MsgBox("El Nombre no puede ser un campo sin valor", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Exit Sub
End If
If Len(txtid.Text) = 0 Then
liId = 9999999
Else
liId = txtid.Text
End If
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
Dim liAud As Integer
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 17," & Val(txtid.Text))
If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
liAud = 2
Else
liAud = 4
End If
strSQLComodin = "spGrabaDirAgencias 'A','" & liId & "' ,'" & txtNombre.Text & "','" & txtLinea.Text & "'," & cmbAplicativo.SelectedValue & ""
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
LIMPIAR()
'auditoria
ClassAud.RT_Auditoria(clsVaribles.varUsuario, liAud, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdDirAgencia = " & txtid.Text & " Nombre = " & txtNombre.Text _
& ", Aplicativo GNP: " & Me.cmbAplicativo.Text & ", Linea de Negocio: " & txtLinea.Text)
'FIN AUDITORIA Valores Anteriores : IdDirAgencia : 1, Nombre : AGENCIA 3, Aplicativo GNP = NASA, Linea de Negocio = 33
LlenaGrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
SQL = "spConDirAgencias 3," & Me.GridMaster.Columns("id").Value
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtLinea.Text = Fila("lineadenegocio").ToString
Me.txtid.Text = Fila("iddiragencia").ToString
Me.txtNombre.Text = Fila("nombre").ToString
cmbAplicativo.SelectedValue = Fila("IdAplicativoGNP")
End If
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
LIMPIAR()
End Sub
Private Sub FrmDirAgencia_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
'LLENA GRID
SQL = " spConDirAgencias 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
SQL = "spConAplicativo "
Classcom.sbLlenaCombo(SQL, cmbAplicativo)
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
End Class

1015
Actualizadores/FrmFuncionario.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,289 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ
DQAAAk1TRnQBSQFMAgEBCAEAAQQBAQEEAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAHBwMA
FgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wBBwEA
AjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3
AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEA
AjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEA
A+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF/wHw
AQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD7AEH
AQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0BFAH/
AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQACBwEA
Cf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sBDQEU
ARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQABNwEA
BAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH/wEA
ATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwBBwEA
ATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewBFAHv
BuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4EFQFD
AQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsBAAMH
AewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8DAAUH
AQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB/wMA
BQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcBFwGS
BwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB9wIA
Af8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB/wMA
AQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkBkgEH
AgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcDBw0A
AwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwABBwEA
Af8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB7AUH
BQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C7wQH
AwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQADBwEA
Af8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL7AIH
AvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCCAAs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;132&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 877, 132&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 877, 132&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>56</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,736 @@
Imports System.Collections.Generic
Imports System.Linq
Public Class FrmFuncionario
Private Sub FrmFuncionario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Funcionarios"
Me.PnDatos.Visible = True
BtnOk.Enabled = False
BtnEditar.Enabled = False
LLenaGrid()
DeshabilitaCampos()
DesHeader.Text = Me.Text
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, btnExportar)
End Sub
Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
'txtClave.Enabled = True
'txtClave.ReadOnly = False
LimpiaCampos()
HabilitaCampos()
chkActivo.CheckState = 1
clsVaribles.varProceso = "Agregar"
'txtClave.Focus()
BtnOk.Enabled = True
Me.chkActivo.Enabled = True
For Each item As Control In PnDatos.Controls
If TypeOf item Is TextBox Or TypeOf item Is ComboBox Or TypeOf item Is CheckBox Or TypeOf item Is DateTimePicker Then
item.Enabled = True
End If
Next
txtClave.Enabled = False
'txtNumEmpleado.Enabled = False
dtpFechaNac.Checked = False
dtpFechaNac.CustomFormat = "NULL"
txtNumEmpleado.Focus()
cboDelegacion.SelectedIndex = -1
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, btnExportar)
End Sub
Private Sub BtnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEditar.Click
clsVaribles.varProceso = "Actualizar"
HabilitaCampos()
txtClave.Enabled = False
'txtFuncionario2.Enabled = False
BtnOk.Enabled = True
BtnAgregar.Enabled = True
txtNumEmpleado.Enabled = True
txtNumEmpleado.Focus()
BtnEditar.Enabled = False
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, btnExportar)
End Sub
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
Dim classcom As New clsComplejo
Dim sSQL As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
Dim sError As String
Call colorLabel()
Try
Select Case UCase(clsVaribles.varProceso)
Case Is = "AGREGAR"
txtClave.Enabled = True
'VALIDACION DE CAMPOS
'sError = ValidaCampos()
If sError <> "" Then
MessageBox.Show(sError, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'sSQL = "INSERT INTO FUNCIONARIO (IdFuncionario, IdSucursal, IdEstado, IdNacionalidad, IdTipoEmpleado, " + _
'"IdPlaza, Nombre, ApellidoPaterno, ApellidoMaterno, NoEmpleado, Area, Activo, RFC, CURP, Calle, Colonia, " + _
'"CodigoPostal, Delegacion, Telefono, Puesto, Departamento, idFuncionario2) VALUES ( "
'sSQL = sSQL & txtClave.Text & ","
'If cmbSucursal.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbSucursal.SelectedValue & ", "
'If cmbEstado.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbEstado.SelectedValue & ", "
'If cmbNacionalidad.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbNacionalidad.SelectedValue & ", "
'If cmbTipoEmpleado.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbTipoEmpleado.SelectedValue & ", "
'If cmbPlaza.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbPlaza.SelectedValue & ", "
'sSQL = sSQL & "'" & txtNombre.Text & "',"
'sSQL = sSQL & "'" & txtApePaterno.Text & "',"
'sSQL = sSQL & "'" & txtApeMaterno.Text & "',"
'sSQL = sSQL & "'" & txtNumEmpleado.Text & "',"
'sSQL = sSQL & "'" & txtArea.Text & "',"
'sSQL = sSQL & chkActivo.CheckState & ","
'sSQL = sSQL & "'" & txtRFC.Text & "',"
'sSQL = sSQL & "'" & txtCurp.Text & "',"
'sSQL = sSQL & "'" & txtCalle.Text & "',"
'sSQL = sSQL & "'" & txtColonia.Text & "',"
'sSQL = sSQL & "'" & txtCP.Text & "',"
'sSQL = sSQL & "'" & txtDelegacion.Text & "',"
'sSQL = sSQL & "'" & txtTelefono.Text & "',"
'sSQL = sSQL & "'" & txtPuesto.Text & "',"
'sSQL = sSQL & "'" & txtDepartamento.Text & "',"
'sSQL = sSQL & "'" & txtFuncionario2.Text & "' )"
If Not valiarCampos() Then
Exit Sub
End If
sSQL = "sp_CargarFuncionario NULL" & "," & IIf(cboPaisNac.SelectedValue <> Nothing, cboPaisNac.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboEstadoNac.SelectedValue <> Nothing, cboEstadoNac.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboPais.SelectedValue <> Nothing, cboPais.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboEstado.SelectedValue <> Nothing, cboEstado.SelectedValue, "NULL")
'sSQL = sSQL & "," & IIf(cmbEstado.SelectedValue <> Nothing, cmbEstado.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboDelegacion.SelectedValue <> Nothing, cboDelegacion.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cbobPlaza.SelectedValue <> Nothing, cbobPlaza.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboNacionalidad.SelectedValue <> Nothing, cboNacionalidad.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboSucursal.SelectedValue <> Nothing, cboSucursal.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboGenero.SelectedValue <> Nothing, cboGenero.SelectedValue, "NULL")
sSQL = sSQL & ",'" & txtNumEmpleado.Text & "'"
sSQL = sSQL & ",'" & txtNombre.Text & "'"
sSQL = sSQL & ",'" & txtApePaterno.Text & "'"
sSQL = sSQL & ",'" & txtApeMaterno.Text & "'"
sSQL = sSQL & "," & IIf(dtpFechaNac.Checked, "'" & dtpFechaNac.Value.ToString("yyyy/MM/dd") & "'", "NULL")
'sSQL = sSQL & ",'" & txtApeMaterno.Text & "'"
sSQL = sSQL & ",'" & txtRFC.Text & "'"
sSQL = sSQL & ",'" & txtCurp.Text & "'"
sSQL = sSQL & ",'" & txtCalle.Text & "'"
sSQL = sSQL & ",'" & txtNoExterior.Text & "'"
sSQL = sSQL & ",'" & txtNoInterior.Text & "'"
sSQL = sSQL & ",'" & txtColonia.Text & "'"
sSQL = sSQL & ",'" & txtCP.Text & "'"
sSQL = sSQL & ",'" & txtTelefono.Text & "'"
sSQL = sSQL & ",'" & txtEmail.Text & "'"
sSQL = sSQL & ",'" & txtArea.Text & "'"
sSQL = sSQL & ",'" & txtDepartamento.Text & "'"
sSQL = sSQL & ",'" & txtPuesto.Text & "'"
sSQL = sSQL & ",'" & Now.Date.ToString("yyyy/MM/dd") & "'"
sSQL = sSQL & "," & "NULL"
sSQL = sSQL & "," & chkActivo.CheckState
sError = classcom.fnInserta(sSQL)
If sError <> "" Then
MessageBox.Show(sError, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
'AUDITORIA
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 95, 1, "Funcionario Nuevo: IdFuncionario: " & txtClave.Text & ", Nombre: " & txtNombre.Text & ",Apellido Paterno: " & txtApePaterno.Text & ", Apellido Materno: " & txtApeMaterno.Text)
'FIN AUDITORIA
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Is = "ACTUALIZAR"
'VALIDACION DE CAMPOS
'sError = ValidaCampos()
If sError <> "" Then
MessageBox.Show(sError, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'sSQL = "UPDATE FUNCIONARIO SET IdSucursal = "
'If cmbSucursal.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbSucursal.SelectedValue & ", "
'sSQL = sSQL & "IdEstado = "
'If cmbEstado.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbEstado.SelectedValue & ", "
'sSQL = sSQL & "IdNacionalidad = "
'If cmbNacionalidad.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbNacionalidad.SelectedValue & ", "
'sSQL = sSQL & "IdTipoEmpleado = "
'If cmbTipoEmpleado.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbTipoEmpleado.SelectedValue & ", "
'sSQL = sSQL & "IdPlaza = "
'If cmbPlaza.SelectedValue Is Nothing Then sSQL = sSQL & "NULL, " Else sSQL = sSQL & cmbPlaza.SelectedValue & ", "
'sSQL = sSQL & "Nombre = '" & txtNombre.Text & "', "
'sSQL = sSQL & "ApellidoPaterno = '" & txtApePaterno.Text & "', "
'sSQL = sSQL & "ApellidoMaterno = '" & txtApeMaterno.Text & "', "
'sSQL = sSQL & "NoEmpleado = '" & txtNumEmpleado.Text & "', "
'sSQL = sSQL & "Area = '" & txtArea.Text & "', "
'sSQL = sSQL & "Activo = " & chkActivo.CheckState & ", "
'sSQL = sSQL & "RFC = '" & txtRFC.Text & "', "
'sSQL = sSQL & "CURP = '" & txtCurp.Text & "', "
'sSQL = sSQL & "Calle = '" & txtCalle.Text & "', "
'sSQL = sSQL & "Colonia = '" & txtColonia.Text & "', "
'sSQL = sSQL & "CodigoPostal = '" & txtCP.Text & "', "
'sSQL = sSQL & "Delegacion = '" & txtDelegacion.Text & "', "
'sSQL = sSQL & "Telefono = '" & txtTelefono.Text & "', "
'sSQL = sSQL & "Puesto = '" & txtPuesto.Text & "', "
'sSQL = sSQL & "Departamento = '" & txtDepartamento.Text & "', "
''sSQL = sSQL & "idFuncionario2 = '" & txtFuncionario2.Text & "' "
'sSQL = sSQL & "WHERE IdFuncionario = " & txtClave.Text & " "
'If Not valiarCampos() Then
' Exit Sub
'End If
sSQL = "sp_CargarFuncionario " & txtClave.Text & "," & IIf(cboPaisNac.SelectedValue <> Nothing, cboPaisNac.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboEstadoNac.SelectedValue <> Nothing, cboEstadoNac.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboPais.SelectedValue <> Nothing, cboPais.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboEstado.SelectedValue <> Nothing, cboEstado.SelectedValue, "NULL")
'sSQL = sSQL & "," & IIf(cmbEstado.SelectedValue <> Nothing, cmbEstado.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboDelegacion.SelectedValue <> Nothing, cboDelegacion.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cbobPlaza.SelectedValue <> Nothing, cbobPlaza.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboNacionalidad.SelectedValue <> Nothing, cboNacionalidad.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboSucursal.SelectedValue <> Nothing, cboSucursal.SelectedValue, "NULL")
sSQL = sSQL & "," & IIf(cboGenero.SelectedValue <> Nothing, cboGenero.SelectedValue, "NULL")
sSQL = sSQL & ",'" & txtNumEmpleado.Text & "'"
sSQL = sSQL & ",'" & txtNombre.Text & "'"
sSQL = sSQL & ",'" & txtApePaterno.Text & "'"
sSQL = sSQL & ",'" & txtApeMaterno.Text & "'"
sSQL = sSQL & "," & IIf(dtpFechaNac.Checked, "'" & dtpFechaNac.Value.ToString("yyyy/MM/dd") & "'", "NULL")
'sSQL = sSQL & ",'" & txtApeMaterno.Text & "'"
sSQL = sSQL & ",'" & txtRFC.Text & "'"
sSQL = sSQL & ",'" & txtCurp.Text & "'"
sSQL = sSQL & ",'" & txtCalle.Text & "'"
sSQL = sSQL & ",'" & txtNoExterior.Text & "'"
sSQL = sSQL & ",'" & txtNoInterior.Text & "'"
sSQL = sSQL & ",'" & txtColonia.Text & "'"
sSQL = sSQL & ",'" & txtCP.Text & "'"
sSQL = sSQL & ",'" & txtTelefono.Text & "'"
sSQL = sSQL & ",'" & txtEmail.Text & "'"
sSQL = sSQL & ",'" & txtArea.Text & "'"
sSQL = sSQL & ",'" & txtDepartamento.Text & "'"
sSQL = sSQL & ",'" & txtPuesto.Text & "'"
sSQL = sSQL & ",'" & Now.Date.ToString("yyyy/MM/dd") & "'"
sSQL = sSQL & "," & "NULL"
sSQL = sSQL & "," & chkActivo.CheckState
classcom = New clsComplejo
sError = classcom.fnInserta(sSQL)
If sError <> "" Then
MessageBox.Show(sError, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
'AUDITORIA
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 96, 1, clsVaribles.lsValAnt & "Funcionario Actualizado: IdFuncionario: " & txtClave.Text & ", Nombre: " & txtNombre.Text & ",Apellido Paterno: " & txtApePaterno.Text & ", Apellido Materno: " & txtApeMaterno.Text)
'FIN AUDITORIA
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Select
BtnOk.Enabled = False
LLenaGrid()
Dim CLASSCATALOGOS As New ClassCatalogos
CLASSCATALOGOS.sbLimpiaControlesEsp(PnDatos)
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, btnExportar)
DeshabilitaCampos()
BtnOk.Enabled = False
BtnEditar.Enabled = False
BtnAgregar.Enabled = True
Catch ex As Exception
MessageBox.Show("Hubo un error al actualizar los datos." & vbCrLf & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
Me.Close()
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
For Each item As Control In PnDatos.Controls
If TypeOf item Is TextBox Or TypeOf item Is ComboBox Or TypeOf item Is CheckBox Then
item.Enabled = False
End If
Next
LimpiaCampos()
clsVaribles.varProceso = "ACTUALIZAR"
txtClave.Text = Me.GridMaster.Columns("IdFuncionario").Value.ToString()
txtNombre.Text = Me.GridMaster.Columns("Nombre1").Value.ToString()
txtApePaterno.Text = Me.GridMaster.Columns("ApellidoPaterno").Value.ToString()
txtApeMaterno.Text = Me.GridMaster.Columns("ApellidoMaterno").Value.ToString()
txtNumEmpleado.Text = Me.GridMaster.Columns("NoEmpleado").Value.ToString()
If Not IsDBNull((Me.GridMaster.Columns("FECHANACIMIENTO").Value)) Then dtpFechaNac.Value = GridMaster.Columns("FECHANACIMIENTO").Value.ToString()
If Not IsDBNull((Me.GridMaster.Columns("IDSEXO").Value)) Then
cboGenero.SelectedValue = IIf(GridMaster.Columns("IDSEXO").Value.ToString().Trim = "", -1, GridMaster.Columns("IDSEXO").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("IDESTADONACIMIENTO").Value)) Then
cboEstadoNac.SelectedValue = IIf(GridMaster.Columns("IDESTADONACIMIENTO").Value.ToString().Trim = "", -1, GridMaster.Columns("IDESTADONACIMIENTO").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("IDPAISNACIMIENTO").Value)) Then
cboPaisNac.SelectedValue = IIf(GridMaster.Columns("IDPAISNACIMIENTO").Value.ToString().Trim = "", -1, GridMaster.Columns("IDPAISNACIMIENTO").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("NUMEROINT").Value)) Then
txtNoInterior.Text = GridMaster.Columns("NUMEROINT").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("NUMEROEXT").Value)) Then
txtNoExterior.Text = GridMaster.Columns("NUMEROEXT").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("IDPAIS").Value)) Then
cboPais.SelectedValue = IIf(GridMaster.Columns("IDPAIS").Value.ToString() = "", -1, GridMaster.Columns("IDPAIS").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("Area").Value)) Then
txtArea.Text = Me.GridMaster.Columns("Area").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("RFC").Value)) Then
txtRFC.Text = Me.GridMaster.Columns("RFC").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("CURP").Value)) Then
txtCurp.Text = Me.GridMaster.Columns("CURP").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("Calle").Value)) Then
txtCalle.Text = Me.GridMaster.Columns("Calle").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("Colonia").Value)) Then
txtColonia.Text = Me.GridMaster.Columns("Colonia").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("CP").Value)) Then
txtCP.Text = Me.GridMaster.Columns("CP").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("Telefono").Value)) Then
txtTelefono.Text = Me.GridMaster.Columns("Telefono").Value.ToString()
End If
'dtpFechaNac.Value = GridMaster.Columns("FECHANACIMIENTO").Value.ToString()
'dtpFechaNac.Value = IIf(IsDBNull(Me.GridMaster.Columns("FECHANACIMIENTO").Value), 0, Me.GridMaster.Columns("FECHANACIMIENTO").Value)
'cboGenero.SelectedValue = IIf(GridMaster.Columns("IDSEXO").Value.ToString().Trim = "", -1, GridMaster.Columns("IDSEXO").Value.ToString())
' cboEstadoNac.SelectedValue = IIf(GridMaster.Columns("IDESTADONACIMIENTO").Value.ToString().Trim = "", -1, GridMaster.Columns("IDESTADONACIMIENTO").Value.ToString())
' cboPaisNac.SelectedValue = IIf(GridMaster.Columns("IDPAISNACIMIENTO").Value.ToString().Trim = "", -1, GridMaster.Columns("IDPAISNACIMIENTO").Value.ToString())
'cmbTipoEmpleado.SelectedValue = GridMaster.Columns("").Value.ToString()
' txtNoInterior.Text = GridMaster.Columns("NUMEROINT").Value.ToString()
'txtNoExterior.Text = GridMaster.Columns("NUMEROEXT").Value.ToString()
'cboPais.SelectedValue = IIf(GridMaster.Columns("IDPAIS").Value.ToString() = "", -1, GridMaster.Columns("IDPAIS").Value.ToString())
' txtArea.Text = Me.GridMaster.Columns("Area").Value.ToString()
' txtRFC.Text = Me.GridMaster.Columns("RFC").Value.ToString()
'txtCurp.Text = Me.GridMaster.Columns("CURP").Value.ToString()
'txtCalle.Text = Me.GridMaster.Columns("Calle").Value.ToString()
'txtColonia.Text = Me.GridMaster.Columns("Colonia").Value.ToString()
' txtCP.Text = Me.GridMaster.Columns("CP").Value.ToString()
'txtDelegacion.Text = Me.GridMaster.Columns("Delegacion").Value.ToString()
' txtTelefono.Text = Me.GridMaster.Columns("Telefono").Value.ToString()
If Not IsDBNull((Me.GridMaster.Columns("Puesto").Value)) Then
txtPuesto.Text = Me.GridMaster.Columns("Puesto").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("Departamento").Value)) Then
txtDepartamento.Text = Me.GridMaster.Columns("Departamento").Value.ToString()
End If
If Not IsDBNull((Me.GridMaster.Columns("IdSucursal").Value)) Then
cboSucursal.SelectedValue = IIf(Me.GridMaster.Columns("IdSucursal").Value.ToString() = "", -1, GridMaster.Columns("IdSucursal").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("IdEstado").Value)) Then
cboEstado.SelectedValue = IIf(Me.GridMaster.Columns("IdEstado").Value.ToString() = "", -1, GridMaster.Columns("IdEstado").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("IdNacionalidad").Value)) Then
cboNacionalidad.SelectedValue = IIf(Me.GridMaster.Columns("IdNacionalidad").Value.ToString() = "", -1, GridMaster.Columns("IdNacionalidad").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("IdPlaza").Value)) Then
cbobPlaza.SelectedValue = IIf(Me.GridMaster.Columns("IdPlaza").Value.ToString() = "", -1, GridMaster.Columns("IdPlaza").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("IDMUNICIPIO").Value)) Then
cboDelegacion.SelectedValue = IIf(GridMaster.Columns("IDMUNICIPIO").Value.ToString() = "", -1, GridMaster.Columns("IDMUNICIPIO").Value.ToString())
End If
If Not IsDBNull((Me.GridMaster.Columns("EMAIL").Value)) Then
txtEmail.Text = GridMaster.Columns("EMAIL").Value
End If
If Not IsDBNull((Me.GridMaster.Columns("ESTATUS").Value)) Then
chkActivo.Checked = IIf(IsDBNull(Me.GridMaster.Columns("ESTATUS").Value), 0, Me.GridMaster.Columns("ESTATUS").Value)
End If
'txtDepartamento.Text = Me.GridMaster.Columns("Departamento").Value.ToString()
'txtFuncionario2.Text = Me.GridMaster.Columns("idFuncionario2").Value.ToString()
'cboSucursal.SelectedValue = IIf(Me.GridMaster.Columns("IdSucursal").Value.ToString() = "", -1, GridMaster.Columns("IdSucursal").Value.ToString())
'cboEstado.SelectedValue = IIf(Me.GridMaster.Columns("IdEstado").Value.ToString() = "", -1, GridMaster.Columns("IdEstado").Value.ToString())
' cboNacionalidad.SelectedValue = IIf(Me.GridMaster.Columns("IdNacionalidad").Value.ToString() = "", -1, GridMaster.Columns("IdNacionalidad").Value.ToString())
'cmbTipoEmpleado.SelectedValue = IIf(Me.GridMaster.Columns("IdTipoEmpleado").Value.ToString() = "", -1, GridMaster.Columns("IdTipoEmpleado").Value.ToString())
'cbobPlaza.SelectedValue = IIf(Me.GridMaster.Columns("IdPlaza").Value.ToString() = "", -1, GridMaster.Columns("IdPlaza").Value.ToString())
' cboDelegacion.SelectedValue = IIf(GridMaster.Columns("IDMUNICIPIO").Value.ToString() = "", -1, GridMaster.Columns("IDMUNICIPIO").Value.ToString())
'txtEmail.Text = GridMaster.Columns("EMAIL").Value
' chkActivo.Checked = IIf(IsDBNull(Me.GridMaster.Columns("ESTATUS").Value), 0, Me.GridMaster.Columns("ESTATUS").Value)
chkActivo.Enabled = True
txtClave.Enabled = False
BtnEditar.Enabled = True
ClassCatalogos.CambiaColorbloque2(BtnAgregar, BtnEditar, BtnOk, btnExportar)
End Sub
Public Sub LimpiaCampos()
Dim CLASSCATALOGOS As New ClassCatalogos
CLASSCATALOGOS.sbLimpiaControlesEsp(PnDatos)
DeshabilitaCampos()
''Limpio los combobox.
cboSucursal.SelectedIndex = -1
cboEstado.SelectedIndex = -1
cboNacionalidad.SelectedIndex = -1
'cmbTipoEmpleado.SelectedIndex = -1
cbobPlaza.SelectedIndex = -1
cboSucursal.SelectedIndex = -1
cboEstado.SelectedIndex = -1
cboNacionalidad.SelectedIndex = -1
'cmbTipoEmpleado.SelectedIndex = -1
cbobPlaza.SelectedIndex = -1
cboEstadoNac.SelectedIndex = -1
cboPaisNac.SelectedIndex = -1
cboPais.SelectedIndex = -1
End Sub
Public Sub LLenaGrid()
'LLENA GRID
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
'Sql = "SELECT IdFuncionario, IdSucursal, IdEstado, IdNacionalidad, IdTipoEmpleado, IdPlaza, Nombre, ApellidoPaterno, "
'Sql = Sql & "ApellidoMaterno, NoEmpleado, Area, Activo, RFC, CURP, Calle, Colonia, CodigoPostal, Delegacion, Telefono, "
'SQL = SQL & "Puesto, Departamento, idFuncionario2 FROM Funcionario ORDER BY IdFuncionario"
SQL = "sp_ConsultarFuncionario 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In GridMaster.Splits(0).DisplayColumns
col.AutoSize()
If InStr(col.Name, "ID") > 0 Then
col.Visible = False
End If
If col.Name = "NOMBRE1" Then
col.Visible = False
End If
Next
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarGenero 0", cboGenero)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarEstado 0", cboEstadoNac)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarPais ", cboPaisNac)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarSucursal 0", cboSucursal)
'Classcom = New clsComplejo
'Classcom.sbLlenaCombo("sp_ConsultarTEmpleado 0", cmbTipoEmpleado)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ComboPlaza 0", cbobPlaza)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarMunicipio 0", cboDelegacion)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarNacionalidad 0", cboNacionalidad)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarEstado 0", cboEstado)
Classcom = New clsComplejo
Classcom.sbLlenaCombo("sp_ConsultarPais ", cboPais)
'Classcom.sbLlenaComboESP("SELECT IdSucursal AS clave, CAST(IdSucursal AS VARCHAR) + ') ' + Sucursal AS nombre FROM Cat_Sucursal", Me.cmbSucursal, "Nombre")
'Classcom.sbLlenaComboESP("SELECT IdEstado AS clave, CAST(IdEstado AS VARCHAR) + ') ' + Estado AS Nombre FROM Cat_Estado", Me.cmbEstado, "Nombre")
'Classcom.sbLlenaComboESP("SELECT IdNacionalidad AS clave, CAST(IdNacionalidad AS VARCHAR) + ') ' + Nacionalidad AS Nombre FROM Cat_Nacionalidad ", Me.cmbNacionalidad, "Nombre")
'Classcom.sbLlenaComboESP("SELECT IdTipoEmpleado AS clave, CAST(IdTipoEmpleado AS VARCHAR) + ') ' + TipoEmpleado AS Nombre FROM Cat_TipoEmpleado ", Me.cmbTipoEmpleado, "Nombre")
'Classcom.sbLlenaComboESP("SELECT IdPlaza AS clave, CAST(IdPlaza AS VARCHAR) + ') ' + Plaza AS Nombre FROM Cat_Plaza", Me.cmbPlaza, "Nombre")
cboSucursal.SelectedIndex = -1
cboEstado.SelectedIndex = -1
cboNacionalidad.SelectedIndex = -1
'cmbTipoEmpleado.SelectedIndex = -1
cbobPlaza.SelectedIndex = -1
cboSucursal.SelectedIndex = -1
cboEstado.SelectedIndex = -1
cboNacionalidad.SelectedIndex = -1
'cmbTipoEmpleado.SelectedIndex = -1
cbobPlaza.SelectedIndex = -1
cboGenero.SelectedIndex = -1
cboEstadoNac.SelectedIndex = -1
cboPaisNac.SelectedIndex = -1
cboPais.SelectedIndex = -1
End Sub
Public Sub DeshabilitaCampos()
For Each ctrl As Control In PnDatos.Controls
If TypeOf ctrl Is Label Then
ctrl.Enabled = True
Else
ctrl.Enabled = False
End If
Next
End Sub
Private Sub colorLabel()
For Each ctrl As Control In PnDatos.Controls
If TypeOf ctrl Is Label Then
ctrl.ForeColor = Color.DarkBlue
End If
Next
End Sub
Public Sub HabilitaCampos()
''Deshabilida campos
'txtClave.Enabled = True
'txtNombre.Enabled = True
'txtApePaterno.Enabled = True
'txtApeMaterno.Enabled = True
'txtNumEmpleado.Enabled = True
'txtArea.Enabled = True
'txtRFC.Enabled = True
'txtCurp.Enabled = True
'txtCalle.Enabled = True
'txtColonia.Enabled = True
'txtCP.Enabled = True
''txtDelegacion.Enabled = True
'cboDelegacion.Enabled = True
'txtTelefono.Enabled = True
'txtPuesto.Enabled = True
'txtDepartamento.Enabled = True
''txtFuncionario2.Enabled = True
'cmbSucursal.Enabled = True
'cmbEstado.Enabled = True
'cmbNacionalidad.Enabled = True
'cmbTipoEmpleado.Enabled = True
'cmbPlaza.Enabled = True
For Each item As Control In PnDatos.Controls
If TypeOf item Is TextBox Or TypeOf item Is ComboBox Or TypeOf item Is CheckBox Or TypeOf item Is DateTimePicker Then
item.Enabled = True
End If
Next
End Sub
Public Function ValidaCampos() As String
Dim sResultado As String
sResultado = ""
If txtClave.Text = "" Then
sResultado = sResultado & "Es Necesario Introducir el Id del Funcionario. " & vbCrLf
End If
If cboSucursal.SelectedValue Is Nothing Then
sResultado = sResultado & "Es Necesario Introducir la Sucursal del Funcionario. " & vbCrLf
End If
If cboEstado.SelectedValue Is Nothing Then
sResultado = sResultado & "Es Necesario Introducir el Estado. " & vbCrLf
End If
If cboNacionalidad.SelectedValue Is Nothing Then
sResultado = sResultado & "Es Necesario Introducir la Nacionalidad del Funcionario. " & vbCrLf
End If
'If cmbTipoEmpleado.SelectedValue Is Nothing Then
' sResultado = sResultado & "Es Necesario Introducir el tipo de empleado del Funcionario. " & vbCrLf
'End If
If txtNombre.Text = "" Then
sResultado = sResultado & "Es Necesario Introducir el nombre del Funcionario. " & vbCrLf
End If
If txtApePaterno.Text = "" Then
sResultado = sResultado & "Es Necesario Introducir el apellido paterno del Funcionario. " & vbCrLf
End If
If txtApeMaterno.Text = "" Then
sResultado = sResultado & "Es Necesario Introducir el apellido materno del Funcionario. " & vbCrLf
End If
If txtNumEmpleado.Text = "" Then
sResultado = sResultado & "Es Necesario Introducir el Número de Empleado del Funcionario. " & vbCrLf
End If
'If txtFuncionario2.Text = "" Then
' sResultado = sResultado & "Es Necesario Introducir el IdFuncionario2. " & vbCrLf
'End If
''Valida CP
If txtCP.Text <> "" Then
If IsNumeric(txtCP.Text) = False Or txtCP.Text.Length <> 5 Then
sResultado = sResultado & "El código postal debe ser un número de 5 digitos. " & vbCrLf
End If
End If
ValidaCampos = sResultado
End Function
Private Sub ComboBox3_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboPais.SelectedIndexChanged, cboPaisNac.SelectedIndexChanged
End Sub
Private Sub Label27_Click(sender As System.Object, e As System.EventArgs) Handles lblPais.Click, lblPaisNac.Click
End Sub
Private Sub PnDatos_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles PnDatos.Paint
End Sub
Private Sub dtpFechaNac_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpFechaNac.ValueChanged
If dtpFechaNac.Checked Then
dtpFechaNac.CustomFormat = "dd/MM/yyyy"
Else
dtpFechaNac.CustomFormat = "NULL"
End If
End Sub
Private Function valiarCampos() As Boolean
Dim listaControlesParaValidacion As New List(Of Control)
Dim listaControlTotal As New List(Of Control)
Dim resultado As New List(Of elementoLista)
For Each ctrl As Control In Me.Controls
If ctrl.Tag <> Nothing Then
listaControlesParaValidacion.Add(ctrl)
End If
listaControlTotal.Add(ctrl)
ObtenerControlesHijos(ctrl, listaControlesParaValidacion, listaControlTotal)
Next
resultado = VariablesGlobales.validarFuncionario(listaControlesParaValidacion, listaControlTotal)
Dim mensaje As String = ""
For Each elem As elementoLista In resultado.OrderBy(Function(e) e.Orden)
mensaje &= elem.Mensaje & Environment.NewLine
elem.ctrl.ForeColor = Color.Red
Next
If mensaje = "" Then
Return True
Else
MessageBox.Show(mensaje)
Return False
End If
End Function
Private Sub ObtenerControlesHijos(ctrl As Control, ByRef listaControlesParaValidacion As List(Of Control), ByRef listaControlesTotal As List(Of Control))
For Each ctrlHijo As Control In ctrl.Controls
If ctrlHijo.Tag <> Nothing Then
listaControlesParaValidacion.Add(ctrlHijo)
End If
listaControlesTotal.Add(ctrlHijo)
ObtenerControlesHijos(ctrlHijo, listaControlesParaValidacion, listaControlesTotal)
Next
End Sub
Private Sub txtNumEmpleado_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumEmpleado.KeyPress
Dim classCom As New ClassCatalogos
'If e.KeyChar <> Convert.ToChar(Keys.Back) Then
' e.KeyChar = classCom.ValidaCampos("numeros", e.KeyChar)
'End If
End Sub
Private Sub btnExportar_Click(sender As System.Object, e As System.EventArgs) Handles btnExportar.Click
Exportar()
End Sub
Private Sub Exportar()
Dim cls As clsComplejo
Try
If GridMaster.DataSource Is Nothing Then
MessageBox.Show("No hay datos para exportar.", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return
End If
cls = New clsComplejo()
Dim DS As DataSet = cls.fdtDataSet("spS_FuncionariosExport")
Dim sError As String = ""
''Inicia Exportacion
'Creo una instancia de la clase aExcel
Dim clsExcel As aExcel = New aExcel
'Obtenemos el nombre o el titulo del form
clsExcel.Titulo = "Funcionarios"
'Utilizo la funcion ExportDataset de la clase aExcel
clsExcel.ExportDataset(DS) 'Asigno el dataset a exportar
Catch ex As Exception
End Try
End Sub
End Class

287
Actualizadores/FrmOficinas.Designer.vb generated Normal file
View File

@ -0,0 +1,287 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmOficinas
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmOficinas))
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtid = New System.Windows.Forms.TextBox()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtLinea = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.cmbAplicativo = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.Btnbaja = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GridMaster
'
Me.GridMaster.AllowArrows = False
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GridMaster.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.GridMaster.EditDropDown = False
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 70)
Me.GridMaster.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(680, 145)
Me.GridMaster.TabIndex = 105
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtid)
Me.GroupBox1.Controls.Add(Me.txtNombre)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.txtLinea)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.cmbAplicativo)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Location = New System.Drawing.Point(17, 231)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(554, 188)
Me.GroupBox1.TabIndex = 104
Me.GroupBox1.TabStop = False
'
'txtid
'
Me.txtid.Enabled = False
Me.txtid.Location = New System.Drawing.Point(85, 39)
Me.txtid.Name = "txtid"
Me.txtid.Size = New System.Drawing.Size(125, 20)
Me.txtid.TabIndex = 82
'
'txtNombre
'
Me.txtNombre.BackColor = System.Drawing.Color.LightGray
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(85, 82)
Me.txtNombre.MaxLength = 30
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(463, 20)
Me.txtNombre.TabIndex = 4
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(25, 85)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(54, 13)
Me.Label5.TabIndex = 60
Me.Label5.Text = "Nombre:"
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(27, 42)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(22, 13)
Me.Label1.TabIndex = 51
Me.Label1.Text = "Id:"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(494, 148)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 24)
Me.Label7.TabIndex = 78
Me.Label7.Text = "..."
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
'
'txtLinea
'
Me.txtLinea.BackColor = System.Drawing.Color.White
Me.txtLinea.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtLinea.Location = New System.Drawing.Point(143, 125)
Me.txtLinea.MaxLength = 2
Me.txtLinea.Name = "txtLinea"
Me.txtLinea.Size = New System.Drawing.Size(120, 20)
Me.txtLinea.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(24, 133)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(113, 13)
Me.Label3.TabIndex = 58
Me.Label3.Text = "Linea De Negocio:"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'cmbAplicativo
'
Me.cmbAplicativo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbAplicativo.Location = New System.Drawing.Point(367, 124)
Me.cmbAplicativo.Name = "cmbAplicativo"
Me.cmbAplicativo.Size = New System.Drawing.Size(181, 21)
Me.cmbAplicativo.TabIndex = 1
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(298, 132)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(63, 13)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Aplicativo"
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(3, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(122, 38)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 103
Me.PictureBox1.TabStop = False
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.White
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(584, 387)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 102
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnAlta
'
Me.BtnAlta.BackColor = System.Drawing.Color.White
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnAlta.Image = CType(resources.GetObject("BtnAlta.Image"), System.Drawing.Image)
Me.BtnAlta.Location = New System.Drawing.Point(584, 270)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 101
Me.BtnAlta.Text = "Grabar"
Me.BtnAlta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnAlta.UseVisualStyleBackColor = True
'
'Btnbaja
'
Me.Btnbaja.BackColor = System.Drawing.Color.White
Me.Btnbaja.Cursor = System.Windows.Forms.Cursors.Hand
Me.Btnbaja.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Btnbaja.ForeColor = System.Drawing.Color.MidnightBlue
Me.Btnbaja.Image = CType(resources.GetObject("Btnbaja.Image"), System.Drawing.Image)
Me.Btnbaja.Location = New System.Drawing.Point(584, 309)
Me.Btnbaja.Name = "Btnbaja"
Me.Btnbaja.Size = New System.Drawing.Size(106, 33)
Me.Btnbaja.TabIndex = 100
Me.Btnbaja.Text = "Baja"
Me.Btnbaja.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Btnbaja.UseVisualStyleBackColor = True
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(584, 348)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 99
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'FrmOficinas
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Inherit
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(704, 434)
Me.Controls.Add(Me.GridMaster)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.Btnbaja)
Me.Controls.Add(Me.BtnLimpiar)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FrmOficinas"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Catalogo Oficinas"
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtid As System.Windows.Forms.TextBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents txtLinea As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cmbAplicativo As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents Btnbaja As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
End Class

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,189 @@
Public Class FrmOficinas
Private lsComando As String
Dim blnuevo As Boolean = True
Friend WithEvents txtcompra As System.Windows.Forms.TextBox
Dim blcarga As Boolean = True
Dim clase As New ValidaTexto
Dim clsfecha As New clsComplejo
Private Sub LIMPIAR()
Me.txtNombre.Text = ""
Me.txtid.Text = ""
Me.txtLinea.Text = ""
cmbAplicativo.SelectedIndex = -1
cmbAplicativo.SelectedIndex = -1
End Sub
Private Sub Habilita(ByVal Bandera As Boolean)
If clsVaribles.lbDemo = True Then Exit Sub
Me.txtcompra.Enabled = Bandera
Me.txtid.Enabled = Bandera
Me.txtLinea.Enabled = Bandera
End Sub
Private Sub llenagrid()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
'LLENA GRID
SQL = " spConOficinas 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub FrmOficinas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Try
'LLENA GRID
SQL = " spConOficinas 0"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
SQL = "spConAplicativo "
Classcom.sbLlenaCombo(SQL, cmbAplicativo)
Catch ex As Exception
MessageBox.Show("Error al cargar llenar Grid" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
LIMPIAR()
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
'VALIDACION DE CAMPOS
Try
If cmbAplicativo.SelectedIndex = -1 Then
MsgBox("Moneda no válida", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Exit Sub
End If
If Len(txtNombre.Text) = 0 Then
MsgBox("El Nombre no puede ser un campo sin valor", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Exit Sub
End If
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
Dim liAud As Integer
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 17," & Val(txtid.Text))
If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
liAud = 2
Else
liAud = 4
End If
strSQLComodin = "spGrabaoficinas 'A'," & Me.cmbAplicativo.SelectedValue & " ,'" & txtNombre.Text & "','" & txtLinea.Text & "'," & cmbAplicativo.SelectedValue & ""
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
LIMPIAR()
'auditoria
ClassAud.RT_Auditoria(clsVaribles.varUsuario, liAud, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdOficina = " & txtid.Text & " Nombre = " & txtNombre.Text _
& ", Aplicativo GNP: " & Me.cmbAplicativo.Text & ", Linea de Negocio: " & txtLinea.Text)
'FIN AUDITORIA Valores Anteriores : IdOficina : 2, Nombre : AGENTE 1, Aplicativo GNP = AZUL, Linea de Negocio = 1
LlenaGrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub Btnbaja_Click(sender As System.Object, e As System.EventArgs) Handles Btnbaja.Click
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
clsfecha = New clsComplejo
'VALIDACION DE CAMPOS
Try
If txtid.Text = "" Then
MessageBox.Show("Es Necesario seleccionar el tipo de Moneda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If MsgBox("¿Desea Eliminar el registro?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 17," & Val(txtid.Text))
strSQLComodin = "spGrabaoficinas 'E'," & txtid.Text
ClassComodin = New clsComplejo
ClassComodin.sbInserta(strSQLComodin)
blnuevo = False
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 3, 1, clsVaribles.lsValAnt & " | Valores Nuevos: IdOficina = " & txtid.Text & " Nombre = " & txtNombre.Text _
& ", Aplicativo GNP: " & Me.cmbAplicativo.Text & ", Linea de Negocio: " & txtLinea.Text)
LIMPIAR()
llenagrid()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
SQL = "spConOficinas 3," & Me.GridMaster.Columns("id").Value
Classcom = New clsComplejo
Classcom.fdtDataSet(SQL)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
Fila = Classcom.ds.Tables(0).Rows(0)
Me.txtLinea.Text = Fila("lineadenegocio").ToString
Me.txtid.Text = Fila("Idoficina").ToString
Me.txtNombre.Text = Fila("nombre").ToString
cmbAplicativo.SelectedValue = Fila("IdAplicativoGNP")
End If
Catch ex As Exception
MessageBox.Show("Error al cargar Registro" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
End Class

View File

@ -0,0 +1,219 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmStatusPatrones
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmStatusPatrones))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cmbPatron = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnImprimir = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.btnConsulta = New System.Windows.Forms.Button()
Me.lblNumReg = New System.Windows.Forms.Label()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(13, 6)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(147, 52)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 65
Me.PictureBox1.TabStop = False
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cmbPatron)
Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Location = New System.Drawing.Point(12, 61)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(459, 57)
Me.GroupBox3.TabIndex = 67
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Parametros de consulta"
'
'cmbPatron
'
Me.cmbPatron.DropDownWidth = 220
Me.cmbPatron.ItemHeight = 15
Me.cmbPatron.Location = New System.Drawing.Point(86, 20)
Me.cmbPatron.Name = "cmbPatron"
Me.cmbPatron.Size = New System.Drawing.Size(343, 23)
Me.cmbPatron.TabIndex = 11
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(9, 22)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(70, 23)
Me.Label3.TabIndex = 29
Me.Label3.Text = "Producto"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.White
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(990, 408)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 76
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnImprimir
'
Me.BtnImprimir.BackColor = System.Drawing.Color.White
Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnImprimir.Enabled = False
Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnImprimir.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnImprimir.Image = CType(resources.GetObject("BtnImprimir.Image"), System.Drawing.Image)
Me.BtnImprimir.Location = New System.Drawing.Point(990, 447)
Me.BtnImprimir.Name = "BtnImprimir"
Me.BtnImprimir.Size = New System.Drawing.Size(106, 33)
Me.BtnImprimir.TabIndex = 75
Me.BtnImprimir.Text = "Exportar"
Me.BtnImprimir.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnImprimir.UseVisualStyleBackColor = True
Me.BtnImprimir.Visible = False
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(990, 369)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 74
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'btnConsulta
'
Me.btnConsulta.BackColor = System.Drawing.Color.White
Me.btnConsulta.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnConsulta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnConsulta.ForeColor = System.Drawing.Color.MidnightBlue
Me.btnConsulta.Image = CType(resources.GetObject("btnConsulta.Image"), System.Drawing.Image)
Me.btnConsulta.Location = New System.Drawing.Point(990, 330)
Me.btnConsulta.Name = "btnConsulta"
Me.btnConsulta.Size = New System.Drawing.Size(106, 33)
Me.btnConsulta.TabIndex = 73
Me.btnConsulta.Text = "Consulta"
Me.btnConsulta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnConsulta.UseVisualStyleBackColor = True
'
'lblNumReg
'
Me.lblNumReg.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNumReg.Location = New System.Drawing.Point(9, 480)
Me.lblNumReg.Name = "lblNumReg"
Me.lblNumReg.Size = New System.Drawing.Size(315, 23)
Me.lblNumReg.TabIndex = 77
Me.lblNumReg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.CaptionHeight = 17
Me.C1TrueDBGrid1.GroupByCaption = "AGRUPAR"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(10, 127)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.RowHeight = 15
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(975, 314)
Me.C1TrueDBGrid1.TabIndex = 72
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'FrmStatusPatrones
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1108, 512)
Me.Controls.Add(Me.lblNumReg)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnImprimir)
Me.Controls.Add(Me.BtnLimpiar)
Me.Controls.Add(Me.btnConsulta)
Me.Controls.Add(Me.C1TrueDBGrid1)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.PictureBox1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FrmStatusPatrones"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Actualiza Status de Patrones"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents cmbPatron As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnImprimir As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents btnConsulta As System.Windows.Forms.Button
Friend WithEvents lblNumReg As System.Windows.Forms.Label
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

View File

@ -0,0 +1,556 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG
CgAAAk1TRnQBSQFMAgEBBAEAAewBAAHsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ARgAB7Az/
AwAB7Az/GgAB/wEDBwAB7AX/AQIG/wMAAewK/wIEDQAB/wL6AQIJAAH/AewBAwHsBQAB7AT/AgIG/wMA
AewJ/wEEAf4B/AMAAfoHAgEAAf8C+gECCgAB/wEDAewBAwHsAQMDAAHsA/8GAgP/AwAB7Aj/AQQB/gH8
Af8EAAH6BQIBAAH/AvoBAgkAAewBAAH/AewBAwHsAQMB7AEDAgAB7AT/AgID/wECAv8DAAHsB/8BBAH+
AfwC/wUAAfoDAgEAAf8C+gECAQABAggAAewBAAH/AQMB7AEDAewBAwHsAgAB7AX/AQID/wECAv8DAAHs
Bv8BBAH+AfwD/wYAAfoBAgEAAf8C+gECCwAB7AEAAf8B7AIAAQMB7AEDAgAB7AL/AQIG/wECAv8DAAHs
Av8DAAEEAf4B/AT/CAAB/wL6AQIIAAEGBQAB/wEDAgcB7AEDAewCAAHsAv8BAgP/AQIF/wMAAewB/wEA
AQcB/gHsAQAB/AX/BwAB/wL6AQIIAAEGBf4BAAH/AewBAwHsAQMB7AEDAgAB7AL/AQID/wICBP8DAAHs
AQAB+wH+AQcB/gHsAQAF/wYAAf8C+gECAQACAgYABv4BAAH/AQMB7AEDAewBAwHsAgAB7AP/BgID/wMA
AewBAAH+AfsB/gEHAf4BAAX/BQAB/wL6AQIBAAH6AwIGAAH+BQAB/wHsAQMB7AEDAewBAwIAAewG/wIC
BP8DAAHsAQAB/wH+AfsB/gEHAQAF/wQAAf8C+gECAwAB+gMCCQAB7AEAAf8BAwHsAQMB7AEDAewCAAHs
Bv8BAgL/BgAB7AH/AQAB/wH+AfsBAAP/BgAB/wL6AQIFAAT6CAAB7AEAAewB/wEHAewBAwHsAQMCAAHs
Cf8B7AH/AewDAAHsAv8DAAT/AQAC/xgAA+wBAAHsAf8BBwEDAewCAAHsCf8C7AQAAewJ/wEAAf8ZAAXs
AQAB7AH/AQcCAAvsBQAK7CUAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/+BAAGA
AQEBgAEBAv8B/gE/AYABAQGAAQEB/wHgAf4BDwGAAQEBgAEBAgAB/gEDAYABAQGAAQEBAAEBAfgBAAGA
AQEBgAEBAYABAwH4AQABgAEBAYABAQHAAQEB6AEAAYABAQGAAQEB4AEBAcgBAAGAAQEBgAEBAfABHwGA
AQABgAEBAYABAQHwAR8CAAGAAQEBgAEBAeABDwIAAYABAQGAAQEBwAEHAYABAAGAAQEBgAEBAYEBAwHI
AQABgAEBAYABAQEDAYEB6AEAAYABAwGAAQEBBwHBAfgBAAGAAQcBgAEDAv8B+AEAAYABDwGAAQcC/wH4
AQAL
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BntSalie.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABLtJREFUWEftl29ME3cY
x39ZFsO7BelEhQktmk6oNIGWgW29AmWuswL7IxCzZi+GKYIvKCgtK/bu+odS2nKl0mRDIkGdM2MhLGwC
IfsTEzPYnxDZRrbFyaIbBgYOwowEaLund+7AI4a+3cVfPi9+97vf87z45vs89xwKfd3wlBhBkVHTU2IE
hb53bMkLO+NfevJSq9W5ubkIoeRkFB8fU8L/KSh8k9oS6f4Uz6blo1cgENBqtTk5uR6P1++v3ZeWwInl
Eyg0eWlLMl8UEv8tHMftdrvb7TYaaysqjmdkSM1ma3c3GQwe8/uPp6Y8x4nlEyh8+9PNzE/0LU32s4+Z
6WmPpCIIiqLq6+t1Ol1enrKsrHhw8JLf30CScqsVa24uEAmT2Sj+gcJ/jHJY/OUrU43hxkA3eyLNEIOh
HA5HS0uLXC5XqzWnThl7ei5evqw3m7NxXEEQasDl0oiEu9go/oEi879u5MHdCcvIcFx19Xdf9LGH4r1C
kKmkpCQ1NRXHW9rbK3t6zpAkZrGoaJmUBFFEECqXq1AkFLBR/ANFlqZZ/rl3y/LhlWfCYVRVdaPvytzU
j3/d/mH2t4lipeIcQcgkktMN5s5OY3MzyJSD44UEAZ7KJwgNQRwkiEKXq0gk2rMxIc9AkYd/Myzc+72p
96NnV1ZQJIKuXlUGg69du3Z0YKB4YOD1oaE3h4dTdLoWHKeoEhzHaI0OEUQB7Sxmg0XLULSTTcg/UGT1
AbB0f4b4uDdueTmq1JMwmdpMDbRYIBCIBTUI5mLEgs0hWqxEJiEvQZHwClAfDG5bW+Oqw6GuzmdupCg9
3dFBoJcfL0MNXYYpTEJeAiKsAllKJbpw4TFpNmMy+aLOOmoyycxmGY5DXweZwFlgMabBg7N2MAl5CQpF
1oDFpQX1q9p1ve7cQdevo9HRdcbHUVmZ19LU0QEdrGNk5H2XC8Nx8Bc4C/SKQou1m0nIS1AovMowNz+r
0mhQV1dULKcTJSSgxMR1kpJQXBzl8zY2llut0Og9BgNmtzNlyHwW4WsIYu1hE/IPFFleZHm4MHNQpUD9
/chs/qy/d256iiFjbxrZ2CiVSGw2sqvrmNFo2L5928mTQqfzFdpTUI/Qv5TROUv0/MaEPAPmrJmNLM/d
VRzRovT00S8H2UNppgT+mWUymc1mp6gK8JHDoSZJaFjQrcBZMDfApoB2VjIbxT9QaP4Wh/tT4zlZ0k8+
6GRPMiX7PR5PdnY2IxaOgzQwaoFGTM96tImKJUxio/gHCk1/s5nZn0bmf/6cfczMEAcCAfgrJEmSoo7g
OKgDwLgAH0GmDItsNsznO5wmErBR/AOFpoa2JGnXjurqarFY7HQ2U9Rb9NAAVgKlYBNt8F4vdvZsnsEg
Fwh2c2L5BApPXtyS1jMVpkqdImtfW1sbRb1B/+6AoWB0UDudRR5PUWkplq+MhztNVSWcWD6BQuPnYsRd
W+rzeWEoBY1stkK7XdXaqisvF4jFST0O/c3edzn3+QcKf0vGCH5C7fO1+f16tzvfYpHV1Bw+IE6xnsD+
HDzNuclXUHjMEiN4per8+fc6Osr1+jyNQqDXHuBc4D0oMmaMEfPbcgzDFHmq9jr1VP87nLf8Z8z4L3Ep
WIH8TmviAAAAAElFTkSuQmCC
</value>
</data>
<data name="BtnImprimir.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABatJREFUWEfll+lPG0cY
h/f/qqr2S1UpUZo2UdKkzYcUtVFRS0iaQEMuSIBCcDjLHYo5Ago3BHODbfC1tvGu8Ylt8AU2vo2PtfHa
u9PZgFabqO2Xftu8ejQaWTs/aR/NjN9FKFU5y5rSKNdZZdsWmc6ypWXY1EDMEtQkVhk3lMZVxc7a8px/
8TZ31ccDAtDfWcz7fvCfZXMHp9Y0k+Ov/Yul3IUfCQilq2ExOnxnVv6lcKsnEE1pje6R0SHvykPu2o8B
hN5pZjmVdZIjJUpcoTXKtUbZ6agxbKkZplZQly8On1lRmIdeD/rENdzlvAehLMMsBjsjK0VkVJiZ/qdS
4g67N5YHIEeDealhdGziYLODm8BvENopYjHYDxhZ6QyKmeGEWzTNjCr9fl3X+LPW4fL6vocC4bmbD1pb
mrgJ/AahD1EW/S4jK5nOKHTvy6JBngJkAUSSuZl1vLF/sb53obprsbJHfP7KD6RbUThQUQdo3qvipvEP
BETtLPpdLzTDyNp+TxZFg1weZEiQzAKjM7qqtIo2jVPr+v4Z9HnbcNfA2NC4qHNwcmp6hpvGPxCQ8rPg
1jNZcq3pVBMsaAruqUwOpHPA5omLpHggHIvEjuHoD0a8vlA4loSPTSxtYioJGfNwA3kGArJxFsziga+d
TBFbGsM7UYypPDRFAiIHAnHyrWTHfRAqFPL+QBhqsrt9JpvbH4jKty0DI2OJoJdMhriBPAMBeYJFZ3FD
QYkUIVUzsuClDk1lSWZPHWeBXO/dUFkoivYcHllsbsy0J9eaLQ5vOJboGJzyOG3cKF6CAJpk0ZnOZElQ
RlaBAifvrqp4Bppyjy6odp2+NJE5Yk5f0Ob0Wfe9kXhSjBoEHcLllRWHw8ZN4x8IALBtOkNrdJ3KEqt2
4CRHMqaOM7QMc4kkmEiKpYgsvK2gKYf7cMfisu0fwsPY92ahqFzwS2VHXe+UAlVxA3kGQjEb6Ayt0Xkq
a12hhxNoKkHQSoN3U7N7FIotbuFQFuzvM9kTeK8FwlGz3SVW4k+bhN+XVhc/aqp4Odzc3sMN5BkIRedZ
NIZ96CieJFblOAUAQQLHYUIkwaEgiEy3K9NaJagZ/u9NLivHFmS9bxY7hmYFvWPP24aeNg7e+2Ooub2b
G8gzEHCSYFHv7EFZ0QSxtIWTNEhkgcUVl6o/7OY/KJIkRevos9bR29V/NbZ0cAN5Buyzgiyo3gFfPhxP
L0ixTAHECGByxidW1BZnUGc51JrcSnxfprNJUMu60rgs0y9t4nNrGuGk+H7tq1sVzRduVQkETdxAnoFQ
0T0W1TtZgWh6XoolcyCUAhpreHoVjScz0WMicpwORVNH4YQvlHD7ovCLWu/yiG3+6U1P0YPOz78t/ex6
WV9XWyHi4GbyCYTya1hUuB3K8oWgLJyAX4IEUFmiM8tK5rBxKldgOq/kCaidPF/SfH5Fe3Lp55pPLpf8
UVsdNK1m3HJuJp9AKNcyy6ksb4gYmBZLt+3rGvvAnHJkduPUUZYC8Sw4OAa7QWDw0RoPQPsl88UvS9rF
n165U1tVEcTGk+bZgnOJm8knENoyxKLEbDQAoQSN2YIKg0+m969pD3rGpe0DMy3Ct3Xds5VtE+UNI6U1
A8WVr3583H3tifDiQ+EXNx7XP70TUXWlsb6CaZAbyDMQCv+TZdu4B3svZxjsR4A5APBDoHKBZSN4vZUS
StJ9G+mO1VTrYqpxPvFiLiGYT93qDpy7dNU88yQoqSfUTXldGzeNfyC09hmLWGOdkOxVCXee9GMVfbry
Hl1Zj+5eJ1baif/ajhW34T+1YEVN2M1G/IYA/64Bv/YC+/LS9by6kkQrKU0VN4qXILT6EctAXVFzxdWW
iiuN5ZcFZZcEZd9AGu5/3XAPcvEF5DfIV/UMF+rvXoCTvqqrKWk5N4THIEB993+SlZV88As/Ud/9G/u3
JHyWQOA9AAAAAElFTkSuQmCC
</value>
</data>
<data name="BtnLimpiar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABMBJREFUWEfl19tTGlcc
B/D95/rQmXY66bSdOknGNsmkqSLBG8ZJNDE68Zohaq1VKSBiFAQiIhe5LLeFBUQRJzFqiIoSUG57USBG
F3oIlthNk9rXZeYz+3LO7/fwnd85uwtRKPd/yVoexpXC5MzUjrIzZmigrTIblHc3XVwW7ogppjCrJWWB
E5p5XC4IiJsJmEvbxlQQtdRxQWlr375MgiOOo2XfoW/x0OcFkaWUMxuDj5YFd7Kedtp+5oFyAd5FZOyD
0alxzGE79HlIN0q6XQTqJD1uwoVgZuPW7wO+vkYc7aVVMQxErU38p7RLFJkUYVb40OsuxORCCJeDQAA7
4QBsxyt+f1+3V95HK2QYKLc1/3kZnzwsEaRgE+lBCSdCOB04YscdNtxuxe0W3AaTiC3uRbX1HKt0gFbL
MFAu7P6MtN+wN/5nymggUWchoGJGNgtuhQEMNhNWOLXoNvEe87/8wjIjpJUzDJRPbn5KZg0NifgJg74w
TSAmkNH7mDCLGcQEriocNmFej2t0WHLj2lTlj8sWDa0Dw0D5w8i/ygZXdwT8hE4DLqazUSpkZCowGzGT
ATMugIO5NCmR1lRLrl6W3WsOrftpTRgGymexj2W217f5o/F5Nbi8Mcv7UTL/nZHJkDIuYAY96Xa+mFXK
2Cwpq+rp5R8WpqfwWJjWh2Gg/EmaJhMKbo0MH8ypwEB9yMhYyChl0BfotSTi2NRrlfW1MlaV9FqlpKX1
dXAzTSZprRgGyufenZeN7L4GSc0qcTBQICYwRCCjUkwLOpAUYbPswGbVHa78ds30zetPa6oDK4F4Ikad
vqV1Yxgonz8pyUT2gkMD+0o5uJ6KZ+0soBK9Fizt2ay6B62K22xZ1S3Z9Z9Qm/1NNHJ8nDnfipEgKn9a
dJwmg0J+0mYBg3M2R7SkFnS42RSxW+GeLgWbpahhya5U6GaehSKRo2y61IfBICp3UvTGoF/vaIupZskV
P26zpnSafySl14LzGHM5kaEhJZv1jHNbVvG9dHhsey9MHpGn1LtSHwaD8m+Jok1eX2jgSaifF5VNE14P
+ApNfshLiy3oEqjLJxLOctiqhrqZKxWy7p7gxks8Hsll8VITZgPfWQdFr7oehUf/CI8Mh4eHomIhjoB/
Zu/ZTOl1KdQZkE6r6jhzjfXya5Wzba0bq0vJvSBF7pc6MB5EJYNFzzvbdwd4UQE/AvBHwRO8DQ8Dy7jD
iqHO5wq5mtsAkpq9dUPdWBtATAev/SfxV6XycgBREW9R2Kdb7XwQetyzPy46EIv2RQIgoVKkXPbVSbGm
iTvPbVCzflVcv4qoJNEX8PEuWqotExC1rS9J+JWOrvvrD1v3xaK4RHwwMR6bGN8dG9FyGzRNjWpOzdPv
LmmFvD2fIrOhOV9YJqDcmvi8tF9o4d1bauRERYL45ERMIn452K9tblLXccTffKXqb9l1jBwtC2hVZQKi
/IM0x76BxbEWF6cKXPYp6ZSvtxskJbn09Vwne9vYS6BPaPvLB5RbbPsYtdi2Pn0Hbare6e101LOfVXyr
bvl5U30Xt98HS7TN5QPKee5+yraKq+r8Rd5+0/wba1PVmISbT930PWUFyntqPy+LcI7snLSDc4rSl8qL
p/Yvk6nZbX9tF1kAAAAASUVORK5CYII=
</value>
</data>
<data name="btnConsulta.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAAiNJREFUWEft17GL2lAc
B/Df39PbHKpCAjmz5C1CHARfMlQSDIgZbskNXbQIunXo4ty6u3Tof1A9LaUUBK+l5c6etMNxeEdpqU1e
f5r2UZJW3hwffAb5/fKWL7/3i4HwZSAJAjY+lQRB+KorCYLozWNJEITzZ5IgiD48lwRB9GksCQJ2fS4J
Ana32oNSyzRNQgiv2LZdLpcty+aVwwHs280e1KLT6ZQYhFcaDQ8reqnEK4cD2ObrHtSyHMfZhvWn4jU8
rJRKOq8cDmDRj//pPOpYlFYqFcMgmqZhpdVqeV6jXq/rut7tdv9++BAAY5t/urpauq6zWCwGgwFGg2Et
lxcYFlZ6vR5Wcrnc7e1N4lS2Qch+pq0+r3zfd1yXUooL3iA4WceFQgHDwp2Fk2XbVrVaPbp3tL5bJ85m
GITRJi04DVq+j0PU7/eLxaJBjHa7HYc1Go14vVar3c/nE2czDNj3dVoQBP7uxsWhECMOK58OS1GVxNkM
w/9ZX9IwLJys2WzGw8KdFU/WcDjk9W1YipI4m2EQXr9P202W7zru77chMbRj7d3bMwzL87wH251l487C
daaoauJshkG4OkvDsOK71mw2MZHL+Zi38Dcu+Li7u4Yqb2UehB9fpGFY8V3DsHCyEl0MK+5iWKqiJroZ
BtH8aVr8NnRcB6+haVYSXQwLvw3xGuI3o6KoiW6GQfj6iSQIomlHEgTR5KEkCNjkRBIyOfkFABi4x/Kv
uJMAAAAASUVORK5CYII=
</value>
</data>
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}Style5{}FilterBar{}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style6{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;310&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 971, 310&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 971, 310&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>52</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,135 @@
Public Class FrmStatusPatrones
Dim Patron As clsComplejo = New clsComplejo 'Para llenar combo patron
Dim clCmp As clsComplejo = New clsComplejo
Dim clCmp2 As clsComplejo = New clsComplejo
Private Sub FrmStatusPatrones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If clsVaribles.lbDemo = True Then Exit Sub
Patron.sbLlenaCombo("spConProducto", Me.cmbPatron)
Me.cmbPatron.SelectedIndex = -1
End Sub
Private Sub btnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsulta.Click
sbBuscar()
End Sub
Public Sub sbBuscar()
Try
If clsVaribles.lbDemo = True Then Exit Sub
Dim SQL As String
Dim SQL2 As String
Dim Classcom As New clsComplejo
Dim Classcom2 As New clsComplejo
Dim ClassUtils As New ClassMyUtils
Dim strproducto As String
SQL = "ReporteInusualHistoricoTODOS "
clCmp = New clsComplejo
clCmp.fdtDataSetTabla(SQL)
'Classcom.fdtDataSet(SQL)
'SQL = "SELECT * FROM cat_PRODUCTO WHERE ACTIVO = 1"
'If Me.cmbPatron.Text <> "" Then
' SQL = SQL & " AND PRODUCTO = '" & Me.cmbPatron.Text.Trim & "' "
'End If
'Classcom.fdtDataSet(SQL)
'If Classcom.ds.Tables(0).Rows.Count <> 0 Then
' SQL2 = ""
' For i As Integer = 0 To Classcom.ds.Tables(0).Rows.Count - 1
' If i > 0 Then
' SQL2 = SQL2 & " UNION " & vbCrLf
' End If
' SQL2 = SQL2 & "SELECT PPatr.IdProductoPatron, PPatr.IdPatron, "
' SQL2 = SQL2 & " Patr.Patron, PPatr.Activo "
' SQL2 = SQL2 & "FROM ProductoPatron PPatr INNER JOIN Patron Patr ON PPatr.IdPatron = Patr.IdPatron "
' SQL2 = SQL2 & " INNER JOIN Cat_Producto Prod ON Prod.IdProducto = PPatr.IdProducto "
' SQL2 = SQL2 & "WHERE Patr.IdPatron NOT IN ( 105,15,19,21,25,97,104,14) "
' ''-- PPatr.Activo = 1
' If cmbPatron.SelectedIndex <> -1 Then
' SQL2 = SQL2 & "AND Prod.IdProducto = " & cmbPatron.SelectedValue & " " & vbCrLf
' End If
' Next
' 'C1TrueDBGrid1
' clCmp = New clsComplejo
' clCmp.fdtDataSetTabla(SQL2)
' Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
' clCmp.ColsGridAutosize(Me.C1TrueDBGrid1)
' 'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Style.VerticalAlignment = C1.Win.C1TrueDBGrid.AlignVertEnum.Center
' ' Me.C1TrueDBGrid1.Columns("FECHA").NumberFormat = "DD/MM/YYYY"
' 'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).FetchStyle = True
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False
' Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False
' Me.C1TrueDBGrid1.Visible = True
' Dim Cont As Integer
' Cont = clCmp.ds.Tables(0).Rows.Count
' lblNumReg.Text = "Numero de Registros : " & Cont
'End If
Catch er As Exception
MessageBox.Show(er.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpiar.Click
refrescar()
End Sub
Private Sub refrescar()
If clsVaribles.lbDemo = True Then Exit Sub
'Grid
Me.C1TrueDBGrid1.Visible = True
Me.C1TrueDBGrid1.DataSource = Nothing
Me.C1TrueDBGrid1.DataBindings.Clear()
Me.cmbPatron.SelectedIndex = -1
'etiqueta
Me.lblNumReg.Text = ""
clsVaribles.lsClienteNombre = ""
clsVaribles.lsClienteNombreT = ""
End Sub
Private Sub BntSalie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub C1TrueDBGrid1_ColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1TrueDBGrid1.ColEdit
Dim intIdProductoPatron As Integer
Dim boolStatusPatron As Boolean
Dim intStatusPatron As Integer
boolStatusPatron = e.Column.DataColumn.Value()
If boolStatusPatron = False Then
intStatusPatron = 0
Else
intStatusPatron = 1
End If
intIdProductoPatron = C1TrueDBGrid1.Columns(0).Value
'Ejecutar SP para actualizar status de Patron
clCmp2.sbModifica2("SP_Actualiza_Status_Patron " & intStatusPatron & ", " & intIdProductoPatron)
'C1TrueDBGrid1.ClearFields()
'sbBuscar()
btnConsulta.Focus()
End Sub
End Class

421
Actualizadores/MyAsignaGrupo.designer.vb generated Normal file
View File

@ -0,0 +1,421 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MyAsignaGrupo
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MyAsignaGrupo))
Me.PnPais = New System.Windows.Forms.Panel()
Me.cboCuenta = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboCliente = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.lblGrupos = New System.Windows.Forms.Label()
Me.cboGruCue = New System.Windows.Forms.ComboBox()
Me.chkActivo = New System.Windows.Forms.CheckBox()
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtCriterio = New System.Windows.Forms.TextBox()
Me.cboBuscar = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.BtnBuscar = New System.Windows.Forms.Button()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblFooter = New System.Windows.Forms.Label()
Me.PnPais.SuspendLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel3.SuspendLayout()
Me.SuspendLayout()
'
'PnPais
'
Me.PnPais.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PnPais.Controls.Add(Me.cboCuenta)
Me.PnPais.Controls.Add(Me.Label5)
Me.PnPais.Controls.Add(Me.cboCliente)
Me.PnPais.Controls.Add(Me.Label4)
Me.PnPais.Controls.Add(Me.lblGrupos)
Me.PnPais.Controls.Add(Me.cboGruCue)
Me.PnPais.Controls.Add(Me.chkActivo)
Me.PnPais.Location = New System.Drawing.Point(12, 292)
Me.PnPais.Name = "PnPais"
Me.PnPais.Size = New System.Drawing.Size(724, 100)
Me.PnPais.TabIndex = 73
'
'cboCuenta
'
Me.cboCuenta.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.cboCuenta.Enabled = False
Me.cboCuenta.Location = New System.Drawing.Point(138, 67)
Me.cboCuenta.Name = "cboCuenta"
Me.cboCuenta.Size = New System.Drawing.Size(250, 24)
Me.cboCuenta.TabIndex = 27
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label5.Location = New System.Drawing.Point(14, 68)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(41, 13)
Me.Label5.TabIndex = 29
Me.Label5.Text = "Cuenta"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cboCliente
'
Me.cboCliente.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.cboCliente.Enabled = False
Me.cboCliente.Location = New System.Drawing.Point(138, 38)
Me.cboCliente.Name = "cboCliente"
Me.cboCliente.Size = New System.Drawing.Size(578, 24)
Me.cboCliente.TabIndex = 26
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label4.Location = New System.Drawing.Point(14, 39)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 28
Me.Label4.Text = "Cliente"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblGrupos
'
Me.lblGrupos.AutoSize = True
Me.lblGrupos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGrupos.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblGrupos.Location = New System.Drawing.Point(14, 12)
Me.lblGrupos.Name = "lblGrupos"
Me.lblGrupos.Size = New System.Drawing.Size(101, 13)
Me.lblGrupos.TabIndex = 25
Me.lblGrupos.Text = "Grupo de Monitoreo"
Me.lblGrupos.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cboGruCue
'
Me.cboGruCue.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGruCue.ItemHeight = 13
Me.cboGruCue.Location = New System.Drawing.Point(138, 9)
Me.cboGruCue.Name = "cboGruCue"
Me.cboGruCue.Size = New System.Drawing.Size(250, 21)
Me.cboGruCue.TabIndex = 24
'
'chkActivo
'
Me.chkActivo.Enabled = False
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(434, 67)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 21)
Me.chkActivo.TabIndex = 5
Me.chkActivo.Text = "Activo:"
Me.chkActivo.Visible = False
'
'GridMaster
'
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridMaster.BackColor = System.Drawing.Color.White
Me.GridMaster.EditDropDown = False
Me.GridMaster.FilterBar = True
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 135)
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(724, 149)
Me.GridMaster.TabIndex = 72
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
'
'BntSalie
'
Me.BntSalie.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BntSalie.BackColor = System.Drawing.Color.Black
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.White
Me.BntSalie.Location = New System.Drawing.Point(752, 359)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 101
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.UseVisualStyleBackColor = False
'
'BtnAlta
'
Me.BtnAlta.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnAlta.BackColor = System.Drawing.Color.Black
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.White
Me.BtnAlta.Location = New System.Drawing.Point(752, 281)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 99
Me.BtnAlta.Text = "Guardar"
Me.BtnAlta.UseVisualStyleBackColor = False
'
'BtnLimpiar
'
Me.BtnLimpiar.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnLimpiar.BackColor = System.Drawing.Color.Black
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.White
Me.BtnLimpiar.Location = New System.Drawing.Point(752, 320)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 96
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.UseVisualStyleBackColor = False
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.txtCriterio)
Me.GroupBox1.Controls.Add(Me.cboBuscar)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 64)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(723, 65)
Me.GroupBox1.TabIndex = 103
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Parámetros Búsqueda"
'
'txtCriterio
'
Me.txtCriterio.Location = New System.Drawing.Point(138, 26)
Me.txtCriterio.Name = "txtCriterio"
Me.txtCriterio.Size = New System.Drawing.Size(275, 20)
Me.txtCriterio.TabIndex = 3
'
'cboBuscar
'
Me.cboBuscar.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBuscar.FormattingEnabled = True
Me.cboBuscar.Location = New System.Drawing.Point(524, 26)
Me.cboBuscar.Name = "cboBuscar"
Me.cboBuscar.Size = New System.Drawing.Size(192, 21)
Me.cboBuscar.TabIndex = 2
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(439, 31)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(59, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Buscar Por"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(11, 29)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(105, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Criterio de Búsqueda"
'
'BtnBuscar
'
Me.BtnBuscar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnBuscar.BackColor = System.Drawing.Color.Black
Me.BtnBuscar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnBuscar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnBuscar.ForeColor = System.Drawing.Color.White
Me.BtnBuscar.Location = New System.Drawing.Point(752, 83)
Me.BtnBuscar.Name = "BtnBuscar"
Me.BtnBuscar.Size = New System.Drawing.Size(106, 33)
Me.BtnBuscar.TabIndex = 104
Me.BtnBuscar.Text = "Buscar"
Me.BtnBuscar.UseVisualStyleBackColor = False
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.Label3)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(0, -3)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(878, 61)
Me.panel2.TabIndex = 160
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(758, 8)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.SystemColors.Window
Me.Label3.Location = New System.Drawing.Point(21, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(214, 22)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Asignacion de Grupos"
'
'panel3
'
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label6)
Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(0, 415)
Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(875, 33)
Me.panel3.TabIndex = 361
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.SystemColors.Window
Me.Label6.Location = New System.Drawing.Point(830, 16)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(42, 17)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Minds"
'
'lblFooter
'
Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds"
'
'MyAsignaGrupo
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(873, 448)
Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.BtnBuscar)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.BtnLimpiar)
Me.Controls.Add(Me.PnPais)
Me.Controls.Add(Me.GridMaster)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "MyAsignaGrupo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Asignacion de Grupos"
Me.PnPais.ResumeLayout(False)
Me.PnPais.PerformLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents PnPais As System.Windows.Forms.Panel
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents cboCuenta As System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents cboCliente As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents lblGrupos As System.Windows.Forms.Label
Friend WithEvents cboGruCue As System.Windows.Forms.ComboBox
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtCriterio As System.Windows.Forms.TextBox
Friend WithEvents cboBuscar As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents BtnBuscar As System.Windows.Forms.Button
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents Label3 As Label
Private WithEvents panel3 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents lblFooter As Label
End Class

View File

@ -0,0 +1,286 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style34{}Style29{}Style32{}EvenRow{BackColor:Aqua;}Normal{}Style30{}RecordSelector{AlignImage:Center;}Style37{}Style36{}Style35{}OddRow{}Style14{}Footer{}Style33{}FilterBar{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style31{}Editor{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style41{}Style40{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style39{}Style38{AlignHorz:Near;}Caption{AlignHorz:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;145&lt;/Height&gt;&lt;CaptionStyle parent="Heading" me="Style38" /&gt;&lt;EditorStyle parent="Editor" me="Style30" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style36" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style41" /&gt;&lt;FooterStyle parent="Footer" me="Style32" /&gt;&lt;GroupStyle parent="Group" me="Style40" /&gt;&lt;HeadingStyle parent="Heading" me="Style31" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style35" /&gt;&lt;InactiveStyle parent="Inactive" me="Style34" /&gt;&lt;OddRowStyle parent="OddRow" me="Style37" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style39" /&gt;&lt;SelectedStyle parent="Selected" me="Style33" /&gt;&lt;Style parent="Normal" me="Style29" /&gt;&lt;ClientRect&gt;0, 0, 720, 145&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 720, 145&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ
DQAAAk1TRnQBSQFMAgEBCAEAAbQBAAG0AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAHBwMA
FgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wBBwEA
AjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3
AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEA
AjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEA
A+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF/wHw
AQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD7AEH
AQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0BFAH/
AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQACBwEA
Cf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sBDQEU
ARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQABNwEA
BAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH/wEA
ATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwBBwEA
ATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewBFAHv
BuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4EFQFD
AQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsBAAMH
AewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8DAAUH
AQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB/wMA
BQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcBFwGS
BwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB9wIA
Af8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB/wMA
AQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkBkgEH
AgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcDBw0A
AwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwABBwEA
Af8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB7AUH
BQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C7wQH
AwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQADBwEA
Af8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL7AIH
AvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCCAAs=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,285 @@
Public Class MyAsignaGrupo
Private LlenaGrid As New LlenaGrid
Private LlenaCombo As New LlenaCombo
Dim dtGrupos As New DataTable 'Tabla de combo de Grupos de Cuentas
Dim Cuenta As clsComplejo = New clsComplejo
Dim Cliente As clsComplejo = New clsComplejo
Dim BanCliente, BanCuenta, BanPatron, BanStatus, BanProducto As Boolean
Dim blnuevo As Boolean = True
Dim blcarga As Boolean = True
Private Sub MyAsignaGrupo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
If clsVaribles.lbDemo = True Then Exit Sub
'LLENA GRID
Classcom = New clsComplejo
SQL = "spConTipoCon "
Classcom.sbLlenaCombo(SQL, Me.cboBuscar)
Classcom = New clsComplejo
'SQL = "spConParametrorango 1"
'SQL = "sp_GrupoRiesgoPorId 0"
SQL = " sp_ConsultaGruposRiesgo 0"
Classcom.sbLlenaCombo(SQL, Me.cboGruCue)
blcarga = False
End Sub
Private Sub cboCuenta_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCuenta.DropDown
If clsVaribles.lbDemo = True Then Exit Sub
Try
If Me.cboCliente.Text = "" Then
Me.cboCliente.Focus()
MessageBox.Show("Debes de seleccionar un cliente ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If BanCuenta = False Then
Dim cad As String
cad = "spLlenaComboCuenta "
cad = cad & CInt(cboCliente.SelectedValue)
Cuenta.sbLlenaCombo1(cad, Me.cboCuenta)
BanCuenta = True
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cboCliente_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCliente.DropDown
Try
If clsVaribles.lbDemo = True Then Exit Sub
If BanCliente = False Then
Cliente.sbLlenaCombo("spLlenaComboCliente", Me.cboCliente)
End If
BanCliente = True
Catch ex As Exception
End Try
End Sub
Private Sub GridMaster_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridMaster.DoubleClick
If clsVaribles.lbDemo = True Then Exit Sub
Dim Classcom As New clsComplejo
'0 Dim sql As String
'Recupero Datos del gird
Dim SQL As String = ""
Dim Fila As DataRow
' Dim Clsvar As clsVaribles
Try
Dim index = cboGruCue.Items.IndexOf(GridMaster.Columns("IDGRUPORIESGO").Value)
'Dim index As Integer = 0
cboGruCue.SelectedItem = index
cboCliente.Tag = GridMaster.Columns("IDCLIENTE").Value
cboCliente.Text = GridMaster.Columns("NOMBREORAZONS").Value & " " & GridMaster.Columns("APATERNO").Value & " " & GridMaster.Columns("AMATERNO").Value
cboCuenta.Text = GridMaster.Columns("NOCUENTA").Value
cboCuenta.Tag = GridMaster.Columns("IDCUENTA").Value
cboGruCue.SelectedValue = GridMaster.Columns("IDGRUPORIESGO").Value
'Dim index = GridMaster.Columns("IDGRUPORIESGO").Value
'SQL = "spConAsignaGrupo 4, '" & Me.GridMaster.Columns("poliza").Value & "','" & Me.GridMaster.Columns("cliente").Value + "'"
'SQL = "spConAsignaGrupo 4, " & Me.GridMaster.Columns(3).Value & "," & Me.GridMaster.Columns(1).Value
'Classcom = New clsComplejo
'Classcom.fdtDataSet(SQL)
'If Classcom.ds.Tables(0).Rows.Count <> 0 Then
' Fila = Classcom.ds.Tables(0).Rows(0)
' Me.cboCliente.Text = Fila("Nombre Cliente").ToString
' cboCuenta.Text = Fila("No. Cuenta")
' cboGruCue.SelectedValue = Fila("grupo_id")
' blnuevo = True
' PnPais.Enabled = True
' PnPais.Visible = True
' cboGruCue.Enabled = True
'End If
Catch ex As Exception
MessageBox.Show("Error al cargar Registro seleccionado" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BntSalie_Click(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub llenagrid1()
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
Dim lscriterio As String
Try
'PnPais.Visible = False
If txtCriterio.Text = "" Then
MessageBox.Show("Es necesario introducir un criterio de busqueda ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtCriterio.Focus()
Exit Sub
End If
If cboBuscar.SelectedIndex = -1 Then
MessageBox.Show("Es necesario Seleccionar un criterio de Busqueda ", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
cboBuscar.Focus()
Exit Sub
End If
Select Case cboBuscar.Text
Case "Nombre"
SQL = "sp_BusquedaCtaXCriterio " & "'" & txtCriterio.Text.Trim & "'" & ",NULL" & ",NULL"
Case "NIC Cliente"
SQL = "sp_BusquedaCtaXCriterio " & " NULL,'" & txtCriterio.Text.Trim & "'" & ", NULL"
Case "Numero de Cuenta"
SQL = "sp_BusquedaCtaXCriterio " & " NULL,NULL,'" & txtCriterio.Text.Trim & "'"
Case Else
Exit Sub
End Select
'Select Case cboBuscar.SelectedValue
' Case 1, 2, 3
' lscriterio = "'" & txtCriterio.Text & "'"
' 'Case 2, 3
' ' lscriterio = txtCriterio.Text
'End Select
'If Not IsNumeric(txtCriterio.Text) And cboBuscar.SelectedValue = 2 Then
' MessageBox.Show("El criterio para el filtro por idcliente debe ser numerico", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
' Exit Sub
'End If
'SQL = " spConAsignaGrupo " & cboBuscar.SelectedValue & "," & lscriterio
'Classcom.fdtDataTable(SQL)
'GridMaster.Splits(0). = Classcom.dt.Columns(0)
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
GridMaster.Visible = True
'txtCriterio.Text = ""
Catch ex As Exception
MessageBox.Show("Error al cargar los Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub BtnBuscar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBuscar.Click
llenagrid1()
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassAud As New ClassMyUtils
Dim varUser As Long
Dim ClassComodin As New clsComplejo
If clsVaribles.lbDemo = True Then Exit Sub
'VALIDACION DE CAMPOS
Try
If cboCuenta.Text = "" Or cboCliente.Text = "" Then
MsgBox("Debe seleccionar un registro para realizar esta operación.")
Exit Sub
End If
'Dim liAud As Integer
'clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 4,'" & Me.GridMaster.Columns("No. Cuenta").Value & "','" & Me.GridMaster.Columns("cliente").Value & "'")
'If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
' liAud = 2
'Else
' liAud = 4
'End If
'strSQLComodin = "spGrabaAsignaGrupo " & Me.cboGruCue.SelectedValue & " ,'" & Me.GridMaster.Columns("No. Cuenta").Value & "','" & Me.GridMaster.Columns("cliente").Value & "'"
strSQLComodin = "sp_ActualizarRiesgoEnCta " & cboGruCue.SelectedValue & "," & cboCliente.Tag & "," & cboCuenta.Tag
classcom = New clsComplejo
classcom.sbInserta(strSQLComodin)
'blnuevo = False
'ClassAud.RT_Auditoria(clsVaribles.varUsuario, 68, 1, clsVaribles.lsValAnt & " | Valores Nuevos: Cuenta = " & Me.GridMaster.Columns("No. Cuenta").Value & ", Cliente = " & Me.GridMaster.Columns("cliente").Value & ", Grupo Cta = " & Me.cboGruCue.Text)
''limpiar()
'auditoria
''''''ClassAud.RT_Auditoria(clsVaribles.varUsuario, 98, My.Computer.Name, "Minds Cliente", "ALTA DE PARAMETROGRUPO CLAVE = " & txtClave.Text & " NOMBRE = " & cboParamRango.Text)
'FIN AUDITORIA
llenagrid1()
MessageBox.Show("Operación Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error al grabar Datos" & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub
Private Sub limpiar()
txtCriterio.Text = ""
cboBuscar.SelectedIndex = -1
cboCliente.Text = ""
cboCuenta.Text = ""
cboGruCue.SelectedIndex = -1
chkActivo.Checked = False
blnuevo = False
'GridMaster.Visible = False
GridMaster.DataSource = Nothing
GridMaster.DataBindings.Clear()
'Me.Refresh()
PnPais.Visible = True
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
limpiar()
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
End Class

2226
Actualizadores/RazonAct.resx Normal file

File diff suppressed because it is too large Load Diff

538
Actualizadores/RazonAct.vb Normal file
View File

@ -0,0 +1,538 @@
Imports Microsoft.VisualBasic
Imports CLIENTE.clsComplejo 'permite conectarme a la base de datos y establer parametros
Imports System.Data.SqlClient 'para manejar objetos de datos SQL
Imports CLIENTE.Registro 'clase que me permite encriptar el password
Imports System.Data 'Para manejar objetos de estructuras de datos
Imports CLIENTE.clBusqueda 'para realizar busqueda en un registro
Imports CLIENTE.clOcultarColumna 'Permite ocultar columnas
Imports CLIENTE.ValidaTexto 'Permite validad las cajas de texto o combox
Public Class RazonAct
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PnPais As System.Windows.Forms.Panel
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents BtnBorrar As System.Windows.Forms.Button
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RazonAct))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PnPais = New System.Windows.Forms.Panel()
Me.chkActivo = New System.Windows.Forms.CheckBox()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.txtClave = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Button1 = New System.Windows.Forms.Button()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.BtnBorrar = New System.Windows.Forms.Button()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PnPais.SuspendLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(-2, 4)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(142, 43)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 94
Me.PictureBox1.TabStop = False
'
'PnPais
'
Me.PnPais.Controls.Add(Me.chkActivo)
Me.PnPais.Controls.Add(Me.txtNombre)
Me.PnPais.Controls.Add(Me.txtClave)
Me.PnPais.Controls.Add(Me.Label2)
Me.PnPais.Controls.Add(Me.Label1)
Me.PnPais.Location = New System.Drawing.Point(3, 196)
Me.PnPais.Name = "PnPais"
Me.PnPais.Size = New System.Drawing.Size(725, 101)
Me.PnPais.TabIndex = 89
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(17, 71)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 21)
Me.chkActivo.TabIndex = 5
Me.chkActivo.Text = "Activo:"
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(110, 46)
Me.txtNombre.MaxLength = 1000
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(478, 20)
Me.txtNombre.TabIndex = 2
'
'txtClave
'
Me.txtClave.BackColor = System.Drawing.Color.White
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(110, 14)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 1
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(16, 46)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 16)
Me.Label2.TabIndex = 36
Me.Label2.Text = "Nombre:"
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 16)
Me.Label1.TabIndex = 35
Me.Label1.Text = "Clave País:"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'GridMaster
'
Me.GridMaster.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GridMaster.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(3, 52)
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(727, 136)
Me.GridMaster.TabIndex = 88
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Button1.Image = Global.CLIENTE.My.Resources.Resources.botonPrint
Me.Button1.Location = New System.Drawing.Point(736, 189)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(106, 33)
Me.Button1.TabIndex = 113
Me.Button1.Text = "Exportar"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.White
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(736, 264)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 112
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnAlta
'
Me.BtnAlta.BackColor = System.Drawing.Color.White
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnAlta.Image = CType(resources.GetObject("BtnAlta.Image"), System.Drawing.Image)
Me.BtnAlta.Location = New System.Drawing.Point(736, 115)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 111
Me.BtnAlta.Text = "Grabar"
Me.BtnAlta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnAlta.UseVisualStyleBackColor = True
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(736, 225)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 110
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'BtnBorrar
'
Me.BtnBorrar.BackColor = System.Drawing.Color.White
Me.BtnBorrar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnBorrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnBorrar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnBorrar.Image = Global.CLIENTE.My.Resources.Resources.botonErase
Me.BtnBorrar.Location = New System.Drawing.Point(736, 152)
Me.BtnBorrar.Name = "BtnBorrar"
Me.BtnBorrar.Size = New System.Drawing.Size(106, 33)
Me.BtnBorrar.TabIndex = 114
Me.BtnBorrar.Text = "Borrar"
Me.BtnBorrar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnBorrar.UseVisualStyleBackColor = True
'
'RazonAct
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(850, 316)
Me.Controls.Add(Me.BtnBorrar)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.BtnLimpiar)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.PnPais)
Me.Controls.Add(Me.GridMaster)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "RazonAct"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Razones"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.PnPais.ResumeLayout(False)
Me.PnPais.PerformLayout()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim clCmp As clsComplejo = New clsComplejo
Dim Bandera As Boolean 'True es una modificacion, False Inserta un elemento nuevo
Dim Accion As Integer = 0 '1 Inserta, 2 Actualiza, 3 Elimina
Dim Guardar As Boolean
Dim Nuevo As Boolean
Dim desh As New clsDeshabilita()
Dim dap As SqlDataAdapter = New SqlClient.SqlDataAdapter
Dim cmd As SqlCommand
Dim das As DataSet
Dim cnn As SqlConnection
Dim _Accion As String
Dim clcmj1 As New clsComplejo
Dim clsvariables As New clsVaribles
Dim blnuevo As Boolean = True
Dim blcarga As Boolean = True
Dim sql As String
Dim liClave As Integer
Private Sub llenagrid1()
Dim SQLGRID As String = ""
Try
clcmj1 = New clsComplejo
SQLGRID = "spConRazon "
clcmj1.fdtDataSetTabla(SQLGRID)
GridMaster.SetDataBinding(clcmj1.ds, "Tabla") 'Llena el grid
ConfiguraGrid()
Catch ex As Exception
MessageBox.Show("Error al cargar usuarios " & ex.Message, "Minds", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Finally
' cnn.Close()
End Try
End Sub
Private Sub RazonAct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQLGrid As String
Dim ds1 As DataSet
Dim OcultarCol As clOcultarColumna = New clOcultarColumna()
Try
llenagrid1()
Catch ex As Exception
MessageBox.Show("Error Busqueda; sbBuscas: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub ConfiguraGrid()
'Configura el grid
Try
Me.GridMaster.Splits(0).DisplayColumns("Razon").Width = 530
Me.GridMaster.Splits(0).DisplayColumns("Activo").Width = 70
Catch ex As Exception
MessageBox.Show("Error RazonAct; ConfiguraGrid: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Limpiar()
Try
txtNombre.Text = ""
txtClave.Text = ""
chkActivo.Checked = False
liClave = 0
Catch ex As Exception
MessageBox.Show("Error RazonAct; Limpiar: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick
Dim SQLBenef As String
Dim Fila As DataRow
Dim Classcom As New clsComplejo
Try
liClave = Val(Me.GridMaster.Columns("id").Value)
SQLBenef = "spConRazon 3," & liClave
Classcom.fdtDataSet(SQLBenef)
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
'LLENA COMBOS
Fila = Classcom.ds.Tables(0).Rows(0)
txtNombre.Text = Fila("Razon")
txtClave.Text = Fila("id")
chkActivo.Checked = Fila("ACTIVO")
chkActivo.Tag = Fila("ACTIVO")
End If
Catch ex As System.ArgumentOutOfRangeException
MessageBox.Show("No existe Informacion", "MINDS Cliente", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Catch ex As System.IndexOutOfRangeException
MessageBox.Show("No existe Informacion", "MINDS Cliente", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Catch ex As Exception
MessageBox.Show("Error Busqueda; grdUsuario_DoubleClick: " & ex.Message, "MINDS Cliente", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
End Sub
Private Sub BtnAlta_Click(sender As System.Object, e As System.EventArgs) Handles BtnAlta.Click
Dim ClassAud As New ClassMyUtils
Dim lssql As String
Dim liactivo As Integer
Try
If Len(Me.txtNombre.Text.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Cliente")
Me.txtNombre.Focus()
Exit Sub
End If
If MsgBox("¿Desea guardar la Razon?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
liactivo = chkActivo.CheckState
Dim liAud As Integer
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 5," & Val(Me.txtClave.Text))
If Len(Trim(clsVaribles.lsValAnt)) = 0 Then
liAud = 2
Else
liAud = 4
End If
lssql = ""
lssql = lssql & "spGrabaRazon "
lssql = lssql & "A" & ", "
lssql = lssql & Val(Me.txtClave.Text) & ", "
lssql = lssql & "'" & Me.txtNombre.Text & "'," & liactivo
clCmp.sbGuardaModifica(lssql)
llenagrid1()
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 117, 41, clsVaribles.lsValAnt & " | Valores Nuevos: idRazon = " & Val(Me.txtClave.Text) & " Razon = " & Me.txtNombre.Text & ", Activo = " & liactivo)
Limpiar()
liClave = 0
Catch ex As Exception
MessageBox.Show("No se pudo dar de alta la Razon", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
liClave = 0
End Try
End Sub
Private Sub BtnBorrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnBorrar.Click
'elimina el rgistro seleccionado
Dim lsopcion As String
Dim ClassAud As New ClassMyUtils
Try
Dim lsSQL, lsNombre As String
lsopcion = "E"
If liClave = 0 Then
MessageBox.Show("Debes seleccionar un Registro primero ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
If MessageBox.Show("Desea eliminar la Razon: " & lsNombre, "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
'Formo el query
Dim liAud As Integer
clsVaribles.lsValAnt = ClassAud.FnObtenValAnterior("SpConValoresAnteriores 5," & Val(Me.txtClave.Text))
liAud = 3
lsSQL = ""
lsSQL = lsSQL & "spGrabaRazon "
lsSQL = lsSQL & lsopcion & ", "
lsSQL = lsSQL & liClave & ",'',0 "
clCmp.sbGuardaModifica(lsSQL)
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 117, 1, "Baja de Razon " & clsVaribles.lsValAnt)
BtnLimpiar.PerformClick()
llenagrid1()
ConfiguraGrid()
liClave = 0
'Me.btnGuardar.Enabled = False
End If
Catch ex As Exception
MessageBox.Show("No se pudo dar de baja la Razon ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
liClave = 0
End Try
End Sub
Private Sub BntSalie_Click_1(sender As System.Object, e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
clcmj1 = New clsComplejo
Dim sqlgrid As String
Dim ds As DataSet
ds = New DataSet
sqlgrid = "spConRazon"
clcmj1.fdtDataSetTabla(sqlgrid)
Try
If clcmj1.ds.Tables.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clcmj1.ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
'Dim clsExcel As aExcel = New aExcel
'clsExcel = New aExcel
''Obtenemos el nombre o el titulo del form
'clsExcel.Titulo = Me.Text
''Utilizo la funcion ExportDataset de la clase aExcel
'clsvariables.LsTituloExcel = "Catalogo Razones"
'clsExcel.ExportDataset(clcmj1.ds) 'Asigno el dataset a exportar
'clsvariables.LsTituloExcel = ""
'Creamos una copia del dataset
Dim copyDS As DataSet = clcmj1.ds.Copy()
Dim clsExcel As aExcel = New aExcel
'Obtenemos el nombre o el titulo del form
clsExcel.Titulo = Me.Text
'Utilizo la funcion ExportDataset de la clase aExcel
''clsVaribles.LsTituloExcel = "Catalogo Razones"
clsExcel.Titulo = "Catalogo Razones"
clsExcel.ExportDataset(copyDS) 'Asigno el dataset a exportar
clsVaribles.LsTituloExcel = ""
'End If
End If
End If
Catch ex As Exception
clsvariables.LsTituloExcel = ""
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub BtnLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpiar.Click
Limpiar()
End Sub
End Class

324
Actualizadores/frmAsocCuentas.Designer.vb generated Normal file
View File

@ -0,0 +1,324 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAsocCuentas
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAsocCuentas))
Me.BtnBuscar = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtCriterio = New System.Windows.Forms.TextBox()
Me.cboBuscar = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnAlta = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnCuentaNva = New System.Windows.Forms.Button()
Me.DataGridView2 = New System.Windows.Forms.DataGridView()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'BtnBuscar
'
Me.BtnBuscar.BackColor = System.Drawing.Color.Ivory
Me.BtnBuscar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnBuscar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnBuscar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnBuscar.Image = Global.CLIENTE.My.Resources.Resources.botonFind
Me.BtnBuscar.Location = New System.Drawing.Point(765, 72)
Me.BtnBuscar.Name = "BtnBuscar"
Me.BtnBuscar.Size = New System.Drawing.Size(106, 33)
Me.BtnBuscar.TabIndex = 112
Me.BtnBuscar.Text = "Buscar"
Me.BtnBuscar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnBuscar.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtCriterio)
Me.GroupBox1.Controls.Add(Me.cboBuscar)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(25, 53)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(723, 52)
Me.GroupBox1.TabIndex = 111
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Asosiaciones Existentes"
'
'txtCriterio
'
Me.txtCriterio.Location = New System.Drawing.Point(138, 16)
Me.txtCriterio.Name = "txtCriterio"
Me.txtCriterio.Size = New System.Drawing.Size(275, 20)
Me.txtCriterio.TabIndex = 3
'
'cboBuscar
'
Me.cboBuscar.FormattingEnabled = True
Me.cboBuscar.Items.AddRange(New Object() {"Por Nombre", "Por Cuenta", "Por Grupo"})
Me.cboBuscar.Location = New System.Drawing.Point(524, 19)
Me.cboBuscar.Name = "cboBuscar"
Me.cboBuscar.Size = New System.Drawing.Size(192, 21)
Me.cboBuscar.TabIndex = 2
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(439, 21)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(62, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Buscar Por:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(11, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(111, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Criterio de Busqueda: "
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(18, 8)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(122, 38)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 110
Me.PictureBox1.TabStop = False
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.Ivory
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(765, 403)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 109
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnAlta
'
Me.BtnAlta.BackColor = System.Drawing.Color.Ivory
Me.BtnAlta.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnAlta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnAlta.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnAlta.Image = CType(resources.GetObject("BtnAlta.Image"), System.Drawing.Image)
Me.BtnAlta.Location = New System.Drawing.Point(763, 324)
Me.BtnAlta.Name = "BtnAlta"
Me.BtnAlta.Size = New System.Drawing.Size(106, 33)
Me.BtnAlta.TabIndex = 108
Me.BtnAlta.Text = "Grabar"
Me.BtnAlta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnAlta.UseVisualStyleBackColor = True
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.Ivory
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(765, 364)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 107
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button1)
Me.GroupBox2.Controls.Add(Me.TextBox3)
Me.GroupBox2.Controls.Add(Me.Label5)
Me.GroupBox2.Controls.Add(Me.TextBox2)
Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.DataGridView1)
Me.GroupBox2.Controls.Add(Me.TextBox1)
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Location = New System.Drawing.Point(25, 223)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(723, 213)
Me.GroupBox2.TabIndex = 113
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Cuentas Asociadas a la selección"
'
'Button1
'
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
Me.Button1.Location = New System.Drawing.Point(611, 180)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(106, 22)
Me.Button1.TabIndex = 11
Me.Button1.Text = "Agregar Cuenta"
Me.Button1.UseVisualStyleBackColor = True
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(583, 19)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(126, 20)
Me.TextBox3.TabIndex = 10
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(530, 22)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(39, 13)
Me.Label5.TabIndex = 9
Me.Label5.Text = "Grupo:"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(398, 19)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(126, 20)
Me.TextBox2.TabIndex = 8
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(345, 22)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(44, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Cuenta:"
'
'DataGridView1
'
Me.DataGridView1.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.GridColor = System.Drawing.SystemColors.ControlDarkDark
Me.DataGridView1.Location = New System.Drawing.Point(6, 45)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(711, 129)
Me.DataGridView1.TabIndex = 6
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(64, 19)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(275, 20)
Me.TextBox1.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(11, 22)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(47, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Nombre:"
'
'btnCuentaNva
'
Me.btnCuentaNva.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
Me.btnCuentaNva.Location = New System.Drawing.Point(763, 231)
Me.btnCuentaNva.Name = "btnCuentaNva"
Me.btnCuentaNva.Size = New System.Drawing.Size(106, 40)
Me.btnCuentaNva.TabIndex = 9
Me.btnCuentaNva.Text = "Asociar Nueva Cuenta"
Me.btnCuentaNva.UseVisualStyleBackColor = True
'
'DataGridView2
'
Me.DataGridView2.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView2.GridColor = System.Drawing.SystemColors.ControlDarkDark
Me.DataGridView2.Location = New System.Drawing.Point(25, 107)
Me.DataGridView2.Name = "DataGridView2"
Me.DataGridView2.Size = New System.Drawing.Size(723, 110)
Me.DataGridView2.TabIndex = 12
'
'frmAsocCuentas
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(881, 448)
Me.Controls.Add(Me.DataGridView2)
Me.Controls.Add(Me.btnCuentaNva)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.BtnBuscar)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnAlta)
Me.Controls.Add(Me.BtnLimpiar)
Me.Name = "frmAsocCuentas"
Me.Text = "Asociación de Cuentas"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents BtnBuscar As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtCriterio As System.Windows.Forms.TextBox
Friend WithEvents cboBuscar As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnAlta As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Friend WithEvents btnCuentaNva As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView
End Class

View File

@ -0,0 +1,756 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.ErrorImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
/9j/4AAQSkZJRgABAQEASABIAAD/4RmCRXhpZgAATU0AKgAAAAgACAESAAMAAAABAAEAAAEaAAUAAAAB
AAAIegEbAAUAAAABAAAIggEoAAMAAAABAAIAAAExAAIAAAAvAAAIigEyAAIAAAAUAAAIuodpAAQAAAAB
AAAIzuocAAcAAAgMAAAAbgAAETIc6gAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABIAAAAAQAAAEgAAAABAABNaWNy
b3NvZnQgV2luZG93cyBQaG90byBHYWxsZXJ5IDYuMC42MDAxLjE4MDAwAAAyMDExOjA0OjI2IDEzOjAw
OjM2AAAEoAIABAAAAAEAAACjoAMABAAAAAEAAAAvpCAAAgAAACEAABEQ6hwABwAACAwAAAkEAAAAABzq
AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAOTY2OUM0NTdDRDZDNDAzM0EyMEFDRjg0NzQ2MDZFMUIAAAAGAQMAAwAA
AAEABgAAARoABQAAAAEAABGAARsABQAAAAEAABGIASgAAwAAAAEAAgAAAgEABAAAAAEAABGQAgIABAAA
AAEAAAfpAAAAAAAAAAAAAAABAAAAAAAAAAH/2P/bAEMACAYGBwYFCAcHBwkJCAoMFA0MCwsMGRITDxQd
Gh8eHRocHCAkLicgIiwjHBwoNyksMDE0NDQfJzk9ODI8LjM0Mv/bAEMBCQkJDAsMGA0NGDIhHCEyMjIy
MjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMv/AABEIABwAYAMBIQAC
EQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0B
AgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVG
R0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3
uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAA
AAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGh
scEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1
dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri
4+Tl5ufo6ery8/T19vf4+fr/2gAMAwEAAhEDEQA/APfz0ri9J8R6hNqmoWszJJHAkroSuCNp4HFcGLxE
6VSmo9WzuwmHhVp1HLolYt+ENavdYe9a7dSE2bFVQAuc11HQVeBrSrUI1J7v/MjH0YUcRKnDZW/I5J/H
KXuo3Nh4e0u41ma1O2eWJ0jhjb+7vY8njsDVOL4jC01620bX9DvNJubpgkDsyyxuScD5l9yBxnGecV6i
w99L+92PPdXrbQveMPHEXg1YZbzS7ye1lO1Z4ChUPz8pBIIOBn0rZ0LXbTxFotvqtgxaGZchW4ZSOCp9
weKiVFqmql9GNVE5uJl2fiy4u/EkuiNoN7DPCiyyyPJGUWMkgNkMc5wcDrxWXr3xMg8O67HpF7ol+bmX
b5HltGwlDMVUj5u5GOcVpDD80uVS6XJlV5VdoTUviZDoUkA1zw9q+nxTHaszpG6+/wB1j+XWunh160ub
q1it8zR3MQljmTBUqQSP0H+cHEzoOKUk7pjjUTdupga5peuyavK9hfMlvJgqpuCu045GKyvOk8IXJWWN
Lq+uE3SszHaqkngHqSSOT9K+VxEatCrKvN3Sei9T6jDzo16UcPBcsmtXbt/wRYNE1P7Ot7o90Yba5G7Y
ZijL7H1xzzV/XJ9S0D4YatdT3TvfCJtsgkLFCxCDB9s5+tdmVYarHERvL3HsvU5MzxNGdF2j799XbsZn
wOiVPA9w4HzSXzkn6Kg/pXYan/YF7eWkl9dWZm0+486IPMoKSAFeefc8eoHpX0Ffm9vLl3PBpW9mrmJ8
QbK11i28P2dwBLaXWqRo21vvKY35BFcF4dv7v4UeNptB1Vy2jXrho5zwBnhZP/ZWHtntztQ9+k6T66r5
EVPdmpnpViQfiZq5ByDpdrgj/rpNXnHxV/5K14b/AN22/wDR7UsN/F+X6BV+D5mx8Y9YsNT0a00HT5lv
dUkvFdbe3PmOu1WByBnB5xjr19K73wfpU+i+EtL066x9oggVZMHOG6kZ9s4/Cs6l40Ixe92yoq9VszNY
8IXWrapLeG/RFbAVTGTtAH1rF0RLe6u7vT9Uj+1R2iO8TEkFdpwQDnOD6V8pXwrpYhOo7xm3p+J9TQxa
q4ZqmuWUErP8CHS9KuvFUk8hu1hWHaFTaSqqc4CjPAGK6G+8KXM/gLUtANwk0s0b+S2NoDfeUH/gQroy
ijNVFinLfp8zDNq8OR4RR2tr8jjPg3rlrpdnqHhvU5RZ6hFdGRYpzsLZUAgZ7gr096zvG0en3Xxu0GON
LaVJGtxOqhWDMZG+96nGOvbFfWWaxE5dGmfMXTpJeZ6B44urW1uvC6yzRRAavEQGYLgBHGfpyKseOfCF
t4z8PvbfIt5GPMtJ/wC63oT/AHT0P59q5IzdPkmbySkpROI+DlxqT63rFpq28XVhbQ2mxx8yKjyYU+uM
kfTFZfxUniPxY8PnzUxGtt5h3D5P37Hn045rsil9ZfLtb9DnbfsVfv8Aqe022nafBK9xa2dtHJISzSRx
qC2eckgc1crzG29zsSS2E7Vz+leH7KKSe7/etLcB1fc3ADHkDFctahCpODl0udNGvOlCSj1sTaJo9to9
1dx2pk2OEJDnOOvTitO8ma3tZJUALKBjPTrVYWjGnTVOOwsTVlVqOpLd/wCRyuowadq8ok1HR9Ou5FGA
81uGYD0yaNPttN0p/MsNG0y1kx9+G3Ct+Y5r0feS5buxwu172FvodO1O4+0X+jaZdTYC+ZPbB2wOgye3
Jq7baibG2jtrW1toIIxhI449qqPQAHik4XXK3oO9ncZHerDdzXkdnaJczACWVYsM4HTJzk4rOk0zRZZX
kk8O6O8jsWZms1JYnqSfWhJp3TYnZ6NGnZ3/ANgtktrO0tbeBPuxxR7VXJ7AGr1nqs9xdpE6xhWJzgHP
TPrUSgtylJ6I/9kA/+0ctlBob3Rvc2hvcCAzLjAAOEJJTQQlAAAAAAAQAAAAAAAAAAAAAAAAAAAAADhC
SU0EOgAAAAAAkwAAABAAAAABAAAAAAALcHJpbnRPdXRwdXQAAAAFAAAAAENsclNlbnVtAAAAAENsclMA
AAAAUkdCQwAAAABJbnRlZW51bQAAAABJbnRlAAAAAENscm0AAAAATXBCbGJvb2wBAAAAD3ByaW50U2l4
dGVlbkJpdGJvb2wAAAAAC3ByaW50ZXJOYW1lVEVYVAAAAAEAAAA4QklNBDsAAAAAAbIAAAAQAAAAAQAA
AAAAEnByaW50T3V0cHV0T3B0aW9ucwAAABIAAAAAQ3B0bmJvb2wAAAAAAENsYnJib29sAAAAAABSZ3NN
Ym9vbAAAAAAAQ3JuQ2Jvb2wAAAAAAENudENib29sAAAAAABMYmxzYm9vbAAAAAAATmd0dmJvb2wAAAAA
AEVtbERib29sAAAAAABJbnRyYm9vbAAAAAAAQmNrZ09iamMAAAABAAAAAAAAUkdCQwAAAAMAAAAAUmQg
IGRvdWJAb+AAAAAAAAAAAABHcm4gZG91YkBv4AAAAAAAAAAAAEJsICBkb3ViQG/gAAAAAAAAAAAAQnJk
VFVudEYjUmx0AAAAAAAAAAAAAAAAQmxkIFVudEYjUmx0AAAAAAAAAAAAAAAAUnNsdFVudEYjUHhsQFIA
AAAAAAAAAAAKdmVjdG9yRGF0YWJvb2wBAAAAAFBnUHNlbnVtAAAAAFBnUHMAAAAAUGdQQwAAAABMZWZ0
VW50RiNSbHQAAAAAAAAAAAAAAABUb3AgVW50RiNSbHQAAAAAAAAAAAAAAABTY2wgVW50RiNQcmNAWQAA
AAAAADhCSU0D7QAAAAAAEABIAAAAAQACAEgAAAABAAI4QklNBCYAAAAAAA4AAAAAAAAAAAAAP4AAADhC
SU0EDQAAAAAABAAAAHg4QklNBBkAAAAAAAQAAAAeOEJJTQPzAAAAAAAJAAAAAAAAAAABADhCSU0nEAAA
AAAACgABAAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmAAEAoZmaAAYAAAAA
AAEAMgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklNA/gAAAAAAHAAAP//////////
//////////////////8D6AAAAAD/////////////////////////////A+gAAAAA////////////////
/////////////wPoAAAAAP////////////////////////////8D6AAAOEJJTQQAAAAAAAACAAA4QklN
BAIAAAAAAAQAAAAAOEJJTQQwAAAAAAACAQE4QklNBC0AAAAAAAYAAQAAAAM4QklNBAgAAAAAABAAAAAB
AAACQAAAAkAAAAAAOEJJTQQeAAAAAAAEAAAAADhCSU0EGgAAAAADSQAAAAYAAAAAAAAAAAAAAG4AAADI
AAAACgBVAG4AdABpAHQAbABlAGQALQAxAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAADI
AAAAbgAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABAAAAABAAAAAAAAbnVsbAAAAAIA
AAAGYm91bmRzT2JqYwAAAAEAAAAAAABSY3QxAAAABAAAAABUb3AgbG9uZwAAAAAAAAAATGVmdGxvbmcA
AAAAAAAAAEJ0b21sb25nAAAAbgAAAABSZ2h0bG9uZwAAAMgAAAAGc2xpY2VzVmxMcwAAAAFPYmpjAAAA
AQAAAAAABXNsaWNlAAAAEgAAAAdzbGljZUlEbG9uZwAAAAAAAAAHZ3JvdXBJRGxvbmcAAAAAAAAABm9y
aWdpbmVudW0AAAAMRVNsaWNlT3JpZ2luAAAADWF1dG9HZW5lcmF0ZWQAAAAAVHlwZWVudW0AAAAKRVNs
aWNlVHlwZQAAAABJbWcgAAAABmJvdW5kc09iamMAAAABAAAAAAAAUmN0MQAAAAQAAAAAVG9wIGxvbmcA
AAAAAAAAAExlZnRsb25nAAAAAAAAAABCdG9tbG9uZwAAAG4AAAAAUmdodGxvbmcAAADIAAAAA3VybFRF
WFQAAAABAAAAAAAAbnVsbFRFWFQAAAABAAAAAAAATXNnZVRFWFQAAAABAAAAAAAGYWx0VGFnVEVYVAAA
AAEAAAAAAA5jZWxsVGV4dElzSFRNTGJvb2wBAAAACGNlbGxUZXh0VEVYVAAAAAEAAAAAAAlob3J6QWxp
Z25lbnVtAAAAD0VTbGljZUhvcnpBbGlnbgAAAAdkZWZhdWx0AAAACXZlcnRBbGlnbmVudW0AAAAPRVNs
aWNlVmVydEFsaWduAAAAB2RlZmF1bHQAAAALYmdDb2xvclR5cGVlbnVtAAAAEUVTbGljZUJHQ29sb3JU
eXBlAAAAAE5vbmUAAAAJdG9wT3V0c2V0bG9uZwAAAAAAAAAKbGVmdE91dHNldGxvbmcAAAAAAAAADGJv
dHRvbU91dHNldGxvbmcAAAAAAAAAC3JpZ2h0T3V0c2V0bG9uZwAAAAAAOEJJTQQoAAAAAAAMAAAAAj/w
AAAAAAAAOEJJTQQUAAAAAAAEAAAAAzhCSU0EDAAAAAAUbwAAAAEAAACgAAAAWAAAAeAAAKUAAAAUUwAY
AAH/2P/tAAxBZG9iZV9DTQAB/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8V
GBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQU
Dg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAWACgAwEi
AAIRAQMRAf/dAAQACv/EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAA
AAAAAQACAwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVS
wWIzNHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV
5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFRYXEiEwUy
gZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8rOEw9N14/NGlKSF
tJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQACEQMRAD8AtJJKxg4GRn5AooEn
l7zw0fvOXJQhKchGI4pS0AD185xhEzmRGMRZJa/eBqTwBytDE6D1PKgtpNbDw9+n/RXVdM6Hh9PYC1vq
XH6VrtTP8n91aK18HwiIAOaRJ/chpH/GcfP8YkSRgiAP356y/wAT9F5Jv1PzCJdexp8Ns/8AflL/AJnZ
X/cln+Yf/Jrq0lb/ANG8p/mv+dk/79qf6T5z/O/8zH/3jyn/ADOyv+5LP8w/+TS/5nZX/cln+Yf/ACa6
tJL/AEdyn+a/52T/AL9X+k+c/wA7/wAzH/3jyn/M7K/7ks/zD/5NL/mdlf8Acln+Yf8Aya6tJL/R3Kf5
r/nZP+/V/pPnP87/AMzH/wB48p/zOyv+5LP8w/8Ak0v+Z2V/3JZ/mH/ya6tJL/R3Kf5r/nZP+/V/pPnP
87/zMf8A3jyn/M7K/wC5LP8AMP8A5NL/AJnZX/cln+Yf/Jrq0kv9Hcp/mv8AnZP+/V/pPnP87/zMf/eP
Kf8AM7K/7ks/zD/5NRd9UMwCW3scfDbH/fl1qSH+jeU/zX/Oyf8AfK/0nzn+d/5mP/vHg8vofU8SS6kv
rH57Nf8AohUPLuOQvS1mdU6Dh9QaXAelePo2N/7+PzlVz/CI0ThkQf3J7fSbbwfGJWBniCP34b/4UHh0
kbMw8jCvdj5Ddrxwezh+81BWPOEoSMZDhlHQguzGUZxEokSjIWCH/9C5VW+2xlVYl9hDWjzK7zpXTaun
YramCXnWx/cuXPfVLDF2ZZlPEtoEM/rO/wDItXXLM+FcuI4/eI9WT5fCA/751Pi3MGWX2QfTjoy/rZJf
97FSz83rmBg5YxcourLmB4s2ksgktg7Nzm/R/dU7Os9KrsdXZl1Mewlr2lwBBHIK5b60ZeNk57bce1tt
YpAL2GQCHPO3RT85zXtYuLHKMpiQHDfEw8lyZy5eHLCcYGJPFXD/AHfU9VldW6fiU1333BtdwmoiXF4j
d7GsDt3Kn0/Oq6hjDJpDm1uLg3eIPtO2Y18Fzn1hotr6X0re0t9JgrfPZxrb7f8AwN6ufV3qXT8bpNVV
+TVVYHPJY9wBEucR7Smw5uR5k4p8MICAnr6fVLg/e/vLp8nAcqMuPinkOQw09Q4Imf6Mf7sXoEkDGzsP
LLhjXMu2Rv2ODon6O7auK+uH1v6k7rVP1W+r9jacu6xlORmEbix1uvp16Oa30qT619v9iv8ASrQxR90+
ggjfi/RoOfO4aSBiex0Or3iS5Yf4uuh21D7fdmZ2URD8u3Jt3k/vBrXitv8AV2Lm/wBl/WX6qfWvpuB0
zNuy+n9Stiqq95ez02e/LrvY6W120UfpmZFDK/U/6CfHFCViM/UAT6hwg14rTIjeP2PpqSxPrd0xud0b
ItbkX4mRh1WXUXY9r6yC1u/bY2tzW21v2fn/APW15l9Ufrn1DpPVqrepZV9/T8gNZlNve+z02uh1WXX6
jnO/Rfn7P5zH/sI48ByQlKJ1j+iiWQRIB69X2hJV8rFxuoYjqLS51FwB3VPdWSJD2uZdQ6uxvH5j1xv1
f6E0/W3rOJkZ+dk43Sjivxqbcm0jdew5P6XbY31vSdXsra/8z+d9RMjAESJNcIvb/BXE1Xi90kuD/wAZ
2KcHAr6thZOVjZV2Syq0VZFra3NLH/4Ftnpsc30m/wA01io/UfoNn1g6RbnZvV+qMtbkPpa2nLe1u1gY
Qff6jt3vTxhHt+4ZULrbqt4/Vw1ru+lJLyHrHUfrL9S/rA7Gp6nfnY7WtvqrynmxtlTif0dos3bLN9b6
/Vo9P/Sf8GvQfRzupZGJ1XFuczFvqqtqaXFuxrg212+oe2zcz/tz1f0mz0K0p4OERlxAxkLjJQyWSK1B
1De6x0uvqOKWHS1mtT+4P/mS4RzXMe5jxD2EtcPAhelLjfrVhijqAvYIbktk/wBZujli/FuXEsYzAeqF
CXjA7f4snY+EcwY5DgJ9M7lDwnHf/Gi//9Hu/qpUG9KD41se4k+MFbSyfqx/yNT8XflWsouWFYMQ/wBX
D/os3NG+YzH/AFk/+m851j6t35nUH5WPbVW21rS9r5ncBs3e3+SGqs/oA6Vi2dSyntyX44DqqGgisvkN
rda76djGPdv2JutdH6zn9TuyG426oQykmxg9jRzG789+9yz93UOjXehksmqxk3YjnB7LKzLXfRLmss9v
sesnN7ccs5y5ecLkeHNLi4OM/Lk9vhdjB7ssWOEeZhOox4sEeD3OAfNi9yMuOPp9HEmo6vmZt7MPqLhk
42U9tT2bQ0tLjFdtLmDc19b/AHK3d9Tslr/0OTW5nY2NId89ntcnz8TpnR8erPwd1mRkR9kNrt7aw5u4
3tYfpbK/oeos2rpPV+o1jLZW7IbYTFr7GyYO1303fvBNlEj9XmhLms3zjglK4Yz/AF/UvjIEe5hyR5TD
8p9yEIxnl8MfFGMf+7/wHqug9Kd0zEdXY5r7bXl73smI+ixon91oXk/1WvfmfX7FyrdX35mRc74lt7l6
l9WcTqGFi242ZV6TWv30nc12jh72+wu27X/9WvLMVrfq99fa2ZP6OrDzy1znaAU3bm1XOP7no5DLF0Xw
sD7vKIgcZ9vSEvmj81vP/ECfvBJmMnr/AJyPyyv5flfanvZWxz3uDWNBc5zjAAGpc4lVD1Ho73MtOTjO
cwE1vNjCQHD3Fjt3t3NVxzWuaWuAc1wgg6gg9ivFsvpvT2/4xvsDcWpuGeo1V/ZgwCvY4VudX6f0fTc4
/wA39BHBiGTiskcI4tGOcuGvEvrPWLarvq/n20vbZU/Eucx7CHNINb/c1zfa5cL1H6pv619R+j9Twml/
U8LBqbsGpuoDZ+zx/pavp43/AGz/AIVd11mqun6v51VTG1114lzWMaA1rQK3BrWtb7WtVb6l/wDiS6R/
4Uq/6kJQmYR4o9J/sVKIkSD1Dyf+LH62h7GfV7NsJLWz021xmWAbnYbnH86lvux/+B/Rf4Bb/Qf/ABa/
Wn4dP/8APFi5L/GL9VrOlZo+sPTN1WNdY195r0NGTumvJrc3+brvt/7byv8Aj1s/4t+qX9Y6p1zqWS1r
b724TbAz6JNdd1O8fu+ps37FNkjEwnmh8s41Ifuz44LIyIkIS3B0P70aTf42v/E3j/8Ah2r/AKi5B/xY
5uHhfVa63Mvrxqzm3APte1jZ21u+lYWov+Nr/wATeP8A+Hav+ouQP8WvTen9R+qttPUMarLqbn2vay5j
XtDg2tu8NeHe7a5AV91F7cfRX+W+jzn1nuf9dvraMfoLftFdVTMYZAB9MNDn2XZVr/8AB0V+rtZ/ptn6
H+cXrWFi14eHRh1Sa8atlTCedrGits/5qWLh4mHV6OJRXj1c+nUxrGz/AFaw1qMocuXjEYgVGA07/VfG
FEnrJSwfrfWD0+uzuy0Cf6y3lifW7/kof8az8qp82L5fL/ck2+TNczh/vx/N/9Lvfqq8O6SxvdjnD8Vs
LlPqhlhmRdiOMeqN7PiNHLq1W5LIJ8tiI6RED54/Q2eexnHzOUHrIzHlk9alyX1nxcrJ6sxmNS+53oNn
Y0kD3P8ApO+gz+0utSTuZ5cZ8ftkmIsHTwW8rzB5fJ7giJGjGj4vMdb6bn2dN6a2uh1j8avbc1kOLTsr
b9EH3+5v+DWl9WGub0alrgWuDrAWuBBB3v5aVqpJsOVjDOcwkbMBjMT/AFeH/vF+TnJZMAwGI0mcgkP6
3HKv/HFLmvrV9TekfWQNust+y51bdjMlkOlv+ivqd7bq9f3q7P8AhF0qwulW9C6s57sXptZx2usYMg1V
wX1P9G6qyv8AnqLd36Stl1f6Sr9IrmMyieKJI4eoacqOhF25HT+kfX7pdLcTH6xg5WLWNtRyq3l7Wjhs
sO923/hLrEHp3+L1zetM651Xq/2rLbeMlzaq21h1jTLdznOt/Re3ZsZXV7FvdQd0XBzsbBPTK7bsuu6y
otrpDIoDX3Nsfbs2O22M9NXG9P6N9mGTbg0UM2eo8W1VtLBG93q6bW+n+epDlkNR6eMbxjG5LeEHQ613
KD6w4nUupYTsLp2dThMvY+vIsfX6ry1w27af0tTK/bv3uc2z/g1V+rPSusdFoqwcnqdGbgUM2VN9E12s
A/m2Nu9d7H1t/wCEq3/y0TAd0nqDce+jo4+xZYJpyXU1AbQN9dtlR/TV05Df5h+z9z1PT9RE6qOh9Lbj
Ot6dXb9ryK8SsV01mLLjtrc/fs/R7vpuTbNe336cMbvzT/WdLKqw8zGtxckMtovaa7a3HRzXDa5q5/6o
fVOv6sXZ5ZmjJpyzX6LXNDXsbX6u0Wv3uba/bbt37K1p42J0m/IyqP2bUw4j2sL3VV7XlzG3TXtl3tZY
z6azuq9S+rnSsm+nL6Y0VYtdN9+Q2mpzW132OxarNg/TP2XMf6uyr6CUeKjCJNSq40P8FR6SIGnVD9bP
q31T6yAYx6nj4vT6rBbVSKS+wuDdm6643t3bd9mz0660vqr9W+rfVxv2VnU8bJwLLTbbU6gteC4Q403N
yDt3bWfzldi2szD6Bg4l2ZlYuNVj47HWWvNTTDWjc4w1hc7+yqOPd0R+ZjYWT0pmHdnVOuxG3VVe8MAd
bSdm/wBPJqrd6llL/wAz/riInIw4B8g6cMVUOK+vm7nq1/vt+8JxZWTAcJPmFkdTb0Ppxxq34FD7s230
Mdnp1tDn7X27XW2BtbNza/Z/pLP0at43T+mOrqyG4FVFhDbGtdUxtjHEbtrtm7bbX/Jeo6FXrqus3TeW
F9b3gdNYzu61v4LdXI/W3LFuZXjNMihsv/rO/wDMVT5/IIctkJ/SHAPObc+H4zPmsYH6J4z5Q9T/AP/T
vY2RZjZFeRV9Op24efi3+0u/wcynNxmZFRlrxqPA92rzxXuk9Wv6bfuZ76X/AM7V4/ym/wAtc/8ADudG
CRhP+bmd/wByX73/AHz0PxHkjniJw/nYDb/OQ/d/7x71JVsHqGLnVC3HeHeLe4Pg5qsrfBBAINg7EPPk
EEgggjQg7qSSSRQpYvS+gWYnVrerXWsORdQMe8UM9Jl7mv8AUbm5VW5zHZe39F/27/xdW0kiJEAgdd0U
43Wugu6n1DDyy6l1WHXfWca+r1G2faGsrfuO9uz021/urQdifaMB2HnOGR61RqySBsDw9uy3axp/Rtdu
/fVlJEyNAfu7Koanu4XT+g9SxLOm1u6i52J0pr6m1tBaciss9HFZmNDvT34f+lb/AD3+jqVzrnST1TGp
ZXYKcjFyKsvHe5u5vqUu9Rrbaw5m+t/uY73rRSS45WD1CqFU1MHEtoN917mvvyXiyzYCGiGspYxm6Xe1
lf0lldX+q9nUuo29QGSKLhVjtw3tr3OqtxrbMqq50v2X12PufXdjuZ/NroEkhOQNg6qoVTT6j02rqvSr
+m5v0Mqo1Wur0guH06t276D/AH171Sp6JlW5/T87qeQ3It6XXYyg1sNe+y1optyrm7nNa70W7W0V+xnq
Wf8AB+nspJCZAofyvdVBzeudKf1XG+yu9GzGsa9l9GRXva7cP0VrHNcyyq7Hf769n/gdnp2128HGOJhY
+IbXXnHqZUbrDL37GhnqWH9+zbuejqpn9TxOn1Gy94B/NYPpE+ACbKdR9RAjHWzoujEylUQZSloANSv1
HPqwMV+RaeNGt7l35rVwN1tl9z7rDL7HFzj8VZ6n1PI6lf6lvtrb/NV9mj/yaprnviHODPIRh/Nw2/ry
/e/716H4dyR5eBlP+dnv/Uj+5/37/9S0kvIElyD2L7FTddQ/1KHurf8AvNMLXxfrX1CkBt7W5DR3+i78
PavBklc5T75/4H4uH/xr/n/q2nzf3L/wRwcX/jv/AI3+sfoZv1yrj3Yr58nNT/8APKn/ALi2f5zV88JL
RH+k/wCp/wA1zv8Agr+v/wA9+h/+eVP/AHFs/wA5qX/PKn/uLZ/nNXzwkl/wn/q/wV/wX/X/AOe/Q/8A
zyp/7i2f5zUv+eVP/cWz/OavnhJL/hP/AFf4K/4L/r/89+h/+eVP/cWz/Oal/wA8qf8AuLZ/nNXzwkl/
wn/q/wAFf8F/1/8Anv0P/wA8qf8AuLZ/nNS/55U/9xbP85q+eEkv+E/9X+Cv+C/6/wDz36H/AOeVP/cW
z/Oamd9cq49uK+fNw/gvnlJI/wCk/wCp/wA1Q/0V/X/577xl/WrqN0toDcdp7j3O+8rItttuf6lz3WPP
5zjJXjySzeb++X/SOKr/AOp/8z9W6XKfc6/o/Bdf9V+vH+tfX0l5Akqjbf/ZADhCSU0EIQAAAAAAVQAA
AAEBAAAADwBBAGQAbwBiAGUAIABQAGgAbwB0AG8AcwBoAG8AcAAAABMAQQBkAG8AYgBlACAAUABoAG8A
dABvAHMAaABvAHAAIABDAFMANQAAAAEAOEJJTQQGAAAAAAAHAAgAAAABAQD/4Q62aHR0cDovL25zLmFk
b2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVnaW49Iu+7vyIgaWQ9Ilc1TTBNcENlaGlIenJlU3pO
VGN6a2M5ZCI/Pg0KPHg6eG1wbWV0YSB4bWxuczp4PSJhZG9iZTpuczptZXRhLyIgeDp4bXB0az0iQWRv
YmUgWE1QIENvcmUgNS4wLWMwNjAgNjEuMTM0Nzc3LCAyMDEwLzAyLzEyLTE3OjMyOjAwICAgICAgICAi
Pg0KCTxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDovL3d3dy53My5vcmcvMTk5OS8wMi8yMi1yZGYtc3lu
dGF4LW5zIyI+DQoJCTxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSIiIHhtbG5zOnhtcD0iaHR0cDov
L25zLmFkb2JlLmNvbS94YXAvMS4wLyIgeG1sbnM6eG1wTU09Imh0dHA6Ly9ucy5hZG9iZS5jb20veGFw
LzEuMC9tbS8iIHhtbG5zOnN0RXZ0PSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvc1R5cGUvUmVz
b3VyY2VFdmVudCMiIHhtbG5zOnBob3Rvc2hvcD0iaHR0cDovL25zLmFkb2JlLmNvbS9waG90b3Nob3Av
MS4wLyIgeG1sbnM6ZGM9Imh0dHA6Ly9wdXJsLm9yZy9kYy9lbGVtZW50cy8xLjEvIiB4bXA6Q3JlYXRv
clRvb2w9Ik1pY3Jvc29mdCBXaW5kb3dzIFBob3RvIEdhbGxlcnkgNi4wLjYwMDEuMTgwMDAiIHhtcDpD
cmVhdGVEYXRlPSIyMDEwLTEyLTI5VDE0OjE5OjA4LTA2OjAwIiB4bXA6TWV0YWRhdGFEYXRlPSIyMDEw
LTEyLTI5VDE0OjE5OjA4LTA2OjAwIiB4bXA6TW9kaWZ5RGF0ZT0iMjAxMC0xMi0yOVQxNDoxOTowOC0w
NjowMCIgeG1wTU06SW5zdGFuY2VJRD0ieG1wLmlpZDowMjgwMTE3NDA3MjA2ODExQUNBRjhDQUE0OTkx
NTI2MSIgeG1wTU06RG9jdW1lbnRJRD0ieG1wLmRpZDowMTgwMTE3NDA3MjA2ODExQUNBRjhDQUE0OTkx
NTI2MSIgeG1wTU06T3JpZ2luYWxEb2N1bWVudElEPSJ4bXAuZGlkOjAxODAxMTc0MDcyMDY4MTFBQ0FG
OENBQTQ5OTE1MjYxIiBwaG90b3Nob3A6Q29sb3JNb2RlPSIzIiBwaG90b3Nob3A6SUNDUHJvZmlsZT0i
c1JHQiBJRUM2MTk2Ni0yLjEiIGRjOmZvcm1hdD0iaW1hZ2UvanBlZyI+DQoJCQk8eG1wTU06SGlzdG9y
eT4NCgkJCQk8cmRmOlNlcT4NCgkJCQkJPHJkZjpsaSBzdEV2dDphY3Rpb249ImNyZWF0ZWQiIHN0RXZ0
Omluc3RhbmNlSUQ9InhtcC5paWQ6MDE4MDExNzQwNzIwNjgxMUFDQUY4Q0FBNDk5MTUyNjEiIHN0RXZ0
OndoZW49IjIwMTAtMTItMjlUMTQ6MTk6MDgtMDY6MDAiIHN0RXZ0OnNvZnR3YXJlQWdlbnQ9IkFkb2Jl
IFBob3Rvc2hvcCBDUzUgTWFjaW50b3NoIi8+DQoJCQkJCTxyZGY6bGkgc3RFdnQ6YWN0aW9uPSJzYXZl
ZCIgc3RFdnQ6aW5zdGFuY2VJRD0ieG1wLmlpZDowMjgwMTE3NDA3MjA2ODExQUNBRjhDQUE0OTkxNTI2
MSIgc3RFdnQ6d2hlbj0iMjAxMC0xMi0yOVQxNDoxOTowOC0wNjowMCIgc3RFdnQ6c29mdHdhcmVBZ2Vu
dD0iQWRvYmUgUGhvdG9zaG9wIENTNSBNYWNpbnRvc2giIHN0RXZ0OmNoYW5nZWQ9Ii8iLz4NCgkJCQk8
L3JkZjpTZXE+DQoJCQk8L3htcE1NOkhpc3Rvcnk+DQoJCQk8cGhvdG9zaG9wOkRvY3VtZW50QW5jZXN0
b3JzPg0KCQkJCTxyZGY6QmFnPg0KCQkJCQk8cmRmOmxpPnhtcC5kaWQ6MDM4MDExNzQwNzIwNjgxMUFF
NTY4NjQ0MDZGQ0YwRDI8L3JkZjpsaT4NCgkJCQk8L3JkZjpCYWc+DQoJCQk8L3Bob3Rvc2hvcDpEb2N1
bWVudEFuY2VzdG9ycz4NCgkJPC9yZGY6RGVzY3JpcHRpb24+DQoJPC9yZGY6UkRGPg0KPC94OnhtcG1l
dGE+DQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIDw/eHBhY2tldCBlbmQ9J3cnPz7/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQ
AABtbnRyUkdCIFhZWiAHzgACAAkABgAxAABhY3NwTVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAQAA
9tYAAQAAAADTLUhQICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
ABFjcHJ0AAABUAAAADNkZXNjAAABhAAAAGx3dHB0AAAB8AAAABRia3B0AAACBAAAABRyWFlaAAACGAAA
ABRnWFlaAAACLAAAABRiWFlaAAACQAAAABRkbW5kAAACVAAAAHBkbWRkAAACxAAAAIh2dWVkAAADTAAA
AIZ2aWV3AAAD1AAAACRsdW1pAAAD+AAAABRtZWFzAAAEDAAAACR0ZWNoAAAEMAAAAAxyVFJDAAAEPAAA
CAxnVFJDAAAEPAAACAxiVFJDAAAEPAAACAx0ZXh0AAAAAENvcHlyaWdodCAoYykgMTk5OCBIZXdsZXR0
LVBhY2thcmQgQ29tcGFueQAAZGVzYwAAAAAAAAASc1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAABJz
UkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAWFlaIAAAAAAAAPNRAAEAAAABFsxYWVogAAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAA
OPUAAAOQWFlaIAAAAAAAAGKZAAC3hQAAGNpYWVogAAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklF
QyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAAC5JRUMgNjE5NjYt
Mi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAAAAAAAC5JRUMgNjE5NjYtMi4x
IERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAA
AAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAA
LFJlZmVyZW5jZSBWaWV3aW5nIENvbmRpdGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHZpZXcAAAAAABOk/gAUXy4AEM8UAAPtzAAEEwsAA1yeAAAAAVhZWiAAAAAAAEwJVgBQ
AAAAVx/nbWVhcwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAo8AAAACc2lnIAAAAABDUlQgY3VydgAA
AAAAAAQAAAAABQAKAA8AFAAZAB4AIwAoAC0AMgA3ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACB
AIYAiwCQAJUAmgCfAKQAqQCuALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwENARMBGQEf
ASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJAdEB2QHhAekB8gH6
AgMCDAIUAh0CJgIvAjgCQQJLAlQCXQJnAnECegKEAo4CmAKiAqwCtgLBAssC1QLgAusC9QMAAwsDFgMh
Ay0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oDxwPTA+AD7AP5BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASa
BKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJBVgFZwV3BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZq
BnsGjAadBq8GwAbRBuMG9QcHBxkHKwc9B08HYQd0B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiW
CKoIvgjSCOcI+wkQCSUJOglPCWQJeQmPCaQJugnPCeUJ+woRCicKPQpUCmoKgQqYCq4KxQrcCvMLCwsi
CzkLUQtpC4ALmAuwC8gL4Qv5DBIMKgxDDFwMdQyODKcMwAzZDPMNDQ0mDUANWg10DY4NqQ3DDd4N+A4T
Di4OSQ5kDn8Omw62DtIO7g8JDyUPQQ9eD3oPlg+zD88P7BAJECYQQxBhEH4QmxC5ENcQ9RETETERTxFt
EYwRqhHJEegSBxImEkUSZBKEEqMSwxLjEwMTIxNDE2MTgxOkE8UT5RQGFCcUSRRqFIsUrRTOFPAVEhU0
FVYVeBWbFb0V4BYDFiYWSRZsFo8WshbWFvoXHRdBF2UXiReuF9IX9xgbGEAYZRiKGK8Y1Rj6GSAZRRlr
GZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyjHMwc9R0eHUcdcB2ZHcMd7B4W
HkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEcIUghdSGhIc4h+yInIlUigiKvIt0jCiM4
I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijU
KQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2K2krnSvRLAUsOSxuLKIs1y0MLUEtdi2rLeEuFi5MLoIuty7u
LyQvWi+RL8cv/jA1MGwwpDDbMRIxSjGCMbox8jIqMmMymzLUMw0zRjN/M7gz8TQrNGU0njTYNRM1TTWH
NcI1/TY3NnI2rjbpNyQ3YDecN9c4FDhQOIw4yDkFOUI5fzm8Ofk6Njp0OrI67zstO2s7qjvoPCc8ZTyk
POM9Ij1hPaE94D4gPmA+oD7gPyE/YT+iP+JAI0BkQKZA50EpQWpBrEHuQjBCckK1QvdDOkN9Q8BEA0RH
RIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhLSJFI10kdSWNJqUnwSjdKfUrESwxLU0uaS+JMKkxy
TLpNAk1KTZNN3E4lTm5Ot08AT0lPk0/dUCdQcVC7UQZRUFGbUeZSMVJ8UsdTE1NfU6pT9lRCVI9U21Uo
VXVVwlYPVlxWqVb3V0RXklfgWC9YfVjLWRpZaVm4WgdaVlqmWvVbRVuVW+VcNVyGXNZdJ114XcleGl5s
Xr1fD19hX7NgBWBXYKpg/GFPYaJh9WJJYpxi8GNDY5dj62RAZJRk6WU9ZZJl52Y9ZpJm6Gc9Z5Nn6Wg/
aJZo7GlDaZpp8WpIap9q92tPa6dr/2xXbK9tCG1gbbluEm5rbsRvHm94b9FwK3CGcOBxOnGVcfByS3Km
cwFzXXO4dBR0cHTMdSh1hXXhdj52m3b4d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2h
fgF+Yn7CfyN/hH/lgEeAqIEKgWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokz
iZmJ/opkisqLMIuWi/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVf
lcmWNJaflwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqIm
opajBqN2o+akVqTHpTilqaYapoum/adup+CoUqjEqTepqaocqo+rAqt1q+msXKzQrUStuK4trqGvFq+L
sACwdbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5tvC3aLfguFm40blKucK6O7q1uy67p7whvJu9Fb2P
vgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTOxUvFyMZGxsPHQce/yD3IvMk6ybnKOMq3yzbLtsw1
zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG1EnUy9VO1dHWVdbY11zX4Nhk2OjZbNnx2nba+9uA
3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj4+vkc+T85YTmDeaW5x/nqegy6LzpRunQ6lvq5etw
6/vshu0R7ZzuKO6070DvzPBY8OXxcvH/8ozzGfOn9DT0wvVQ9d72bfb794r4Gfio+Tj5x/pX+uf7d/wH
/Jj9Kf26/kv+3P9t////2wBDAAQCAwMDAgQDAwMEBAQEBQkGBQUFBQsICAYJDQsNDQ0LDAwOEBQRDg8T
DwwMEhgSExUWFxcXDhEZGxkWGhQWFxb/2wBDAQQEBAUFBQoGBgoWDwwPFhYWFhYWFhYWFhYWFhYWFhYW
FhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhb/wAARCAAvAKMDASIAAhEBAxEB/8QAHwAAAQUB
AQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1Fh
ByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNk
ZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT
1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL
/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYk
NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImK
kpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3
+Pn6/9oADAMBAAIRAxEAPwD7+rF+Ieq3GieDNQ1a0SN5rSBpEWTO0kDocVavtc0izujbXeo20MwGSkkq
qwH0Jrl/i7r2jXHw11mGDVLSSR7NwqrMpJP515+PxcKeGqOM0pJPr1sd+Bws6mIpKUG4tro9rmB8NfjN
aeI9ZtNFvtJmtLu6YqjxuJImIBPsRwD2qz8U/i7Y+E9bl0aDS57y9hVWYswSNcjI56nt271458AbeW4+
LWjCNSwid5HIH3VCHk/iQPxq/wDtNwSRfFq7klQqtxbxSR57jG04/Fa/P48R5n/YcsTze+pKN7dLfcfo
cuGsr/t+OE5fccOa13vf7/ke/fCrXrrxN4HstavIYop7lWLJESVXDkADPsK6Ida87+AOraVafCjSorjU
bWKRVcMjyqCP3jdQTXb2ms6TcXCwwajayyvwqJMpJ+gBr77LcXGrhKUpzXM0vxPz7MsHKli6sIQfKpNL
TomXScdajuZ4IIWknljjRRlmdgAPxNcn8dviFo/ww+GWpeMNZy8NmgEMCth7mZuEiX3J/IAntXyN8A9K
8Yfta+PdY174leIdQg8I6LIiJounzNDbySN8yxADqFXBZ2yxJGMdvfw2BdWlKvN2gt359kjxauJUJqnF
Xkz7Fn+IfgKGZopfGugI6HDK2pRAqfQjdW1pepadqVsLnT763u4W6SQSiRT+I4rxfVf2RPgNeaU9mngw
2cjLgXVtfTCZT6gsxGfqDXyj49+HfxM/Zw/aB0Ow8Ba1fTxa9doujywfKl984DW9xGMqSN3Jx0JIxg46
MPgsLiLxpVHzLo1a/wCJnUr1qVnKOnkfo9NLHFEZJXVEXqzHAH4mof7QsQf+PyDPTHmis3xFoOneKfBs
2geJ9PgvLTULcR3tsSdj9CQCDkYI4Oc8D0r8uP2qPBGm/Dn47a54P0a5upNOs3je2E0jF0SRA4QnOTty
RnPOKWW5dDGTlSc7NbafrcMXipUIqajdM/WHdxweKjubmCAjz544gxwpdguT6DPWvnT/AIJ4/Gn/AIWF
8Pf+EQ1+88zxL4ciVGaRsvfWo+VJcn7zL91j9D/FXs3xS+H3hD4iaGNJ8YaLDqdtGS8O5mSSFyCNyOpD
Keexrjr4Z4eu6VbSxtTrKrSU4HQnULAAk3luAOpMq/40+a7tYWVZbmJCwyoZwCR6iviz9lr4CeA7v9pX
4jaPrNlJq+m+Db2GHTLa7lYqPMBcM+CN5XGBnjvivoT9qD4WeB/Gvw11W/8AEOhxTX2kaVcPYXkLmKa2
KoWXay44yo+U5Fb1sNRp140lNtO2tu+3UiFWpKm5uO3n/wAA9M/tCx73tvgjI/ejn9aQ39kQMXcBycAe
aK/JP9n3w5Z+NvjL4X8Katc3UdjrF+kF01vJtk27WY7T0B+XrjvX2p42/Yi+Hc/hu5Xwtq2vabqyxk2s
1xfedEZMcB12g4J4JBGOtd2MyrD4SpGnVqvXXb/gnPQxtStBzjDRdL/8A+oEdWXIYEevamtNCrhWkVWP
IUnBNfl/+zr8b/Hfwn+I1pZ3es313ocd59m1XSrqdpo1Tdtdotx+R1wSNpAJHNfdnj7wJ4g1zx82s2cg
khljT7LP54X7Mfl5OfmXYQXGzlixBxwRz43KnhKqjOSs1dPuaYfGqtF8q1W6PVyy5+8KKjhWVYVVmLMA
AWJ5J9elFeS0+52qR4l+1P4Ov9R1rT9b0nTJrt2jMFwsMe5uOVYj25H415hpngDxdeXQit/DV7uLfeeI
IF9ySeK9x/aA+It/4OlsLLSEt5Lq53SS+cCQqDjt7/yrgdM+O3iiG4VrvT9PuYgcsi7kJHsc/wA6/Lc+
w+SSzSft6slLqktD9WyDE5/HKofV6MZR15W3ruJazx/B0KJbeDUfEt/CGkG8iGzhz90HqSSOfpTrnVo/
jGy6bc20OmeIrONpLKZXJiuUHLRN39/zqP4iWk3xNmj8WeErd554oVg1DTmcCWFhkhgDwQQeo9Ki+Hmi
XPw/vh4y8Y28lklsHjs7PIae6lYY6Z4ABPNc166xCw0Y/wCxd/s8ve9t/wBdDe1D6s8VJ/7d2v73N/Ly
/wAtvK1tb9TltV+H3jCxuWhuPDd27rwJIYxIp+jDtXoP7L/grUrXxlca1q2kz2i2cHlwGePaXZ+pH0A/
WqGrfHbxJPcs1hptjawnlA+ZGx7nIGfpXa/AP4l6j4s1q80vWUto5Y4RLb+QCNw6MDn0yK3yahkcc0p+
wrSlK+iasvIzzrE5/LKqnt6MYxa1aetuuh8//wDBW3xHP9r8IeEkdlgKzajMg6O2RGn5fP8AnXdf8Eo4
Fj/Z91acABp/EMxJ9QIogP5V5X/wVrtJR8UPCl/tPlS6PJCrdtyykkfkwr1X/glLcJJ+z3qsGRug8QzA
gcnBiiI/mfyr9+rxUcihy91f7z8MptvMnfsfTjdKxvEHhnRNa1zSNX1TTo7m70Gd7jTpH5NvI8ZjZh77
SRT/ABzZ63qPhS8s/DWspo+qSx/6LfParcLC2QcmNuGB6fjXwLr37Tv7QOl/Ei78GS+I9DkvbTVm00zp
pUYjdxJ5e4AjOM89jz1rxsBl9bFc0qUkrd77fJHo4jFU6NudXufocowTkV8lr4G0D4i/tr/F3wn4itEm
tL3w7ZKsm0GS2fAKyxsfusDg/hX0r8MdO8U6X4ThtvGPiOLXtX3FpryGyS1j56Isa9APU8mvEPhB/wAp
Fvib/wBgGx/kKeBcqXtXF6paNeoVkpqN1oz4z1iy8c/s6fH9VSTydX0C48y2mwRDqNs2RkjvG65BHYg9
CtfpZ8DviHonxQ+HFh4u0KTEN0m2e3ZsvazLjfE47FSfxBU9CK4P9tn4JQfF34dmfTIo4/FGio8ulTMc
eeOrW7n+62Bj+62D0zXxl+xx8YtR+CvxVlsNcFxFoGo3Btdcs5AQ1pKpKibb2ZGyGHcbu4FezVUc2wnt
YL97DfzPOpt4Ktyy+B7eR9Z/srf8nVfHL/sLWX/opq9k+MH/ACSbxP8A9ga6/wDRLV4r+yJd2t/+018b
L6xuobu1udSsZIZ4ZA6SKYWwQw4P/wBavavjD/ySbxN/2Brr/wBEtXj4pP65FPf3f0PQou9GTXmfmH+x
r/yc94D/AOwsn/ot6/Vi/ure1s5bm5mSGGBGkkkdgqooGSSTwABnmvyn/Y14/ad8B++rL/6LevtP4zfB
H40/EfVdR0zVPjNFZ+FLu4do9Os9L8uQwFsrHIwYb8Djk4Ne1n1KFXFU1Oaikut31PPyybVCXKru58Op
pc/xJ/aDn03w1AZD4j8Qym1CrlUieZm3n0ULlj7Cv1psIFtrSK3TO2JAi5POAMV5T+zj+z14G+Dwe80i
KbUdanTy5tWviGm2nqqAfLGp77QM45zXrajB715eb5jHFzjGnflirep14DCSoJynuxaKKK8c9A4vxt8M
/DXivWv7U1eO6e4EYjGy5dVCjtgHFcf8RfhH4N0bwPqeqWdvdC5tbZniLXTsAwHHBNexAYGAK5v4vwyT
/DXWIIk3SSWrKoyBkngda8LMsnwNWjVquinNp621vY93LM5x9KtSpKvJQTWl7K1z59/Zy1OfTvipYRxs
fKv1eCZc8MNpZe3YqPwJq7+1JqUt78TjYyE+TYWqLGvYFgWJ+vQfhW38FvhZ4msvFmna/qQtrSC1bzPK
MoeR8qQMbeB19aufHf4Y+I9Z8W3PiDSfstxFNGgMBl8uRdq4PXjt618BTy7M/wDV2VH2bvz3t1sfoE8z
yv8A1mjX9orclr9Ob122JvhJ8K/CfiHwBp2salBcvc3UZaQx3TqCdxHABwOgrtvCfwt8K+G9ei1fSobu
O6hVlBa6dgQwwQQTzU/wJt5rT4WaVbXEZSaKN1dSwODvbuODXXnt7195lWT4Knh6VR0UppLW2t7HwOaZ
zj6mIrU/bydNtq19LX/I+f8A/god8KNQ+I3wfj1DQLZrrWvDczXdvboMvcRFcSxoO7YAYD/Zx1NfOf8A
wTj+MOi/DvxjqvhLxbdpYaXr7o8F5N8sdtdJ8pEhP3Q6kDJ6FRnGa/QHUdQs7VhHcShWYZAKk5H4A15F
8WfgX8EfiJqcup67oYttTmbMt9prPbTSt/efaNrt7spPvxX3WCxq+qSwteD5Hs10PjsRhpe2Vek1dHsF
teWk9iLyC6hktmTesySAoV9dw4x71+UPjK7tb79qTUb2zuY57afxk7xTI2VkU3fBB7g9j3r7JsP2TPhB
bK1qnizxqbN+DZjU9kTeoIWIZrsvh/8AAP4CeErm3u9N8J2tzd27horjUDLdMjKcggOSoII4wBit8DiM
PgVPkcpcyttb9TPE06mIcVKyt53PagwxzxXzH8H9X0tv+CjXxIiGoWxefRrSKJRKMyOm3eq+rLnkdRXu
3jSLQfE/hq50HUNRvoLe9TZI9jcS202PRZEwy574Irx+L9l39n5LtbmPTtVScOXWVdVug4b13Bs5968/
CRpwjUVS6clba/6nXWc7xcbaM+hQcg45r4v/AOClHwKOyf4v+FbPlMDxDbRL95cYF0AO4GA/sAexNfWH
g4aF4c8PWui2eo31xBZx+XHJfTy3MzDr80j5Zuvc+lXb7U9EvLKW0upEmguEKSRyRMVdSCCCMcgjNTg6
9bCV1VgnbrpugxFOnXp8smrnyD/wSLeNZPHCA8n7GR9B5o/wr6t+NE8Nv8I/E8txMkUS6NdbmdsAfumx
z+Vcv8F/hx8L/hXearN4Ks5bE6s6m4VpppFG0ttChs4A3NTvjF8P/h98T0gi8WXerz2sCFBaW+o3NvA/
PV40IDN2yRnmt8ZVhiMb7ezUdHsZ0YOlhlTvdn52fsdyxx/tM+A3lkREGroNzsAMlHAGT6kgfUiv1fU5
b8M186j9lb9nhXDLpWpKy4II1O6BGOhHPFesfDLSPDHgbQjo2kanqk9orl1Go3s928XAG1GkJKrx90cC
t84xVPGzjUpxasrWsZ5fSlh04ytZ+Z2lFZ41vTC2Bc85x/q2/wAKF1vTCRi56nH+rb1x6V4vs59j0eeP
c0KKARiioHdH/9k=
</value>
</data>
<data name="BntSalie.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABM9JREFUWEftmG1MU2cU
x58si+HbgnSiwoQWTSdUmkDLwLbeAmWuswJ7EYhZsw/DFMEPFJSWFXvv7QultOUWpMlEIkGdM2MhLGwC
IXuJiRnuJUS2kW1xsuiGgYGDMCMB2u70XiwMdL0f1xtvfh9OT07/Tf45z7nnKfJ/VfcUlg6g4IjhKSwd
QP7vbBF5YXvsS09+lEpldnY2QigxEcXGshKM+Iv/zwIUuElFRLw3ybXp8dBPW1ubWq3Oysp2udxeb/We
lLiIatFbgPzjFyOS/iKfePTgOG61Wp1Op15fXVZ2NC1NbDSau7pIn++I13s0Oem5iGrRW4ACtz/ZzOxY
78J4XzifnpoSNouiqNraWo1Gk5MjLykpHBi46PXWkaTUbMYaG/ME/MTHCnIjiQK/j2xg/ucvDVW66/1d
4bw4TQgNZbPZmpqapFKpUqk6cULf3X3h0iWt0ZiJ4zKCUAIOh0rA37FZkDMZFJz9ZT0P7o6ZhodiKiu/
/bw3nBfu5oNNRUVFycnJON7U2lre3X2KJDGTSUHbJCeIAoJQOBz5Aj5vgyCXPqLgwmSYv+/dMn1w+ZlA
AFVUXO+9PDPxw5+3v5/+daxQLjtDEBKR6GSdsaND39gINmXheD5BQE/lEoSKIPYTRL7DUSAQ7FovyLEY
BR/+xTB377eGng+fXVpCwSC6ckXu87129erh/v7C/v7XBwffHBpK0miacJyiinAcoz06QBB5dGcxARY6
hoLtYUHuBSi4/ABYuD9FfNQTs7gYcupJGAwthjraLDAIzIIzCM3FmAXBAdqseEaQk6BgYAmo9fm2rKz8
l1PgYE2Nx1hPUVp6ooNBL//7GKroY5jECHIS8GcZyJDL0fnzEcwyGDyhzjpsMEiMRgmOw1yHaQWdBS3G
DHjorG2MICdB/uAKML8wp3xVvebXnTvo2jU0MrLG6CgqKXGbGtrbYYK1Dw+fdTgwHIf+gvMY2htWVwfB
TkaQkyB/YJlhZnZaoVKhzs5Qf9ntKC4OxcevkZCAYmIoj7u+vtRshkHv0ukwq5V5GzKvRXgbQmftCgty
L0DBxfkwD+em9itkqK8PGY2f9vXMTE4wpO1OIevrxSKRxUJ2dh7R63Vbt245fpxvt7/yaM+C+SUP7VmC
59cLciyGPWtqPYszd2WH1Cg1deSLgXBenC6CO7NEIrFYrBRVBn1ksylJEgYWTCvoLNgbIMijOytxgyCX
PiL/7K0N3J8YzcoQf/x+RzifLtoLfzpkZmYyZuE4WAOrFnjEzKzVgL7uJGwW5EwG+Se/3sz0j8OzP30W
zqenCeGvGLgVkiRJUYdwHNwBYGuHl+DqdcdiwTyegykC3mMFuZFE/onBiCTs2FZZWSkUCu32Rop6i14a
oKfAKQhCA97txk6fztHppDzezohq0VuAAuMXItJ8qsxQrpFl7GlpaaGoN+jrDjQUrA5Ku73A5SooLsZy
5bFQ01BRFFEteguQf/QMS5zVxR6PG5ZS8MhiybdaFc3NmtJSnlCY0G3T3ux5l6VO9JahwDckS/BjSo+n
xevVOp25JpOkqurgPmGS+Rj2x8BJlgrRXoYCN0wswcsV5869195eqtXmqGQ8rXofyy9ypgwFb+hZYnxb
imGYLEfRWqOc6HuH5be4VPYPcSlYgZT/dj8AAAAASUVORK5CYII=
</value>
</data>
<data name="BtnAlta.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABCdJREFUWEftlVtMU3cc
x//PW7InssRkbvFBjHvYdNMtzAkbS3SSDGEQTCywIS5cBLtOFBMIglzckMEQLxkboNwsRVS0pFxLKaU3
abn1YimUCvR+gV7oaXt6zn9n6eLDktPwXE/yyf/lm3wePvklf4CJrhB4BPS1iRztaKaCnSRjHZb17vfx
C8ITxesCAIpLCXZmGGu8Qudqx9Zm58aLvJnu2ICAEZ4oXhcAHmGJW3zVyC9Q8WioXwqhwqmrGG47IGWl
KZ5krg/nY7IainABsDp6Rs8vejmTo5SeQdxsGOozq34Yun+grfG9xvIY5s3D+EITRbgAUHNodt2DoH8B
8Y6jCCfku+e3FNvUKVbVyb47H7ZVJ2CqLopwAbDITvIY2yFUQWwI3WlHXZXQdR46U6HtxP2G2LpLibiO
TREuAGaZB1cFNIPi8ub8OZ+1FNsusClOCPo/etoaW0x7h5H5Kb4ppggXANL29yf/2jfQtPfx7Q8cq5lw
K32y50D6V29/fTQmJXFfY1kGdCxThAsAxCj0GUUaYUNX836nNhlajnc37Tl0MGZ6qMe5uYy5jdBD8V8B
AJEtAq2c2VS250FjbMeve+ln34o/8m7AbTMarGI1MiH3jkkdYxIrR2h7PGVlcS09o5a/2ebGflMDy/zH
gCVseBMAEN0h0L+ceHjn+1u1qbVXU6sZSXfrC1G/d0qJ/v7I1vLcdeuZq3nQdfPRdkW3s7TdwWh15Dbb
k69bvizRxzF0YcObAIB4kAzuYpAo1SWAHVOwlYu1cND6J8Ga/sA1ZqC0M5B3dyexRBP/82IEQ5RNAEKU
DO4S9hvLWffQXtNrr+iy0/+00urNqdWmk+XGY5cNn9ANhwo0nxepIxiibAIYDJHBX7Qxx19J1R65dmdW
6+MrvGzJ9pDU80zi7eV7mwedpy70xdHuRTBE2QQwHCVDOKcRzWkgcR4o4vG6cQyBEIeYz4+4Q6GA0+X9
6VJV/OkfIxiibALQ7yJDJNNMy1cwPDSrXB/iKZeWDSE8JF7QPx1XCOdeKVaMOb/cSEgrimCIsglAj4UM
0axqalZLXJM/GPT4ECQYIMJ5fX6HJ2ByIjLVRja99t9Y5IYomwDmWCFDIJLzpBoc4gbrtlpnNtldGMR0
m3a52rCgtYoX9Vn0OiJWBEOUTQAzSsng8fiTEuKzg0QprnhZsWr2+FG+TM8aUYyI16bn9ZnhWOSGKJsA
tjZMxsQoh8Ofx3HMub21YbJo183zyyap0ihYMvHmjYM8ZUZB1fHUwgiGKJsAruokgzvyvOY2M6uoMvti
VfbF62cvVGbkX8vIJ96q9LzKlNzyhLTiY6fzIxiibALYXAsZM2MDV260ffxN1pFvz32WdP7oqdz/Efdd
3hfJ+REMUTYB/EUVxS4LAFxSRrHLAgBKGBS7LPAP3lDg7/cpOfYAAAAASUVORK5CYII=
</value>
</data>
<data name="BtnLimpiar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAGQAAAAZCAIAAABIPBwcAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAABONJREFUWEfll+tTGmcU
xvef64fOtNNJp+3USTK2SSZNFQnxgnESTYxOvGaIWms1FBAxCgKKyEUuu1wWFhBFnMSowQtKQLntRYEY
XehLSImj8ZKP4MxvmLPnPef58Mw5L7sQjbG/ihTyJCLnx8ZGNuQtYV31V/UWejGUcdRenBTcHJaN4CYk
jsBR1RQh5XmFdSTMvrhCQVdC9GzzBUmYOrclIgK17s25d90zu24XsCwuH1vueTrHu59yNl1Qp3DLoLSX
cxGSlp7QyCBuNe+6nZQDoxx2ErNRTgdpR3Gjfu3vbndnDYF1XESqcGsgenHoXBJ2QXBYgJvgXZcja5Md
Je1WEgVYSCvAvD/v8XS2uaSd50oVdAGUXps6m6RbGhDx4rCBcmKkDSVtVgK1EFYzYTERFoQwwxRqjrgw
dRXLJO4+V62gC6B0wHEGCY9ua/DfuF5HYbasQTmPzAhhggE4bCRNcHzGYeA84377DTLGP1ut0E+hTGzl
NJKLmF/Ajeq02WkCNgGPPtqEI0ZgE7iqCNiAu5z2gT7RrRsjpb/OIaoz1IrgCMrsBr9IyrewweNGNSpw
MX0apaxHhixGPW7Q4fppsJizwyJxRbno+lXJwzr/kuc0teLIQ5kUfpLk+tI6dyAypQSXN458HCXj/x4Z
dHH9NK7TUg7b6wm5hMkQM8peXv1lenSECAe+qFY0SShzkDhG0u9b6+/bmVSAgfrskT7rUVynzaJVU6h1
RauWV92TMMrEN0pF9Q2rvpUEFTupVkwZKJP+cJRUcHMVODUhJ8BAgXUDQwQ8yts0rQFOkWZkAzYq7rOl
dytGb998WVHunfdGomH68P0xtSJ7hDKZgzzJ4Javt3tbLiUQY27XsnMEDMqjVYOjLbNJ87hBdpcpKbsj
ufkbZra8CwX395NHpYoyhujMYY79BOXjc2NmBAzOp3U75tS0hjAaghYT3N4qYzJkFQzJtRLN2Lg/GNxL
JfI6RRxAdPogxzuddqm5MayYoOY9hNkU16iOzRTYx7Ddhvb2ypmMcdZdScnP4r4X61sBao86pD/kdYo4
gDLvyRwrnE5/93N/FyckGSVdTvAWGvvslxqf1kQxu1vAn2AxFdWVY9dKJG3tvuU3RCSYThF5keIOwHvW
To63rU8DA/8E+vsCfb0hIZ9AwTezKztcWjWu1cQxm1c8qqhkTdZUSW+UTjQ2LC/MxrZ8NLWdVyj6AKJj
vhyvWpo2uzkhHjcI4A6AX/BvuOudI6wmHLO9kkmV7Grg1MSdW8qae17UsLPqOYi8zbdfhgCig64cAbdm
oeWx/1n79qBgRyjYFvAAUYUsbrcsDAtVtewpdrWS8afs5nVUIQq9hvc3sXzvJQkgel2bJ+qRW1sfLT1p
2BYKIiLhztBgeGhw80W/ml2tqq1Rsipe/nRFzedsuWXJZdXRxksSQ+lF4VESHj7CeThbwwoJeJHhobBI
+KanS11Xq6xkCX/4TtFVv2nt35vjHeu6JI8Q7ek5xr67e+ZFvZ1VBi77uHjE3dEGnBJd+X6yhbmu7yCx
5ydbLkkGSs80noSeaVwavY/Vlm90tFirmOMlPyrrf19RPiAsj8DRF1suQxJKOx+cxrqCrWj5Q9p02/gX
Y0VRE4PrDh2nFp+hUzRHUMZ572xSKGvPwkpYWYfYOZXnShV6wX+TqdltqJqp7gAAAABJRU5ErkJggg==
</value>
</data>
</root>

View File

@ -0,0 +1,8 @@
Public Class frmAsocCuentas
Private Sub frmAsocCuentas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

149
Actualizadores/frmNvaAsocCta.Designer.vb generated Normal file
View File

@ -0,0 +1,149 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNvaAsocCta
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.txtCriterio = New System.Windows.Forms.TextBox()
Me.cboBuscar = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.BtnBuscar = New System.Windows.Forms.Button()
Me.BtnSeleccionar = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtCriterio)
Me.GroupBox1.Controls.Add(Me.cboBuscar)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(330, 74)
Me.GroupBox1.TabIndex = 112
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Buscar"
'
'txtCriterio
'
Me.txtCriterio.Location = New System.Drawing.Point(128, 16)
Me.txtCriterio.Name = "txtCriterio"
Me.txtCriterio.Size = New System.Drawing.Size(192, 20)
Me.txtCriterio.TabIndex = 3
'
'cboBuscar
'
Me.cboBuscar.FormattingEnabled = True
Me.cboBuscar.Location = New System.Drawing.Point(128, 42)
Me.cboBuscar.Name = "cboBuscar"
Me.cboBuscar.Size = New System.Drawing.Size(192, 21)
Me.cboBuscar.TabIndex = 2
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(49, 44)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(62, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Buscar Por:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(11, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(111, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Criterio de Busqueda: "
'
'DataGridView1
'
Me.DataGridView1.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.GridColor = System.Drawing.SystemColors.ControlDarkDark
Me.DataGridView1.Location = New System.Drawing.Point(12, 92)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(330, 129)
Me.DataGridView1.TabIndex = 113
'
'BtnBuscar
'
Me.BtnBuscar.BackColor = System.Drawing.Color.Ivory
Me.BtnBuscar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnBuscar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnBuscar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnBuscar.Image = Global.CLIENTE.My.Resources.Resources.botonFind
Me.BtnBuscar.Location = New System.Drawing.Point(348, 21)
Me.BtnBuscar.Name = "BtnBuscar"
Me.BtnBuscar.Size = New System.Drawing.Size(106, 33)
Me.BtnBuscar.TabIndex = 114
Me.BtnBuscar.Text = "Buscar"
Me.BtnBuscar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnBuscar.UseVisualStyleBackColor = True
'
'BtnSeleccionar
'
Me.BtnSeleccionar.BackColor = System.Drawing.Color.Ivory
Me.BtnSeleccionar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnSeleccionar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnSeleccionar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnSeleccionar.Image = Global.CLIENTE.My.Resources.Resources.FondoBoton_chico
Me.BtnSeleccionar.Location = New System.Drawing.Point(348, 188)
Me.BtnSeleccionar.Name = "BtnSeleccionar"
Me.BtnSeleccionar.Size = New System.Drawing.Size(106, 33)
Me.BtnSeleccionar.TabIndex = 115
Me.BtnSeleccionar.Text = "Seleccionar"
Me.BtnSeleccionar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnSeleccionar.UseVisualStyleBackColor = True
'
'frmNvaAsocCta
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(457, 229)
Me.Controls.Add(Me.BtnSeleccionar)
Me.Controls.Add(Me.BtnBuscar)
Me.Controls.Add(Me.DataGridView1)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmNvaAsocCta"
Me.Text = "Buscar Cliete o Cuenta"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtCriterio As System.Windows.Forms.TextBox
Friend WithEvents cboBuscar As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Friend WithEvents BtnBuscar As System.Windows.Forms.Button
Friend WithEvents BtnSeleccionar As System.Windows.Forms.Button
End Class

View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@ -0,0 +1,3 @@
Public Class frmNvaAsocCta
End Class

375
Actualizadores/frmParam.Designer.vb generated Normal file
View File

@ -0,0 +1,375 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmParam
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmParam))
Me.Label1 = New System.Windows.Forms.Label()
Me.CbOInFinanciera = New System.Windows.Forms.ComboBox()
Me.FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnRutaRelevantes = New System.Windows.Forms.Button()
Me.txtRutaRelevantes = New System.Windows.Forms.TextBox()
Me.BTCerrar = New System.Windows.Forms.Button()
Me.lblCveNombreSofome = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnGuardarPreocupantes = New System.Windows.Forms.Button()
Me.btnGuardarInusuales = New System.Windows.Forms.Button()
Me.btnGuardarRelevantes = New System.Windows.Forms.Button()
Me.txtRutaPreocupantes = New System.Windows.Forms.TextBox()
Me.btnRutaPreocupantes = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtRutaInusuales = New System.Windows.Forms.TextBox()
Me.btnRutaInusuales = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.desHeader = New System.Windows.Forms.Label()
Me.panel3 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblFooter = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel3.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(107, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Institucion Financiera"
Me.Label1.Visible = False
'
'CbOInFinanciera
'
Me.CbOInFinanciera.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.CbOInFinanciera.BackColor = System.Drawing.SystemColors.Window
Me.CbOInFinanciera.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CbOInFinanciera.Enabled = False
Me.CbOInFinanciera.FormattingEnabled = True
Me.CbOInFinanciera.Location = New System.Drawing.Point(498, 32)
Me.CbOInFinanciera.Name = "CbOInFinanciera"
Me.CbOInFinanciera.Size = New System.Drawing.Size(58, 21)
Me.CbOInFinanciera.TabIndex = 1
Me.CbOInFinanciera.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(9, 143)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(132, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Path Reportes Relevantes"
'
'btnRutaRelevantes
'
Me.btnRutaRelevantes.BackColor = System.Drawing.Color.Black
Me.btnRutaRelevantes.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnRutaRelevantes.ForeColor = System.Drawing.Color.White
Me.btnRutaRelevantes.Location = New System.Drawing.Point(143, 137)
Me.btnRutaRelevantes.Name = "btnRutaRelevantes"
Me.btnRutaRelevantes.Size = New System.Drawing.Size(40, 23)
Me.btnRutaRelevantes.TabIndex = 3
Me.btnRutaRelevantes.Text = ". . ."
Me.btnRutaRelevantes.UseVisualStyleBackColor = False
'
'txtRutaRelevantes
'
Me.txtRutaRelevantes.Enabled = False
Me.txtRutaRelevantes.Location = New System.Drawing.Point(189, 140)
Me.txtRutaRelevantes.Name = "txtRutaRelevantes"
Me.txtRutaRelevantes.Size = New System.Drawing.Size(367, 20)
Me.txtRutaRelevantes.TabIndex = 4
'
'BTCerrar
'
Me.BTCerrar.BackColor = System.Drawing.Color.Black
Me.BTCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.BTCerrar.ForeColor = System.Drawing.Color.White
Me.BTCerrar.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
Me.BTCerrar.Location = New System.Drawing.Point(562, 171)
Me.BTCerrar.Name = "BTCerrar"
Me.BTCerrar.Size = New System.Drawing.Size(106, 29)
Me.BTCerrar.TabIndex = 6
Me.BTCerrar.Text = "Cerrar"
Me.BTCerrar.UseVisualStyleBackColor = False
'
'lblCveNombreSofome
'
Me.lblCveNombreSofome.AutoSize = True
Me.lblCveNombreSofome.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCveNombreSofome.Location = New System.Drawing.Point(9, 40)
Me.lblCveNombreSofome.Name = "lblCveNombreSofome"
Me.lblCveNombreSofome.Size = New System.Drawing.Size(120, 13)
Me.lblCveNombreSofome.TabIndex = 7
Me.lblCveNombreSofome.Text = "Cve-Nombre-sofome"
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.White
Me.GroupBox1.Controls.Add(Me.btnGuardarPreocupantes)
Me.GroupBox1.Controls.Add(Me.btnGuardarInusuales)
Me.GroupBox1.Controls.Add(Me.btnGuardarRelevantes)
Me.GroupBox1.Controls.Add(Me.BTCerrar)
Me.GroupBox1.Controls.Add(Me.txtRutaPreocupantes)
Me.GroupBox1.Controls.Add(Me.btnRutaPreocupantes)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.txtRutaInusuales)
Me.GroupBox1.Controls.Add(Me.btnRutaInusuales)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.lblCveNombreSofome)
Me.GroupBox1.Controls.Add(Me.txtRutaRelevantes)
Me.GroupBox1.Controls.Add(Me.btnRutaRelevantes)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.CbOInFinanciera)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 66)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(691, 205)
Me.GroupBox1.TabIndex = 8
Me.GroupBox1.TabStop = False
'
'btnGuardarPreocupantes
'
Me.btnGuardarPreocupantes.BackColor = System.Drawing.Color.Black
Me.btnGuardarPreocupantes.Enabled = False
Me.btnGuardarPreocupantes.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.btnGuardarPreocupantes.ForeColor = System.Drawing.Color.White
Me.btnGuardarPreocupantes.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnGuardarPreocupantes.Location = New System.Drawing.Point(562, 99)
Me.btnGuardarPreocupantes.Name = "btnGuardarPreocupantes"
Me.btnGuardarPreocupantes.Size = New System.Drawing.Size(106, 30)
Me.btnGuardarPreocupantes.TabIndex = 15
Me.btnGuardarPreocupantes.Text = "Aceptar"
Me.btnGuardarPreocupantes.UseVisualStyleBackColor = False
'
'btnGuardarInusuales
'
Me.btnGuardarInusuales.BackColor = System.Drawing.Color.Black
Me.btnGuardarInusuales.Enabled = False
Me.btnGuardarInusuales.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.btnGuardarInusuales.ForeColor = System.Drawing.Color.White
Me.btnGuardarInusuales.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnGuardarInusuales.Location = New System.Drawing.Point(562, 64)
Me.btnGuardarInusuales.Name = "btnGuardarInusuales"
Me.btnGuardarInusuales.Size = New System.Drawing.Size(106, 31)
Me.btnGuardarInusuales.TabIndex = 14
Me.btnGuardarInusuales.Text = "Aceptar"
Me.btnGuardarInusuales.UseVisualStyleBackColor = False
'
'btnGuardarRelevantes
'
Me.btnGuardarRelevantes.BackColor = System.Drawing.Color.Black
Me.btnGuardarRelevantes.Enabled = False
Me.btnGuardarRelevantes.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.btnGuardarRelevantes.ForeColor = System.Drawing.Color.White
Me.btnGuardarRelevantes.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnGuardarRelevantes.Location = New System.Drawing.Point(562, 133)
Me.btnGuardarRelevantes.Name = "btnGuardarRelevantes"
Me.btnGuardarRelevantes.Size = New System.Drawing.Size(106, 32)
Me.btnGuardarRelevantes.TabIndex = 9
Me.btnGuardarRelevantes.Text = "Aceptar"
Me.btnGuardarRelevantes.UseVisualStyleBackColor = False
'
'txtRutaPreocupantes
'
Me.txtRutaPreocupantes.Enabled = False
Me.txtRutaPreocupantes.Location = New System.Drawing.Point(189, 105)
Me.txtRutaPreocupantes.Name = "txtRutaPreocupantes"
Me.txtRutaPreocupantes.Size = New System.Drawing.Size(367, 20)
Me.txtRutaPreocupantes.TabIndex = 13
'
'btnRutaPreocupantes
'
Me.btnRutaPreocupantes.BackColor = System.Drawing.Color.Black
Me.btnRutaPreocupantes.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnRutaPreocupantes.ForeColor = System.Drawing.Color.White
Me.btnRutaPreocupantes.Location = New System.Drawing.Point(144, 102)
Me.btnRutaPreocupantes.Name = "btnRutaPreocupantes"
Me.btnRutaPreocupantes.Size = New System.Drawing.Size(39, 23)
Me.btnRutaPreocupantes.TabIndex = 12
Me.btnRutaPreocupantes.Text = ". . ."
Me.btnRutaPreocupantes.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(9, 108)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(144, 13)
Me.Label4.TabIndex = 11
Me.Label4.Text = "Path Reportes Preocupantes"
'
'txtRutaInusuales
'
Me.txtRutaInusuales.Enabled = False
Me.txtRutaInusuales.Location = New System.Drawing.Point(189, 70)
Me.txtRutaInusuales.Name = "txtRutaInusuales"
Me.txtRutaInusuales.Size = New System.Drawing.Size(367, 20)
Me.txtRutaInusuales.TabIndex = 10
'
'btnRutaInusuales
'
Me.btnRutaInusuales.BackColor = System.Drawing.Color.Black
Me.btnRutaInusuales.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnRutaInusuales.ForeColor = System.Drawing.Color.White
Me.btnRutaInusuales.Location = New System.Drawing.Point(143, 67)
Me.btnRutaInusuales.Name = "btnRutaInusuales"
Me.btnRutaInusuales.Size = New System.Drawing.Size(39, 23)
Me.btnRutaInusuales.TabIndex = 9
Me.btnRutaInusuales.Text = ". . ."
Me.btnRutaInusuales.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(9, 73)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(123, 13)
Me.Label3.TabIndex = 8
Me.Label3.Text = "Path Reportes Inusuales"
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.desHeader)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(-6, -5)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(727, 48)
Me.panel2.TabIndex = 160
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(601, 3)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 42)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'desHeader
'
Me.desHeader.AutoSize = True
Me.desHeader.BackColor = System.Drawing.Color.Transparent
Me.desHeader.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.desHeader.ForeColor = System.Drawing.SystemColors.Window
Me.desHeader.Location = New System.Drawing.Point(21, 8)
Me.desHeader.Name = "desHeader"
Me.desHeader.Size = New System.Drawing.Size(151, 22)
Me.desHeader.TabIndex = 2
Me.desHeader.Text = "Reportes CNBV"
'
'panel3
'
Me.panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel3.BackColor = System.Drawing.Color.Black
Me.panel3.Controls.Add(Me.Label5)
Me.panel3.Controls.Add(Me.lblFooter)
Me.panel3.ForeColor = System.Drawing.Color.Navy
Me.panel3.Location = New System.Drawing.Point(3, 294)
Me.panel3.Name = "panel3"
Me.panel3.Size = New System.Drawing.Size(715, 33)
Me.panel3.TabIndex = 361
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.SystemColors.Window
Me.Label5.Location = New System.Drawing.Point(649, 5)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(42, 17)
Me.Label5.TabIndex = 3
Me.Label5.Text = "Minds"
'
'lblFooter
'
Me.lblFooter.AutoSize = True
Me.lblFooter.BackColor = System.Drawing.Color.Transparent
Me.lblFooter.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFooter.ForeColor = System.Drawing.SystemColors.Window
Me.lblFooter.Location = New System.Drawing.Point(1019, 7)
Me.lblFooter.Name = "lblFooter"
Me.lblFooter.Size = New System.Drawing.Size(42, 17)
Me.lblFooter.TabIndex = 2
Me.lblFooter.Text = "Minds"
'
'frmParam
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(712, 317)
Me.Controls.Add(Me.panel3)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmParam"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Parametros Reporte CNBV"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel3.ResumeLayout(False)
Me.panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CbOInFinanciera As System.Windows.Forms.ComboBox
Friend WithEvents FolderBrowserDialog As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents btnRutaRelevantes As System.Windows.Forms.Button
Friend WithEvents txtRutaRelevantes As System.Windows.Forms.TextBox
Friend WithEvents BTCerrar As System.Windows.Forms.Button
Friend WithEvents lblCveNombreSofome As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnGuardarRelevantes As System.Windows.Forms.Button
Friend WithEvents txtRutaPreocupantes As TextBox
Friend WithEvents btnRutaPreocupantes As Button
Friend WithEvents Label4 As Label
Friend WithEvents txtRutaInusuales As TextBox
Friend WithEvents btnRutaInusuales As Button
Friend WithEvents Label3 As Label
Friend WithEvents btnGuardarPreocupantes As Button
Friend WithEvents btnGuardarInusuales As Button
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents desHeader As Label
Private WithEvents panel3 As Panel
Friend WithEvents Label5 As Label
Friend WithEvents lblFooter As Label
End Class

View File

@ -0,0 +1,183 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="FolderBrowserDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

286
Actualizadores/frmParam.vb Normal file
View File

@ -0,0 +1,286 @@
Public Class frmParam
Dim rutaAntR As String
Dim rutaAntI As String
Dim rutaAntP As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRutaRelevantes.Click
FolderBrowserDialog.ShowDialog()
txtRutaRelevantes.Text = FolderBrowserDialog.SelectedPath
btnGuardarRelevantes.Enabled = True
End Sub
Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
Dim valor As String
If (rutaAntR <> txtRutaRelevantes.Text) Then
valor = MessageBox.Show("¿Desea salir sin guardar los cambios?", "Ruta Relevantes", MessageBoxButtons.OKCancel)
If valor = 2 Then
Return
End If
End If
If (rutaAntI <> txtRutaInusuales.Text) Then
valor = MessageBox.Show("¿Desea salir sin guardar los cambios?", "Ruta Inusuales", MessageBoxButtons.OKCancel)
If valor = 2 Then
Return
End If
End If
If (rutaAntP <> txtRutaPreocupantes.Text) Then
valor = MessageBox.Show("¿Desea salir sin guardar los cambios?", "Ruta Preocupantes", MessageBoxButtons.OKCancel)
If valor = 2 Then
Return
End If
End If
Me.Close()
End Sub
Private Sub BTAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardarRelevantes.Click
Dim strSqlParam As String
Dim ClassCom As New clsComplejo
Try
ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
strSqlParam = " UPDATE ParamRep SET rutaRelevantes = '" & txtRutaRelevantes.Text & "'"
ClassCom.sbGuardaModifica(strSqlParam)
Else
strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaRelevantes.Text & "')"
ClassCom.sbInserta(strSqlParam)
End If
Dim coneccion As New ClassMyUtils
coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACIÓN DE LA RUTA REPORTES RELEVANTES (ANTERIOR:" & rutaAntR & ", NUEVO:" & txtRutaRelevantes.Text & ")")
btnGuardarRelevantes.Enabled = False
rutaAntR = txtRutaRelevantes.Text
Catch ex As Exception
MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub CbOInFinanciera_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles CbOInFinanciera.DropDown
Dim SQLPaises As String
Dim clCmj1 As clsComplejo
Try
clCmj1 = New clsComplejo
SQLPaises = "SELECT idInstitucionFinanciera as clave,InstitucionFinanciera nombre FROM cat_InstitucionFinanciera ORDER BY InstitucionFinanciera"
clCmj1.cm.CommandText = SQLPaises
clCmj1.ad.SelectCommand = clCmj1.cm
clCmj1.sbLlenaCombo2(SQLPaises, CbOInFinanciera)
Catch ex As Exception
MessageBox.Show("Error CboInstitucion_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbOInFinanciera.SelectedIndexChanged
Dim Keywords = IIf(String.IsNullOrEmpty(CbOInFinanciera.Text), "N/A", CbOInFinanciera.Text) 'Ç
If Keywords = "N/A" Then
Exit Sub
End If
Try
'Label3.Text = "Clave de la Institucion Financiera: " & CbOInFinanciera.SelectedValue.ToString & ""
lblCveNombreSofome.Visible = True
Catch ex As Exception
End Try
End Sub
Private Sub frmParam_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Dim coneccion As New ClassMyUtils
'coneccion.RT_Auditoria(129, "SALIDA PARAMETROS REPORTE CNBV")
coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "SALIDA PARAMETROS REPORTE CNBV ")
End Sub
Private Sub frmParam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQL As String
Dim clCmj1 As clsComplejo
Dim Classcom As New SenteciasSQL.ClassSQL
Try
Dim coneccion As New ClassMyUtils
coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "ENTRADA PARAMETROS REPORTE CNBV")
clCmj1 = New clsComplejo
Classcom.fdtDataSet("SELECT * FROM ParamRep")
If Classcom.ds.Tables(0).Rows.Count <> 0 Then
txtRutaRelevantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaRelevantes")
txtRutaInusuales.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaInusuales")
txtRutaPreocupantes.Text = Classcom.ds.Tables(0).Rows(0).Item("rutaPreocupantes")
rutaAntR = txtRutaRelevantes.Text
rutaAntI = txtRutaInusuales.Text
rutaAntP = txtRutaPreocupantes.Text
End If
SQL = "SELECT cf.IDInstitucionFinanciera as clave,InstitucionFinanciera nombre FROM Cat_InstitucionFinanciera cf, ParamRep pr where cf.IDInstitucionFinanciera=pr.IDInstitucionFinanciera ORDER BY cf.IDInstitucionFinanciera DESC"
Dim fila As DataRow
Dim Cl As SenteciasSQL.ClassSQL = New SenteciasSQL.ClassSQL
Cl.fdtDataSet(SQL)
If Cl.ds.Tables(0).Rows.Count <> 0 Then
fila = Cl.ds.Tables(0).Rows(0)
lblCveNombreSofome.Text = fila(0).ToString() & " - " & fila(1).ToString()
Else
lblCveNombreSofome.Text = "000000 - Error. No se obtuvo el nombre de la Institución Financiera"
End If
'clCmj1.cm.CommandText = SQLPaises
'clCmj1.ad.SelectCommand = clCmj1.cm
' FINANCIERA FINCA, S.A. DE C.V., SOFOM, E.N.R. 691231
'clCmj1.sbLlenaCombo2(SQLPaises, CbOInFinanciera)
'lblCveNombreSofome.Text = CbOInFinanciera.SelectedValue & " - " & CbOInFinanciera.Text
' aqui darle un posicionamiento a la clave de finca
'CbOInFinanciera.SelectedValue = 694224
'clCmj1 = New clsComplejo
'clCmj1.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales FROM ParamRep ")
'If clCmj1.ds.Tables(0).Rows.Count <> 0 Then
' CbOInFinanciera.SelectedValue = CLng(clCmj1.ds.Tables(0).Rows(0).Item("idinstitucionFinanciera").ToString)
' If Not IsDBNull(clCmj1.ds.Tables(0).Rows(0).Item("rutainusuales")) Then
' TXTRutaInusuales.Text = clCmj1.ds.Tables(0).Rows(0).Item("rutainusuales").ToString.Trim
' End If
'End If
'verifica el boton de la ruta
'BTRutaInusuales
'clCmj1 = New clsComplejo
'SQLPaises = " select activo from perfilpermiso p "
'SQLPaises = SQLPaises & " inner join cat_permiso c on p.idpermiso = c.idpermiso and p.idaplicativo = c.idaplicativo"
'SQLPaises = SQLPaises & " where c.idaplicativo = 1 and p.activo = 1 and p.idperfil = " & clsVaribles.VarPerfil & " order by c.idpermiso "
'clCmj1.fdtDataSet(SQLPaises)
'If clCmj1.ds.Tables(0).Rows.Count <> 0 Then
'BTRutaInusuales.Visible = True
'Else
'BTRutaInusuales.Visible = False
'End If
desHeader.Text = Me.Text
Colores()
Catch ex As Exception
MessageBox.Show("Error CboInstitucion_DropDown: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Colores()
If btnGuardarRelevantes.Enabled = False Then
btnGuardarRelevantes.BackColor = Color.DarkGray
Else
btnGuardarRelevantes.BackColor = Color.Black
End If
If btnGuardarInusuales.Enabled = False Then
btnGuardarInusuales.BackColor = Color.DarkGray
Else
btnGuardarInusuales.BackColor = Color.Black
End If
If btnGuardarPreocupantes.Enabled = False Then
btnGuardarPreocupantes.BackColor = Color.DarkGray
Else
btnGuardarPreocupantes.BackColor = Color.Black
End If
End Sub
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles lblCveNombreSofome.Click
End Sub
Private Sub TXTRutaInusuales_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtRutaRelevantes.TextChanged
End Sub
Private Sub btnRutaInusuales_Click(sender As Object, e As EventArgs) Handles btnRutaInusuales.Click
FolderBrowserDialog.ShowDialog()
txtRutaInusuales.Text = FolderBrowserDialog.SelectedPath
btnGuardarInusuales.Enabled = True
Colores()
End Sub
Private Sub btnRutaPreocupantes_Click(sender As Object, e As EventArgs) Handles btnRutaPreocupantes.Click
FolderBrowserDialog.ShowDialog()
txtRutaPreocupantes.Text = FolderBrowserDialog.SelectedPath
btnGuardarPreocupantes.Enabled = True
Colores()
End Sub
Private Sub btnGuardarInusuales_Click(sender As Object, e As EventArgs) Handles btnGuardarInusuales.Click
Dim strSqlParam As String
Dim ClassCom As New clsComplejo
Try
ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
strSqlParam = " UPDATE ParamRep SET rutainusuales = '" & txtRutaInusuales.Text & "'"
ClassCom.sbGuardaModifica(strSqlParam)
Else
strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaInusuales.Text & "')"
ClassCom.sbInserta(strSqlParam)
End If
btnGuardarInusuales.Enabled = False
rutaAntI = txtRutaInusuales.Text
Dim coneccion As New ClassMyUtils
coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACIÓN DE LA RUTA REPORTES INUSUALES (ANTERIOR:" & rutaAntI & ", NUEVO:" & txtRutaInusuales.Text & ")")
Colores()
Catch ex As Exception
MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub btnGuardarPreocupantes_Click(sender As Object, e As EventArgs) Handles btnGuardarPreocupantes.Click
Dim strSqlParam As String
Dim ClassCom As New clsComplejo
Try
ClassCom.fdtDataSet("SELECT IdOrganismoInternacional,idinstitucionFinanciera FROM ParamRep ")
If ClassCom.ds.Tables(0).Rows.Count <> 0 Then
'strSqlParam = " UPDATE ParamRep SET IdOrganismoInternacional = '001002',idinstitucionFinanciera = '" & Me.CbOInFinanciera.SelectedValue & "',rutainusuales = '" & TXTRutaInusuales.Text & "'"
strSqlParam = " UPDATE ParamRep SET rutaPreocupantes= '" & txtRutaPreocupantes.Text & "'"
ClassCom.sbGuardaModifica(strSqlParam)
Else
strSqlParam = " INSERT INTO ParamRep (IdOrganismoInternacional,idinstitucionFinanciera,rutainusuales) VALUES ('1002','" & CbOInFinanciera.SelectedValue & "','" & txtRutaPreocupantes.Text & "')"
ClassCom.sbInserta(strSqlParam)
End If
btnGuardarPreocupantes.Enabled = False
rutaAntP = txtRutaPreocupantes.Text
Dim coneccion As New ClassMyUtils
coneccion.RT_Auditoria(clsVaribles.varUsuario, 129, 1, "MODIFICACIÓN DE LA RUTA REPORTES INUSUALES (ANTERIOR:" & rutaAntP & ", NUEVO:" & txtRutaPreocupantes.Text & ")")
Colores()
Catch ex As Exception
MessageBox.Show("Erroral grabar Paramrep " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

187
Actualizadores/frmParamsGral.Designer.vb generated Normal file
View File

@ -0,0 +1,187 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmParamsGral
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmParamsGral))
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.BtnAgregar = New System.Windows.Forms.Button()
Me.BtnOk = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.BtnEditar = New System.Windows.Forms.Button()
Me.txtValor = New System.Windows.Forms.TextBox()
Me.lblTraduccion = New System.Windows.Forms.Label()
Me.chkActivo = New System.Windows.Forms.CheckBox()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GridMaster
'
Me.GridMaster.AllowUpdate = False
Me.GridMaster.AllowUpdateOnBlur = False
Me.GridMaster.BackColor = System.Drawing.Color.White
Me.GridMaster.EditDropDown = False
Me.GridMaster.FilterBar = True
Me.GridMaster.GroupByCaption = "Drag a column header here to group by that column"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(12, 12)
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(482, 229)
Me.GridMaster.TabIndex = 77
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'txtNombre
'
Me.txtNombre.Location = New System.Drawing.Point(97, 254)
Me.txtNombre.MaxLength = 50
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(316, 20)
Me.txtNombre.TabIndex = 78
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Navy
Me.Label2.Location = New System.Drawing.Point(12, 257)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 16)
Me.Label2.TabIndex = 79
Me.Label2.Text = "Nombre"
'
'BtnAgregar
'
Me.BtnAgregar.BackColor = System.Drawing.SystemColors.Control
Me.BtnAgregar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnAgregar.Location = New System.Drawing.Point(500, 129)
Me.BtnAgregar.Name = "BtnAgregar"
Me.BtnAgregar.Size = New System.Drawing.Size(106, 33)
Me.BtnAgregar.TabIndex = 90
Me.BtnAgregar.Text = "Agregar"
Me.BtnAgregar.UseVisualStyleBackColor = True
Me.BtnAgregar.Visible = False
'
'BtnOk
'
Me.BtnOk.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnOk.Location = New System.Drawing.Point(500, 207)
Me.BtnOk.Name = "BtnOk"
Me.BtnOk.Size = New System.Drawing.Size(106, 33)
Me.BtnOk.TabIndex = 89
Me.BtnOk.Text = "Guardar"
Me.BtnOk.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Button1.Location = New System.Drawing.Point(500, 247)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(106, 33)
Me.Button1.TabIndex = 88
Me.Button1.Text = "Cerrar"
Me.Button1.UseVisualStyleBackColor = True
'
'BtnEditar
'
Me.BtnEditar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnEditar.Location = New System.Drawing.Point(500, 168)
Me.BtnEditar.Name = "BtnEditar"
Me.BtnEditar.Size = New System.Drawing.Size(106, 33)
Me.BtnEditar.TabIndex = 87
Me.BtnEditar.Text = "Editar"
Me.BtnEditar.UseVisualStyleBackColor = True
'
'txtValor
'
Me.txtValor.Location = New System.Drawing.Point(97, 280)
Me.txtValor.MaxLength = 50
Me.txtValor.Name = "txtValor"
Me.txtValor.Size = New System.Drawing.Size(47, 20)
Me.txtValor.TabIndex = 91
'
'lblTraduccion
'
Me.lblTraduccion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTraduccion.ForeColor = System.Drawing.Color.Navy
Me.lblTraduccion.Location = New System.Drawing.Point(12, 283)
Me.lblTraduccion.Name = "lblTraduccion"
Me.lblTraduccion.Size = New System.Drawing.Size(79, 16)
Me.lblTraduccion.TabIndex = 92
Me.lblTraduccion.Text = "Valor"
'
'chkActivo
'
Me.chkActivo.Enabled = False
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(171, 280)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 21)
Me.chkActivo.TabIndex = 93
Me.chkActivo.Text = "Activa"
Me.chkActivo.Visible = False
'
'frmParamsGral
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(610, 313)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.txtValor)
Me.Controls.Add(Me.lblTraduccion)
Me.Controls.Add(Me.BtnAgregar)
Me.Controls.Add(Me.BtnOk)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.BtnEditar)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.GridMaster)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmParamsGral"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Parámetros Generales"
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents BtnAgregar As System.Windows.Forms.Button
Friend WithEvents BtnOk As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents BtnEditar As System.Windows.Forms.Button
Friend WithEvents txtValor As System.Windows.Forms.TextBox
Friend WithEvents lblTraduccion As System.Windows.Forms.Label
Friend WithEvents chkActivo As CheckBox
End Class

View File

@ -0,0 +1,219 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style14{}Footer{}FilterBar{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;225&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 478, 225&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 478, 225&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,150 @@
Public Class frmParamsGral
Private opcion As Boolean
Private idName As Integer
Private Sub frmParamsGral_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
Iniciar()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Function Iniciar() As Boolean
Iniciar = False
Try
Limpiar()
llenarGrid()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Iniciar = True
End Function
Private Function Limpiar() As Boolean
Try
txtNombre.Enabled = False
txtNombre.Text = ""
txtValor.Enabled = False
txtValor.Text = ""
BtnOk.Enabled = False
BtnEditar.Enabled = False
chkActivo.Enabled = False
opcion = False
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
Private Function llenarGrid() As Boolean
llenarGrid = False
Try
Dim ClassCatalogos As New ClassCatalogos
GridMaster.AllowUpdate = False
ClassCatalogos.LlenaGrid("select * from PARAMETROSGENERALES", Me.GridMaster)
GridMaster.Splits(0).DisplayColumns(0).AutoSize()
GridMaster.Splits(0).DisplayColumns(1).AutoSize()
GridMaster.Splits(0).DisplayColumns(2).AutoSize()
GridMaster.Splits(0).DisplayColumns(3).Visible = False
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
llenarGrid = True
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub BtnAgregar_Click(sender As System.Object, e As System.EventArgs) Handles BtnAgregar.Click
Limpiar()
habilitar()
opcion = True
End Sub
Private Function habilitar() As Boolean
habilitar = False
Try
txtNombre.Enabled = True
txtValor.Enabled = True
BtnOk.Enabled = True
chkActivo.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
habilitar = True
End Function
Private Sub GridMaster_DoubleClick(sender As System.Object, e As System.EventArgs) Handles GridMaster.DoubleClick
llenarDatos()
End Sub
Private Function llenarDatos() As Boolean
llenarDatos = False
Try
idName = GridMaster.Columns(0).Value
txtNombre.Text = GridMaster.Columns(1).Value
txtValor.Text = GridMaster.Columns(2).Value
chkActivo.Checked = GridMaster.Columns(3).Value
BtnEditar.Enabled = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
llenarDatos = True
End Function
Private Sub BtnEditar_Click(sender As System.Object, e As System.EventArgs) Handles BtnEditar.Click
opcion = False
habilitar()
End Sub
Private Sub BtnOk_Click(sender As System.Object, e As System.EventArgs) Handles BtnOk.Click
Guardar()
End Sub
Private Function Guardar() As Boolean
Guardar = False
Dim cls As New clsComplejo
Dim ssql As String
Dim nombre As String
Dim valor As String
Try
If ValidarDatos() Then
nombre = txtNombre.Text.Trim()
valor = txtValor.Text.Trim()
If opcion Then
ssql = "INSERT INTO PARAMETROSGENERALES(DESCRIPCION,VALOR,ACTIVO) "
ssql += " VALUES ('" & nombre & "'," & valor & "," & chkActivo.CheckState & ")"
Else
ssql = "UPDATE PARAMETROSGENERALES Set DESCRIPCION ='" & nombre & "',"
ssql += "VALOR = " & valor & ", ACTIVO = " & chkActivo.CheckState & " WHERE IDPARAMETRO =" & idName
End If
cls.sbGuardaModifica(ssql)
MessageBox.Show("Operacion Satisfactoria ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Limpiar()
llenarGrid()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Guardar = True
End Function
Private Function ValidarDatos() As Boolean
ValidarDatos = False
Try
If txtNombre.Text.Trim = "" Then
MessageBox.Show("Es Necesario Introducir el Nombre ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End If
ValidarDatos = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function
End Class

614
Busquedas/Busquedas.vb Normal file
View File

@ -0,0 +1,614 @@
Public Class ActualizadorBinario
Inherits System.Windows.Forms.Form
Private Command As New Command()
Private LlenaCombo As New LlenaCombo()
Private LlenaGrid As New LlenaGrid()
Private ValidaTexto As New ValidaTexto()
Public Valor As String
Private DesOperacion As String
Private dtGrupos As New DataTable() 'Tabla de combo de Grupos de Cuentas
Private dtParametros As New DataTable() 'Tabla de Combo de Paramtros de Grupo
Private dtGridParamtros As New DataTable() 'Tabla de Valor de Parametros
Private vwGrid As New View()
Private Id_Grupo As Integer
Private Id_Parametro As Integer
Private NombreCatalogo As String
Private NombreParametro As String
Private TipoOperacion As Int16 ' 0:Actualiza Valor de Parametro ; 1:Activa Grupò
Private Activo As Boolean
Private Activa As Boolean
Private Indice As Integer
Private Fin As Boolean
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lblNombre As System.Windows.Forms.Label
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents Panel5 As System.Windows.Forms.Panel
Friend WithEvents txtExtra As System.Windows.Forms.TextBox
Friend WithEvents lblCuaCam As System.Windows.Forms.Label
Friend WithEvents pnlCatalgo As System.Windows.Forms.Panel
Friend WithEvents tlbCatUnuarios As System.Windows.Forms.ToolBar
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents lblGrupos As System.Windows.Forms.Label
Friend WithEvents Panel9 As System.Windows.Forms.Panel
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents txtValPar As System.Windows.Forms.Label
Friend WithEvents dtgParGru As System.Windows.Forms.DataGrid
Friend WithEvents txtValParametro As System.Windows.Forms.TextBox
Friend WithEvents cboGruCue As System.Windows.Forms.ComboBox
Friend WithEvents txtGruCue As System.Windows.Forms.TextBox
Friend WithEvents cboParGru As System.Windows.Forms.ComboBox
Friend WithEvents RbtnActivo As System.Windows.Forms.CheckBox
Friend WithEvents msdHora As AxMSMask.AxMaskEdBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(ActualizadorBinario))
Me.tlbCatUnuarios = New System.Windows.Forms.ToolBar()
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton()
Me.btnActualizar = New System.Windows.Forms.ToolBarButton()
Me.btnEliminar = New System.Windows.Forms.ToolBarButton()
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel9 = New System.Windows.Forms.Panel()
Me.dtgParGru = New System.Windows.Forms.DataGrid()
Me.pnlCatalgo = New System.Windows.Forms.Panel()
Me.RbtnActivo = New System.Windows.Forms.CheckBox()
Me.txtValPar = New System.Windows.Forms.Label()
Me.lblCuaCam = New System.Windows.Forms.Label()
Me.txtExtra = New System.Windows.Forms.TextBox()
Me.lblGrupos = New System.Windows.Forms.Label()
Me.lblNombre = New System.Windows.Forms.Label()
Me.pnlBotones = New System.Windows.Forms.Panel()
Me.btnAceptar = New System.Windows.Forms.Button()
Me.btnCancelar = New System.Windows.Forms.Button()
Me.cboGruCue = New System.Windows.Forms.ComboBox()
Me.txtGruCue = New System.Windows.Forms.TextBox()
Me.cboParGru = New System.Windows.Forms.ComboBox()
Me.msdHora = New AxMSMask.AxMaskEdBox()
Me.txtValParametro = New System.Windows.Forms.TextBox()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.Panel9.SuspendLayout()
CType(Me.dtgParGru, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlCatalgo.SuspendLayout()
Me.pnlBotones.SuspendLayout()
CType(Me.msdHora, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'tlbCatUnuarios
'
Me.tlbCatUnuarios.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCatUnuarios.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCatUnuarios.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCatUnuarios.DropDownArrows = True
Me.tlbCatUnuarios.ImageList = Me.ImageList1
Me.tlbCatUnuarios.Name = "tlbCatUnuarios"
Me.tlbCatUnuarios.ShowToolTips = True
Me.tlbCatUnuarios.Size = New System.Drawing.Size(558, 44)
Me.tlbCatUnuarios.TabIndex = 23
'
'btnAgrergar
'
Me.btnAgrergar.Enabled = False
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.Enabled = False
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'Panel1
'
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.pnlCatalgo})
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 44)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(558, 336)
Me.Panel1.TabIndex = 24
'
'Panel3
'
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel4})
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 120)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(558, 216)
Me.Panel3.TabIndex = 1
'
'Panel4
'
Me.Panel4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel5})
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(558, 216)
Me.Panel4.TabIndex = 0
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.White
Me.Panel5.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel9})
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(558, 216)
Me.Panel5.TabIndex = 56
'
'Panel9
'
Me.Panel9.BackColor = System.Drawing.Color.White
Me.Panel9.Controls.AddRange(New System.Windows.Forms.Control() {Me.dtgParGru})
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(558, 216)
Me.Panel9.TabIndex = 1
'
'dtgParGru
'
Me.dtgParGru.BackgroundColor = System.Drawing.SystemColors.ActiveCaptionText
Me.dtgParGru.DataMember = ""
Me.dtgParGru.Dock = System.Windows.Forms.DockStyle.Fill
Me.dtgParGru.GridLineColor = System.Drawing.SystemColors.ActiveCaption
Me.dtgParGru.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dtgParGru.Name = "dtgParGru"
Me.dtgParGru.ParentRowsBackColor = System.Drawing.Color.LightYellow
Me.dtgParGru.ParentRowsForeColor = System.Drawing.SystemColors.ActiveCaption
Me.dtgParGru.PreferredColumnWidth = 150
Me.dtgParGru.ReadOnly = True
Me.dtgParGru.SelectionBackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
Me.dtgParGru.SelectionForeColor = System.Drawing.SystemColors.ActiveCaption
Me.dtgParGru.Size = New System.Drawing.Size(558, 216)
Me.dtgParGru.TabIndex = 2
'
'pnlCatalgo
'
Me.pnlCatalgo.BackColor = System.Drawing.SystemColors.Control
Me.pnlCatalgo.Controls.AddRange(New System.Windows.Forms.Control() {Me.RbtnActivo, Me.txtValPar, Me.lblCuaCam, Me.txtExtra, Me.lblGrupos, Me.lblNombre, Me.pnlBotones, Me.cboGruCue, Me.txtGruCue, Me.cboParGru, Me.msdHora, Me.txtValParametro})
Me.pnlCatalgo.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlCatalgo.Name = "pnlCatalgo"
Me.pnlCatalgo.Size = New System.Drawing.Size(558, 120)
Me.pnlCatalgo.TabIndex = 0
'
'RbtnActivo
'
Me.RbtnActivo.AccessibleRole = System.Windows.Forms.AccessibleRole.None
Me.RbtnActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RbtnActivo.ForeColor = System.Drawing.Color.Red
Me.RbtnActivo.Location = New System.Drawing.Point(352, 24)
Me.RbtnActivo.Name = "RbtnActivo"
Me.RbtnActivo.Size = New System.Drawing.Size(64, 24)
Me.RbtnActivo.TabIndex = 17
Me.RbtnActivo.Text = "Activo"
'
'txtValPar
'
Me.txtValPar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtValPar.ForeColor = System.Drawing.SystemColors.ControlText
Me.txtValPar.Location = New System.Drawing.Point(64, 88)
Me.txtValPar.Name = "txtValPar"
Me.txtValPar.Size = New System.Drawing.Size(72, 23)
Me.txtValPar.TabIndex = 15
Me.txtValPar.Text = "Valor :"
Me.txtValPar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblCuaCam
'
Me.lblCuaCam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCuaCam.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.lblCuaCam.Location = New System.Drawing.Point(8, 120)
Me.lblCuaCam.Name = "lblCuaCam"
Me.lblCuaCam.Size = New System.Drawing.Size(64, 23)
Me.lblCuaCam.TabIndex = 12
Me.lblCuaCam.Text = "Nombre :"
Me.lblCuaCam.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txtExtra
'
Me.txtExtra.Location = New System.Drawing.Point(80, 120)
Me.txtExtra.Name = "txtExtra"
Me.txtExtra.Size = New System.Drawing.Size(200, 20)
Me.txtExtra.TabIndex = 11
Me.txtExtra.Text = "Tarjeta de Credito"
'
'lblGrupos
'
Me.lblGrupos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGrupos.ForeColor = System.Drawing.Color.Black
Me.lblGrupos.Location = New System.Drawing.Point(0, 24)
Me.lblGrupos.Name = "lblGrupos"
Me.lblGrupos.Size = New System.Drawing.Size(136, 23)
Me.lblGrupos.TabIndex = 2
Me.lblGrupos.Text = "Grupos de Cuentas :"
Me.lblGrupos.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblNombre
'
Me.lblNombre.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNombre.ForeColor = System.Drawing.SystemColors.ControlText
Me.lblNombre.Location = New System.Drawing.Point(64, 56)
Me.lblNombre.Name = "lblNombre"
Me.lblNombre.Size = New System.Drawing.Size(72, 23)
Me.lblNombre.TabIndex = 1
Me.lblNombre.Text = "Parametro :"
Me.lblNombre.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'pnlBotones
'
Me.pnlBotones.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnAceptar, Me.btnCancelar})
Me.pnlBotones.Location = New System.Drawing.Point(424, 16)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 14
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Bitmap)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Bitmap)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cboGruCue
'
Me.cboGruCue.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboGruCue.Location = New System.Drawing.Point(144, 24)
Me.cboGruCue.Name = "cboGruCue"
Me.cboGruCue.Size = New System.Drawing.Size(200, 21)
Me.cboGruCue.TabIndex = 1
'
'txtGruCue
'
Me.txtGruCue.BackColor = System.Drawing.SystemColors.HighlightText
Me.txtGruCue.Location = New System.Drawing.Point(144, 24)
Me.txtGruCue.Name = "txtGruCue"
Me.txtGruCue.ReadOnly = True
Me.txtGruCue.Size = New System.Drawing.Size(200, 20)
Me.txtGruCue.TabIndex = 10
Me.txtGruCue.Text = "Tarjeta de Credito"
'
'cboParGru
'
Me.cboParGru.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboParGru.ItemHeight = 13
Me.cboParGru.Location = New System.Drawing.Point(144, 56)
Me.cboParGru.Name = "cboParGru"
Me.cboParGru.Size = New System.Drawing.Size(200, 21)
Me.cboParGru.TabIndex = 0
'
'msdHora
'
Me.msdHora.ContainingControl = Me
Me.msdHora.Location = New System.Drawing.Point(144, 88)
Me.msdHora.Name = "msdHora"
Me.msdHora.OcxState = CType(resources.GetObject("msdHora.OcxState"), System.Windows.Forms.AxHost.State)
Me.msdHora.Size = New System.Drawing.Size(200, 24)
Me.msdHora.TabIndex = 18
Me.msdHora.Visible = False
'
'txtValParametro
'
Me.txtValParametro.BackColor = System.Drawing.SystemColors.HighlightText
Me.txtValParametro.Location = New System.Drawing.Point(144, 88)
Me.txtValParametro.Name = "txtValParametro"
Me.txtValParametro.ReadOnly = True
Me.txtValParametro.Size = New System.Drawing.Size(200, 20)
Me.txtValParametro.TabIndex = 16
Me.txtValParametro.Text = ""
'
'ActualizadorBinario
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
Me.ClientSize = New System.Drawing.Size(558, 380)
Me.ControlBox = False
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1, Me.tlbCatUnuarios})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "ActualizadorBinario"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "CatUni001"
Me.Text = "Actualizador Parametros de Grupo"
Me.Panel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
Me.Panel9.ResumeLayout(False)
CType(Me.dtgParGru, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlCatalgo.ResumeLayout(False)
Me.pnlBotones.ResumeLayout(False)
CType(Me.msdHora, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCatUnuarios.ButtonClick
DesOperacion = e.Button.Text
Select Case e.Button.Text
Case "Actualizar"
ActualizarValorParametro()
Case "Salir"
Salir()
Me.Close()
End Select
End Sub
Public Function Salir() As Boolean
Return Fin = True
End Function
Private Sub ActualizarValorParametro()
Activa = True
cboGruCue.Enabled = False
cboParGru.Enabled = False
txtValParametro.ReadOnly = False
Me.msdHora.Enabled = True
End Sub
Private Sub ActualizadorBinario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Fin = False
Actualizar()
Me.msdHora.Visible = False
Activa = False
End Sub
Private Sub Actualizar()
cboGruCue.Enabled = True
cboParGru.Enabled = True
txtValParametro.ReadOnly = True
LlenaCombo.LlenaData("Grupo de Cuentas", Me.cboGruCue, Me.dtGrupos)
LlenaCombo.LlenaData("Parametros de Rango", Me.cboParGru, Me.dtParametros)
LlenaGrid.LlenaData("spcbGriParGrup " & Me.Id_Grupo.ToString, Me.dtgParGru, Me.dtGridParamtros) '1:Catalgo ; 2:Alias
AparienciaGrid(dtgParGru)
SetSelectedIndex(dtgParGru)
End Sub
Public Sub Entrar(ByVal NombreCatalgog As String)
Me.Text = NombreCatalgog
NombreCatalogo = NombreCatalgog
End Sub
Private Sub AparienciaGrid(ByVal Grid As DataGrid)
Dim ts As DataGridTableStyle = New DataGridTableStyle()
ts.MappingName = Grid.DataMember
Grid.TableStyles.Clear()
Grid.TableStyles.Add(ts)
Grid.TableStyles(0).GridColumnStyles(0).Width = 0
Grid.TableStyles(0).GridColumnStyles(1).Width = 300
Grid.TableStyles(0).GridColumnStyles(2).Width = 50
Grid.TableStyles(0).GridColumnStyles(3).Width = 0
End Sub
Private Sub SetSelectedIndex(ByVal myGrid As DataGrid)
Registro(myGrid)
End Sub
Private Sub gridDoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtgParGru.DoubleClick
Registro(sender)
End Sub
Private Sub CargarInformacion(ByVal GridOrigen As DataGrid)
Try
Me.Id_Parametro = Me.dtGridParamtros.Rows(Indice).Item(0)
NombreParametro = dtGridParamtros.Rows(Indice).Item(1)
Me.Valor = dtGridParamtros.Rows(Indice).Item(2)
Activo = dtGridParamtros.Rows(Indice).Item(3)
Catch
End Try
If Activo = True Then
Me.RbtnActivo.Checked = True
Else
Me.RbtnActivo.Checked = False
End If
Mascara(Valor)
cboParGru.SelectedValue = Id_Parametro
txtValParametro.Text = Valor
End Sub
Private Sub Mascara(ByVal Valor As String)
Try
If NombreParametro.Trim = "ParametroHora" Then
msdHora.Visible = True
txtValParametro.Visible = False
Me.msdHora.ClipMode = MSMask.ClipModeConstants.mskExcludeLiterals
msdHora.Text = " "
msdHora.SelText = Valor
msdHora.Refresh()
Else
msdHora.Visible = False
txtValParametro.Visible = True
End If
Catch
End Try
End Sub
Private Sub SeleccionGrid(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtgParGru.CurrentCellChanged
'Evento que se dispara cuando me muevo entre los registos de la tabla
Registro(sender)
End Sub
Private Sub Registro(ByVal Grid As DataGrid)
Indice = Grid.CurrentRowIndex
CargarInformacion(Grid)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
If ValidaTexto.ValidaCadenas(txtValParametro) = 0 Then
MessageBox.Show("Ingerese datos necesarios")
Me.txtValParametro.Focus()
Else
If NombreParametro.Trim = "ParametroHora" Then
Me.msdHora.ClipMode = MSMask.ClipModeConstants.mskExcludeLiterals
Valor = msdHora.ClipText
Valor = Valor.Substring(0, 2) & ":" & Valor.Substring(2, 2)
Else
Valor = Me.txtValParametro.Text
End If
TipoOperacion = 0
Command.spsql = "spcbActValPar " & Me.Id_Grupo.ToString & " , " & Me.Id_Parametro.ToString & " , '" & Me.Valor.ToString & " ' , " & TipoOperacion.ToString
Command.Ejecuta(Command.spsql)
ActivaCatalogo()
LlenaGrid.LlenaData("spcbGriParGrup " & Me.Id_Grupo.ToString, Me.dtgParGru, Me.dtGridParamtros) '1:Catalgo ; 2:Alias
AparienciaGrid(dtgParGru)
SetSelectedIndex(dtgParGru)
End If
If Activa = False Then
Actualizar()
End If
End Sub
Private Sub cboGruCue_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboGruCue.SelectedValueChanged
Try
Me.Id_Grupo = Me.cboGruCue.SelectedValue
LlenaGrid.LlenaData("spcbGriParGrup " & Id_Grupo.ToString, Me.dtgParGru, Me.dtGridParamtros) '1:Catalgo ; 2:Alias
Registro(dtgParGru)
Catch
End Try
End Sub
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
Actualizar()
End Sub
Private Sub ActivaCatalogo()
Dim Indice, i As Integer
Try
Indice = Me.dtGridParamtros.Rows.Count
For i = 0 To Indice - 1
If dtGridParamtros.Rows(i).Item(2) = " " Then
Exit For
RbtnActivo.Checked = False
Else
If i = Indice - 1 Then
TipoOperacion = 1
Command.spsql = "spcbActValPar " & Me.Id_Grupo.ToString & " , " & Me.Id_Parametro.ToString & " , '" & Me.Valor.ToString & " ' ," & TipoOperacion.ToString
Command.Ejecuta(Command.spsql)
Activa = False
RbtnActivo.Checked = True
End If
End If
Next
Catch e As Exception
MessageBox.Show(e.Message)
End Try
End Sub
End Class

279
Busquedas/ClienteBol.resx Normal file
View File

@ -0,0 +1,279 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="dataGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="dataGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="dataGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;163&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 768, 163&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 768, 163&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADG
CgAAAk1TRnQBSQFMAgEBBAEAAawBAAGsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ARgAB7Az/
AwAB7Az/GgAB/wEDBwAB7AX/AQIG/wMAAewK/wIEDQAB/wL6AQIJAAH/AewBAwHsBQAB7AT/AgIG/wMA
AewJ/wEEAf4B/AMAAfoHAgEAAf8C+gECCgAB/wEDAewBAwHsAQMDAAHsA/8GAgP/AwAB7Aj/AQQB/gH8
Af8EAAH6BQIBAAH/AvoBAgkAAewBAAH/AewBAwHsAQMB7AEDAgAB7AT/AgID/wECAv8DAAHsB/8BBAH+
AfwC/wUAAfoDAgEAAf8C+gECAQABAggAAewBAAH/AQMB7AEDAewBAwHsAgAB7AX/AQID/wECAv8DAAHs
Bv8BBAH+AfwD/wYAAfoBAgEAAf8C+gECCwAB7AEAAf8B7AIAAQMB7AEDAgAB7AL/AQIG/wECAv8DAAHs
Av8DAAEEAf4B/AT/CAAB/wL6AQIIAAEGBQAB/wEDAgcB7AEDAewCAAHsAv8BAgP/AQIF/wMAAewB/wEA
AQcB/gHsAQAB/AX/BwAB/wL6AQIIAAEGBf4BAAH/AewBAwHsAQMB7AEDAgAB7AL/AQID/wICBP8DAAHs
AQAB+wH+AQcB/gHsAQAF/wYAAf8C+gECAQACAgYABv4BAAH/AQMB7AEDAewBAwHsAgAB7AP/BgID/wMA
AewBAAH+AfsB/gEHAf4BAAX/BQAB/wL6AQIBAAH6AwIGAAH+BQAB/wHsAQMB7AEDAewBAwIAAewG/wIC
BP8DAAHsAQAB/wH+AfsB/gEHAQAF/wQAAf8C+gECAwAB+gMCCQAB7AEAAf8BAwHsAQMB7AEDAewCAAHs
Bv8BAgL/BgAB7AH/AQAB/wH+AfsBAAP/BgAB/wL6AQIFAAT6CAAB7AEAAewB/wEHAewBAwHsAQMCAAHs
Cf8B7AH/AewDAAHsAv8DAAT/AQAC/xgAA+wBAAHsAf8BBwEDAewCAAHsCf8C7AQAAewJ/wEAAf8ZAAXs
AQAB7AH/AQcCAAvsBQAK7CUAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/+BAAGA
AQEBgAEBAv8B/gE/AYABAQGAAQEB/wHgAf4BDwGAAQEBgAEBAgAB/gEDAYABAQGAAQEBAAEBAfgBAAGA
AQEBgAEBAYABAwH4AQABgAEBAYABAQHAAQEB6AEAAYABAQGAAQEB4AEBAcgBAAGAAQEBgAEBAfABHwGA
AQABgAEBAYABAQHwAR8CAAGAAQEBgAEBAeABDwIAAYABAQGAAQEBwAEHAYABAAGAAQEBgAEBAYEBAwHI
AQABgAEBAYABAQEDAYEB6AEAAYABAwGAAQEBBwHBAfgBAAGAAQcBgAEDAv8B+AEAAYABDwGAAQcC/wH4
AQAL
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>61</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

895
Busquedas/ClienteBol.vb Normal file
View File

@ -0,0 +1,895 @@
Public Class ClientesBol
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents lblOrganismo As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents lblPorcentaje As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents lblNombreFigura As System.Windows.Forms.Label
Friend WithEvents txtCliente As System.Windows.Forms.TextBox
Friend WithEvents cmbPorcentaje As System.Windows.Forms.ComboBox
Friend WithEvents cmbPais As System.Windows.Forms.ComboBox
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents lblfecha As System.Windows.Forms.Label
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents cmbStatus As System.Windows.Forms.ComboBox
Friend WithEvents dataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents btnCerrar As System.Windows.Forms.Button
Friend WithEvents BTExportar As System.Windows.Forms.Button
Friend WithEvents BTLimpiar As System.Windows.Forms.Button
Friend WithEvents BTConsultar As System.Windows.Forms.Button
Private WithEvents panel2 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents label4 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents lblResultados As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ClientesBol))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.lblStatus = New System.Windows.Forms.Label()
Me.cmbStatus = New System.Windows.Forms.ComboBox()
Me.txtCliente = New System.Windows.Forms.TextBox()
Me.cmbPorcentaje = New System.Windows.Forms.ComboBox()
Me.lblPorcentaje = New System.Windows.Forms.Label()
Me.cmbOrganismo = New System.Windows.Forms.ComboBox()
Me.lblOrganismo = New System.Windows.Forms.Label()
Me.lblNombreFigura = New System.Windows.Forms.Label()
Me.cmbPais = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.dataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.lblResultados = New System.Windows.Forms.Label()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.lblfecha = New System.Windows.Forms.Label()
Me.btnCerrar = New System.Windows.Forms.Button()
Me.BTExportar = New System.Windows.Forms.Button()
Me.BTLimpiar = New System.Windows.Forms.Button()
Me.BTConsultar = New System.Windows.Forms.Button()
Me.panel2 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.panel2.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.lblStatus)
Me.GroupBox1.Controls.Add(Me.cmbStatus)
Me.GroupBox1.Controls.Add(Me.txtCliente)
Me.GroupBox1.Controls.Add(Me.cmbPorcentaje)
Me.GroupBox1.Controls.Add(Me.lblPorcentaje)
Me.GroupBox1.Controls.Add(Me.cmbOrganismo)
Me.GroupBox1.Controls.Add(Me.lblOrganismo)
Me.GroupBox1.Controls.Add(Me.lblNombreFigura)
Me.GroupBox1.Location = New System.Drawing.Point(12, 56)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(787, 60)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Parámetros de búsqueda"
'
'lblStatus
'
Me.lblStatus.AutoSize = True
Me.lblStatus.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblStatus.Location = New System.Drawing.Point(176, 18)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(42, 13)
Me.lblStatus.TabIndex = 9
Me.lblStatus.Text = "Estatus"
'
'cmbStatus
'
Me.cmbStatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbStatus.FormattingEnabled = True
Me.cmbStatus.Location = New System.Drawing.Point(179, 33)
Me.cmbStatus.Name = "cmbStatus"
Me.cmbStatus.Size = New System.Drawing.Size(191, 21)
Me.cmbStatus.TabIndex = 8
'
'txtCliente
'
Me.txtCliente.Location = New System.Drawing.Point(386, 34)
Me.txtCliente.Name = "txtCliente"
Me.txtCliente.Size = New System.Drawing.Size(395, 20)
Me.txtCliente.TabIndex = 6
'
'cmbPorcentaje
'
Me.cmbPorcentaje.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbPorcentaje.Location = New System.Drawing.Point(13, 34)
Me.cmbPorcentaje.Name = "cmbPorcentaje"
Me.cmbPorcentaje.Size = New System.Drawing.Size(157, 21)
Me.cmbPorcentaje.TabIndex = 5
'
'lblPorcentaje
'
Me.lblPorcentaje.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblPorcentaje.Location = New System.Drawing.Point(10, 18)
Me.lblPorcentaje.Name = "lblPorcentaje"
Me.lblPorcentaje.Size = New System.Drawing.Size(58, 16)
Me.lblPorcentaje.TabIndex = 4
Me.lblPorcentaje.Text = "Porcentaje"
'
'cmbOrganismo
'
Me.cmbOrganismo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbOrganismo.Location = New System.Drawing.Point(148, 11)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(22, 21)
Me.cmbOrganismo.TabIndex = 1
Me.cmbOrganismo.Visible = False
'
'lblOrganismo
'
Me.lblOrganismo.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblOrganismo.Location = New System.Drawing.Point(80, 16)
Me.lblOrganismo.Name = "lblOrganismo"
Me.lblOrganismo.Size = New System.Drawing.Size(62, 16)
Me.lblOrganismo.TabIndex = 0
Me.lblOrganismo.Text = "Organismo"
Me.lblOrganismo.Visible = False
'
'lblNombreFigura
'
Me.lblNombreFigura.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblNombreFigura.Location = New System.Drawing.Point(383, 16)
Me.lblNombreFigura.Name = "lblNombreFigura"
Me.lblNombreFigura.Size = New System.Drawing.Size(132, 16)
Me.lblNombreFigura.TabIndex = 7
Me.lblNombreFigura.Text = "Cliente"
Me.lblNombreFigura.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'cmbPais
'
Me.cmbPais.Location = New System.Drawing.Point(836, 82)
Me.cmbPais.Name = "cmbPais"
Me.cmbPais.Size = New System.Drawing.Size(122, 21)
Me.cmbPais.TabIndex = 3
Me.cmbPais.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(801, 85)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(29, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "País"
Me.Label2.Visible = False
'
'GroupBox2
'
Me.GroupBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox2.Controls.Add(Me.dataGrid1)
Me.GroupBox2.Controls.Add(Me.lblResultados)
Me.GroupBox2.Location = New System.Drawing.Point(12, 140)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(787, 206)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Resultados"
'
'dataGrid1
'
Me.dataGrid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dataGrid1.CaptionHeight = 17
Me.dataGrid1.FetchRowStyles = True
Me.dataGrid1.FilterBar = True
Me.dataGrid1.GroupByCaption = "AGRUPAR"
Me.dataGrid1.Images.Add(CType(resources.GetObject("dataGrid1.Images"), System.Drawing.Image))
Me.dataGrid1.Location = New System.Drawing.Point(9, 21)
Me.dataGrid1.Name = "dataGrid1"
Me.dataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.dataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.dataGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.dataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("dataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.dataGrid1.RowHeight = 15
Me.dataGrid1.Size = New System.Drawing.Size(772, 167)
Me.dataGrid1.TabIndex = 61
Me.dataGrid1.Text = "C1TrueDBGrid1"
Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag")
'
'lblResultados
'
Me.lblResultados.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblResultados.Location = New System.Drawing.Point(6, 191)
Me.lblResultados.Name = "lblResultados"
Me.lblResultados.Size = New System.Drawing.Size(134, 12)
Me.lblResultados.TabIndex = 2
Me.lblResultados.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
'
'lblfecha
'
Me.lblfecha.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblfecha.AutoSize = True
Me.lblfecha.ForeColor = System.Drawing.Color.MidnightBlue
Me.lblfecha.Location = New System.Drawing.Point(12, 119)
Me.lblfecha.Name = "lblfecha"
Me.lblfecha.Size = New System.Drawing.Size(39, 13)
Me.lblfecha.TabIndex = 16
Me.lblfecha.Text = "Label4"
Me.lblfecha.Visible = False
'
'btnCerrar
'
Me.btnCerrar.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnCerrar.BackColor = System.Drawing.Color.Black
Me.btnCerrar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCerrar.ForeColor = System.Drawing.Color.White
Me.btnCerrar.Location = New System.Drawing.Point(804, 326)
Me.btnCerrar.Name = "btnCerrar"
Me.btnCerrar.Size = New System.Drawing.Size(89, 30)
Me.btnCerrar.TabIndex = 20
Me.btnCerrar.Text = "Cerrar"
Me.btnCerrar.UseVisualStyleBackColor = False
'
'BTExportar
'
Me.BTExportar.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.BTExportar.BackColor = System.Drawing.Color.Black
Me.BTExportar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTExportar.ForeColor = System.Drawing.Color.White
Me.BTExportar.Location = New System.Drawing.Point(804, 288)
Me.BTExportar.Name = "BTExportar"
Me.BTExportar.Size = New System.Drawing.Size(89, 32)
Me.BTExportar.TabIndex = 19
Me.BTExportar.Text = "Exportar"
Me.BTExportar.UseVisualStyleBackColor = False
'
'BTLimpiar
'
Me.BTLimpiar.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.BTLimpiar.BackColor = System.Drawing.Color.Black
Me.BTLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTLimpiar.ForeColor = System.Drawing.Color.White
Me.BTLimpiar.Location = New System.Drawing.Point(804, 248)
Me.BTLimpiar.Name = "BTLimpiar"
Me.BTLimpiar.Size = New System.Drawing.Size(89, 34)
Me.BTLimpiar.TabIndex = 18
Me.BTLimpiar.Text = "Limpiar"
Me.BTLimpiar.UseVisualStyleBackColor = False
'
'BTConsultar
'
Me.BTConsultar.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.BTConsultar.BackColor = System.Drawing.Color.Black
Me.BTConsultar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BTConsultar.ForeColor = System.Drawing.Color.White
Me.BTConsultar.Location = New System.Drawing.Point(804, 206)
Me.BTConsultar.Name = "BTConsultar"
Me.BTConsultar.Size = New System.Drawing.Size(89, 36)
Me.BTConsultar.TabIndex = 17
Me.BTConsultar.Text = "Buscar"
Me.BTConsultar.UseVisualStyleBackColor = False
'
'panel2
'
Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.panel2.BackColor = System.Drawing.Color.Black
Me.panel2.Controls.Add(Me.Img_logoCabecera)
Me.panel2.Controls.Add(Me.label4)
Me.panel2.ForeColor = System.Drawing.Color.Navy
Me.panel2.Location = New System.Drawing.Point(-2, -1)
Me.panel2.Name = "panel2"
Me.panel2.Size = New System.Drawing.Size(910, 51)
Me.panel2.TabIndex = 160
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(790, 3)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'label4
'
Me.label4.AutoSize = True
Me.label4.BackColor = System.Drawing.Color.Transparent
Me.label4.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.label4.ForeColor = System.Drawing.SystemColors.Window
Me.label4.Location = New System.Drawing.Point(21, 8)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(193, 22)
Me.label4.TabIndex = 2
Me.label4.Text = "Clientes boletinados"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(853, 4)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(42, 17)
Me.Label1.TabIndex = 161
Me.Label1.Text = "Minds"
'
'Panel1
'
Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Black
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Location = New System.Drawing.Point(-2, 364)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(909, 35)
Me.Panel1.TabIndex = 162
'
'ClientesBol
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(906, 394)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.panel2)
Me.Controls.Add(Me.btnCerrar)
Me.Controls.Add(Me.BTExportar)
Me.Controls.Add(Me.BTLimpiar)
Me.Controls.Add(Me.BTConsultar)
Me.Controls.Add(Me.lblfecha)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.cmbPais)
Me.Controls.Add(Me.Label2)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "ClientesBol"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Clientes boletinados"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Dim clCmp1 As clsComplejo = New clsComplejo
Dim clCmp2 As clsComplejo = New clsComplejo
Dim clCmp3 As clsComplejo = New clsComplejo
Dim clCmp4 As clsComplejo = New clsComplejo
Dim clGrid As clsComplejo = New clsComplejo
Dim BanOrg, BanPais, BanPorc, BanStatus As Boolean
Private Sub ClientesBol_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BanOrg = False
BanPais = False
BanOrg = False
BanStatus = False
label4.Text = Me.Text
End Sub
'Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
' 'Botones de la toolbar
' Select Case e.Button.Text
' Case "Consultar"
' Me.Cursor = Cursors.WaitCursor
' sbBuscar()
' Me.Cursor = Cursors.Default
' Case "Exportar"
' Exportar()
' Case "Refrescar"
' Refrescar()
' Case "Salir"
' Me.Close()
' End Select
'End Sub
Private Sub Exportar()
'llama a las rutinas para exportar el grid a excel
Try
If clGrid.dt.Rows.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clGrid.dt.Rows.Count = 0 Then
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Dim Resul As DialogResult
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Resul = DialogResult.Yes Then
'Creo una instancia de la clase aExcel
Dim clsExcel As aExcel = New aExcel
'Utilizo la funcion ExportDataset de la clase aExcel
clsExcel.ExportDataset(clGrid.ds) 'Asigno el dataset a exportar
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbBuscar()
Try
'Se utiliza el procedimiento almacenado "spBuscaClienteBol" para buscar
Dim SQL, Where As String
Dim varfecha As Object = 0
Dim CLasscom As New clsComplejo
Dim ClassAud As New ClassMyUtils
Dim sAuditoria As String
Dim intCuenta As Integer
'JLL 27-08-2013 oculto las columnas con la funcion clocultarcolumna
Dim OcultarCol As clOcultarColumna = New clOcultarColumna()
SQL = ""
Where = ""
intCuenta = 0
SQL = "sp_ConsultarLRClt " & IIf(cmbOrganismo.SelectedValue <> Nothing, cmbOrganismo.SelectedValue, "NULL")
SQL = SQL & "," & IIf(cmbPorcentaje.Text <> "", "'" & cmbPorcentaje.Text.Replace("%", "") & "'", "NULL")
SQL = SQL & "," & IIf(cmbStatus.SelectedValue <> Nothing, cmbStatus.SelectedValue, "NULL")
SQL = SQL & "," & IIf(txtCliente.Text <> "", "'" & txtCliente.Text.Trim & "'", "NULL")
clGrid.dt = New DataTable
clGrid.fdtDataTable(SQL)
clGrid.fdtDataSet(SQL)
dataGrid1.DataSource = Nothing
dataGrid1.DataSource = clGrid.dt
If dataGrid1.RowCount > 0 Then
For Each col As C1.Win.C1TrueDBGrid.C1DisplayColumn In dataGrid1.Splits(0).DisplayColumns
col.AutoSize()
Next
For i As Integer = 0 To dataGrid1.Columns.Count - 1
dataGrid1.Columns(i).Caption = dataGrid1.Columns(i).Caption.ToString.ToUpper
Next
dataGrid1.Splits(0).DisplayColumns(17).Visible = False
dataGrid1.Splits(0).DisplayColumns(18).Visible = False
dataGrid1.Splits(0).DisplayColumns(19).Visible = False
dataGrid1.Splits(0).DisplayColumns(20).Visible = False
dataGrid1.Splits(0).DisplayColumns(21).Visible = False
End If
Dim cont As Integer
'cont = clGrid.ds.Tables(0).Rows.Count
cont = clGrid.dt.Rows.Count
lblResultados.Text = "Elementos: " & cont
varfecha = CLasscom.BuscaValores("dFechaRegistro", "listacliente", "")
If Not IsDBNull(varfecha) Then
lblfecha.Text = "Coincidencias al " & CLasscom.ObtenFecha(varfecha, "dd/mm/yyyy")
lblfecha.AutoSize = True
lblfecha.Visible = True
Else
lblfecha.Visible = False
End If
sAuditoria = ""
If cmbOrganismo.Text.Trim <> "" Then sAuditoria = sAuditoria & " Organismo=" & cmbOrganismo.Text.Trim
If cmbPais.Text.Trim <> "" Then sAuditoria = sAuditoria & " Pais=" & cmbPais.Text.Trim
If cmbPorcentaje.Text.Trim <> "" Then sAuditoria = sAuditoria & " Porcentaje=" & cmbPorcentaje.Text.Trim
If cmbStatus.Text.Trim <> "" Then sAuditoria = sAuditoria & " Status=" & cmbStatus.Text.Trim
If txtCliente.Text.Trim <> "" Then sAuditoria = sAuditoria & " Cliente=" & txtCliente.Text.Trim
If txtCliente.Text.Trim <> "" Then sAuditoria = sAuditoria & " IdFigura=" & txtCliente.Text.Trim
If sAuditoria.Trim = "" Then sAuditoria = "Consulta lista restringida Clientes"
sAuditoria = Mid(sAuditoria.Trim, 1, 8000)
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 113, My.Computer.Name, "Minds Cliente", sAuditoria)
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Function fsDefineSQL(ByVal SP As String) As String
'Defino mi cadena para el procedimiento almacenado
'Declaro variables para pasar los parametros al procedimiento almacenado
Dim lsSQL As String
Dim _Opcion As Integer
Dim _Organismo As String = ", NULL, "
Dim _Pais As String = " NULL, "
Dim _Porcentaje As String = " NULL, "
Dim _DescStatus As String = " NULL, "
Dim _Cliente As String = " NULL "
If Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 1
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 2
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 3
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 4
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 5
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 6
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 7
_Porcentaje = "'" & Me.cmbPorcentaje.Text & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 8
_Porcentaje = Me.cmbPorcentaje.Text & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 9
_Pais = Me.cmbPais.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 10
_Pais = Me.cmbPais.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 11
_Pais = Me.cmbPais.SelectedValue & ", "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 12
_Pais = Me.cmbPais.SelectedValue & ", "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 13
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 14
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 15
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 16
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 17
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 18
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 19
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 20
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 21
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 22
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 23
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 24
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 25
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 26
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 27
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 28
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text = "" Then
_Opcion = 29
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text = "" And Me.txtCliente.Text <> "" Then
_Opcion = 30
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbPorcentaje.Text <> "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text = "" Then
_Opcion = 31
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbPorcentaje.Text = "" And Me.cmbStatus.Text <> "" And Me.txtCliente.Text <> "" Then
_Opcion = 32
_Organismo = ", " & Me.cmbOrganismo.SelectedValue & ", "
_Pais = Me.cmbPais.SelectedValue & ", "
_Porcentaje = "'" & Replace(Me.cmbPorcentaje.Text, "%", "") & "', "
_DescStatus = Me.cmbStatus.SelectedValue & ", "
_Cliente = "'%" & Me.txtCliente.Text & "%'"
End If
'Formo el query
lsSQL = lsSQL & SP & " "
lsSQL = lsSQL & _Opcion
lsSQL = lsSQL & _Organismo
lsSQL = lsSQL & _Pais
lsSQL = lsSQL & _Porcentaje
lsSQL = lsSQL & _DescStatus
lsSQL = lsSQL & _Cliente
Return lsSQL
End Function
Private Sub Refrescar()
'Limpia los combos, datagrid y la caja de texto
Me.cmbPais.DataSource = Nothing
Me.cmbPais.Items.Clear()
Me.cmbOrganismo.DataSource = Nothing
Me.cmbOrganismo.Items.Clear()
Me.cmbPorcentaje.Items.Clear()
Me.cmbPorcentaje.Text = ""
Me.cmbStatus.DataSource = Nothing
Me.cmbStatus.Items.Clear()
Me.txtCliente.Text = ""
Me.lblResultados.Text = ""
Me.dataGrid1.DataSource = Nothing
Me.dataGrid1.DataBindings.Clear()
clGrid.dt.Clear()
'Para que se puedan a llenar otra vez los combos
BanPais = False
BanOrg = False
BanPorc = False
BanStatus = False
End Sub
Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown
'Llena combo organismo
If BanOrg = False Then
'Para llenar el combo de organismo se utiliza el procedimiento almacenado "spLlenaComboOrgInt"
'clCmp1.sbLlenaCombo("spLlenaComboOrgInt", Me.cmbOrganismo)
clCmp1.sbLlenaCombo("sp_ConsultarOrganismosInter ", Me.cmbOrganismo)
End If
BanOrg = True
End Sub
Private Sub cmbPais_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPais.DropDown
'Llena comboPais
If BanPais = False Then
'Para llenar el combo de Pais se utiliza el porcedimiento almacenado "spListaPais"
clCmp2.sbLlenaCombo("spListaPais", Me.cmbPais)
End If
BanPais = True
End Sub
Private Sub cmbPorcentaje_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPorcentaje.DropDown
'Llena combo porcentaje
If BanPorc = False Then
Me.cmbPorcentaje.Items.Add("60%")
Me.cmbPorcentaje.Items.Add("70%")
Me.cmbPorcentaje.Items.Add("80%")
Me.cmbPorcentaje.Items.Add("90%")
Me.cmbPorcentaje.Items.Add("95%")
End If
BanPorc = True
End Sub
Private Sub cmbStatus_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbStatus.DropDown
'Llena combo status
If BanStatus = False Then
'Para llenar el combo de status se utiliza el procedimiento almacenado "spListastatus"
'clCmp4.sbLlenaCombo("select descstatus as nombre, id_status as clave from Status", Me.cmbStatus)
clCmp4.sbLlenaCombo("sp_ConsultarListaStatusClt 0 ", cmbStatus)
End If
BanStatus = True
End Sub
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dataGrid1.DoubleClick
'Jesus López López 23-09-13
'JMVD 2014-08-20 AGREGO VARIABLE
Dim iRow As Integer
Dim iRowCount As Integer
'Se asigna los valores seleccionados del DataGrid hacia la forma CatStatus
Try
Dim dat As String
''----Revisar
Dim FrmCalStatus As New FrmCalStatus
FrmCalStatus.pb9 = IIf(IsDBNull(dataGrid1.Columns("Registro en Lista").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Registro en Lista").CellValue(dataGrid1.Row)) ''id_lista rest
FrmCalStatus.pb = IIf(IsDBNull(dataGrid1.Columns("CLIENTE").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("CLIENTE").CellValue(dataGrid1.Row)) ''persona boletinada
FrmCalStatus.pb1 = IIf(IsDBNull(dataGrid1.Columns("Porcentaje Nombre").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Porcentaje Nombre").CellValue(dataGrid1.Row)) ''porcentaje
FrmCalStatus.pb2 = IIf(IsDBNull(dataGrid1.Columns("Organismo").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Organismo").CellValue(dataGrid1.Row)) ''organismo
'FrmCalStatus.pb3 = IIf(IsDBNull(dataGrid1.Columns(4).CellValue(dataGrid1.Row)), "", dataGrid1.Columns(4).CellValue(dataGrid1.Row)) ''pais
FrmCalStatus.pb4 = IIf(IsDBNull(dataGrid1.Columns("NIC").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("NIC").CellValue(dataGrid1.Row)) ''contrato
FrmCalStatus.pb8 = IIf(IsDBNull(dataGrid1.Columns("Estatus").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Estatus").CellValue(dataGrid1.Row)) ''estado de coincidencia No Revisado
FrmCalStatus.fecha = IIf(IsDBNull(dataGrid1.Columns("Fecha Coincidencia").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Fecha Coincidencia").CellValue(dataGrid1.Row)) ''Fecha coincidencia
FrmCalStatus.Comentario = IIf(IsDBNull(dataGrid1.Columns("Comentario").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Comentario").CellValue(dataGrid1.Row)) ''ListCli.Comentario
FrmCalStatus.pbIdFigura = IIf(IsDBNull(dataGrid1.Columns("Id_Figura").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Id_Figura").CellValue(dataGrid1.Row)) ''id_figura
FrmCalStatus.pbNomFigura = IIf(IsDBNull(dataGrid1.Columns("Tipo Figura").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Tipo Figura").CellValue(dataGrid1.Row)) ''descripcion figura
FrmCalStatus.pb5 = IIf(IsDBNull(dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)), "0", dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)) ''id estatus
FrmCalStatus.pb7 = IIf(IsDBNull(dataGrid1.Columns("Nombre Figura").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("Nombre Figura").CellValue(dataGrid1.Row)) ''nombre de la figura
'FrmCalStatus.pb10 = IIf(IsDBNull(dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)), "", dataGrid1.Columns("id_status").CellValue(dataGrid1.Row)) ''ACTIVO
FrmCalStatus.ShowDialog()
'sbBuscar()
'DataGrid1.CurrentRowIndex = iRow
'iRowCount = clGrid.ds.Tables(0).Rows.Count - 1
'If iRowCount > 0 Then
' If iRowCount < iRow Then
' DataGrid1.CurrentRowIndex = iRowCount
' Else
' DataGrid1.CurrentRowIndex = iRow
' End If
'End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cmbOrganismo_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbOrganismo.SelectedIndexChanged
End Sub
Private Sub cmbStatus_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbStatus.SelectedIndexChanged
End Sub
Private Sub tlbInusualesDivisas_ButtonClick(sender As System.Object, e As System.Windows.Forms.ToolBarButtonClickEventArgs)
'BOTONES DE LA TOOLBAR
Select Case UCase(e.Button.Text)
Case "BUSCAR"
Me.Cursor = Cursors.WaitCursor
sbBuscar()
Me.Cursor = Cursors.Default
Case "EXPORTAR"
Exportar()
Case "REFRESCAR"
Refrescar()
Case "CERRAR"
Me.Close()
End Select
End Sub
Private Sub BTConsultar_Click(sender As System.Object, e As System.EventArgs) Handles BTConsultar.Click
sbBuscar()
End Sub
Private Sub dataGrid1_FetchCellStyle(sender As Object, e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles dataGrid1.FetchCellStyle
End Sub
Private Sub BTLimpiar_Click(sender As System.Object, e As System.EventArgs) Handles BTLimpiar.Click
Refrescar()
End Sub
Private Sub BTExportar_Click(sender As System.Object, e As System.EventArgs) Handles BTExportar.Click
Exportar()
End Sub
Private Sub btnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles btnCerrar.Click
Me.Close()
End Sub
End Class

562
Busquedas/FRMListasR.Designer.vb generated Normal file
View File

@ -0,0 +1,562 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FRMListasR
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FRMListasR))
Me.cmbPaises = New System.Windows.Forms.ComboBox()
Me.lbl_Records = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Img_logoCabecera = New System.Windows.Forms.PictureBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.dataGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.DGVResultados = New System.Windows.Forms.DataGridView()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.btnLimpiar = New System.Windows.Forms.Button()
Me.txtpais = New System.Windows.Forms.TextBox()
Me.CmdBusqueda = New System.Windows.Forms.Button()
Me.cmbOrganismo = New System.Windows.Forms.ComboBox()
Me.chk_Field3 = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Text_Busqueda = New System.Windows.Forms.TextBox()
Me.opt_Free = New System.Windows.Forms.RadioButton()
Me.Label3 = New System.Windows.Forms.Label()
Me.opt_Exact = New System.Windows.Forms.RadioButton()
Me.chk_Field2 = New System.Windows.Forms.CheckBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.opt_EstatusTodos = New System.Windows.Forms.RadioButton()
Me.opt_EstatusInactivo = New System.Windows.Forms.RadioButton()
Me.opt_EstatusActivo = New System.Windows.Forms.RadioButton()
Me.Label6 = New System.Windows.Forms.Label()
Me.cmdClose = New System.Windows.Forms.Button()
Me.chk_Field0 = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.opt_Contents = New System.Windows.Forms.RadioButton()
Me.chk_Field1 = New System.Windows.Forms.CheckBox()
Me.CmdExportar = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel3.SuspendLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DGVResultados, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'cmbPaises
'
Me.cmbPaises.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbPaises.FormattingEnabled = True
Me.cmbPaises.Location = New System.Drawing.Point(114, 66)
Me.cmbPaises.Name = "cmbPaises"
Me.cmbPaises.Size = New System.Drawing.Size(245, 23)
Me.cmbPaises.TabIndex = 4
Me.cmbPaises.Visible = False
'
'lbl_Records
'
Me.lbl_Records.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl_Records.AutoSize = True
Me.lbl_Records.ForeColor = System.Drawing.Color.MidnightBlue
Me.lbl_Records.Location = New System.Drawing.Point(821, 463)
Me.lbl_Records.Name = "lbl_Records"
Me.lbl_Records.Size = New System.Drawing.Size(45, 15)
Me.lbl_Records.TabIndex = 60
Me.lbl_Records.Text = "Label7"
Me.lbl_Records.Visible = False
'
'Panel3
'
Me.Panel3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel3.BackColor = System.Drawing.Color.Black
Me.Panel3.Controls.Add(Me.Img_logoCabecera)
Me.Panel3.Controls.Add(Me.Label7)
Me.Panel3.ForeColor = System.Drawing.Color.Navy
Me.Panel3.Location = New System.Drawing.Point(-4, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(962, 43)
Me.Panel3.TabIndex = 160
'
'Img_logoCabecera
'
Me.Img_logoCabecera.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Img_logoCabecera.Image = Global.CLIENTE.My.Resources.Resources.blackrock_logo
Me.Img_logoCabecera.Location = New System.Drawing.Point(845, -7)
Me.Img_logoCabecera.Name = "Img_logoCabecera"
Me.Img_logoCabecera.Size = New System.Drawing.Size(117, 50)
Me.Img_logoCabecera.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.Img_logoCabecera.TabIndex = 360
Me.Img_logoCabecera.TabStop = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor = System.Drawing.Color.Transparent
Me.Label7.Font = New System.Drawing.Font("Century Gothic", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.SystemColors.Window
Me.Label7.Location = New System.Drawing.Point(21, 8)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(243, 22)
Me.Label7.TabIndex = 2
Me.Label7.Text = "Consulta listas restringidas"
'
'dataGrid1
'
Me.dataGrid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dataGrid1.CaptionHeight = 17
Me.dataGrid1.FilterBar = True
Me.dataGrid1.GroupByCaption = "AGRUPAR"
Me.dataGrid1.Images.Add(CType(resources.GetObject("dataGrid1.Images"), System.Drawing.Image))
Me.dataGrid1.Location = New System.Drawing.Point(10, 207)
Me.dataGrid1.Name = "dataGrid1"
Me.dataGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.dataGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.dataGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.dataGrid1.PrintInfo.PageSettings = CType(resources.GetObject("dataGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.dataGrid1.RowHeight = 15
Me.dataGrid1.Size = New System.Drawing.Size(936, 250)
Me.dataGrid1.TabIndex = 362
Me.dataGrid1.Text = "C1TrueDBGrid1"
Me.dataGrid1.PropBag = resources.GetString("dataGrid1.PropBag")
'
'DGVResultados
'
Me.DGVResultados.AllowUserToOrderColumns = True
Me.DGVResultados.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.DGVResultados.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCells
Me.DGVResultados.BackgroundColor = System.Drawing.Color.White
Me.DGVResultados.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DGVResultados.Location = New System.Drawing.Point(12, 463)
Me.DGVResultados.Name = "DGVResultados"
Me.DGVResultados.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
Me.DGVResultados.Size = New System.Drawing.Size(10, 21)
Me.DGVResultados.TabIndex = 363
Me.DGVResultados.Visible = False
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.btnLimpiar)
Me.GroupBox1.Controls.Add(Me.txtpais)
Me.GroupBox1.Controls.Add(Me.cmbPaises)
Me.GroupBox1.Controls.Add(Me.CmdBusqueda)
Me.GroupBox1.Controls.Add(Me.cmbOrganismo)
Me.GroupBox1.Controls.Add(Me.chk_Field3)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Text_Busqueda)
Me.GroupBox1.Controls.Add(Me.opt_Free)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.opt_Exact)
Me.GroupBox1.Controls.Add(Me.chk_Field2)
Me.GroupBox1.Controls.Add(Me.Panel2)
Me.GroupBox1.Controls.Add(Me.cmdClose)
Me.GroupBox1.Controls.Add(Me.chk_Field0)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.opt_Contents)
Me.GroupBox1.Controls.Add(Me.chk_Field1)
Me.GroupBox1.Controls.Add(Me.CmdExportar)
Me.GroupBox1.Location = New System.Drawing.Point(12, 49)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(935, 152)
Me.GroupBox1.TabIndex = 364
Me.GroupBox1.TabStop = False
'
'btnLimpiar
'
Me.btnLimpiar.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.btnLimpiar.BackColor = System.Drawing.Color.Black
Me.btnLimpiar.ForeColor = System.Drawing.Color.White
Me.btnLimpiar.Location = New System.Drawing.Point(833, 75)
Me.btnLimpiar.Name = "btnLimpiar"
Me.btnLimpiar.Size = New System.Drawing.Size(96, 33)
Me.btnLimpiar.TabIndex = 24
Me.btnLimpiar.Text = "Limpiar"
Me.btnLimpiar.UseVisualStyleBackColor = False
'
'txtpais
'
Me.txtpais.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtpais.Location = New System.Drawing.Point(114, 68)
Me.txtpais.Name = "txtpais"
Me.txtpais.Size = New System.Drawing.Size(245, 21)
Me.txtpais.TabIndex = 23
'
'CmdBusqueda
'
Me.CmdBusqueda.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.CmdBusqueda.BackColor = System.Drawing.Color.Black
Me.CmdBusqueda.ForeColor = System.Drawing.Color.White
Me.CmdBusqueda.Location = New System.Drawing.Point(833, 14)
Me.CmdBusqueda.Name = "CmdBusqueda"
Me.CmdBusqueda.Size = New System.Drawing.Size(96, 31)
Me.CmdBusqueda.TabIndex = 19
Me.CmdBusqueda.Text = "Buscar"
Me.CmdBusqueda.UseVisualStyleBackColor = False
'
'cmbOrganismo
'
Me.cmbOrganismo.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmbOrganismo.FormattingEnabled = True
Me.cmbOrganismo.Location = New System.Drawing.Point(114, 37)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(245, 23)
Me.cmbOrganismo.TabIndex = 3
'
'chk_Field3
'
Me.chk_Field3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.chk_Field3.AutoSize = True
Me.chk_Field3.ForeColor = System.Drawing.Color.MidnightBlue
Me.chk_Field3.Location = New System.Drawing.Point(726, 73)
Me.chk_Field3.Name = "chk_Field3"
Me.chk_Field3.Size = New System.Drawing.Size(107, 19)
Me.chk_Field3.TabIndex = 14
Me.chk_Field3.Tag = "Observaciones"
Me.chk_Field3.Text = "Observaciones"
Me.chk_Field3.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label5.Location = New System.Drawing.Point(723, 38)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(65, 15)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Buscar en:"
'
'Text_Busqueda
'
Me.Text_Busqueda.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Text_Busqueda.Location = New System.Drawing.Point(114, 94)
Me.Text_Busqueda.Name = "Text_Busqueda"
Me.Text_Busqueda.Size = New System.Drawing.Size(245, 21)
Me.Text_Busqueda.TabIndex = 5
'
'opt_Free
'
Me.opt_Free.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.opt_Free.AutoSize = True
Me.opt_Free.ForeColor = System.Drawing.Color.MidnightBlue
Me.opt_Free.Location = New System.Drawing.Point(392, 54)
Me.opt_Free.Name = "opt_Free"
Me.opt_Free.Size = New System.Drawing.Size(326, 19)
Me.opt_Free.TabIndex = 7
Me.opt_Free.TabStop = True
Me.opt_Free.Text = "Aproximada (Req. una coincidencia, por aproximación)"
Me.opt_Free.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label3.Location = New System.Drawing.Point(11, 92)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(105, 15)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Nombre/Empresa"
'
'opt_Exact
'
Me.opt_Exact.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.opt_Exact.AutoSize = True
Me.opt_Exact.ForeColor = System.Drawing.Color.MidnightBlue
Me.opt_Exact.Location = New System.Drawing.Point(392, 91)
Me.opt_Exact.Name = "opt_Exact"
Me.opt_Exact.Size = New System.Drawing.Size(257, 19)
Me.opt_Exact.TabIndex = 9
Me.opt_Exact.TabStop = True
Me.opt_Exact.Text = "Exacta (Todas las palabras suministradas)"
Me.opt_Exact.UseVisualStyleBackColor = True
'
'chk_Field2
'
Me.chk_Field2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.chk_Field2.AutoSize = True
Me.chk_Field2.ForeColor = System.Drawing.Color.MidnightBlue
Me.chk_Field2.Location = New System.Drawing.Point(726, 92)
Me.chk_Field2.Name = "chk_Field2"
Me.chk_Field2.Size = New System.Drawing.Size(78, 19)
Me.chk_Field2.TabIndex = 13
Me.chk_Field2.Tag = "CmpAux03"
Me.chk_Field2.Text = "Direccion"
Me.chk_Field2.UseVisualStyleBackColor = True
Me.chk_Field2.Visible = False
'
'Panel2
'
Me.Panel2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Panel2.Controls.Add(Me.opt_EstatusTodos)
Me.Panel2.Controls.Add(Me.opt_EstatusInactivo)
Me.Panel2.Controls.Add(Me.opt_EstatusActivo)
Me.Panel2.Controls.Add(Me.Label6)
Me.Panel2.Location = New System.Drawing.Point(386, 109)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(291, 30)
Me.Panel2.TabIndex = 22
'
'opt_EstatusTodos
'
Me.opt_EstatusTodos.AutoSize = True
Me.opt_EstatusTodos.ForeColor = System.Drawing.Color.MidnightBlue
Me.opt_EstatusTodos.Location = New System.Drawing.Point(232, 4)
Me.opt_EstatusTodos.Name = "opt_EstatusTodos"
Me.opt_EstatusTodos.Size = New System.Drawing.Size(59, 19)
Me.opt_EstatusTodos.TabIndex = 43
Me.opt_EstatusTodos.TabStop = True
Me.opt_EstatusTodos.Text = "Todos"
Me.opt_EstatusTodos.UseVisualStyleBackColor = True
'
'opt_EstatusInactivo
'
Me.opt_EstatusInactivo.AutoSize = True
Me.opt_EstatusInactivo.ForeColor = System.Drawing.Color.MidnightBlue
Me.opt_EstatusInactivo.Location = New System.Drawing.Point(140, 6)
Me.opt_EstatusInactivo.Name = "opt_EstatusInactivo"
Me.opt_EstatusInactivo.Size = New System.Drawing.Size(66, 19)
Me.opt_EstatusInactivo.TabIndex = 42
Me.opt_EstatusInactivo.TabStop = True
Me.opt_EstatusInactivo.Text = "Inactivo"
Me.opt_EstatusInactivo.UseVisualStyleBackColor = True
'
'opt_EstatusActivo
'
Me.opt_EstatusActivo.AutoSize = True
Me.opt_EstatusActivo.ForeColor = System.Drawing.Color.MidnightBlue
Me.opt_EstatusActivo.Location = New System.Drawing.Point(58, 6)
Me.opt_EstatusActivo.Name = "opt_EstatusActivo"
Me.opt_EstatusActivo.Size = New System.Drawing.Size(56, 19)
Me.opt_EstatusActivo.TabIndex = 41
Me.opt_EstatusActivo.TabStop = True
Me.opt_EstatusActivo.Text = "Activo"
Me.opt_EstatusActivo.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label6.Location = New System.Drawing.Point(7, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(47, 15)
Me.Label6.TabIndex = 40
Me.Label6.Text = "Estatus"
'
'cmdClose
'
Me.cmdClose.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.cmdClose.BackColor = System.Drawing.Color.Black
Me.cmdClose.ForeColor = System.Drawing.Color.White
Me.cmdClose.Location = New System.Drawing.Point(833, 107)
Me.cmdClose.Name = "cmdClose"
Me.cmdClose.Size = New System.Drawing.Size(96, 33)
Me.cmdClose.TabIndex = 20
Me.cmdClose.Text = "Cerrar"
Me.cmdClose.UseVisualStyleBackColor = False
'
'chk_Field0
'
Me.chk_Field0.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.chk_Field0.AutoSize = True
Me.chk_Field0.ForeColor = System.Drawing.Color.MidnightBlue
Me.chk_Field0.Location = New System.Drawing.Point(726, 56)
Me.chk_Field0.Name = "chk_Field0"
Me.chk_Field0.Size = New System.Drawing.Size(71, 19)
Me.chk_Field0.TabIndex = 11
Me.chk_Field0.Tag = "Nombre"
Me.chk_Field0.Text = "Nombre"
Me.chk_Field0.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label4.AutoSize = True
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label4.Location = New System.Drawing.Point(389, 38)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(58, 15)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Precisión"
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label1.Location = New System.Drawing.Point(11, 40)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(68, 15)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Organismo"
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
Me.Label2.Location = New System.Drawing.Point(11, 66)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 15)
Me.Label2.TabIndex = 1
Me.Label2.Text = "País"
'
'opt_Contents
'
Me.opt_Contents.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.opt_Contents.AutoSize = True
Me.opt_Contents.ForeColor = System.Drawing.Color.MidnightBlue
Me.opt_Contents.Location = New System.Drawing.Point(392, 72)
Me.opt_Contents.Name = "opt_Contents"
Me.opt_Contents.Size = New System.Drawing.Size(243, 19)
Me.opt_Contents.TabIndex = 8
Me.opt_Contents.TabStop = True
Me.opt_Contents.Text = "Porcentaje (Porcentaje de coincidencia)"
Me.opt_Contents.UseVisualStyleBackColor = True
'
'chk_Field1
'
Me.chk_Field1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.chk_Field1.AutoSize = True
Me.chk_Field1.ForeColor = System.Drawing.Color.MidnightBlue
Me.chk_Field1.Location = New System.Drawing.Point(726, 109)
Me.chk_Field1.Name = "chk_Field1"
Me.chk_Field1.Size = New System.Drawing.Size(52, 19)
Me.chk_Field1.TabIndex = 12
Me.chk_Field1.Tag = "observaciones"
Me.chk_Field1.Text = "Alias"
Me.chk_Field1.UseVisualStyleBackColor = True
Me.chk_Field1.Visible = False
'
'CmdExportar
'
Me.CmdExportar.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.CmdExportar.BackColor = System.Drawing.Color.Black
Me.CmdExportar.ForeColor = System.Drawing.Color.White
Me.CmdExportar.Location = New System.Drawing.Point(833, 44)
Me.CmdExportar.Name = "CmdExportar"
Me.CmdExportar.Size = New System.Drawing.Size(96, 32)
Me.CmdExportar.TabIndex = 21
Me.CmdExportar.Text = "Exportar"
Me.CmdExportar.UseVisualStyleBackColor = False
'
'Label8
'
Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label8.BackColor = System.Drawing.Color.Transparent
Me.Label8.Font = New System.Drawing.Font("Century Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.White
Me.Label8.Location = New System.Drawing.Point(909, 2)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(42, 17)
Me.Label8.TabIndex = 3
Me.Label8.Text = "Minds"
'
'Panel1
'
Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.Black
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Location = New System.Drawing.Point(-4, 491)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(962, 29)
Me.Panel1.TabIndex = 365
'
'FRMListasR
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(957, 519)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.DGVResultados)
Me.Controls.Add(Me.dataGrid1)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.lbl_Records)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FRMListasR"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Consulta listas restringidas"
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
CType(Me.Img_logoCabecera, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DGVResultados, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cmbPaises As System.Windows.Forms.ComboBox
Friend WithEvents lbl_Records As System.Windows.Forms.Label
Private WithEvents Panel3 As Panel
Private WithEvents Img_logoCabecera As PictureBox
Friend WithEvents Label7 As Label
Friend WithEvents dataGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents DGVResultados As DataGridView
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents txtpais As TextBox
Friend WithEvents CmdBusqueda As Button
Friend WithEvents cmbOrganismo As ComboBox
Friend WithEvents chk_Field3 As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents Text_Busqueda As TextBox
Friend WithEvents opt_Free As RadioButton
Friend WithEvents Label3 As Label
Friend WithEvents opt_Exact As RadioButton
Friend WithEvents chk_Field2 As CheckBox
Friend WithEvents Panel2 As Panel
Friend WithEvents opt_EstatusTodos As RadioButton
Friend WithEvents opt_EstatusInactivo As RadioButton
Friend WithEvents opt_EstatusActivo As RadioButton
Friend WithEvents Label6 As Label
Friend WithEvents cmdClose As Button
Friend WithEvents chk_Field0 As CheckBox
Friend WithEvents Label4 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents opt_Contents As RadioButton
Friend WithEvents chk_Field1 As CheckBox
Friend WithEvents CmdExportar As Button
Friend WithEvents Label8 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents btnLimpiar As Button
End Class

219
Busquedas/FRMListasR.resx Normal file
View File

@ -0,0 +1,219 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="dataGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="dataGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="dataGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{Font:Microsoft Sans Serif, 9pt;}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}FilterBar{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;246&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 932, 246&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 932, 246&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

1122
Busquedas/FRMListasR.vb Normal file

File diff suppressed because it is too large Load Diff

95
Busquedas/FrmBuscaListas.Designer.vb generated Normal file
View File

@ -0,0 +1,95 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmBuscaListas
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmBuscaListas))
Me.BtnCerrar = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.GridMaster = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'BtnCerrar
'
Me.BtnCerrar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnCerrar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnCerrar.Image = Global.CLIENTE.My.Resources.Resources.botonExit
Me.BtnCerrar.Location = New System.Drawing.Point(724, 231)
Me.BtnCerrar.Name = "BtnCerrar"
Me.BtnCerrar.Size = New System.Drawing.Size(106, 33)
Me.BtnCerrar.TabIndex = 10
Me.BtnCerrar.Text = "&Cerrar"
Me.BtnCerrar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnCerrar.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(2, 1)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(142, 43)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 92
Me.PictureBox1.TabStop = False
'
'GridMaster
'
Me.GridMaster.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GridMaster.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.GridMaster.GroupByCaption = "AGRUPAR"
Me.GridMaster.Images.Add(CType(resources.GetObject("GridMaster.Images"), System.Drawing.Image))
Me.GridMaster.Location = New System.Drawing.Point(2, 50)
Me.GridMaster.Name = "GridMaster"
Me.GridMaster.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.GridMaster.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.GridMaster.PreviewInfo.ZoomFactor = 75.0R
Me.GridMaster.PrintInfo.PageSettings = CType(resources.GetObject("GridMaster.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.GridMaster.Size = New System.Drawing.Size(716, 214)
Me.GridMaster.TabIndex = 93
Me.GridMaster.Text = "C1TrueDBGrid1"
Me.GridMaster.PropBag = resources.GetString("GridMaster.PropBag")
'
'FrmBuscaListas
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(834, 270)
Me.Controls.Add(Me.GridMaster)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.BtnCerrar)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FrmBuscaListas"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Coincidencias en Listas restringidas"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridMaster, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents BtnCerrar As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents GridMaster As C1.Win.C1TrueDBGrid.C1TrueDBGrid
End Class

View File

@ -0,0 +1,219 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="GridMaster.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
</value>
</data>
<data name="GridMaster.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="GridMaster.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style9{}EvenRow{BackColor:Aqua;}Normal{}FilterBar{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Footer{}Style13{}Heading{ForeColor:ControlText;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{AlignHorz:Near;}Style3{}Style15{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style5{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style12{}Style11{}Style4{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;210&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 712, 210&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 712, 210&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

View File

@ -0,0 +1,63 @@
Public Class FrmBuscaListas
Dim _lsNombre As String
Dim _lsApat As String
Dim _lsAmater As String
Dim _lsopen As String
Dim cliente As String
Dim refban As New DataTable
Public Sub New(ByVal nombre As String)
' Llamada necesaria para el diseñador.
InitializeComponent()
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
_lsNombre = nombre
Me.Text = "Busqueda de Clientes por Nombre"
Dim Classcom As New clsComplejo
Dim ClassCatalogos As New ClassCatalogos
Dim SQL As String
Dim FILA As DataRow
cliente = ""
'LLENA GRID
SQL = "spBuscaClientePorNombre '" & _lsNombre & "'"
ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)
If ClassCatalogos.Classcom.ds.Tables(0).Rows.Count = 0 Then
Me.Text = 0
End If
' Me.Text = 1
' Busca datos de Ref ban. y comer del cliente
'If coneccion.consulta_listas(_lsNombre, _lsApat, _lsAmater) Then
' ' carga Grid
' refban = coneccion.lee_Listas
' DGRefBan.DataSource = refban
' If refban.Rows.Count = 0 Then
' Me.Text = 0
' End If
'End If
End Sub
Private Sub FrmBuscaListas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub BtnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnCerrar.Click
Me.Close()
End Sub
Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click
End Sub
Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick
clsVaribles.lsClienteNombre = Me.GridMaster.Columns("CLAVE").Value
clsVaribles.lsClienteNombreT = Me.GridMaster.Columns("nombre").Value
Me.Close()
End Sub
End Class

415
Busquedas/FrmCalStatus.designer.vb generated Normal file
View File

@ -0,0 +1,415 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmCalStatus
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmCalStatus))
Me.cmbstatus = New System.Windows.Forms.ComboBox()
Me.txtcomentarios = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtpersonaboletinada = New System.Windows.Forms.TextBox()
Me.txtporcentaje = New System.Windows.Forms.TextBox()
Me.txtorganismo = New System.Windows.Forms.TextBox()
Me.txtpais = New System.Windows.Forms.TextBox()
Me.txtclientenombre = New System.Windows.Forms.TextBox()
Me.txtnic = New System.Windows.Forms.TextBox()
Me.txtestatus = New System.Windows.Forms.TextBox()
Me.txtobservaciones = New System.Windows.Forms.TextBox()
Me.txtfecha = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtidlistarestringida = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.btnInsertar = New System.Windows.Forms.Button()
Me.btncancelar = New System.Windows.Forms.Button()
Me.LblFigura = New System.Windows.Forms.Label()
Me.TxtId_Figura = New System.Windows.Forms.TextBox()
Me.txtNomFigura = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'cmbstatus
'
Me.cmbstatus.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbstatus.Location = New System.Drawing.Point(105, 356)
Me.cmbstatus.Name = "cmbstatus"
Me.cmbstatus.Size = New System.Drawing.Size(280, 21)
Me.cmbstatus.TabIndex = 2
'
'txtcomentarios
'
Me.txtcomentarios.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtcomentarios.Location = New System.Drawing.Point(105, 282)
Me.txtcomentarios.MaxLength = 199
Me.txtcomentarios.Multiline = True
Me.txtcomentarios.Name = "txtcomentarios"
Me.txtcomentarios.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtcomentarios.Size = New System.Drawing.Size(387, 68)
Me.txtcomentarios.TabIndex = 1
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(1, 359)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(99, 19)
Me.Label5.TabIndex = 60
Me.Label5.Text = "Cambiar Status"
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
'
'txtpersonaboletinada
'
Me.txtpersonaboletinada.Location = New System.Drawing.Point(105, 57)
Me.txtpersonaboletinada.Name = "txtpersonaboletinada"
Me.txtpersonaboletinada.ReadOnly = True
Me.txtpersonaboletinada.Size = New System.Drawing.Size(360, 20)
Me.txtpersonaboletinada.TabIndex = 6
'
'txtporcentaje
'
Me.txtporcentaje.Location = New System.Drawing.Point(105, 84)
Me.txtporcentaje.Name = "txtporcentaje"
Me.txtporcentaje.ReadOnly = True
Me.txtporcentaje.Size = New System.Drawing.Size(62, 20)
Me.txtporcentaje.TabIndex = 7
'
'txtorganismo
'
Me.txtorganismo.Location = New System.Drawing.Point(105, 110)
Me.txtorganismo.Name = "txtorganismo"
Me.txtorganismo.ReadOnly = True
Me.txtorganismo.Size = New System.Drawing.Size(105, 20)
Me.txtorganismo.TabIndex = 8
'
'txtpais
'
Me.txtpais.Location = New System.Drawing.Point(461, 411)
Me.txtpais.Name = "txtpais"
Me.txtpais.ReadOnly = True
Me.txtpais.Size = New System.Drawing.Size(142, 20)
Me.txtpais.TabIndex = 9
Me.txtpais.Visible = False
'
'txtclientenombre
'
Me.txtclientenombre.Location = New System.Drawing.Point(105, 136)
Me.txtclientenombre.Name = "txtclientenombre"
Me.txtclientenombre.ReadOnly = True
Me.txtclientenombre.Size = New System.Drawing.Size(360, 20)
Me.txtclientenombre.TabIndex = 10
'
'txtnic
'
Me.txtnic.Location = New System.Drawing.Point(105, 162)
Me.txtnic.Name = "txtnic"
Me.txtnic.ReadOnly = True
Me.txtnic.Size = New System.Drawing.Size(105, 20)
Me.txtnic.TabIndex = 11
'
'txtestatus
'
Me.txtestatus.Location = New System.Drawing.Point(105, 188)
Me.txtestatus.Name = "txtestatus"
Me.txtestatus.ReadOnly = True
Me.txtestatus.Size = New System.Drawing.Size(164, 20)
Me.txtestatus.TabIndex = 12
'
'txtobservaciones
'
Me.txtobservaciones.Location = New System.Drawing.Point(495, 204)
Me.txtobservaciones.Multiline = True
Me.txtobservaciones.Name = "txtobservaciones"
Me.txtobservaciones.ReadOnly = True
Me.txtobservaciones.Size = New System.Drawing.Size(387, 37)
Me.txtobservaciones.TabIndex = 13
Me.txtobservaciones.Visible = False
'
'txtfecha
'
Me.txtfecha.Location = New System.Drawing.Point(105, 215)
Me.txtfecha.Name = "txtfecha"
Me.txtfecha.ReadOnly = True
Me.txtfecha.Size = New System.Drawing.Size(66, 20)
Me.txtfecha.TabIndex = 14
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(3, 58)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(99, 13)
Me.Label1.TabIndex = 94
Me.Label1.Text = "Persona Boletinada"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(3, 84)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(58, 13)
Me.Label2.TabIndex = 95
Me.Label2.Text = "Porcentaje"
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 110)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(57, 13)
Me.Label4.TabIndex = 96
Me.Label4.Text = "Organismo"
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(359, 411)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(27, 13)
Me.Label6.TabIndex = 97
Me.Label6.Text = "Pais"
Me.Label6.Visible = False
Me.Label6.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 136)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(76, 13)
Me.Label7.TabIndex = 98
Me.Label7.Text = "Nombre Figura"
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(3, 162)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(25, 13)
Me.Label8.TabIndex = 99
Me.Label8.Text = "NIC"
Me.Label8.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(3, 188)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(42, 13)
Me.Label9.TabIndex = 100
Me.Label9.Text = "Estatus"
Me.Label9.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(525, 252)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(78, 13)
Me.Label10.TabIndex = 101
Me.Label10.Text = "Observaciones"
Me.Label10.Visible = False
Me.Label10.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(3, 222)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(37, 13)
Me.Label11.TabIndex = 102
Me.Label11.Text = "Fecha"
Me.Label11.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(6, 16)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(94, 13)
Me.Label12.TabIndex = 103
Me.Label12.Text = "Id_ListaRestingida"
Me.Label12.ForeColor = System.Drawing.Color.MidnightBlue
'
'txtidlistarestringida
'
Me.txtidlistarestringida.Location = New System.Drawing.Point(105, 12)
Me.txtidlistarestringida.Name = "txtidlistarestringida"
Me.txtidlistarestringida.ReadOnly = True
Me.txtidlistarestringida.Size = New System.Drawing.Size(62, 20)
Me.txtidlistarestringida.TabIndex = 5
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(3, 287)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(88, 16)
Me.Label3.TabIndex = 58
Me.Label3.Text = "Comentarios"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'btnInsertar
'
Me.btnInsertar.Location = New System.Drawing.Point(484, 43)
Me.btnInsertar.Name = "btnInsertar"
Me.btnInsertar.Size = New System.Drawing.Size(97, 43)
Me.btnInsertar.TabIndex = 3
Me.btnInsertar.Text = "Guardar"
Me.btnInsertar.UseVisualStyleBackColor = True
'
'btncancelar
'
Me.btncancelar.Location = New System.Drawing.Point(484, 99)
Me.btncancelar.Name = "btncancelar"
Me.btncancelar.Size = New System.Drawing.Size(97, 40)
Me.btncancelar.TabIndex = 4
Me.btncancelar.Text = "Cancelar"
Me.btncancelar.UseVisualStyleBackColor = True
'
'LblFigura
'
Me.LblFigura.AutoSize = True
Me.LblFigura.Location = New System.Drawing.Point(173, 15)
Me.LblFigura.Name = "LblFigura"
Me.LblFigura.Size = New System.Drawing.Size(51, 13)
Me.LblFigura.TabIndex = 104
Me.LblFigura.Text = "Id_Figura"
Me.LblFigura.ForeColor = System.Drawing.Color.MidnightBlue
'
'TxtId_Figura
'
Me.TxtId_Figura.Location = New System.Drawing.Point(230, 9)
Me.TxtId_Figura.Name = "TxtId_Figura"
Me.TxtId_Figura.ReadOnly = True
Me.TxtId_Figura.Size = New System.Drawing.Size(62, 20)
Me.TxtId_Figura.TabIndex = 105
'
'txtNomFigura
'
Me.txtNomFigura.Location = New System.Drawing.Point(378, 8)
Me.txtNomFigura.Name = "txtNomFigura"
Me.txtNomFigura.ReadOnly = True
Me.txtNomFigura.Size = New System.Drawing.Size(197, 20)
Me.txtNomFigura.TabIndex = 107
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(307, 14)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(64, 13)
Me.Label13.TabIndex = 106
Me.Label13.Text = "Nom. Figura"
Me.Label13.ForeColor = System.Drawing.Color.MidnightBlue
'
'FrmCalStatus
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(610, 443)
Me.Controls.Add(Me.txtNomFigura)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.TxtId_Figura)
Me.Controls.Add(Me.LblFigura)
Me.Controls.Add(Me.btncancelar)
Me.Controls.Add(Me.btnInsertar)
Me.Controls.Add(Me.txtidlistarestringida)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtfecha)
Me.Controls.Add(Me.txtobservaciones)
Me.Controls.Add(Me.txtestatus)
Me.Controls.Add(Me.txtnic)
Me.Controls.Add(Me.txtclientenombre)
Me.Controls.Add(Me.txtpais)
Me.Controls.Add(Me.txtorganismo)
Me.Controls.Add(Me.txtporcentaje)
Me.Controls.Add(Me.txtpersonaboletinada)
Me.Controls.Add(Me.cmbstatus)
Me.Controls.Add(Me.txtcomentarios)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label3)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FrmCalStatus"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Calificacion de Cliente vs Lista Restringida"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cmbstatus As System.Windows.Forms.ComboBox
Friend WithEvents txtcomentarios As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtpersonaboletinada As System.Windows.Forms.TextBox
Friend WithEvents txtporcentaje As System.Windows.Forms.TextBox
Friend WithEvents txtorganismo As System.Windows.Forms.TextBox
Friend WithEvents txtpais As System.Windows.Forms.TextBox
Friend WithEvents txtclientenombre As System.Windows.Forms.TextBox
Friend WithEvents txtnic As System.Windows.Forms.TextBox
Friend WithEvents txtestatus As System.Windows.Forms.TextBox
Friend WithEvents txtobservaciones As System.Windows.Forms.TextBox
Friend WithEvents txtfecha As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtidlistarestringida As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents btnInsertar As System.Windows.Forms.Button
Friend WithEvents btncancelar As System.Windows.Forms.Button
Friend WithEvents LblFigura As System.Windows.Forms.Label
Friend WithEvents TxtId_Figura As System.Windows.Forms.TextBox
Friend WithEvents txtNomFigura As System.Windows.Forms.TextBox
Friend WithEvents Label13 As System.Windows.Forms.Label
End Class

180
Busquedas/FrmCalStatus.resx Normal file
View File

@ -0,0 +1,180 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEAGACoDAAAFgAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////
////////////////////////////////////////////////////////////////////////////////
//////////////8AAAAAAAD/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////8AAAAAAAD/////////
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////8AAAAAAAD////////////////////////////+/f78/vr+/f76
/f7///7////////////////////////////8//z8/v78/vz8/Pz//v////////////////////////8A
AAAAAAD////////////////////////+///3/f79/PX8+/36/f3///7/////////////////////////
///8/v39/vv9/Pj6/Pz//v////////////////////////8AAAAAAAD////////////////////////+
//75/Pz3zrHwu5X8/fz9/f3+/v7//////////////////////v/+/f3328PsuJH7/fz+////////////
//////////////8AAAAAAAD////////////////////////+//75/fzysoPzeCb3z6z9/fz+/v7/////
/////////////////v747Nv0kUzjjEb8/fv+//////////////////////////8AAAAAAAD/////////
///9/v7//v7//v39/v34/v7yv5b6ZAP2hzj01739/f38/v7+/v79/v7//v39/v//9+3uo2j4ZgPtm1f8
/fz+/v79/v78//79//3+//7///////8AAAAAAAD////////////8/f7+/f39/fz8/vz7/fz34MnzZgf6
ZALxkEf41b/7/vv8/f37/v3+/fz99ev1tYTzZQX6ZgHyvZH7/f37/v78/vz8//z8/v3+//7///////8A
AAAAAAD////////////05Njqzbf35dn+/vf9/fv8/fbvhDX8ZAH7ZgP0i0T3yKT57d/9/fTz0rv9vYbv
ZAX9ZwHydBj05tP8/fz58+jwxqz5yKLxxan///3///////8AAAAAAAD////////////pwqTUcSjyomn/
z6f20rz9+vf0y6P3bxn7ZQH7ZwDvZwj2r3j9z6HnfS36aAD6ZwD2Zwftrnf89uz10LT5u4jgZhfvZAXl
hUP+//v///////8AAAAAAAD////////////46Nv0hz74Zwf+YQDpbRb81LP59O3trHL3dhn7ZgD+ZAD7
ZgD6ZgH3aAD6ZwD0bgvxj0r79ef5yqjnZAv8YwH1bAHygjn15ND+//7///////8AAAAAAAD/////////
///7/Pz9+OvrhTz5aAj7ZgD6ZQXzyqL8/ffqsoX5fy37dR/1aAX2ZQT8cxf6fyvnk1b++/b40q3yZQT9
ZgH4ZwLwgC/98d/6/f3+/v7///////8AAAAAAAD////////////7/fn8+P39/vbwiUD6ZAT6aADyaxD5
8uP7+/38/vT+0qndfTjbeDP3tIP+/u7++/769en0dSP+ZAD3ZwDrdSH+9+35+/v7/f7//v////////8A
AAAAAAD////////////8/v78//z7/vn++/Ltbxr6ZwH6ZQHvrnj+//v+/v7+/vn8/v39/vz+/vj6//z9
//32xaL1ZgH8ZwD0aAj24cn9/P38/vz8/f7//v////////8AAAAAAAD////////////8/f78//z8/f//
+///9uv0ZAT+ZwDyaw7//vr+//7///////7////+/////v////znjUL7ZwL7ZgLzzq3//v7//P/9/vz9
/f7//v////////8AAAAAAAD////////////8/v3++/76/f79/vv8/PX0ZAX5ZwDzZAf//vn+//7/////
//7////+/////v////znikP7ZQHyZgLv2Lf9/vr4/f79/v39/v7//v////////8AAAAAAAD/////////
///9/v73/f/9/vz7/P3207L0ZQP9aAD3cxz///n///////////////////////////3zoGX8ZQD5ZQL2
r3T9/P7+/Pz+/v79//7///////////8AAAAAAAD////////////+/f78/vz8+/z9/vHwgjj4ZwH9ZQDu
mFf///3////////////////////////+//7vyav5ZgP7ZQHxcBf46c35/v38//79/v////////////8A
AAAAAAD////////////7/f78+/78+/nwomb5Zwj8ZgH2ZQP01bb//f79/P75//f//P37+////vz7/v38
/v358uvshDT5ZgH5ZgHugjb98uT++/79/vz///////////8AAAAAAAD////////////9/fz8/fnuqGr2
bRP7ZgD8ZgLunmP69+/4/vn+8t3rmWLrjlTxjlHmjlj73sX8/Pr8/Pv32LvtaQ/6ZAH2ZgbyjkX669f9
/vz+//////////8AAAAAAAD////////////5/fb1pWf1cRL8ZAP3ZwD0n2X35NP9/fjuqHP8lUn1ag31
ZAT4YwTzZQf8iz7ymGD88OP8+/X3yqXqdiX7ZwL1ZgP5kUb32cL+/v////////8AAAAAAAD/////////
///rt4r4bArtZQnvjEr7v5Hz49T9/fb3rXX1bBL7ZgD+ZwD9ZwD+ZQD9ZwD8ZgD0ZQX1nVr67+H7/vfy
ya39wI3yll7aZhbXl2r//v3///////8AAAAAAAD////////////xxqb8t4fxto3z1sH8/fn5/Pz2y6j2
bw38ZQD5ZQHyiD7+toD+toHxiT34ZQL7ZwD3ZwP0rHX7/vj+/P39/vb23tDjt5nivqb///3///////8A
AAAAAAD////////////+/v/9//////7///77/f399vHwhDn6ZgH2ZQP6omTvz7b+/fX+/fbxz7P5pmr1
ZQX9ZgL0cRX359L8/f39/v7+//3+/v/+/v////////////8AAAAAAAD/////////////////////////
/v/9/fz538j0Zgb2ZAP0mln58eD6/f79/vz+/vz9/f379Oj1nmH1ZQP7ZwLxu4z8/fz///7/////////
//////////////8AAAAAAAD////////////////////////+/v/9/P3zwJT4ZAXxjEL77t/4/Pn9/vv8
/f/8/f7+/v36/P3+9envkk34ZgLvmVn9/vr+//7///////////////////////8AAAAAAAD/////////
///////////////+//78/P7wtIP0fy713sj+/f7++//+/vr8/v75/v7+/v38/P/+/f/66trxijvpjEr6
/fz+/v////////////////////////8AAAAAAAD////////////////////////+//7+/Pzvx6j1zKr8
+/38//7+/v/8///+/v7+/v/8/v/+///+/v76+/z45Mvrq335/P3//v7///////////////////////8A
AAAAAAD////////////////////////+//77/vz8+/75+fz6/v3+//7////////////////////////+
//71/v39+v34/f39/Pz///7///////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
</value>
</data>
</root>

171
Busquedas/FrmCalStatus.vb Normal file
View File

@ -0,0 +1,171 @@
Public Class FrmCalStatus
Inherits System.Windows.Forms.Form
Dim clCmpOrg As clsComplejo = New clsComplejo
Public pb As String
Public pb1 As String
Public pb2 As String
Public pb3 As String
Public pb4 As String
Public pb5 As String
Public pbNomFigura As String
Public pb7 As String
Public pb8 As String
Public pb9 As String
Public pb10 As String
''Public pb10 As String
Public fecha As String
Public Comentario As String
''Public pb11 As String
Public pbIdFigura As String
Dim das As DataSet
Public Function Buscaindice(ByVal nomvariabl As String, ByVal ocombo As ComboBox) As Integer
'JLL 27-08-13 encuentra la descripcion seleccionada
Dim i As Integer
Buscaindice = 0
For i = 0 To ocombo.Items.Count - 1
ocombo.SelectedIndex = i
If ocombo.Text() = nomvariabl Then
Buscaindice = i
Exit For
End If
Next
End Function
'JLL 21-08-13 llena combo status
Private Sub CatStatus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
clCmpOrg.sbLlenaCombo("select descStatus as nombre,Id_status as clave from status", Me.cmbstatus)
Me.txtpersonaboletinada.Text = pb
Me.txtporcentaje.Text = pb1
Me.txtorganismo.Text = pb2
Me.txtpais.Text = pb3
Me.txtclientenombre.Text = pb7
Me.txtnic.Text = pb4
Me.txtestatus.Text = pb8
'Me.txtobservaciones.Text = pb7
Me.txtfecha.Text = fecha
Me.txtidlistarestringida.Text = pb9
Me.txtcomentarios.Text = Comentario
'Me.TxtId_Figura.Text = pb11
'If pb11 = "" Then
' pb11 = 0
'End If
Me.cmbstatus.SelectedValue = pb5
Me.txtNomFigura.Text = pbNomFigura
Me.TxtId_Figura.Text = pbIdFigura
End Sub
Private Sub LlenoCmb()
'enlazo el combo
Me.cmbstatus.DataBindings.Clear()
Me.cmbstatus.DataBindings.Add("selectedtext", das, "pb11")
Me.cmbstatus.DataSource = das.Tables("Status")
Me.cmbstatus.DisplayMember = "nombre"
Me.cmbstatus.ValueMember = "clave"
End Sub
Private Sub sbIniciaForma()
End Sub
Private Sub btnInsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsertar.Click
'JLL 28-08-13 se establece la auditoría
Try
Dim s1Auditoria As String
Dim ClassAud As New ClassMyUtils
Dim classcom As New clsComplejo
Dim strSQLComodin As String
Dim ClassComodin As New clsComplejo
Dim ds As New DataSet
If txtcomentarios.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Comentario ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
txtcomentarios.Focus()
Exit Sub
End If
If cmbstatus.Text = "" Then
MessageBox.Show("Es Necesario Introducir el Status ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
cmbstatus.Focus()
Exit Sub
End If
'JLL 24-08-2013 armar cadena de guardado
Dim consapos As String
Dim iEsta As Integer
iEsta = Me.cmbstatus.SelectedValue
consapos = "'"
strSQLComodin = "UPDATE listacliente "
strSQLComodin += "SET Comentario = '" & txtcomentarios.Text & "', "
strSQLComodin += "id_Status = " & iEsta & ", "
strSQLComodin += "status = '" & cmbstatus.Text & "', "
strSQLComodin += "fechaCambio= Convert(VARCHAR, GETDATE(), 112) "
strSQLComodin += "Where ID_ListaRestringida = " & txtidlistarestringida.Text & " "
strSQLComodin += "and id_figura=" & Me.TxtId_Figura.Text
classcom.sbGuardaModifica(strSQLComodin)
s1Auditoria = "Modificacion Lista Restringida "
If txtcomentarios.Text.Trim <> "" Then s1Auditoria = s1Auditoria & " ID=" & txtidlistarestringida.Text.Trim
If txtcomentarios.Text.Trim <> "" Then s1Auditoria = s1Auditoria & " comentario=" & txtcomentarios.Text.Trim
If cmbstatus.Text.Trim <> "" Then s1Auditoria = s1Auditoria & " cambio de status=" & cmbstatus.Text.Trim
s1Auditoria = s1Auditoria + " IdFigura= " & TxtId_Figura.Text.Trim
s1Auditoria = s1Auditoria + " NomFigura= " & txtNomFigura.Text.Trim
s1Auditoria = Mid(s1Auditoria.Trim, 1, 8000)
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 115, My.Computer.Name, "MIND CLIENTE", s1Auditoria)
MessageBox.Show("Datos Guardados correctamente", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub btncancelar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click
Me.Close()
End Sub
Private Sub txtcomentarios_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcomentarios.KeyPress
'If Char.IsLetter(e.KeyChar) Then
' e.Handled = False
'ElseIf Char.IsControl(e.KeyChar) Then
' e.Handled = False
'ElseIf Char.IsSeparator(e.KeyChar) Then
' e.Handled = False
'Else
' e.Handled = True
'End If
' JMVD 2014-08-19 CAMBIO IF
If Asc(e.KeyChar) = 13 Then
e.KeyChar = ""
End If
End Sub
Public Sub CreateMyMultilineTextBox()
' Create an instance of a TextBox control.
Dim txtcomentarios As New TextBox()
' Set the Multiline property to true.
txtcomentarios.Multiline = True
' Add vertical scroll bars to the TextBox control.
txtcomentarios.ScrollBars = ScrollBars.Vertical
' Allow the TAB key to be entered in the TextBox control.
txtcomentarios.AcceptsReturn = False
' Allow the TAB key to be entered in the TextBox control.
txtcomentarios.AcceptsTab = False
' Set WordWrap to true to allow text to wrap to the next line.
txtcomentarios.WordWrap = True
' Set the default text of the control.
'txtcomentarios.Text = "Welcome!"
End Sub
End Class

2215
Busquedas/PaisBol.resx Normal file

File diff suppressed because it is too large Load Diff

489
Busquedas/PaisBol.vb Normal file
View File

@ -0,0 +1,489 @@
Public Class PaisesBol
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents lblResultados As System.Windows.Forms.Label
Friend WithEvents cmbPais As System.Windows.Forms.ComboBox
Friend WithEvents cmbTipoPais As System.Windows.Forms.ComboBox
Friend WithEvents BntSalie As System.Windows.Forms.Button
Friend WithEvents BtnImprimir As System.Windows.Forms.Button
Friend WithEvents BtnLimpiar As System.Windows.Forms.Button
Friend WithEvents btnConsulta As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PaisesBol))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmbPais = New System.Windows.Forms.ComboBox()
Me.cmbTipoPais = New System.Windows.Forms.ComboBox()
Me.cmbOrganismo = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.DataGrid1 = New System.Windows.Forms.DataGrid()
Me.lblResultados = New System.Windows.Forms.Label()
Me.BntSalie = New System.Windows.Forms.Button()
Me.BtnImprimir = New System.Windows.Forms.Button()
Me.BtnLimpiar = New System.Windows.Forms.Button()
Me.btnConsulta = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
Me.ImageList1.Images.SetKeyName(8, "")
Me.ImageList1.Images.SetKeyName(9, "")
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cmbPais)
Me.GroupBox1.Controls.Add(Me.cmbTipoPais)
Me.GroupBox1.Controls.Add(Me.cmbOrganismo)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(22, 54)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(734, 62)
Me.GroupBox1.TabIndex = 18
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Parametros de busqueda"
'
'cmbPais
'
Me.cmbPais.Location = New System.Drawing.Point(160, 34)
Me.cmbPais.Name = "cmbPais"
Me.cmbPais.Size = New System.Drawing.Size(136, 21)
Me.cmbPais.TabIndex = 2
'
'cmbTipoPais
'
Me.cmbTipoPais.Location = New System.Drawing.Point(308, 33)
Me.cmbTipoPais.Name = "cmbTipoPais"
Me.cmbTipoPais.Size = New System.Drawing.Size(202, 21)
Me.cmbTipoPais.TabIndex = 1
'
'cmbOrganismo
'
Me.cmbOrganismo.Location = New System.Drawing.Point(28, 34)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(121, 21)
Me.cmbOrganismo.TabIndex = 0
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(307, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(139, 18)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Tipo de pais"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(160, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(67, 21)
Me.Label2.TabIndex = 20
Me.Label2.Text = "Pais"
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(28, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(121, 20)
Me.Label1.TabIndex = 19
Me.Label1.Text = "Organismo"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'GroupBox2
'
Me.GroupBox2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GroupBox2.Controls.Add(Me.DataGrid1)
Me.GroupBox2.Location = New System.Drawing.Point(4, 127)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(752, 242)
Me.GroupBox2.TabIndex = 19
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Resultados"
'
'DataGrid1
'
Me.DataGrid1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.DataGrid1.BackgroundColor = System.Drawing.Color.White
Me.DataGrid1.CaptionBackColor = System.Drawing.Color.Silver
Me.DataGrid1.DataMember = ""
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(3, 13)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.RowHeaderWidth = 100
Me.DataGrid1.Size = New System.Drawing.Size(746, 223)
Me.DataGrid1.TabIndex = 0
'
'lblResultados
'
Me.lblResultados.Location = New System.Drawing.Point(4, 375)
Me.lblResultados.Name = "lblResultados"
Me.lblResultados.Size = New System.Drawing.Size(100, 14)
Me.lblResultados.TabIndex = 20
Me.lblResultados.Text = "Resultados:"
Me.lblResultados.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblResultados.ForeColor = System.Drawing.Color.MidnightBlue
'
'BntSalie
'
Me.BntSalie.BackColor = System.Drawing.Color.White
Me.BntSalie.Cursor = System.Windows.Forms.Cursors.Hand
Me.BntSalie.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BntSalie.ForeColor = System.Drawing.Color.MidnightBlue
Me.BntSalie.Image = CType(resources.GetObject("BntSalie.Image"), System.Drawing.Image)
Me.BntSalie.Location = New System.Drawing.Point(762, 263)
Me.BntSalie.Name = "BntSalie"
Me.BntSalie.Size = New System.Drawing.Size(106, 33)
Me.BntSalie.TabIndex = 63
Me.BntSalie.Text = "Cerrar"
Me.BntSalie.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BntSalie.UseVisualStyleBackColor = True
'
'BtnImprimir
'
Me.BtnImprimir.BackColor = System.Drawing.Color.White
Me.BtnImprimir.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnImprimir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnImprimir.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnImprimir.Image = CType(resources.GetObject("BtnImprimir.Image"), System.Drawing.Image)
Me.BtnImprimir.Location = New System.Drawing.Point(762, 224)
Me.BtnImprimir.Name = "BtnImprimir"
Me.BtnImprimir.Size = New System.Drawing.Size(106, 33)
Me.BtnImprimir.TabIndex = 62
Me.BtnImprimir.Text = "Exportar"
Me.BtnImprimir.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnImprimir.UseVisualStyleBackColor = True
'
'BtnLimpiar
'
Me.BtnLimpiar.BackColor = System.Drawing.Color.White
Me.BtnLimpiar.Cursor = System.Windows.Forms.Cursors.Hand
Me.BtnLimpiar.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtnLimpiar.ForeColor = System.Drawing.Color.MidnightBlue
Me.BtnLimpiar.Image = CType(resources.GetObject("BtnLimpiar.Image"), System.Drawing.Image)
Me.BtnLimpiar.Location = New System.Drawing.Point(762, 185)
Me.BtnLimpiar.Name = "BtnLimpiar"
Me.BtnLimpiar.Size = New System.Drawing.Size(106, 33)
Me.BtnLimpiar.TabIndex = 61
Me.BtnLimpiar.Text = "Limpiar"
Me.BtnLimpiar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnLimpiar.UseVisualStyleBackColor = True
'
'btnConsulta
'
Me.btnConsulta.BackColor = System.Drawing.Color.White
Me.btnConsulta.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnConsulta.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnConsulta.ForeColor = System.Drawing.Color.MidnightBlue
Me.btnConsulta.Image = CType(resources.GetObject("btnConsulta.Image"), System.Drawing.Image)
Me.btnConsulta.Location = New System.Drawing.Point(762, 146)
Me.btnConsulta.Name = "btnConsulta"
Me.btnConsulta.Size = New System.Drawing.Size(106, 33)
Me.btnConsulta.TabIndex = 60
Me.btnConsulta.Text = "Consulta"
Me.btnConsulta.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnConsulta.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
Me.PictureBox1.Image = Global.CLIENTE.My.Resources.Resources.Logo_Empresa
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(142, 43)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 64
Me.PictureBox1.TabStop = False
'
'PaisesBol
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(874, 393)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.BntSalie)
Me.Controls.Add(Me.BtnImprimir)
Me.Controls.Add(Me.BtnLimpiar)
Me.Controls.Add(Me.btnConsulta)
Me.Controls.Add(Me.lblResultados)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "PaisesBol"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Paises boletinados"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim clCmp1 As clsComplejo = New clsComplejo
Dim clCmp2 As clsComplejo = New clsComplejo
Dim clCmp3 As clsComplejo = New clsComplejo
Dim clGrid As clsComplejo = New clsComplejo
Dim BanOrg, BanPais, BanTipoPais As Boolean
Private Sub PaisesBol_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BanOrg = False
BanPais = False
BanTipoPais = False
End Sub
Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
'Botones de la toolbar
Select Case e.Button.Text
Case "Consultar"
sbBuscar()
Case "Exportar"
Exportar()
Case "Refrescar"
Refrescar()
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Exportar()
Dim ClassAud As New ClassMyUtils
'llama a las rutinas para exportar el grid a excel
Try
If clsVaribles.lbDemo = True Then Exit Sub
If clGrid.ds.Tables.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clGrid.ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Dim Resul As DialogResult
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Resul = DialogResult.Yes Then
'Creo una instancia de la clase aExcel
Dim clsExcel As aExcel = New aExcel
'Utilizo la funcion ExportDataset de la clase aExcel
clsExcel.ExportDataset(clGrid.ds) 'Asigno el dataset a exportar
ClassAud.RT_Auditoria(clsVaribles.varUsuario, 113, 1, "EXPORTACIÓN DE PAISES BOLETINADOS")
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbBuscar()
Try
'If clsVaribles.lbDemo = True Then Exit Sub
'Se utiliza el procedimiento almacenado "spBuscaPaisBol" para buscar
Dim SQL As String
SQL = ""
SQL = fsDefineSQL("spBuscaPaisBol ")
clGrid.fdtDataSetTabla(SQL)
Me.DataGrid1.SetDataBinding(clGrid.ds, "Tabla") 'Llena el grid
Dim cont As Integer
cont = clGrid.ds.Tables(0).Rows.Count
lblResultados.Text = "Elementos: " & cont
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Function fsDefineSQL(ByVal SP As String) As String
'Defino mi cadena para el procedimiento almacenado
'Declaro varables para pasar los parametros al procedimiento almacenado
Dim lsSQL As String
Dim _Opcion As Integer
Dim _Organismo As String
Dim _Pais As String
Dim _TipoPais As String
If clsVaribles.lbDemo = True Then Exit Function
If Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbTipoPais.Text = "" Then
_Opcion = 1
_Organismo = ", NULL, "
_Pais = " NULL, "
_TipoPais = " NULL "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.cmbTipoPais.Text <> "" Then
_Opcion = 2
_Organismo = ", NULL, "
_Pais = " NULL, "
_TipoPais = CInt(Me.cmbTipoPais.SelectedValue)
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbTipoPais.Text = "" Then
_Opcion = 3
_Organismo = ", NULL, "
_Pais = CInt(Me.cmbPais.SelectedValue)
_TipoPais = ", NULL "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.cmbTipoPais.Text <> "" Then
_Opcion = 4
_Organismo = ", NULL, "
_Pais = CInt(Me.cmbPais.SelectedValue) & ", "
_TipoPais = CInt(Me.cmbTipoPais.SelectedValue)
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbTipoPais.Text = "" Then
_Opcion = 5
_Organismo = ", " & CInt(Me.cmbOrganismo.SelectedValue) & ", "
_Pais = " NULL, "
_TipoPais = " NULL "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.cmbTipoPais.Text <> "" Then
_Opcion = 6
_Organismo = ", " & CInt(Me.cmbOrganismo.SelectedValue) & ", "
_Pais = " NULL, "
_TipoPais = CInt(Me.cmbTipoPais.SelectedValue)
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbTipoPais.Text = "" Then
_Opcion = 7
_Organismo = ", " & CInt(Me.cmbOrganismo.SelectedValue) & ", "
_Pais = CInt(Me.cmbPais.SelectedValue) & ", "
_TipoPais = " NULL "
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.cmbTipoPais.Text <> "" Then
_Opcion = 8
_Organismo = ", " & CInt(Me.cmbOrganismo.SelectedValue) & ", "
_Pais = CInt(Me.cmbPais.SelectedValue) & ", "
_TipoPais = CInt(Me.cmbTipoPais.SelectedValue)
End If
'Formo el query
lsSQL = lsSQL & SP & " "
lsSQL = lsSQL & _Opcion
lsSQL = lsSQL & _Organismo
lsSQL = lsSQL & _Pais
lsSQL = lsSQL & _TipoPais
Return lsSQL
End Function
Private Sub Refrescar()
'Limpia los combos, datagrid y la caja de texto
Me.cmbPais.DataSource = Nothing
Me.cmbPais.Items.Clear()
Me.cmbOrganismo.DataSource = Nothing
Me.cmbOrganismo.Items.Clear()
Me.cmbTipoPais.DataSource = Nothing
Me.cmbTipoPais.Items.Clear()
Me.DataGrid1.DataSource = Nothing
Me.DataGrid1.DataBindings.Clear()
'Para que se puedan a llenar otra vez los combos
BanPais = False
BanOrg = False
BanTipoPais = False
End Sub
Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown
If BanOrg = False Then
'Para llenar el combo de organismo se utiliza el procedimiento almacenado "spLlenaComboOrgInt"
clCmp1.sbLlenaCombo("spLlenaComboOrgInt", Me.cmbOrganismo)
End If
BanOrg = True
End Sub
Private Sub cmbPais_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPais.DropDown
If clsVaribles.lbDemo = True Then Exit Sub
If BanPais = False Then
'Para llenar el combo de Pais se utiliza el porcedimiento almacenado "spListaPais"
clCmp2.sbLlenaCombo("spListaPais", Me.cmbPais)
End If
BanPais = True
End Sub
Private Sub cmbTipoPais_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbTipoPais.DropDown
If clsVaribles.lbDemo = True Then Exit Sub
If BanTipoPais = False Then
'Para llenar el combo de tipo de Pais se utiliza el porcedimiento almacenado "spLlenaTipoPais"
clCmp3.sbLlenaCombo("spLlenaTipoPais", Me.cmbTipoPais)
End If
BanTipoPais = True
End Sub
Private Sub btnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsulta.Click
sbBuscar()
End Sub
Private Sub BtnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImprimir.Click
Exportar()
End Sub
Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpiar.Click
Refrescar()
End Sub
Private Sub BntSalie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BntSalie.Click
Me.Close()
End Sub
End Class

195
Busquedas/PersonaBol.resx Normal file
View File

@ -0,0 +1,195 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAQ
DwAAAk1TRnQBSQFMAgEBCgEAAQ4BAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEAIAcgAAwHAW8TByAA
CwcBFwH5ARcMBwHsA0MB7AEHIAAKBwFvAvkBvQFvAgcB7QgAARQD7AH3AQcgAAUHAe8D7QFvAfkBRwG9
ARcDBwGSAQYBkATrAW0BDQG4Ad8BBwESAgcgAAQHAW0B7AJtARQB+QEXARYBbwUHAe0EBgFrAQ0BuAHf
AZIBAAMHIAADBwESAW0BBwHzAbwB7wFFAUMBbgcHAZIBDQEGAmsBuAH+AZACawESAgcgAAIHAfcB7AEH
AfMDBwHvARQB7QkHAQABDQG4Af4B3wHsAgABQwIHIAACBwFtAe0B/wUHAeoB7QgHAe0BDQG4Af4B3wHt
AesFByAAAgcBbQHtAfICBwHxAfIB7wEUAe0HBwHsAQ0BuAH+AegB7AFrAW0B7wQHIAACBwHtAewDBwHz
Af8B7AHrAe8HBwFDAbgB/gHoAesBuAEGAWwBFQQHIAADBwFDAewDBwHsAm0HBwFtAWsB/gHfAewB7QEA
AbgBBgHrAQADByAABAcBQwHsAm0B7AESBwcB7QFtAgcBkgHsAgcBbAO4AUMCByAABQcB7QJtAfcIBwHv
A20B7AMHAe8DbQHsAgcgACAHIAAgByAABwcDABYHEOwXBwEVARoBKQIAFAcF7AgUA+wCBwwACQcBFAHy
AesBAwFtAgAEBwsAAwcF7AEQBu0BAAPsAQcBAAI3AQACBwQAAjcBAAcHAgABFAEaAQMB6wEDAesBKQIA
AgcBAAn/AQADBwXsARQF/wHwAQAD7AEHAQACNwEAAgcEAAI3AQAHBwEQARMBFAHyAesBAwHrAQMB6wEp
AQACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3AQACBwQAAjcBAAUHAQABBwERAeoBFAEbAUoB6wED
AesBAwHrAQACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3BwACNwEABAcCAAEHAREB6gEUAfIBbQEP
ASIBAwHrAQMBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEACzcBAAMHAg0CAAIOARQBGwFRAu0B6wFK
AesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEAAjcHAAI3AQACBwENAYEEuAEGARQB8gFzAVEB7AFK
AesBAwEAAgcBAAn/AQADBwLsAfcB7wFtARQB/wG8Af8B8wEHAZIBAAPsAQcBAAE3AQAH/wEAATcBAAIH
AWsF/gG4ARQBGwFKAesBSgHrAUoB6wEAAgcBAAn/AQADBwLsAW0B6wEDARQBBwHsAf8BBwEUARIBFAPs
AQcBAAE3AQAH/wEAATcBAAMHAYEBuANrAQ0BFAEbAkoB6wFKAesBSgEAAgcBAAn/AQADBwLsAe8BBwEi
ApkB8wH/AQcBEgXsAQcBAAE3AQAH/wEAATcBAAQHAQ0BAAEHAQ8BFQEUARsGSgEAAgcBAAb/BAADBwPs
ARABAAFeAf8BFAIAARQF7AEHAQABNwEAB/8BAAE3AQAFBwEAAQcBEQHqAREB7wGZAfcESgEAAgcBAAb/
AQAB/wEABAcC7AHrARMBWAEiAVEB7wjsAQcBAAE3AQAH/wEAATcBAAcHAREBbQESAewB6wH3AQcBcwJK
AQACBwEABv8CAAUHA+wB7wHsARQBBwHsARQB7wbsAQcNAAcHAREC7AHrARIB7AHrAZIBmQGSAQACBwgA
BgcC7AHtAuwBFAEHAewBbQGSBuwVBwEOBBUBQwEAARQB7AHqAQAQBxDsFAcBAAEHAQABBwEAAQcBAAUH
C+wvBwIABAcB7AnzAewXBwsPBwcHAAH7AQADBwHsCf8B7AUHBQAFBwUAAgcBEAmSAQABkgEQBgcBAAX/
AQAB+wEAAwcB7AL/BhQB/wHsBQcBAAH/AwAFBwEAAf8DAAEHAUMBAAlDAQABQwHtAUMFBwEAAf8E+QEA
AvsBAAIHAewC/wPvAR8C6gH/AewFBwEAAf8DAAUHAQAB/wMAAQcBAAbsAzAC7AEAARUBAAUHAQAG/wEA
AfsBAAIHAewD/wJtAfkBRgHsAe8B7AMHARcBkgcAAQcHAAEHAQAGBwMpAgcBAAHsAQAFBwEAAf8F+QEA
AvsBAAEHAewD/wLsAUYB+QFGAuwDBwH5AfcCAAH/BgAB/wUAAQcBAAYSAwACEgEAAQcBbQESBAcBAAf/
BAAB7AL/A+wBFAL5AuwBBwJvAUYBBwIAAf8DAAEHAgAB/wUAAQcBAAptAQACbQEHAQADBwEEAv8F+QH/
AQACAQEAAewC/wTrAUYB+QFGAewB9wL5AZIBBwIAAf8DAAEHAgAB/wUAAQcBEgptARIBbQESAW0BAAIH
AwQH/wMAAQcB7AL/BJIBEgL5Am8B+QEXAwcNAAMHARMBAAhtAewBEwHsARMBAAEHBAQB7AH/AvkB/wMA
AewCBwHsAv8FEgFGA/kBRgUHAQAB/wMAAQcBAAH/AwAFBwEVAe8B/wXvAf8BAAHsAQAB7AEVAwQBBwIE
BP8BAAH/AQADBwHsAf8DBwH/AvEBbgP5AewFBwUAAQcFAAYHAQAB/wUUAf8BFAEAAkMBBwHsAQQDBwIE
A/8CAAQHAewB/wNDAf8CbgJHAUYB+QFuAu8EBwMAAwcDAAcHARABvAH/BbwB/wEACQcBBAHsAf8CAAUH
AewF/wJHAv8B7AL5AW4B7AQHAQAB/wEAAwcBAAH/AQAIBwEAAf8FEAH/ARAB7wkHAQQIBwHsCfQC7AL5
AuwDBwMAAwcDAAgHAQ4I8wEACgcBBAcHC+wCBwL5FgcJAAIHAUIBTQE+BwABPgMAASgDAAFAAwABMAMA
AQEBAAEBBQABgAEBFgAD//8AggAL
</value>
</data>
</root>

413
Busquedas/PersonaBol.vb Normal file
View File

@ -0,0 +1,413 @@
Public Class PersonasBol
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents tlbInusualesDivisas As System.Windows.Forms.ToolBar
Friend WithEvents btnConsultar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
Friend WithEvents cmbPais As System.Windows.Forms.ComboBox
Friend WithEvents txtPersona As System.Windows.Forms.TextBox
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents btnRefrescar As System.Windows.Forms.ToolBarButton
Friend WithEvents lblResultados As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PersonasBol))
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.txtPersona = New System.Windows.Forms.TextBox
Me.cmbPais = New System.Windows.Forms.ComboBox
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.cmbOrganismo = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.tlbInusualesDivisas = New System.Windows.Forms.ToolBar
Me.btnConsultar = New System.Windows.Forms.ToolBarButton
Me.btnExportar = New System.Windows.Forms.ToolBarButton
Me.btnRefrescar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.DataGrid1 = New System.Windows.Forms.DataGrid
Me.lblResultados = New System.Windows.Forms.Label
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.txtPersona)
Me.GroupBox1.Controls.Add(Me.cmbPais)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.cmbOrganismo)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(28, 55)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(500, 67)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Parametros de busqueda"
'
'txtPersona
'
Me.txtPersona.Location = New System.Drawing.Point(292, 32)
Me.txtPersona.Name = "txtPersona"
Me.txtPersona.Size = New System.Drawing.Size(188, 20)
Me.txtPersona.TabIndex = 4
'
'cmbPais
'
Me.cmbPais.DropDownWidth = 210
Me.cmbPais.Location = New System.Drawing.Point(156, 32)
Me.cmbPais.Name = "cmbPais"
Me.cmbPais.Size = New System.Drawing.Size(121, 21)
Me.cmbPais.TabIndex = 3
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(292, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(106, 16)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Persona o empresa"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(156, 18)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 16)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Pais"
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
'
'cmbOrganismo
'
Me.cmbOrganismo.DropDownWidth = 140
Me.cmbOrganismo.Location = New System.Drawing.Point(18, 32)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(121, 21)
Me.cmbOrganismo.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(18, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(62, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Organismo"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'tlbInusualesDivisas
'
Me.tlbInusualesDivisas.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnConsultar, Me.btnExportar, Me.btnRefrescar, Me.btnSalir})
Me.tlbInusualesDivisas.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbInusualesDivisas.DropDownArrows = True
Me.tlbInusualesDivisas.ImageList = Me.ImageList1
Me.tlbInusualesDivisas.Location = New System.Drawing.Point(0, 0)
Me.tlbInusualesDivisas.Name = "tlbInusualesDivisas"
Me.tlbInusualesDivisas.ShowToolTips = True
Me.tlbInusualesDivisas.Size = New System.Drawing.Size(554, 42)
Me.tlbInusualesDivisas.TabIndex = 16
'
'btnConsultar
'
Me.btnConsultar.ImageIndex = 8
Me.btnConsultar.Name = "btnConsultar"
Me.btnConsultar.Text = "Consultar"
'
'btnExportar
'
Me.btnExportar.ImageIndex = 9
Me.btnExportar.Name = "btnExportar"
Me.btnExportar.Text = "Exportar"
'
'btnRefrescar
'
Me.btnRefrescar.ImageIndex = 0
Me.btnRefrescar.Name = "btnRefrescar"
Me.btnRefrescar.Text = "Refrescar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Name = "btnSalir"
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
Me.ImageList1.Images.SetKeyName(8, "")
Me.ImageList1.Images.SetKeyName(9, "")
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.DataGrid1)
Me.GroupBox2.Location = New System.Drawing.Point(6, 128)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(546, 276)
Me.GroupBox2.TabIndex = 17
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Resultados"
'
'DataGrid1
'
Me.DataGrid1.BackgroundColor = System.Drawing.Color.White
Me.DataGrid1.DataMember = ""
Me.DataGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(3, 16)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(540, 257)
Me.DataGrid1.TabIndex = 0
'
'lblResultados
'
Me.lblResultados.Location = New System.Drawing.Point(449, 406)
Me.lblResultados.Name = "lblResultados"
Me.lblResultados.Size = New System.Drawing.Size(100, 14)
Me.lblResultados.TabIndex = 18
Me.lblResultados.Text = "Resultados:"
Me.lblResultados.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblResultados.ForeColor = System.Drawing.Color.MidnightBlue
'
'PersonasBol
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(554, 421)
Me.Controls.Add(Me.lblResultados)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.tlbInusualesDivisas)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MaximizeBox = False
Me.Name = "PersonasBol"
Me.Text = "Personas Boletinadas"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
'Declaracion de varibales globales anivel de clase
Dim clCmp As clsComplejo = New clsComplejo
Dim clCmp1 As clsComplejo = New clsComplejo
Dim clGrid As clsComplejo = New clsComplejo
Dim tipoCombo As Integer = 0
Dim BanPais, BanOrg As Boolean
Private Sub PersonasBol_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BanPais = False
BanOrg = False
End Sub
Private Sub Refrescar()
'Limpia los combos, datagrid y la caja de texto
Me.cmbPais.DataSource = Nothing
Me.cmbPais.Items.Clear()
Me.cmbOrganismo.DataSource = Nothing
Me.cmbOrganismo.Items.Clear()
Me.DataGrid1.DataSource = Nothing
Me.DataGrid1.DataBindings.Clear()
Me.txtPersona.Text = ""
'Para que se puedan a llenar otra vez los combos
BanPais = False
BanOrg = False
End Sub
Private Sub tlbInusualesDivisas_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbInusualesDivisas.ButtonClick
'Botones de la toolbar
Select Case e.Button.Text
Case "Consultar"
sbBuscar()
Case "Exportar"
Exportar()
Case "Refrescar"
Refrescar()
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub sbBuscar()
Try
'Se utiliza el procedimiento almacenado "spBuscaPerBol" para buscar
Dim SQL As String
SQL = ""
SQL = fsDefineSQL("spBuscaPerBol ")
clGrid.fdtDataSetTabla(SQL)
Me.DataGrid1.SetDataBinding(clGrid.ds, "Tabla") 'Llena el grid
Dim cont As Integer
cont = clGrid.ds.Tables(0).Rows.Count
lblResultados.Text = "Elementos: " & cont
Catch ex As Exception
MessageBox.Show(ex.Message, "MIDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Function fsDefineSQL(ByVal SP As String) As String
'Defino mi cadena para el procedimiento almacenado
'Declaro varables para pasar los parametros al procedimiento almacenado
Dim lsSQL As String
Dim _Opcion As Integer
Dim _Organismo As String
Dim _Pais As String
Dim _Persona As String
If Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.txtPersona.Text = "" Then
_Opcion = 0
_Organismo = ", NULL, "
_Pais = " NULL, "
_Persona = " NULL "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text = "" And Me.txtPersona.Text <> "" Then
_Opcion = 1
_Organismo = ", NULL, "
_Pais = " NULL, "
_Persona = "'%" & Me.txtPersona.Text & "%'"
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.txtPersona.Text = "" Then
_Opcion = 2
_Organismo = ", NULL, "
_Pais = "'" & CStr(Me.cmbPais.SelectedValue) & "', "
_Persona = " NULL "
ElseIf Me.cmbOrganismo.Text = "" And Me.cmbPais.Text <> "" And Me.txtPersona.Text <> "" Then
_Opcion = 3
_Organismo = ", NULL, "
_Pais = "'" & CStr(Me.cmbPais.SelectedValue) & "', "
_Persona = "'%" & Me.txtPersona.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.txtPersona.Text = "" Then
_Opcion = 4
_Organismo = " ,'" & CStr(Me.cmbOrganismo.SelectedValue) & "', "
_Pais = "NULL, "
_Persona = "NULL"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text = "" And Me.txtPersona.Text <> "" Then
_Opcion = 5
_Organismo = " ,'" & CStr(Me.cmbOrganismo.SelectedValue) & "', "
_Pais = "NULL, "
_Persona = "'%" & Me.txtPersona.Text & "%'"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.txtPersona.Text = "" Then
_Opcion = 6
_Organismo = " ,'" & CStr(Me.cmbOrganismo.SelectedValue) & "', "
_Pais = "'" & CStr(Me.cmbPais.SelectedValue) & "', "
_Persona = "NULL"
ElseIf Me.cmbOrganismo.Text <> "" And Me.cmbPais.Text <> "" And Me.txtPersona.Text <> "" Then
_Opcion = 7
_Organismo = " ,'" & CStr(Me.cmbOrganismo.SelectedValue) & "', "
_Pais = "'" & CStr(Me.cmbPais.SelectedValue) & "', "
_Persona = "'%" & Me.txtPersona.Text & "%'"
End If
lsSQL = lsSQL & SP & " "
lsSQL = lsSQL & _Opcion
lsSQL = lsSQL & _Organismo
lsSQL = lsSQL & _Pais
lsSQL = lsSQL & _Persona
Return lsSQL
End Function
Private Sub Exportar()
'llama a las rutinas para exportar el grid a excel
Try
If clGrid.ds.Tables.Count = 0 Then
MessageBox.Show("Realiza una consulta ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
If clGrid.ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("No hay datos para exportar ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Dim Resul As DialogResult
Resul = MessageBox.Show("Este proceso puede tardar varios minutos, ¿Deseas continuar? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Resul = DialogResult.Yes Then
'Creo una instancia de la clase aExcel
Dim clsExcel As aExcel = New aExcel
'Utilizo la funcion ExportDataset de la clase aExcel
clsExcel.ExportDataset(clGrid.ds) 'Asigno el dataset a exportar
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cmbPais_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbPais.DropDown
If BanPais = False Then
'Para llenar el combo de Pais se utiliza el porcedimiento almacenado "spListaPais"
clCmp1.sbLlenaCombo("spListaPais", Me.cmbPais)
End If
BanPais = True
End Sub
Private Sub cmbOrganismo_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbOrganismo.DropDown
If BanOrg = False Then
'Para llenar el combo de organismo se utiliza el procedimiento almacenado "spLlenaComboOrgInt"
clCmp.sbLlenaCombo("spLlenaComboOrgInt", Me.cmbOrganismo)
End If
BanOrg = True
End Sub
End Class

1
CAT_FUENTEINGRESO.sql Normal file
View File

@ -0,0 +1 @@
ALTER TABLE CAT_FUENTEINGRESO ADD CALRIESGO INT

BIN
CLIENTE_TemporaryKey.pfx Normal file

Binary file not shown.

211
Catalogos/CatPais.resx Normal file
View File

@ -0,0 +1,211 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>19, 12</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABQ
DQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAHBwMA
FgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wBBwEA
AjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3
AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEA
AjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEA
A+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF/wHw
AQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD7AEH
AQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0BFAH/
AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQACBwEA
Cf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sBDQEU
ARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQABNwEA
BAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH/wEA
ATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwBBwEA
ATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewBFAHv
BuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4EFQFD
AQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsBAAMH
AewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8DAAUH
AQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB/wMA
BQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcBFwGS
BwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB9wIA
Af8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB/wMA
AQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkBkgEH
AgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcDBw0A
AwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwABBwEA
Af8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB7AUH
BQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C7wQH
AwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQADBwEA
Af8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL7AIH
AvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCCAAs=
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cA/3d3d3d3d3d3d3cA/3d3d3eId3d3d3cA/3d3d3zIh3d3d3cA/3d3d8IsiHd3d3cA/3d3
eiIiyId3d3cA/3d3oiIiLIh3d3cA/3d3oiKiIsiHd3cA/3d3oiyKIiyHd3cA/3d3oiyHoiyId3cA/3d3
eix3eiLIh3cA/3d3d6p3d6IsiHcA/3d3d3d3d3oiyIcA/3d3d3d3d3eiLIcA/3d3d3d3d3d6LIcA/3d3
d3d3d3d3rHcA/3d3d3d3d3d3d3cA/3d3d3d3d3d3d3cA/3d3d3d3d3d3d3cA/3d3d3d3d3d3d3cA/w==
</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cA/3d3d3h3d3d3d3cA/3d3dwiHd3d3d3cA/3d3eRCHd3eId3cA/3d3eRCId3AIh3cA/3d3
eREIh5EQh3cA/3d3d5EQiREQd3cA/3d3d5ERkREHd3cA/3d3d3kRERB3d3cA/3d3d3eREQiHd3cA/3d3
d3eRERCHd3cA/3d3d3kRARCId3cA/3d3d3kQeREIh3cA/3d3d5EHd5EQiHcA/3d3d5EHd3kRCHcA/3d3
d3l3d3eRB3cA/3d3d3d3d3d5d3cA/3d3d3d3d3d3d3cA/3d3d3d3d3d3d3cA/3d3d3d3d3d3d3cA/w==
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</metadata>
</root>

553
Catalogos/CatPais.vb Normal file
View File

@ -0,0 +1,553 @@
Public Class CatPais
Inherits System.Windows.Forms.Form
Dim clCmpOrg As clsComplejo = New clsComplejo
Dim clCmpOrg1 As clsComplejo = New clsComplejo
Dim clCmpOrg2 As clsComplejo = New clsComplejo
Dim clCmpClas As clsComplejo = New clsComplejo
Dim Actualizar As Boolean
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtNombreIngles As System.Windows.Forms.TextBox
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents grdPaises As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents cmbClasificacion As System.Windows.Forms.ComboBox
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents btnAliasPais As System.Windows.Forms.Button
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents grsClasPais As AxMSFlexGridLib.AxMSFlexGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(CatPais))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.txtClave = New System.Windows.Forms.TextBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtNombreIngles = New System.Windows.Forms.TextBox
Me.cmbOrganismo = New System.Windows.Forms.ComboBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.cmbClasificacion = New System.Windows.Forms.ComboBox
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.Label7 = New System.Windows.Forms.Label
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.btnAliasPais = New System.Windows.Forms.Button
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
Me.ImageList1.Images.SetKeyName(0, "")
Me.ImageList1.Images.SetKeyName(1, "")
Me.ImageList1.Images.SetKeyName(2, "")
Me.ImageList1.Images.SetKeyName(3, "")
Me.ImageList1.Images.SetKeyName(4, "")
Me.ImageList1.Images.SetKeyName(5, "")
Me.ImageList1.Images.SetKeyName(6, "")
Me.ImageList1.Images.SetKeyName(7, "")
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(32, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 16)
Me.Label1.TabIndex = 25
Me.Label1.Text = "Clave País:"
Me.Label1.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(48, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 26
Me.Label2.Text = "Nombre:"
Me.Label2.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(9, 128)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(88, 16)
Me.Label3.TabIndex = 27
Me.Label3.Text = "Nombre Inglés:"
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(26, 160)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(64, 16)
Me.Label4.TabIndex = 28
Me.Label4.Text = "Organismo:"
Me.Label4.ForeColor = System.Drawing.Color.MidnightBlue
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(18, 192)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 16)
Me.Label5.TabIndex = 29
Me.Label5.Text = "Clasificación:"
Me.Label5.ForeColor = System.Drawing.Color.MidnightBlue
'
'txtClave
'
Me.txtClave.BackColor = System.Drawing.Color.White
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(112, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 30
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(112, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(272, 20)
Me.txtNombre.TabIndex = 0
'
'txtNombreIngles
'
Me.txtNombreIngles.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombreIngles.Location = New System.Drawing.Point(112, 120)
Me.txtNombreIngles.Name = "txtNombreIngles"
Me.txtNombreIngles.Size = New System.Drawing.Size(272, 20)
Me.txtNombreIngles.TabIndex = 1
'
'cmbOrganismo
'
Me.cmbOrganismo.Location = New System.Drawing.Point(112, 152)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(280, 21)
Me.cmbOrganismo.TabIndex = 2
'
'GroupBox1
'
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(16, 304)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(536, 200)
Me.GroupBox1.TabIndex = 35
Me.GroupBox1.TabStop = False
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(304, 56)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 16)
Me.chkActivo.TabIndex = 4
Me.chkActivo.Text = "Activo:"
'
'cmbClasificacion
'
Me.cmbClasificacion.Location = New System.Drawing.Point(112, 184)
Me.cmbClasificacion.Name = "cmbClasificacion"
Me.cmbClasificacion.Size = New System.Drawing.Size(280, 21)
Me.cmbClasificacion.TabIndex = 3
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(558, 43)
Me.tlbCorteCaja.TabIndex = 50
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Name = "btnAgrergar"
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Name = "btnActualizar"
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Name = "btnEliminar"
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Name = "btnSalir"
Me.btnSalir.Text = "Salir"
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(432, 192)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(32, 24)
Me.Label7.TabIndex = 79
Me.Label7.Text = "..."
Me.Label7.ForeColor = System.Drawing.Color.MidnightBlue
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(416, 80)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 82
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAceptar.UseVisualStyleBackColor = False
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCancelar.UseVisualStyleBackColor = False
'
'btnAliasPais
'
Me.btnAliasPais.BackColor = System.Drawing.SystemColors.Control
Me.btnAliasPais.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAliasPais.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAliasPais.Location = New System.Drawing.Point(448, 512)
Me.btnAliasPais.Name = "btnAliasPais"
Me.btnAliasPais.Size = New System.Drawing.Size(104, 24)
Me.btnAliasPais.TabIndex = 83
Me.btnAliasPais.Text = "Alias ..."
Me.btnAliasPais.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAliasPais.UseVisualStyleBackColor = False
Me.btnAliasPais.Visible = False
'
'GroupBox2
'
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(112, 208)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(280, 96)
Me.GroupBox2.TabIndex = 84
Me.GroupBox2.TabStop = False
'
'CatPais
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(558, 547)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.btnAliasPais)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.cmbClasificacion)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.cmbOrganismo)
Me.Controls.Add(Me.txtNombreIngles)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatPais"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CatPais"
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
GroupBox2.Location = New Point(112, 208)
Limpiar()
Habilita(True)
Case "Actualizar"
GroupBox2.Location = New Point(112, 208)
Habilita(True)
Actualizar = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Limpiar()
txtClave.Text = ""
txtNombre.Text = ""
txtNombreIngles.Text = ""
End Sub
Private Sub Habilita(ByVal Bandera As Boolean)
txtNombre.Enabled = Bandera
txtNombreIngles.Enabled = Bandera
End Sub
Private Sub sbAlias()
'Habilita(False)
'Dim miAlias As New ActAlias()
'miAlias.Entra(15, txtClave.Text)
'miAlias.Text = "Alias País"
'miAlias.piCatalogo = 15
'miAlias.Show()
End Sub
Private Sub CatPais_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox2.Location = New Point(112, 184)
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
clCmpClas.sbLlenaCombo("spListaClasPais", Me.cmbClasificacion)
clCmpOrg1.sbLlenaCombo("spListaOrganismos", Me.cmbOrganismo)
clCmpOrg2.sbLlenaMSFGrid("spGridPais 0", grdPaises)
clCmpOrg.sbLlenaMSFGrid("spGridPaisClasificacion 0", grsClasPais)
Try
With grdPaises
.set_ColWidth(0, 0)
.set_ColWidth(1, 1500)
.set_ColWidth(2, 3200)
.set_ColWidth(3, 3800)
.set_ColWidth(4, 0)
End With
With grsClasPais
.set_ColWidth(0, 0)
.set_ColWidth(1, 0)
.set_ColWidth(2, 3200)
End With
Catch a As Exception
MessageBox.Show("Error en CatPais; sbIniciaForma: " & a.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MessageBox.Show("Desea guardar los cambios? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then Exit Sub
'If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClasificacion As Integer
Dim liOrganismo As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsNombreIngles As String
Dim lsSQL As String
Dim clCmp As New clsComplejo
On Error GoTo eh
fbValidaGrabar = False
If cmbClasificacion.SelectedIndex = -1 Then
MsgBox("Clasificación no válida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If cmbOrganismo.SelectedIndex = -1 Then
MsgBox("Organismo no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
'***********Asigancion de valores *************
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClasificacion = cmbClasificacion.SelectedValue
liOrganismo = cmbOrganismo.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
lsNombreIngles = txtNombreIngles.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(lsNombreIngles.Trim) = 0 Then
MsgBox("Nombre inglés no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
'********* Forma el query para grabar ********************
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatPais "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liOrganismo & ", 15, "
lsSQL = lsSQL & liClasificacion & ", '"
lsSQL = lsSQL & lsNombre & "', '"
lsSQL = lsSQL & lsNombreIngles & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub grdPaises_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdPaises.DblClick
With Me.grdPaises
.Col = 0
txtClave.Text = .Text
.Col = 1
clCmpOrg.sbLlenaMSFGrid("spGridPaisClasificacion " & txtClave.Text.Trim, grsClasPais)
With Me.grsClasPais
.set_ColWidth(0, 0)
.set_ColWidth(1, 0)
.set_ColWidth(2, 4000)
End With
.Col = 2
txtNombre.Text = .Text
.Col = 3
txtNombreIngles.Text = .Text
.Col = 4
If .Text = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
Habilita(True)
GroupBox2.Location = New Point(112, 184)
End Sub
Private Sub grsClasPais_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grsClasPais.DblClick
If Actualizar = True Then
GroupBox2.Location = New Point(112, 208)
Dim Id_Clasificacion As Integer
With grsClasPais
.Col = 1
Id_Clasificacion = .Text()
cmbClasificacion.SelectedValue = Id_Clasificacion
End With
End If
End Sub
Private Sub cmbClasificacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbClasificacion.SelectedIndexChanged
On Error Resume Next
Dim lsComando As String
Dim clCmpClas As New clsComplejo()
lsComando = "spGridPais " & cmbClasificacion.SelectedValue
clCmpClas.sbLlenaMSFGrid(lsComando, Me.grdPaises)
End Sub
Private Sub btnAliasPais_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAliasPais.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Me.Actualizar = False
sbGuardar()
End Sub
End Class

View File

@ -0,0 +1,408 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="cmbPais.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbPais.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbPais.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label7.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3f5BHd3d3d3d3d3d3f5BHd3d3eId3d3d3f5BHd3d3zIh3d3d3f5BHd3d8IsiHd3d3f5BHd3
eiIiyId3d3f5BHd3oiIiLIh3d3f5BHd3oiKiIsiHd3f5BHd3oiyKIiyHd3f5BHd3oiyHoiyId3f5BHd3
eix3eiLIh3f5BHd3d6p3d6IsiHf5BHd3d3d3d3oiyIf5BHd3d3d3d3eiLIf5BHd3d3d3d3d6LIf5BHd3
d3d3d3d3rHf5BHd3d3d3d3d3d3f5BHd3d3d3d3d3d3f5BHd3d3d3d3d3d3f5BHd3d3d3d3d3d3f5BA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3f5BHd3d3h3d3d3d3f5BHd3dwiHd3d3d3f5BHd3eRCHd3eId3f5BHd3eRCId3AIh3f5BHd3
eREIh5EQh3f5BHd3d5EQiREQd3f5BHd3d5ERkREHd3f5BHd3d3kRERB3d3f5BHd3d3eREQiHd3f5BHd3
d3eRERCHd3f5BHd3d3kRARCId3f5BHd3d3kQeREIh3f5BHd3d5EHd5EQiHf5BHd3d5EHd3kRCHf5BHd3
d3l3d3eRB3f5BHd3d3d3d3d5d3f5BHd3d3d3d3d3d3f5BHd3d3d3d3d3d3f5BHd3d3d3d3d3d3f5BA==
</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Name">
<value>CatEstado</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,508 @@
Public Class CatEstado
Inherits System.Windows.Forms.Form
Dim clCmp As New clsComplejo()
Dim guardar As Boolean
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cmbPais As System.Windows.Forms.ComboBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents grdEstados As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatEstado))
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.cmbPais = New System.Windows.Forms.ComboBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.Label7 = New System.Windows.Forms.Label
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(232, 64)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(96, 16)
Me.chkActivo.TabIndex = 2
Me.chkActivo.Text = "Activo:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 154)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(516, 168)
Me.GroupBox1.TabIndex = 48
Me.GroupBox1.TabStop = False
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(510, 149)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style1{}Normal{Font:Microsoft Sans Serif, 8.25pt, style=Bold;}HighlightRow{F" & _
"oreColor:Aqua;BackColor:Highlight;}Style12{}OddRow{}RecordSelector{AlignImage:Ce" & _
"nter;}Style13{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;For" & _
"eColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}St" & _
"yle14{}Style15{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView N" & _
"ame="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
"eeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScro" & _
"llGroup=""1"" HorizontalScrollGroup=""1""><Height>145</Height><CaptionStyle parent=""" & _
"Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /" & _
"><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /><ClientRect>0, 0, 506, 145</ClientRect><BorderSide>0</Border" & _
"Side><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><" & _
"NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /" & _
"><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><S" & _
"tyle parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><St" & _
"yle parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><St" & _
"yle parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style p" & _
"arent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><S" & _
"tyle parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horz" & _
"Splits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
"idth><ClientArea>0, 0, 506, 145</ClientArea><PrintPageHeaderStyle parent="""" me=""" & _
"Style14"" /><PrintPageFooterStyle parent="""" me=""Style15"" /></Blob>"
'
'cmbPais
'
Me.cmbPais.Location = New System.Drawing.Point(112, 120)
Me.cmbPais.Name = "cmbPais"
Me.cmbPais.Size = New System.Drawing.Size(208, 21)
Me.cmbPais.TabIndex = 1
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(112, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(208, 20)
Me.txtNombre.TabIndex = 0
Me.txtNombre.Text = ""
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(112, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 5
Me.txtClave.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(64, 128)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(32, 16)
Me.Label4.TabIndex = 42
Me.Label4.Text = "País:"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(16, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 16)
Me.Label1.TabIndex = 39
Me.Label1.Text = "Clave Estado:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(48, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 40
Me.Label2.Text = "Nombre:"
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(526, 47)
Me.tlbCorteCaja.TabIndex = 49
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(346, 70)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 24)
Me.Label7.TabIndex = 79
Me.Label7.Text = "..."
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(388, 60)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 81
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(410, 340)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 24)
Me.Button1.TabIndex = 82
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'CatEstado
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(526, 379)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.cmbPais)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatEstado"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CatEstado"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
guardar = True
txtNombre.Enabled = True
Limpiar()
Case "Actualizar"
guardar = True
txtNombre.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Limpiar()
txtClave.Text = ""
txtNombre.Text = ""
txtNombre.Enabled = True
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias()
miAlias.Entra(8, txtClave.Text.Trim)
miAlias.Text = "Alias Estados"
miAlias.piCatalogo = 8
miAlias.Show()
End Sub
Private Sub CatEstado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
guardar = False
txtNombre.Enabled = False
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
Try
'Llena combo y grid
clCmp.sbLlenaCombo("spListaPais ", Me.cmbPais)
clCmp.fdtDataSetTabla("spGridEstados 0")
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
'clCmp.sbLlenaMSFGrid("spGridEstados 0", grdEstados)
'With grdEstados
' .set_ColWidth(0, 0)
' .set_ColWidth(1, 2800)
' .set_ColWidth(2, 3200)
' .set_ColWidth(3, 0)
'End With
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClavePais As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cmbPais.SelectedIndex = -1 Then
MsgBox("País no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If txtClave.Text = "" Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClavePais = cmbPais.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatEstado "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liClavePais & ", 8, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
'Private Sub grdEstados_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdEstados.DblClick
' With grdEstados
' .Col = 0
' txtClave.Text = .Text
' .Col = 1
' clCmp.sbBuscaEnCombo(.Text, Me.cmbPais)
' .Col = 2
' txtNombre.Text = .Text
' .Col = 3
' If .Text = "Activo" Then
' chkActivo.Checked = True
' Else
' chkActivo.Checked = False
' End If
' End With
'End Sub
Private Sub cmbPais_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPais.SelectedIndexChanged
On Error Resume Next
Dim lsComando As String
Dim clCmpPais As New clsComplejo
txtNombre.Text = ""
lsComando = "spGridEstados " & cmbPais.SelectedValue
clCmpPais.sbLlenaMSFGrid(lsComando, Me.grdEstados)
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
txtNombre.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
'Me.txtClave.Text = Me.C1TrueDBGrid1.Columns(0).Value
'With Me.C1TrueDBGrid1
' .Col = 0
' txtClave.Text = .Text
' .Col = 1
' ' clCmp.sbBuscaEnCombo(.Text, Me.cmbPais)
' .Col = 2
' txtNombre.Text = .Text
' .Col = 3
' If .Text = "Activo" Then
' chkActivo.Checked = True
' Else
' chkActivo.Checked = False
' End If
'End With
End Sub
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
End Sub
End Class

View File

@ -0,0 +1,759 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AACMDgAAAk1TRnQBSQFMAgEBCQEAAQ4BAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAQ
/zAAAf8OAAH/MAAB/wEAAwcB7AL/AQcC/wEHAv8BAAH/MAAB/wEAAwcC7AH/AQcB7AH/AQcB7AH/AQAB
/zAAAf8BAAXsAgcB7AIHAewBBwEAAf8wAAH/AQADBwHsAgABBwHsAf8BBwHsAf8BAAH/MAAB/wEAAwcB
7AEAAf4BAAL/AQcB7AH/AQAB/zAAAf8BAATsAQcBAAH+AQAEBwEAAf8wAAH/BQAC/wEAAf4BAAEHAv8B
AAH/MAAB/wEABAcBAAH/AQcBAAH+AQAC/wEAAf8xAAYHAQABBwH/AQAB/gEAAf8BAAH/MQAB/wEHA6UB
BwEAAQcC/wEAAf4CAAH/MQAB/wEHAaUDBwEABKEBAAH+AQAB/zEAAf8BBwGlAwcHAAH+MQAB/wEAA/8B
BwEAB/8yAAL/BAAK/zAABwcDABYHEOwXBwEVARoBKQIAFAcF7AgUA+wCBwwACQcBFAHyAesBAwFtAgAE
BwsAAwcF7AEQBu0BAAPsAQcBAAI3AQACBwQAAjcBAAcHAgABFAEaAQMB6wEDAesBKQIAAgcBAAn/AQAD
BwXsARQF/wHwAQAD7AEHAQACNwEAAgcEAAI3AQAHBwEQARMBFAHyAesBAwHrAQMB6wEpAQACBwEACf8B
AAMHBewBFAX/AfABAAPsAQcBAAI3AQACBwQAAjcBAAUHAQABBwERAeoBFAEbAUoB6wEDAesBAwHrAQAC
BwEACf8BAAMHBewBFAX/AfABAAPsAQcBAAI3BwACNwEABAcCAAEHAREB6gEUAfIBbQEPASIBAwHrAQMB
AAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wBBwEACzcBAAMHAg0CAAIOARQBGwFRAu0B6wFKAesBAAIHAQAJ
/wEAAwcF7AEUBf8B8AEAA+wBBwEAAjcHAAI3AQACBwENAYEEuAEGARQB8gFzAVEB7AFKAesBAwEAAgcB
AAn/AQADBwLsAfcB7wFtARQB/wG8Af8B8wEHAZIBAAPsAQcBAAE3AQAH/wEAATcBAAIHAWsF/gG4ARQB
GwFKAesBSgHrAUoB6wEAAgcBAAn/AQADBwLsAW0B6wEDARQBBwHsAf8BBwEUARIBFAPsAQcBAAE3AQAH
/wEAATcBAAMHAYEBuANrAQ0BFAEbAkoB6wFKAesBSgEAAgcBAAn/AQADBwLsAe8BBwEiApkB8wH/AQcB
EgXsAQcBAAE3AQAH/wEAATcBAAQHAQ0BAAEHAQ8BFQEUARsGSgEAAgcBAAb/BAADBwPsARABAAFeAf8B
FAIAARQF7AEHAQABNwEAB/8BAAE3AQAFBwEAAQcBEQHqAREB7wGZAfcESgEAAgcBAAb/AQAB/wEABAcC
7AHrARMBWAEiAVEB7wjsAQcBAAE3AQAH/wEAATcBAAcHAREBbQESAewB6wH3AQcBcwJKAQACBwEABv8C
AAUHA+wB7wHsARQBBwHsARQB7wbsAQcNAAcHAREC7AHrARIB7AHrAZIBmQGSAQACBwgABgcC7AHtAuwB
FAEHAewBbQGSBuwVBwEOBBUBQwEAARQB7AHqAQAQBxDsFAcBAAEHAQABBwEAAQcBAAUHC+wvBwIABAcB
7AnzAewXBwsPBwcHAAH7AQADBwHsCf8B7AUHBQAFBwUAAgcBEAmSAQABkgEQBgcBAAX/AQAB+wEAAwcB
7AL/BhQB/wHsBQcBAAH/AwAFBwEAAf8DAAEHAUMBAAlDAQABQwHtAUMFBwEAAf8E+QEAAvsBAAIHAewC
/wPvAR8C6gH/AewFBwEAAf8DAAUHAQAB/wMAAQcBAAbsAzAC7AEAARUBAAUHAQAG/wEAAfsBAAIHAewD
/wJtAfkBRgHsAe8B7AMHARcBkgcAAQcHAAEHAQAGBwMpAgcBAAHsAQAFBwEAAf8F+QEAAvsBAAEHAewD
/wLsAUYB+QFGAuwDBwH5AfcCAAH/BgAB/wUAAQcBAAYSAwACEgEAAQcBbQESBAcBAAf/BAAB7AL/A+wB
FAL5AuwBBwJvAUYBBwIAAf8DAAEHAgAB/wUAAQcBAAptAQACbQEHAQADBwEEAv8F+QH/AQACAQEAAewC
/wTrAUYB+QFGAewB9wL5AZIBBwIAAf8DAAEHAgAB/wUAAQcBEgptARIBbQESAW0BAAIHAwQH/wMAAQcB
7AL/BJIBEgL5Am8B+QEXAwcNAAMHARMBAAhtAewBEwHsARMBAAEHBAQB7AH/AvkB/wMAAewCBwHsAv8F
EgFGA/kBRgUHAQAB/wMAAQcBAAH/AwAFBwEVAe8B/wXvAf8BAAHsAQAB7AEVAwQBBwIEBP8BAAH/AQAD
BwHsAf8DBwH/AvEBbgP5AewFBwUAAQcFAAYHAQAB/wUUAf8BFAEAAkMBBwHsAQQDBwIEA/8CAAQHAewB
/wNDAf8CbgJHAUYB+QFuAu8EBwMAAwcDAAcHARABvAH/BbwB/wEACQcBBAHsAf8CAAUHAewF/wJHAv8B
7AL5AW4B7AQHAQAB/wEAAwcBAAH/AQAIBwEAAf8FEAH/ARAB7wkHAQQIBwHsCfQC7AL5AuwDBwMAAwcD
AAgHAQ4I8wEACgcBBAcHC+wCBwL5FgcJAAIHAUIBTQE+BwABPgMAASgDAAFAAwABQAMAAQEBAAEBBgAB
AhYAA///AP8AGQAL
</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label6.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNumero.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNumero.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNumero.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label7.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtPaterno.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtPaterno.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtPaterno.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label8.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtMaterno.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtMaterno.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtMaterno.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label9.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtPuesto.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtPuesto.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtPuesto.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label10.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtDepartamento.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtDepartamento.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtDepartamento.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label11.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtArea.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtArea.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtArea.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label13.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label13.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNacionalidad.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNacionalidad.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNacionalidad.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCalle.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCalle.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtCalle.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label5.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtColonia.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtColonia.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtColonia.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label14.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label14.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label14.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboEstado.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboEstado.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboEstado.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label15.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label15.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtTelefono.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtTelefono.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtTelefono.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label17.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label17.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label17.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCURP.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCURP.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtCURP.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Clave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Clave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label16.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label16.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtRFC.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtRFC.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtRFC.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label3.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCp.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCp.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtCp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label12.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label12.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtDelegacion.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtDelegacion.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtDelegacion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label20.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label20.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label20.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCiudad.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCiudad.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtCiudad.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3eId3d3d3cSAHd3d3zIh3d3d3cSAHd3d8IsiHd3d3cSAHd3
eiIiyId3d3cSAHd3oiIiLIh3d3cSAHd3oiKiIsiHd3cSAHd3oiyKIiyHd3cSAHd3oiyHoiyId3cSAHd3
eix3eiLIh3cSAHd3d6p3d6IsiHcSAHd3d3d3d3oiyIcSAHd3d3d3d3eiLIcSAHd3d3d3d3d6LIcSAHd3
d3d3d3d3rHcSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3h3d3d3d3cSAHd3dwiHd3d3d3cSAHd3eRCHd3eId3cSAHd3eRCId3AIh3cSAHd3
eREIh5EQh3cSAHd3d5EQiREQd3cSAHd3d5ERkREHd3cSAHd3d3kRERB3d3cSAHd3d3eREQiHd3cSAHd3
d3eRERCHd3cSAHd3d3kRARCId3cSAHd3d3kQeREIh3cSAHd3d5EHd5EQiHcSAHd3d5EHd3kRCHcSAHd3
d3l3d3eRB3cSAHd3d3d3d3d5d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="cboSucursal.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboSucursal.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboSucursal.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label18.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label18.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label18.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label21.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label21.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label21.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboTipEmp.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboTipEmp.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboTipEmp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboSistema.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboSistema.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboSistema.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClaveSist.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClaveSist.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClaveSist.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblSistema.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="lblSistema.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblSistema.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="lblClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>34</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.Name">
<value>CatFuncionario</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,386 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnPais.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnPais.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AAB6DgAAAk1TRnQBSQFMAgEBCQEAAQ4BAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAAUADAAEBAQABCAYAARAYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAG
BwoEMAABBwUPAQQI8gEEMAABEAEAASkBAAEpAQABBAH/BoYB/wEEMQABKQEiASkBIgEpAQQB/wbuAf8B
BDEAASIBKQEiASkBIgEEAf8DrgH/A64BBDEAASkBIgEpASIBKQEEAf8DtQH/AQQBtQEEAa4xAAUiAQQF
/wEEAc8BrgEHMQAFIgEEBbUBBAEKAgcxAAUiARQBCgEUAQoBFAEKARQBAAIHMQABIgEpAQABKQEAASkB
AAEpAQABKQEAASkBAAIHMQABKQIABhUCAAEiAQACBzEAASIBAAEiAe0BmQLtAZkB7QEAASIBKQEAAgcw
AAEQASkBAAEpAQABNwIiATcCAAEpAQABEAIHMAABBwQPAQACNwEABA8DBzAABQcEDgcHMAAQBzAABwcD
ABYHEOwXBwEVARoBKQIAFAcF7AgUA+wCBwwACQcBFAHyAesBAwFtAgAEBwsAAwcF7AEQBu0BAAPsAQcB
AAI3AQACBwQAAjcBAAcHAgABFAEaAQMB6wEDAesBKQIAAgcBAAn/AQADBwXsARQF/wHwAQAD7AEHAQAC
NwEAAgcEAAI3AQAHBwEQARMBFAHyAesBAwHrAQMB6wEpAQACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAUHAQABBwERAeoBFAEbAUoB6wEDAesBAwHrAQACBwEACf8BAAMHBewBFAX/AfAB
AAPsAQcBAAI3BwACNwEABAcCAAEHAREB6gEUAfIBbQEPASIBAwHrAQMBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEACzcBAAMHAg0CAAIOARQBGwFRAu0B6wFKAesBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcHAAI3AQACBwENAYEEuAEGARQB8gFzAVEB7AFKAesBAwEAAgcBAAn/AQADBwLsAfcB7wFtARQB
/wG8Af8B8wEHAZIBAAPsAQcBAAE3AQAH/wEAATcBAAIHAWsF/gG4ARQBGwFKAesBSgHrAUoB6wEAAgcB
AAn/AQADBwLsAW0B6wEDARQBBwHsAf8BBwEUARIBFAPsAQcBAAE3AQAH/wEAATcBAAMHAYEBuANrAQ0B
FAEbAkoB6wFKAesBSgEAAgcBAAn/AQADBwLsAe8BBwEiApkB8wH/AQcBEgXsAQcBAAE3AQAH/wEAATcB
AAQHAQ0BAAEHAQ8BFQEUARsGSgEAAgcBAAb/BAADBwPsARABAAFeAf8BFAIAARQF7AEHAQABNwEAB/8B
AAE3AQAFBwEAAQcBEQHqAREB7wGZAfcESgEAAgcBAAb/AQAB/wEABAcC7AHrARMBWAEiAVEB7wjsAQcB
AAE3AQAH/wEAATcBAAcHAREBbQESAewB6wH3AQcBcwJKAQACBwEABv8CAAUHA+wB7wHsARQBBwHsARQB
7wbsAQcNAAcHAREC7AHrARIB7AHrAZIBmQGSAQACBwgABgcC7AHtAuwBFAEHAewBbQGSBuwVBwEOBBUB
QwEAARQB7AHqAQAQBxDsFAcBAAEHAQABBwEAAQcBAAUHC+wvBwIABAcB7AnzAewXBwsPBwcHAAH7AQAD
BwHsCf8B7AUHBQAFBwUAAgcBEAmSAQABkgEQBgcBAAX/AQAB+wEAAwcB7AL/BhQB/wHsBQcBAAH/AwAF
BwEAAf8DAAEHAUMBAAlDAQABQwHtAUMFBwEAAf8E+QEAAvsBAAIHAewC/wPvAR8C6gH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBAAbsAzAC7AEAARUBAAUHAQAG/wEAAfsBAAIHAewD/wJtAfkBRgHsAe8B7AMHARcB
kgcAAQcHAAEHAQAGBwMpAgcBAAHsAQAFBwEAAf8F+QEAAvsBAAEHAewD/wLsAUYB+QFGAuwDBwH5AfcC
AAH/BgAB/wUAAQcBAAYSAwACEgEAAQcBbQESBAcBAAf/BAAB7AL/A+wBFAL5AuwBBwJvAUYBBwIAAf8D
AAEHAgAB/wUAAQcBAAptAQACbQEHAQADBwEEAv8F+QH/AQACAQEAAewC/wTrAUYB+QFGAewB9wL5AZIB
BwIAAf8DAAEHAgAB/wUAAQcBEgptARIBbQESAW0BAAIHAwQH/wMAAQcB7AL/BJIBEgL5Am8B+QEXAwcN
AAMHARMBAAhtAewBEwHsARMBAAEHBAQB7AH/AvkB/wMAAewCBwHsAv8FEgFGA/kBRgUHAQAB/wMAAQcB
AAH/AwAFBwEVAe8B/wXvAf8BAAHsAQAB7AEVAwQBBwIEBP8BAAH/AQADBwHsAf8DBwH/AvEBbgP5AewF
BwUAAQcFAAYHAQAB/wUUAf8BFAEAAkMBBwHsAQQDBwIEA/8CAAQHAewB/wNDAf8CbgJHAUYB+QFuAu8E
BwMAAwcDAAcHARABvAH/BbwB/wEACQcBBAHsAf8CAAUHAewF/wJHAv8B7AL5AW4B7AQHAQAB/wEAAwcB
AAH/AQAIBwEAAf8FEAH/ARAB7wkHAQQIBwHsCfQC7AL5AuwDBwMAAwcDAAgHAQ4I8wEACgcBBAcHC+wC
BwL5FgcJAAIHAUIBTQE+BwABPgMAASgDAAFAAwABQAMAAQEBAAEBBgABAhYAA///AP8AGQAL
</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3eId3d3d3cSAHd3d3zIh3d3d3cSAHd3d8IsiHd3d3cSAHd3
eiIiyId3d3cSAHd3oiIiLIh3d3cSAHd3oiKiIsiHd3cSAHd3oiyKIiyHd3cSAHd3oiyHoiyId3cSAHd3
eix3eiLIh3cSAHd3d6p3d6IsiHcSAHd3d3d3d3oiyIcSAHd3d3d3d3eiLIcSAHd3d3d3d3d6LIcSAHd3
d3d3d3d3rHcSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3h3d3d3d3cSAHd3dwiHd3d3d3cSAHd3eRCHd3eId3cSAHd3eRCId3AIh3cSAHd3
eREIh5EQh3cSAHd3d5EQiREQd3cSAHd3d5ERkREHd3cSAHd3d3kRERB3d3cSAHd3d3eREQiHd3cSAHd3
d3eRERCHd3cSAHd3d3kRARCId3cSAHd3d3kQeREIh3cSAHd3d5EHd5EQiHcSAHd3d5EHd3kRCHcSAHd3
d3l3d3eRB3cSAHd3d3d3d3d5d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.Name">
<value>CatMoneda</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,441 @@
Public Class CatMoneda
Inherits System.Windows.Forms.Form
Dim clCmp As New clsComplejo()
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents btnPais As System.Windows.Forms.ToolBarButton
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatMoneda))
Me.txtClave = New System.Windows.Forms.TextBox
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.Button1 = New System.Windows.Forms.Button
Me.txtNombre = New System.Windows.Forms.TextBox
Me.btnPais = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.Label1 = New System.Windows.Forms.Label
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.Label2 = New System.Windows.Forms.Label
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(144, 76)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 63
Me.txtClave.Text = ""
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 6
Me.btnAgrergar.Text = "Agregar"
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(272, 72)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(56, 16)
Me.chkActivo.TabIndex = 59
Me.chkActivo.Text = "Activo"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(10, 152)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(520, 208)
Me.GroupBox1.TabIndex = 64
Me.GroupBox1.TabStop = False
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(514, 189)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style9{}Normal{Font:Microsoft Sans Serif, 8.25pt, style=Bold;}HighlightRow{F" & _
"oreColor:Aqua;BackColor:Highlight;}Style14{}OddRow{}RecordSelector{AlignImage:Ce" & _
"nter;}Style15{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;Fore" & _
"Color:ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}St" & _
"yle12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView N" & _
"ame="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
"eeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScro" & _
"llGroup=""1"" HorizontalScrollGroup=""1""><Height>185</Height><CaptionStyle parent=""" & _
"Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /" & _
"><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /><ClientRect>0, 0, 510, 185</ClientRect><BorderSide>0</Border" & _
"Side><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><" & _
"NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /" & _
"><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><S" & _
"tyle parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><St" & _
"yle parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><St" & _
"yle parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style p" & _
"arent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><S" & _
"tyle parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horz" & _
"Splits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
"idth><ClientArea>0, 0, 510, 185</ClientArea><PrintPageHeaderStyle parent="""" me=""" & _
"Style14"" /><PrintPageFooterStyle parent="""" me=""Style15"" /></Blob>"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(414, 376)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 24)
Me.Button1.TabIndex = 81
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(144, 104)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(176, 20)
Me.txtNombre.TabIndex = 58
Me.txtNombre.Text = ""
'
'btnPais
'
Me.btnPais.ImageIndex = 8
Me.btnPais.Text = "Por País"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(56, 80)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(88, 16)
Me.Label1.TabIndex = 61
Me.Label1.Text = "Clave Moneda:"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnPais, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(534, 47)
Me.tlbCorteCaja.TabIndex = 60
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(94, 104)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 62
Me.Label2.Text = "Nombre:"
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(378, 56)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 81
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'CatMoneda
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(534, 409)
Me.ControlBox = False
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatMoneda"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Catalogo: Moneda"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
Me.txtNombre.Enabled = True
LIMPIAR()
Case "Actualizar"
Me.txtNombre.Enabled = True
Case "Por País"
Dim PorPais As New CatPaisMoneda
If Me.txtClave.Text = "" Then
Me.txtClave.Text = 0
End If
PorPais.Entra(Me.txtClave.Text.Trim)
PorPais.Text = "Asignación País/Moneda"
PorPais.Show()
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub LIMPIAR()
txtClave.Text = ""
txtNombre.Text = ""
chkActivo.Checked = False
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias()
miAlias.Entra(13, txtClave.Text.Trim)
miAlias.Text = "Alias Monedas"
miAlias.piCatalogo = 13
miAlias.Show()
End Sub
Private Sub CatRegion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
Me.txtNombre.Enabled = False
End Sub
Private Sub sbIniciaForma()
'Llena Grid
clCmp.fdtDataSetTabla("spGridMonedas")
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
' clCmp.sbLlenaMSFGrid("spGridMonedas", grdMonedas)
clCmp.sbLimpiaControles(Me)
'With grdMonedas
' .set_ColWidth(0, 0)
' .set_ColWidth(1, 3400)
' .set_ColWidth(2, 1200)
'End With
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatMoneda "
lsSQL = lsSQL & liClave & ", 23, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
'Private Sub grdMonedas_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdMonedas.DblClick
' With grdMonedas
' .Col = 0
' txtClave.Text = .Text
' .Col = 1
' txtNombre.Text = .Text
' .Col = 2
' If .Text = "Activa" Then
' chkActivo.Checked = True
' Else
' chkActivo.Checked = False
' End If
' End With
'End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
Me.txtNombre.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
Try
With Me.C1TrueDBGrid1
.Col = 0
txtClave.Text = .Columns(0).Value
.Col = 1
txtNombre.Text = .Columns(1).Value
.Col = 2
If .Columns(2).Value = "Activa" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
Catch ex As Exception
MessageBox.Show("Error CatMoneda; C1TrueDBGrid1_DoubleClick: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

View File

@ -0,0 +1,445 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>19, 12</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label3.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label5.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombreIngles.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombreIngles.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombreIngles.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbOrganismo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbOrganismo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbOrganismo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbClasificacion.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbClasificacion.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbClasificacion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label7.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3eId3d3d3cSAHd3d3zIh3d3d3cSAHd3d8IsiHd3d3cSAHd3
eiIiyId3d3cSAHd3oiIiLIh3d3cSAHd3oiKiIsiHd3cSAHd3oiyKIiyHd3cSAHd3oiyHoiyId3cSAHd3
eix3eiLIh3cSAHd3d6p3d6IsiHcSAHd3d3d3d3oiyIcSAHd3d3d3d3eiLIcSAHd3d3d3d3d6LIcSAHd3
d3d3d3d3rHcSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3h3d3d3d3cSAHd3dwiHd3d3d3cSAHd3eRCHd3eId3cSAHd3eRCId3AIh3cSAHd3
eREIh5EQh3cSAHd3d5EQiREQd3cSAHd3d5ERkREHd3cSAHd3d3kRERB3d3cSAHd3d3eREQiHd3cSAHd3
d3eRERCHd3cSAHd3d3kRARCId3cSAHd3d3kQeREIh3cSAHd3d5EHd5EQiHcSAHd3d5EHd3kRCHcSAHd3
d3l3d3eRB3cSAHd3d3d3d3d5d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="btnAliasPais.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAliasPais.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAliasPais.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox2.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="GroupBox2.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox2.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</data>
<data name="$this.Name">
<value>CatPais</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,534 @@
Public Class CatPais
Inherits System.Windows.Forms.Form
Dim clCmpOrg As clsComplejo = New clsComplejo
Dim clCmpOrg1 As clsComplejo = New clsComplejo
Dim clCmpOrg2 As clsComplejo = New clsComplejo
Dim clCmpClas As clsComplejo = New clsComplejo
Dim Actualizar As Boolean
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtNombreIngles As System.Windows.Forms.TextBox
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents grdPaises As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents cmbClasificacion As System.Windows.Forms.ComboBox
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents btnAliasPais As System.Windows.Forms.Button
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents grsClasPais As AxMSFlexGridLib.AxMSFlexGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatPais))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.txtClave = New System.Windows.Forms.TextBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtNombreIngles = New System.Windows.Forms.TextBox
Me.cmbOrganismo = New System.Windows.Forms.ComboBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.cmbClasificacion = New System.Windows.Forms.ComboBox
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.Label7 = New System.Windows.Forms.Label
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.btnAliasPais = New System.Windows.Forms.Button
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(32, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 16)
Me.Label1.TabIndex = 25
Me.Label1.Text = "Clave País:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(48, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 26
Me.Label2.Text = "Nombre:"
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(9, 128)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(88, 16)
Me.Label3.TabIndex = 27
Me.Label3.Text = "Nombre Inglés:"
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(26, 160)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(64, 16)
Me.Label4.TabIndex = 28
Me.Label4.Text = "Organismo:"
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(18, 192)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(72, 16)
Me.Label5.TabIndex = 29
Me.Label5.Text = "Clasificación:"
'
'txtClave
'
Me.txtClave.BackColor = System.Drawing.Color.White
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(112, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 30
Me.txtClave.Text = ""
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(112, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(272, 20)
Me.txtNombre.TabIndex = 0
Me.txtNombre.Text = ""
'
'txtNombreIngles
'
Me.txtNombreIngles.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombreIngles.Location = New System.Drawing.Point(112, 120)
Me.txtNombreIngles.Name = "txtNombreIngles"
Me.txtNombreIngles.Size = New System.Drawing.Size(272, 20)
Me.txtNombreIngles.TabIndex = 1
Me.txtNombreIngles.Text = ""
'
'cmbOrganismo
'
Me.cmbOrganismo.Location = New System.Drawing.Point(112, 152)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(280, 21)
Me.cmbOrganismo.TabIndex = 2
'
'GroupBox1
'
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(16, 304)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(536, 200)
Me.GroupBox1.TabIndex = 35
Me.GroupBox1.TabStop = False
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(304, 56)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 16)
Me.chkActivo.TabIndex = 4
Me.chkActivo.Text = "Activo:"
'
'cmbClasificacion
'
Me.cmbClasificacion.Location = New System.Drawing.Point(112, 184)
Me.cmbClasificacion.Name = "cmbClasificacion"
Me.cmbClasificacion.Size = New System.Drawing.Size(280, 21)
Me.cmbClasificacion.TabIndex = 3
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(558, 47)
Me.tlbCorteCaja.TabIndex = 50
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(432, 192)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(32, 24)
Me.Label7.TabIndex = 79
Me.Label7.Text = "..."
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(416, 80)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 82
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnAliasPais
'
Me.btnAliasPais.BackColor = System.Drawing.SystemColors.Control
Me.btnAliasPais.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAliasPais.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAliasPais.Location = New System.Drawing.Point(448, 512)
Me.btnAliasPais.Name = "btnAliasPais"
Me.btnAliasPais.Size = New System.Drawing.Size(104, 24)
Me.btnAliasPais.TabIndex = 83
Me.btnAliasPais.Text = "Alias ..."
Me.btnAliasPais.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GroupBox2
'
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(112, 208)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(280, 96)
Me.GroupBox2.TabIndex = 84
Me.GroupBox2.TabStop = False
'
'CatPais
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(558, 547)
Me.ControlBox = False
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.btnAliasPais)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.cmbClasificacion)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.cmbOrganismo)
Me.Controls.Add(Me.txtNombreIngles)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatPais"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CatPais"
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
GroupBox2.Location = New Point(112, 208)
Limpiar()
Habilita(True)
Case "Actualizar"
GroupBox2.Location = New Point(112, 208)
Habilita(True)
Actualizar = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Limpiar()
txtClave.Text = ""
txtNombre.Text = ""
txtNombreIngles.Text = ""
End Sub
Private Sub Habilita(ByVal Bandera As Boolean)
txtNombre.Enabled = Bandera
txtNombreIngles.Enabled = Bandera
End Sub
Private Sub sbAlias()
Habilita(False)
Dim miAlias As New ActAlias()
miAlias.Entra(15, txtClave.Text)
miAlias.Text = "Alias País"
miAlias.piCatalogo = 15
miAlias.Show()
End Sub
Private Sub CatPais_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox2.Location = New Point(112, 184)
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
clCmpClas.sbLlenaCombo("spListaClasPais", Me.cmbClasificacion)
clCmpOrg1.sbLlenaCombo("spListaOrganismos", Me.cmbOrganismo)
clCmpOrg2.sbLlenaMSFGrid("spGridPais 0", grdPaises)
clCmpOrg.sbLlenaMSFGrid("spGridPaisClasificacion 0", grsClasPais)
Try
With grdPaises
.set_ColWidth(0, 0)
.set_ColWidth(1, 1500)
.set_ColWidth(2, 3200)
.set_ColWidth(3, 3800)
.set_ColWidth(4, 0)
End With
With grsClasPais
.set_ColWidth(0, 0)
.set_ColWidth(1, 0)
.set_ColWidth(2, 3200)
End With
Catch a As Exception
MessageBox.Show("Error en CatPais; sbIniciaForma: " & a.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MessageBox.Show("Desea guardar los cambios? ", "MINDS", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then Exit Sub
'If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClasificacion As Integer
Dim liOrganismo As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsNombreIngles As String
Dim lsSQL As String
Dim clCmp As New clsComplejo
On Error GoTo eh
fbValidaGrabar = False
If cmbClasificacion.SelectedIndex = -1 Then
MsgBox("Clasificación no válida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If cmbOrganismo.SelectedIndex = -1 Then
MsgBox("Organismo no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
'***********Asigancion de valores *************
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClasificacion = cmbClasificacion.SelectedValue
liOrganismo = cmbOrganismo.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
lsNombreIngles = txtNombreIngles.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(lsNombreIngles.Trim) = 0 Then
MsgBox("Nombre inglés no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
'********* Forma el query para grabar ********************
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatPais "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liOrganismo & ", 15, "
lsSQL = lsSQL & liClasificacion & ", '"
lsSQL = lsSQL & lsNombre & "', '"
lsSQL = lsSQL & lsNombreIngles & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub grdPaises_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdPaises.DblClick
With Me.grdPaises
.Col = 0
txtClave.Text = .Text
.Col = 1
clCmpOrg.sbLlenaMSFGrid("spGridPaisClasificacion " & txtClave.Text.Trim, grsClasPais)
With Me.grsClasPais
.set_ColWidth(0, 0)
.set_ColWidth(1, 0)
.set_ColWidth(2, 4000)
End With
.Col = 2
txtNombre.Text = .Text
.Col = 3
txtNombreIngles.Text = .Text
.Col = 4
If .Text = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
Habilita(True)
GroupBox2.Location = New Point(112, 184)
End Sub
Private Sub grsClasPais_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grsClasPais.DblClick
If Actualizar = True Then
GroupBox2.Location = New Point(112, 208)
Dim Id_Clasificacion As Integer
With grsClasPais
.Col = 1
Id_Clasificacion = .Text()
cmbClasificacion.SelectedValue = Id_Clasificacion
End With
End If
End Sub
Private Sub cmbClasificacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbClasificacion.SelectedIndexChanged
On Error Resume Next
Dim lsComando As String
Dim clCmpClas As New clsComplejo()
lsComando = "spGridPais " & cmbClasificacion.SelectedValue
clCmpClas.sbLlenaMSFGrid(lsComando, Me.grdPaises)
End Sub
Private Sub btnAliasPais_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAliasPais.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
Me.Actualizar = False
sbGuardar()
End Sub
End Class

View File

@ -0,0 +1,304 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboPais.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboPais.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboPais.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboMoneda.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboMoneda.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboMoneda.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.Name">
<value>CatPaisMoneda</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,345 @@
Public Class CatPaisMoneda
Inherits System.Windows.Forms.Form
Dim clCmpMon As New clsComplejo()
Dim clCmpPais As New clsComplejo()
Dim Moneda As Integer
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents cboPais As System.Windows.Forms.ComboBox
Friend WithEvents cboMoneda As System.Windows.Forms.ComboBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatPaisMoneda))
Me.Label1 = New System.Windows.Forms.Label
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Button1 = New System.Windows.Forms.Button
Me.Label2 = New System.Windows.Forms.Label
Me.cboPais = New System.Windows.Forms.ComboBox
Me.cboMoneda = New System.Windows.Forms.ComboBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(82, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(32, 16)
Me.Label1.TabIndex = 61
Me.Label1.Text = "País:"
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(420, 47)
Me.tlbCorteCaja.TabIndex = 60
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 134)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(412, 178)
Me.GroupBox1.TabIndex = 64
Me.GroupBox1.TabStop = False
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(302, 324)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 20)
Me.Button1.TabIndex = 82
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(64, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(52, 16)
Me.Label2.TabIndex = 62
Me.Label2.Text = "Moneda:"
'
'cboPais
'
Me.cboPais.Location = New System.Drawing.Point(120, 62)
Me.cboPais.Name = "cboPais"
Me.cboPais.Size = New System.Drawing.Size(200, 21)
Me.cboPais.TabIndex = 65
'
'cboMoneda
'
Me.cboMoneda.Location = New System.Drawing.Point(120, 94)
Me.cboMoneda.Name = "cboMoneda"
Me.cboMoneda.Size = New System.Drawing.Size(200, 21)
Me.cboMoneda.TabIndex = 66
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(406, 159)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style14{}Normal{Font:Microsoft Sans Serif, 8.25pt, style=Bold;}HighlightRow{" & _
"ForeColor:Aqua;BackColor:Highlight;}Style9{}OddRow{}RecordSelector{AlignImage:Ce" & _
"nter;}Style15{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;Fore" & _
"Color:ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}St" & _
"yle12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView N" & _
"ame="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
"eeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScro" & _
"llGroup=""1"" HorizontalScrollGroup=""1""><Height>155</Height><CaptionStyle parent=""" & _
"Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /" & _
"><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /><ClientRect>0, 0, 402, 155</ClientRect><BorderSide>0</Border" & _
"Side><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><" & _
"NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /" & _
"><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><S" & _
"tyle parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><St" & _
"yle parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><St" & _
"yle parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style p" & _
"arent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><S" & _
"tyle parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horz" & _
"Splits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
"idth><ClientArea>0, 0, 402, 155</ClientArea><PrintPageHeaderStyle parent="""" me=""" & _
"Style14"" /><PrintPageFooterStyle parent="""" me=""Style15"" /></Blob>"
'
'CatPaisMoneda
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(420, 363)
Me.ControlBox = False
Me.Controls.Add(Me.cboMoneda)
Me.Controls.Add(Me.cboPais)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatPaisMoneda"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CatPaisMoneda"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
sbGuardar()
Me.cboMoneda.Text = ""
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub CatPlaza_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
End Sub
Public Sub Entra(ByVal Id_Moneda As Integer)
Moneda = Id_Moneda
End Sub
Private Sub sbIniciaForma()
'Llena combos y grid
clCmpPais.sbLlenaCombo("spListaPais", Me.cboPais)
clCmpMon.sbLlenaCombo("spListaMoneda", Me.cboMoneda)
clCmpMon.fdtDataSetTabla("spGridPlazMoneda 0 ")
Me.C1TrueDBGrid1.SetDataBinding(clCmpMon.ds, "Table")
'clCmpMon.sbLlenaMSFGrid("spGridPlazMoneda 0", grdPaisMoneda)
Me.cboMoneda.SelectedValue = Moneda
'With grdPaisMoneda
' .set_ColWidth(0, 2400)
' .set_ColWidth(1, 2100)
'End With
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liPais As Integer
Dim liMoneda As Integer
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cboPais.SelectedIndex = -1 Then
MsgBox("País no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
Else
liPais = cboPais.SelectedValue
End If
If cboMoneda.SelectedIndex = -1 Then
MsgBox("Moneda no válida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
Else
liMoneda = cboMoneda.SelectedValue
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaPaisMoneda "
lsSQL = lsSQL & liPais & ", "
lsSQL = lsSQL & liMoneda
clCmpMon.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
'Private Sub grdPaisMoneda_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdPaisMoneda.DblClick
' With grdPaisMoneda
' .Col = 0
' clCmpPais.sbBuscaEnCombo(.Text, Me.cboPais)
' .Col = 1
' clCmpMon.sbBuscaEnCombo(.Text, Me.cboMoneda)
' End With
'End Sub
Private Sub cboPais_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPais.SelectedIndexChanged
'On Error Resume Next
Try
Dim lsComando As String
Dim clCmpClas As New clsComplejo
lsComando = "spGridPlazMoneda " & Me.cboPais.SelectedValue
clCmpClas.fdtDataSetTabla(lsComando)
Me.C1TrueDBGrid1.SetDataBinding(clCmpClas.ds, "Tabla")
'clCmpClas.sbLlenaMSFGrid(lsComando, Me.grdPaisMoneda)
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If cboMoneda.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias
miAlias.Entra(13, cboMoneda.SelectedValue, Me.cboPais.SelectedValue)
miAlias.Text = "Alias Moneda"
miAlias.piCatalogo = 13
miAlias.Show()
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
Try
With Me.C1TrueDBGrid1
.Col = 0
clCmpPais.sbBuscaEnCombo(.Columns(0).Value, Me.cboPais)
.Col = 1
clCmpMon.sbBuscaEnCombo(.Columns(1).Value, Me.cboMoneda)
End With
Catch ex As Exception
End Try
End Sub
End Class

View File

@ -0,0 +1,391 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 46</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAliasPais.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAliasPais.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAliasPais.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbEstado.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbEstado.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbEstado.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label7.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3eId3d3d3dlAHd3d3zIh3d3d3dlAHd3d8IsiHd3d3dlAHd3
eiIiyId3d3dlAHd3oiIiLIh3d3dlAHd3oiKiIsiHd3dlAHd3oiyKIiyHd3dlAHd3oiyHoiyId3dlAHd3
eix3eiLIh3dlAHd3d6p3d6IsiHdlAHd3d3d3d3oiyIdlAHd3d3d3d3eiLIdlAHd3d3d3d3d6LIdlAHd3
d3d3d3d3rHdlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3dlAHd3d3h3d3d3d3dlAHd3dwiHd3d3d3dlAHd3eRCHd3eId3dlAHd3eRCId3AIh3dlAHd3
eREIh5EQh3dlAHd3d5EQiREQd3dlAHd3d5ERkREHd3dlAHd3d3kRERB3d3dlAHd3d3eREQiHd3dlAHd3
d3eRERCHd3dlAHd3d3kRARCId3dlAHd3d3kQeREIh3dlAHd3d5EHd5EQiHdlAHd3d5EHd3kRCHdlAHd3
d3l3d3eRB3dlAHd3d3d3d3d5d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAA==
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.Name">
<value>CatPlaza</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,412 @@
Public Class CatPlaza
Inherits System.Windows.Forms.Form
Dim clCmp As New clsComplejo()
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents grdPlazas As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents cmbEstado As System.Windows.Forms.ComboBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents btnAliasPais As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatPlaza))
Me.txtNombre = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.btnAliasPais = New System.Windows.Forms.Button
Me.cmbEstado = New System.Windows.Forms.ComboBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.Label7 = New System.Windows.Forms.Label
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(136, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(208, 20)
Me.txtNombre.TabIndex = 0
Me.txtNombre.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(72, 128)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(48, 16)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Estado:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(48, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(72, 16)
Me.Label1.TabIndex = 51
Me.Label1.Text = "Clave Plaza:"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(288, 56)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(56, 16)
Me.chkActivo.TabIndex = 2
Me.chkActivo.Text = "Activo:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.btnAliasPais)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(0, 168)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(544, 304)
Me.GroupBox1.TabIndex = 57
Me.GroupBox1.TabStop = False
'
'btnAliasPais
'
Me.btnAliasPais.BackColor = System.Drawing.SystemColors.Control
Me.btnAliasPais.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAliasPais.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAliasPais.Location = New System.Drawing.Point(392, 216)
Me.btnAliasPais.Name = "btnAliasPais"
Me.btnAliasPais.Size = New System.Drawing.Size(104, 24)
Me.btnAliasPais.TabIndex = 84
Me.btnAliasPais.Text = "Alias ..."
Me.btnAliasPais.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cmbEstado
'
Me.cmbEstado.Location = New System.Drawing.Point(136, 120)
Me.cmbEstado.Name = "cmbEstado"
Me.cmbEstado.Size = New System.Drawing.Size(208, 21)
Me.cmbEstado.TabIndex = 1
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(136, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 5
Me.txtClave.Text = ""
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(72, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 52
Me.Label2.Text = "Nombre:"
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(510, 47)
Me.tlbCorteCaja.TabIndex = 58
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
Me.btnEliminar.Visible = False
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(344, 126)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 18)
Me.Label7.TabIndex = 79
Me.Label7.Text = "..."
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(384, 64)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 83
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'CatPlaza
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(510, 419)
Me.ControlBox = False
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.cmbEstado)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtNombre)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatPlaza"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CatPlaza"
Me.GroupBox1.ResumeLayout(False)
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
Me.txtNombre.Enabled = True
Me.chkActivo.Enabled = True
LIMPIAR()
Case "Actualizar"
Me.txtNombre.Enabled = True
Me.chkActivo.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub LIMPIAR()
txtClave.Text = ""
txtNombre.Text = ""
chkActivo.Checked = False
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias()
miAlias.Entra(17, txtClave.Text.Trim)
miAlias.Text = "Alias Plaza"
miAlias.piCatalogo = 17
miAlias.Show()
End Sub
Private Sub CatPlaza_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
clCmp.sbLlenaCombo("spListaEstado", Me.cmbEstado)
clCmp.sbLlenaMSFGrid("spGridPlazas " & cmbEstado.SelectedValue, grdPlazas)
Me.txtNombre.Enabled = False
With grdPlazas
.set_ColWidth(0, 1000)
.set_ColWidth(1, 2700)
.set_ColWidth(2, 3100)
.set_ColWidth(3, 1000)
End With
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClaveEstado As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cmbEstado.SelectedIndex = -1 Then
MsgBox("Estado no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClaveEstado = cmbEstado.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatPlaza "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liClaveEstado & ", 17, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub grdPlazas_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdPlazas.DblClick
With grdPlazas
.Col = 0
txtClave.Text = .Text
.Col = 1
clCmp.sbBuscaEnCombo(.Text, Me.cmbEstado)
.Col = 2
txtNombre.Text = .Text
.Col = 3
If .Text = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
End Sub
Private Sub cmbEstado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbEstado.SelectedIndexChanged
On Error Resume Next
Dim lsComando As String
Dim clCmpEdo As New clsComplejo()
lsComando = "spGridPlazas " & cmbEstado.SelectedValue
clCmpEdo.sbLlenaMSFGrid(lsComando, Me.grdPlazas)
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
Me.txtNombre.Enabled = False
Me.chkActivo.Enabled = False
End Sub
Private Sub btnAliasPais_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAliasPais.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
End Class

View File

@ -0,0 +1,381 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3eId3d3d3cSAHd3d3zIh3d3d3cSAHd3d8IsiHd3d3cSAHd3
eiIiyId3d3cSAHd3oiIiLIh3d3cSAHd3oiKiIsiHd3cSAHd3oiyKIiyHd3cSAHd3oiyHoiyId3cSAHd3
eix3eiLIh3cSAHd3d6p3d6IsiHcSAHd3d3d3d3oiyIcSAHd3d3d3d3eiLIcSAHd3d3d3d3d6LIcSAHd3
d3d3d3d3rHcSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3cSAHd3d3h3d3d3d3cSAHd3dwiHd3d3d3cSAHd3eRCHd3eId3cSAHd3eRCId3AIh3cSAHd3
eREIh5EQh3cSAHd3d5EQiREQd3cSAHd3d5ERkREHd3cSAHd3d3kRERB3d3cSAHd3d3eREQiHd3cSAHd3
d3eRERCHd3cSAHd3d3kRARCId3cSAHd3d3kQeREIh3cSAHd3d5EHd5EQiHcSAHd3d5EHd3kRCHcSAHd3
d3l3d3eRB3cSAHd3d3d3d3d5d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAHd3d3d3d3d3d3cSAA==
</value>
</data>
<data name="$this.Name">
<value>CatRegion</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,445 @@
Public Class CatRegion
Inherits System.Windows.Forms.Form
Dim clCmp As New clsComplejo
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents grdRegiones As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatRegion))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.Button1 = New System.Windows.Forms.Button
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(288, 56)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(56, 16)
Me.chkActivo.TabIndex = 1
Me.chkActivo.Text = "Activo:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(8, 138)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(556, 200)
Me.GroupBox1.TabIndex = 57
Me.GroupBox1.TabStop = False
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(550, 181)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style1{}Normal{Font:Microsoft Sans Serif, 8.25pt, style=Bold;}HighlightRow{F" & _
"oreColor:Aqua;BackColor:Highlight;}Style12{}OddRow{}RecordSelector{AlignImage:Ce" & _
"nter;}Style13{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;For" & _
"eColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}St" & _
"yle14{}Style15{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView N" & _
"ame="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
"eeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScro" & _
"llGroup=""1"" HorizontalScrollGroup=""1""><Height>177</Height><CaptionStyle parent=""" & _
"Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /" & _
"><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /><ClientRect>0, 0, 546, 177</ClientRect><BorderSide>0</Border" & _
"Side><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><" & _
"NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /" & _
"><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><S" & _
"tyle parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><St" & _
"yle parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><St" & _
"yle parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style p" & _
"arent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><S" & _
"tyle parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horz" & _
"Splits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
"idth><ClientArea>0, 0, 546, 177</ClientArea><PrintPageHeaderStyle parent="""" me=""" & _
"Style14"" /><PrintPageFooterStyle parent="""" me=""Style15"" /></Blob>"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(450, 348)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 24)
Me.Button1.TabIndex = 81
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(104, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(240, 20)
Me.txtNombre.TabIndex = 0
Me.txtNombre.Text = ""
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(104, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 54
Me.txtClave.Text = ""
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 16)
Me.Label1.TabIndex = 51
Me.Label1.Text = "Clave Región:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(40, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 52
Me.Label2.Text = "Nombre:"
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(566, 47)
Me.tlbCorteCaja.TabIndex = 58
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(408, 56)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(136, 80)
Me.pnlBotones.TabIndex = 81
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'CatRegion
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(566, 399)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MaximizeBox = False
Me.Name = "CatRegion"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Catalogo: Region"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
Me.txtNombre.Enabled = True
Me.chkActivo.Enabled = True
LIMPIAR()
Case "Actualizar"
Me.chkActivo.Enabled = True
Me.txtNombre.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub LIMPIAR()
txtClave.Text = ""
txtNombre.Text = ""
chkActivo.Checked = False
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias()
miAlias.Entra(23, txtClave.Text.Trim)
miAlias.Text = "Alias Región"
miAlias.piCatalogo = 23
miAlias.Show()
End Sub
Private Sub CatRegion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
Me.txtNombre.Enabled = False
Me.chkActivo.Enabled = False
End Sub
Private Sub sbIniciaForma()
Try
clCmp.fdtDataSetTabla("spGridRegiones ") 'Llena un dataset
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
'clCmp.sbLlenaMSFGrid("spGridRegiones ", grdRegiones)
'With grdRegiones
' .set_ColWidth(0, 0)
' .set_ColWidth(1, 3000)
' .set_ColWidth(2, 900)
'End With
'clCmp.sbLimpiaControles(Me)
Catch ex As Exception
MessageBox.Show("Error en CatRegion; sbIniciaForma: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatRegion "
lsSQL = lsSQL & liClave & ", 23, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
'Private Sub grdRegiones_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdRegiones.DblClick
' With grdRegiones
' .Col = 0
' txtClave.Text = .Text
' .Col = 1
' txtNombre.Text = .Text
' .Col = 2
' If .Text = "Activo" Then
' chkActivo.Checked = True
' Else
' chkActivo.Checked = False
' End If
' End With
' Me.txtNombre.Enabled = False
' Me.chkActivo.Enabled = False
'End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
Me.txtNombre.Enabled = False
Me.chkActivo.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
With Me.C1TrueDBGrid1
.Col = 0
txtClave.Text = .Columns(0).Value
.Col = 1
txtNombre.Text = .Columns(1).Value
.Col = 2
If .Columns(2).Value = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
Me.txtNombre.Enabled = False
Me.chkActivo.Enabled = False
End Sub
End Class

View File

@ -0,0 +1,270 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 0</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="grdSubProductos.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="grdSubProductos.OcxState" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAIgEA
AAIBAAAAAQAAAAAkAAAANzJFNjcxMjAtNTk1OS0xMWNmLTkxRjYtQzI4NjNDMzg1RTMwAAAAAOkAAAAh
QzQSCAAAAHAyAAAODgAAQm9vUAAABgCAAAAAAgAAAAIAAAABAAAAAQAAAAAAAAAFAACACAAAgAIAAID/
//8ADQAAgA4AAID///8AwMDAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAQAAAAAAAAAAAAAAAQABAAAAAQAA
AAMAAAAAAAMAAAABAAAAAAABAAAAAAAOAAAAAADPEQAAwoY8OF4wAAADUuMLkY/OEZ3jAKoAS7hRAQAA
AJABREIBABRNaWNyb3NvZnQgU2FucyBTZXJpZgRS4wuRj84RneMAqgBLuFFsdAAAAAAAAAs=
</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbProducto.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3coBnd3d3d3d3d3d3coBnd3d3eId3d3d3coBnd3d3zIh3d3d3coBnd3d8IsiHd3d3coBnd3
eiIiyId3d3coBnd3oiIiLIh3d3coBnd3oiKiIsiHd3coBnd3oiyKIiyHd3coBnd3oiyHoiyId3coBnd3
eix3eiLIh3coBnd3d6p3d6IsiHcoBnd3d3d3d3oiyIcoBnd3d3d3d3eiLIcoBnd3d3d3d3d6LIcoBnd3
d3d3d3d3rHcoBnd3d3d3d3d3d3coBnd3d3d3d3d3d3coBnd3d3d3d3d3d3coBnd3d3d3d3d3d3coBg==
</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3coBnd3d3h3d3d3d3coBnd3dwiHd3d3d3coBnd3eRCHd3eId3coBnd3eRCId3AIh3coBnd3
eREIh5EQh3coBnd3d5EQiREQd3coBnd3d5ERkREHd3coBnd3d3kRERB3d3coBnd3d3eREQiHd3coBnd3
d3eRERCHd3coBnd3d3kRARCId3coBnd3d3kQeREIh3coBnd3d5EHd5EQiHcoBnd3d5EHd3kRCHcoBnd3
d3l3d3eRB3coBnd3d3d3d3d5d3coBnd3d3d3d3d3d3coBnd3d3d3d3d3d3coBnd3d3d3d3d3d3coBg==
</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>81</value>
</data>
<data name="$this.Name">
<value>CatSubProducto</value>
</data>
</root>

View File

@ -0,0 +1,445 @@
Public Class CatSubProducto
Inherits System.Windows.Forms.Form
Dim clCmp As New clsComplejo
Dim guarda As Boolean
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents grdSubProductos As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents cmbProducto As System.Windows.Forms.ComboBox
Friend WithEvents btnAlias As System.Windows.Forms.ToolBarButton
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatSubProducto))
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.chkActivo = New System.Windows.Forms.CheckBox()
Me.btnActualizar = New System.Windows.Forms.ToolBarButton()
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton()
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.grdSubProductos = New AxMSFlexGridLib.AxMSFlexGrid()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnEliminar = New System.Windows.Forms.ToolBarButton()
Me.cmbProducto = New System.Windows.Forms.ComboBox()
Me.txtNombre = New System.Windows.Forms.TextBox()
Me.txtClave = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar()
Me.btnAlias = New System.Windows.Forms.ToolBarButton()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.pnlBotones = New System.Windows.Forms.Panel()
Me.btnAceptar = New System.Windows.Forms.Button()
Me.btnCancelar = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
CType(Me.grdSubProductos, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'ImageList1
'
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(264, 56)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(88, 16)
Me.chkActivo.TabIndex = 2
Me.chkActivo.Text = "Activo"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'GroupBox1
'
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdSubProductos, Me.Button1})
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(0, 147)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(494, 200)
Me.GroupBox1.TabIndex = 57
Me.GroupBox1.TabStop = False
'
'grdSubProductos
'
Me.grdSubProductos.ContainingControl = Me
Me.grdSubProductos.Dock = System.Windows.Forms.DockStyle.Top
Me.grdSubProductos.Location = New System.Drawing.Point(3, 16)
Me.grdSubProductos.Name = "grdSubProductos"
Me.grdSubProductos.OcxState = CType(resources.GetObject("grdSubProductos.OcxState"), System.Windows.Forms.AxHost.State)
Me.grdSubProductos.Size = New System.Drawing.Size(488, 136)
Me.grdSubProductos.TabIndex = 3
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(376, 160)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 16)
Me.Button1.TabIndex = 80
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'cmbProducto
'
Me.cmbProducto.Location = New System.Drawing.Point(144, 120)
Me.cmbProducto.Name = "cmbProducto"
Me.cmbProducto.Size = New System.Drawing.Size(208, 21)
Me.cmbProducto.TabIndex = 1
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(144, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(208, 20)
Me.txtNombre.TabIndex = 0
Me.txtNombre.Text = ""
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(144, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 5
Me.txtClave.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(72, 128)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(56, 16)
Me.Label4.TabIndex = 53
Me.Label4.Text = "Producto:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(16, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(112, 16)
Me.Label1.TabIndex = 51
Me.Label1.Text = "Clave Sub Producto:"
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnAlias, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(494, 44)
Me.tlbCorteCaja.TabIndex = 4
'
'btnAlias
'
Me.btnAlias.ImageIndex = 1
Me.btnAlias.Text = "Alias"
Me.btnAlias.Visible = False
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(8, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(128, 16)
Me.Label2.TabIndex = 52
Me.Label2.Text = "Nombre Sub Producto:"
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(352, 126)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 24)
Me.Label7.TabIndex = 79
Me.Label7.Text = "..."
'
'pnlBotones
'
Me.pnlBotones.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnAceptar, Me.btnCancelar})
Me.pnlBotones.Location = New System.Drawing.Point(368, 56)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 80
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Bitmap)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Bitmap)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'CatSubProducto
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(494, 347)
Me.ControlBox = False
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlBotones, Me.Label7, Me.GroupBox1, Me.cmbProducto, Me.txtNombre, Me.txtClave, Me.Label4, Me.Label1, Me.tlbCorteCaja, Me.Label2, Me.chkActivo})
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatSubProducto"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CatSubProducto"
Me.GroupBox1.ResumeLayout(False)
CType(Me.grdSubProductos, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
Me.txtNombre.Enabled = True
Actulizar()
Case "Actualizar"
Me.txtNombre.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Actulizar()
guarda = False
txtClave.Text = " "
txtNombre.Text = " "
txtNombre.Enabled = True
End Sub
Private Sub CatSubProducto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
Me.txtNombre.Enabled = False
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias()
miAlias.Entra(3, txtClave.Text.Trim)
miAlias.Text = "Alias Sub Productos"
miAlias.piCatalogo = 3
miAlias.Show()
End Sub
Private Sub sbIniciaForma()
clCmp.sbLlenaCombo("spListaProducto", Me.cmbProducto)
clCmp.sbLlenaMSFGrid("spGridSubProductos 0", grdSubProductos)
'clCmp.sbLimpiaControles(Me)
With grdSubProductos
.set_ColWidth(0, 0)
.set_ColWidth(1, 2800)
.set_ColWidth(2, 3200)
.set_ColWidth(3, 0)
End With
Llenagrid()
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClaveProducto As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cmbProducto.SelectedIndex = -1 Then
MsgBox("Producto no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClaveProducto = cmbProducto.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatSubProducto "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liClaveProducto & ", 3, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub grdSubProductos_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdSubProductos.DblClick
With grdSubProductos
.Col = 0
txtClave.Text = .Text
.Col = 1
clCmp.sbBuscaEnCombo(.Text, Me.cmbProducto)
.Col = 2
txtNombre.Text = .Text
.Col = 3
If .Text = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
End Sub
Private Sub cmbProducto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProducto.SelectedIndexChanged
Llenagrid()
End Sub
Private Sub Llenagrid()
On Error Resume Next
Dim lsComando As String
Dim clCmpEdo As New clsComplejo()
lsComando = "spGridSubProductos " & cmbProducto.SelectedValue
clCmpEdo.sbLlenaMSFGrid(lsComando, Me.grdSubProductos)
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
LIMPIAR()
End Sub
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
LIMPIAR()
End Sub
Private Sub LIMPIAR()
Me.txtNombre.Enabled = False
txtClave.Text = " "
txtNombre.Text = " "
chkActivo.Checked = False
End Sub
End Class

View File

@ -0,0 +1,435 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="cmbPlaza.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbPlaza.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbPlaza.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbEstado.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbEstado.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbEstado.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label5.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label3.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbRegion.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbRegion.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbRegion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3eId3d3d3dlAHd3d3zIh3d3d3dlAHd3d8IsiHd3d3dlAHd3
eiIiyId3d3dlAHd3oiIiLIh3d3dlAHd3oiKiIsiHd3dlAHd3oiyKIiyHd3dlAHd3oiyHoiyId3dlAHd3
eix3eiLIh3dlAHd3d6p3d6IsiHdlAHd3d3d3d3oiyIdlAHd3d3d3d3eiLIdlAHd3d3d3d3d6LIdlAHd3
d3d3d3d3rHdlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAA==
</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3dlAHd3d3h3d3d3d3dlAHd3dwiHd3d3d3dlAHd3eRCHd3eId3dlAHd3eRCId3AIh3dlAHd3
eREIh5EQh3dlAHd3d5EQiREQd3dlAHd3d5ERkREHd3dlAHd3d3kRERB3d3dlAHd3d3eREQiHd3dlAHd3
d3eRERCHd3dlAHd3d3kRARCId3dlAHd3d3kQeREIh3dlAHd3d5EHd5EQiHdlAHd3d5EHd3kRCHdlAHd3
d3l3d3eRB3dlAHd3d3d3d3d5d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAHd3d3d3d3d3d3dlAA==
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>CatSucursal</value>
</data>
</root>

View File

@ -0,0 +1,565 @@
Public Class CatSucursal
Inherits System.Windows.Forms.Form
Dim clCmpEst As New clsComplejo()
Dim clCmpReg As New clsComplejo
Dim clCmpPla As New clsComplejo
Dim clCmpGrd As clsComplejo = New clsComplejo
Dim clCmp As New clsComplejo
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents cmbPlaza As System.Windows.Forms.ComboBox
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents cmbEstado As System.Windows.Forms.ComboBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmbRegion As System.Windows.Forms.ComboBox
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(CatSucursal))
Me.cmbPlaza = New System.Windows.Forms.ComboBox
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.Button1 = New System.Windows.Forms.Button
Me.cmbEstado = New System.Windows.Forms.ComboBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.cmbRegion = New System.Windows.Forms.ComboBox
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'cmbPlaza
'
Me.cmbPlaza.Location = New System.Drawing.Point(112, 184)
Me.cmbPlaza.Name = "cmbPlaza"
Me.cmbPlaza.Size = New System.Drawing.Size(208, 21)
Me.cmbPlaza.TabIndex = 3
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(256, 56)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(64, 16)
Me.chkActivo.TabIndex = 4
Me.chkActivo.Text = "Activo"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(4, 212)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(464, 180)
Me.GroupBox1.TabIndex = 48
Me.GroupBox1.TabStop = False
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(458, 161)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style1{}Normal{Font:Microsoft Sans Serif, 8.25pt, style=Bold;}HighlightRow{F" & _
"oreColor:Aqua;BackColor:Highlight;}Style12{}OddRow{}RecordSelector{AlignImage:Ce" & _
"nter;}Style13{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;For" & _
"eColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}St" & _
"yle14{}Style15{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView N" & _
"ame="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
"eeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScro" & _
"llGroup=""1"" HorizontalScrollGroup=""1""><Height>157</Height><CaptionStyle parent=""" & _
"Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /" & _
"><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /><ClientRect>0, 0, 454, 157</ClientRect><BorderSide>0</Border" & _
"Side><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><" & _
"NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /" & _
"><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><S" & _
"tyle parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><St" & _
"yle parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><St" & _
"yle parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style p" & _
"arent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><S" & _
"tyle parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horz" & _
"Splits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
"idth><ClientArea>0, 0, 454, 157</ClientArea><PrintPageHeaderStyle parent="""" me=""" & _
"Style14"" /><PrintPageFooterStyle parent="""" me=""Style15"" /></Blob>"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(350, 400)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 22)
Me.Button1.TabIndex = 83
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cmbEstado
'
Me.cmbEstado.Location = New System.Drawing.Point(112, 152)
Me.cmbEstado.Name = "cmbEstado"
Me.cmbEstado.Size = New System.Drawing.Size(208, 21)
Me.cmbEstado.TabIndex = 2
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(112, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(208, 20)
Me.txtNombre.TabIndex = 0
Me.txtNombre.Text = ""
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(112, 56)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 7
Me.txtClave.Text = ""
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(64, 192)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(40, 16)
Me.Label5.TabIndex = 43
Me.Label5.Text = "Plaza:"
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(56, 160)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(48, 16)
Me.Label4.TabIndex = 42
Me.Label4.Text = "Estado:"
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(56, 128)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(48, 16)
Me.Label3.TabIndex = 41
Me.Label3.Text = "Región:"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(56, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 40
Me.Label2.Text = "Nombre:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(16, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(88, 16)
Me.Label1.TabIndex = 39
Me.Label1.Text = "Clave Sucursal:"
'
'cmbRegion
'
Me.cmbRegion.Location = New System.Drawing.Point(112, 120)
Me.cmbRegion.Name = "cmbRegion"
Me.cmbRegion.Size = New System.Drawing.Size(208, 21)
Me.cmbRegion.TabIndex = 1
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(470, 47)
Me.tlbCorteCaja.TabIndex = 50
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(328, 56)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 82
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'CatSucursal
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(470, 427)
Me.ControlBox = False
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Controls.Add(Me.cmbRegion)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.cmbEstado)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cmbPlaza)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Name = "CatSucursal"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Catalogo: Sucursal"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
actualizar(True)
LIMPIAR()
Case "Actualizar"
actualizar(True)
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub actualizar(ByVal Bandera As Boolean)
Me.txtNombre.Enabled = Bandera
Me.chkActivo.Enabled = Bandera
End Sub
Private Sub LIMPIAR()
txtClave.Text = ""
txtNombre.Text = ""
chkActivo.Checked = False
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias
miAlias.Entra(24, txtClave.Text.Trim)
miAlias.Text = "Alias Sucursal"
miAlias.piCatalogo = 24
miAlias.Show()
End Sub
Private Sub CatPais_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
Try
clCmpEst.sbLlenaCombo("spListaEstado", Me.cmbEstado)
clCmpPla.sbLlenaCombo("spListaPlaza", Me.cmbPlaza)
clCmpReg.sbLlenaCombo("spListaRegion", Me.cmbRegion)
Dim CadSQL As String = "spGridSucursal " & Me.cmbEstado.SelectedValue
clCmp.fdtDataSetTabla(CadSQL)
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
'clCmp.sbLlenaMSFGrid(CadSQL, Me.grdSucursales)
'With grdSucursales
' .set_ColWidth(0, 0)
' .set_ColWidth(1, 0)
' .set_ColWidth(2, 0)
' .set_ColWidth(3, 2600)
' .set_ColWidth(4, 2400)
' .set_ColWidth(5, 800)
'End With
Catch ex As Exception
MessageBox.Show("Error en CatSucursal; sbIniciaForma: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liEstado As Integer
Dim liRegion As Integer
Dim liPlaza As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
Dim clCmp As New clsComplejo
On Error GoTo eh
fbValidaGrabar = False
If cmbEstado.SelectedIndex = -1 Then
MsgBox("Estado no válida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If cmbRegion.SelectedIndex = -1 Then
MsgBox("Región no válida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If cmbPlaza.SelectedIndex = -1 Then
MsgBox("Plaza no válida", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liEstado = cmbEstado.SelectedValue
liRegion = cmbRegion.SelectedValue
liPlaza = cmbPlaza.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatSucursal "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liEstado & ", 24, "
lsSQL = lsSQL & liRegion & ", "
lsSQL = lsSQL & liPlaza & ", '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
'Private Sub grdSucursales_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdSucursales.DblClick
' With grdSucursales
' .Col = 0
' txtClave.Text = .Text
' .Col = 1
' clCmpEst.sbBuscaEnCombo(.Text, Me.cmbEstado)
' .Col = 2
' clCmpReg.sbBuscaEnCombo(.Text, Me.cmbRegion)
' .Col = 3
' clCmpPla.sbBuscaEnCombo(.Text, Me.cmbPlaza)
' .Col = 4
' txtNombre.Text = .Text
' .Col = 5
' If .Text = "Activo" Then
' chkActivo.Checked = True
' Else
' chkActivo.Checked = False
' End If
' End With
' actualizar(False)
'End Sub
Private Sub cmbEstado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbEstado.SelectedIndexChanged
'On Error Resume Next
Try
Dim lsComando As String
Dim clCmpPais As New clsComplejo
'lsComando = "spGridSucursal " & cmbEstado.SelectedValue
'clCmpPais.sbLlenaMSFGrid(lsComando, Me.grdSucursales)
Dim CadSQL As String = "spGridSucursal " & Me.cmbEstado.SelectedValue
clCmp.fdtDataSetTabla(CadSQL)
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
actualizar(False)
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
With Me.C1TrueDBGrid1
.Col = 0
txtClave.Text = .Columns(0).Text
.Col = 1
clCmpEst.sbBuscaEnCombo(.Columns(1).Text, Me.cmbEstado)
.Col = 2
clCmpReg.sbBuscaEnCombo(.Columns(2).Text, Me.cmbRegion)
.Col = 3
clCmpPla.sbBuscaEnCombo(.Columns(3).Text, Me.cmbPlaza)
.Col = 4
txtNombre.Text = .Columns(4).Text
.Col = 5
If .Columns(5).Text = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
actualizar(False)
End Sub
End Class

View File

@ -0,0 +1,676 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="tlbCatUnuarios.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCatUnuarios.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCatUnuarios.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="Panel1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel3.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel3.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel3.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel3.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel3.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel4.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel4.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel4.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel5.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel5.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel5.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel5.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel5.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel7.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel7.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel7.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel7.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel7.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlAlias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlAlias.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlAlias.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlAlias.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="dtgAlias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="dtgAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="dtgAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlDatosAlias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlDatosAlias.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlDatosAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlDatosAlias.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlDatosAlias.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlDatosAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtId_Alias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtId_Alias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtId_Alias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNomAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNomAlias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNomAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label3.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel6.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel6.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel6.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel6.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel6.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel9.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel9.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="Panel9.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Panel9.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="Panel9.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Panel9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="dtgCat.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="dtgCat.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="dtgCat.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlCatalgo.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlCatalgo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlCatalgo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlCatalgo.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlCatalgo.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlCatalgo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RbtnActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="RbtnActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="RbtnActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblCuaCam.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="lblCuaCam.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblCuaCam.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtExtra.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtExtra.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtExtra.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtComodin.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtComodin.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtComodin.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblComodin.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="lblComodin.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblComodin.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblCatalogos.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="lblCatalogos.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblCatalogos.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="lblNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="lblNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboRegCat.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboRegCat.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboRegCat.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCat.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtCat.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtCat.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboCatalogos.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cboCatalogos.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cboCatalogos.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3eId3d3d3f6BHd3d3zIh3d3d3f6BHd3d8IsiHd3d3f6BHd3
eiIiyId3d3f6BHd3oiIiLIh3d3f6BHd3oiKiIsiHd3f6BHd3oiyKIiyHd3f6BHd3oiyHoiyId3f6BHd3
eix3eiLIh3f6BHd3d6p3d6IsiHf6BHd3d3d3d3oiyIf6BHd3d3d3d3eiLIf6BHd3d3d3d3d6LIf6BHd3
d3d3d3d3rHf6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3f6BHd3d3h3d3d3d3f6BHd3dwiHd3d3d3f6BHd3eRCHd3eId3f6BHd3eRCId3AIh3f6BHd3
eREIh5EQh3f6BHd3d5EQiREQd3f6BHd3d5ERkREHd3f6BHd3d3kRERB3d3f6BHd3d3eREQiHd3f6BHd3
d3eRERCHd3f6BHd3d3kRARCId3f6BHd3d3kQeREIh3f6BHd3d5EHd5EQiHf6BHd3d5EHd3kRCHf6BHd3
d3l3d3eRB3f6BHd3d3d3d3d5d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BA==
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="$this.Name">
<value>frmCatalogosBinarios</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAAAAEACACoCAAAFgAAACgAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAEAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYA1PD/ALHi/wCO1P8Aa8b/AEi4
/wAlqv8AAKr/AACS3AAAerkAAGKWAABKcwAAMlAA1OP/ALHH/wCOq/8Aa4//AEhz/wAlV/8AAFX/AABJ
3AAAPbkAADGWAAAlcwAAGVAA1NT/ALGx/wCOjv8Aa2v/AEhI/wAlJf8AAAD+AAAA3AAAALkAAACWAAAA
cwAAAFAA49T/AMex/wCrjv8Aj2v/AHNI/wBXJf8AVQD/AEkA3AA9ALkAMQCWACUAcwAZAFAA8NT/AOKx
/wDUjv8Axmv/ALhI/wCqJf8AqgD/AJIA3AB6ALkAYgCWAEoAcwAyAFAA/9T/AP+x/wD/jv8A/2v/AP9I
/wD/Jf8A/gD+ANwA3AC5ALkAlgCWAHMAcwBQAFAA/9TwAP+x4gD/jtQA/2vGAP9IuAD/JaoA/wCqANwA
kgC5AHoAlgBiAHMASgBQADIA/9TjAP+xxwD/jqsA/2uPAP9IcwD/JVcA/wBVANwASQC5AD0AlgAxAHMA
JQBQABkA/9TUAP+xsQD/jo4A/2trAP9ISAD/JSUA/gAAANwAAAC5AAAAlgAAAHMAAABQAAAA/+PUAP/H
sQD/q44A/49rAP9zSAD/VyUA/1UAANxJAAC5PQAAljEAAHMlAABQGQAA//DUAP/isQD/1I4A/8ZrAP+4
SAD/qiUA/6oAANySAAC5egAAlmIAAHNKAABQMgAA///UAP//sQD//44A//9rAP//SAD//yUA/v4AANzc
AAC5uQAAlpYAAHNzAABQUAAA8P/UAOL/sQDU/44Axv9rALj/SACq/yUAqv8AAJLcAAB6uQAAYpYAAEpz
AAAyUAAA4//UAMf/sQCr/44Aj/9rAHP/SABX/yUAVf8AAEncAAA9uQAAMZYAACVzAAAZUAAA1P/UALH/
sQCO/44Aa/9rAEj/SAAl/yUAAP4AAADcAAAAuQAAAJYAAABzAAAAUAAA1P/jALH/xwCO/6sAa/+PAEj/
cwAl/1cAAP9VAADcSQAAuT0AAJYxAABzJQAAUBkA1P/wALH/4gCO/9QAa//GAEj/uAAl/6oAAP+qAADc
kgAAuXoAAJZiAABzSgAAUDIA1P//ALH//wCO//8Aa///AEj//wAl//8AAP7+AADc3AAAubkAAJaWAABz
cwAAUFAA8vLyAObm5gDa2toAzs7OAMLCwgC2trYAqqqqAJ6engCSkpIAhoaGAHp6egBubm4AYmJiAFZW
VgBKSkoAPj4+ADIyMgAmJiYAGhoaAA4ODgDw+/8ApKCgAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOzsAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAABkTAOzsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZGRMTAOzs
AAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZGRkZExMTAOzsAAAAAAAAAAAAAAAAAAAAAAAAABkZGRkZGRkT
ExMTAOzsAAAAAAAAAAAAAAAAAAAAABkZGRkMDAwZGRMTExMTAOzsAAAAAAAAAAAAAAAAABkZGRkMDBMT
DBkZExMTExMTAOzsAAAAAAAAAAAAAAAAGRkMDBMTExMMGRkTExMTExMTAOzsAAAAAAAAAAAAAAAZGRUT
ExMTEwwZGRMMExMTExMTAOzsAAAAAAAAAAAAABkZFRMTExUVGRkZE+wMExMTExMTAOzsAAAAAAAAAAAA
GRkVExUVGRkZGQwM7AAMExMTExMTAOzsAAAAAAAAAAAZGRUVGRkZGQwM7OzoAOwMExMTExMTAOzsAAAA
AAAAABkZGRkZGQwM7Ozo6OUA7AAMExMTExMTAOzsAAAAAAAAGRkZGQwM7Ozo6OXl4wDoAOwMExMTExMT
AOzsAAAAAAAZGQwM7Ozo6OXl4+PjAOgA7AAMExMTExMTAOzsAAAAAAwM8+zo6OXl4+Pj4/8A6ADoAOwM
ExMTExMTAOzsAAAADBXz6OXl4+Pj4///8ADjAOgA7AAMExMTExMTAOwAAAAADPP/4+Pj4///8PDj4/8A
6ADoAOwMExMTExMA7AAAAAAA8//j4///8PDj4///8ADjAOgA7AAMExMTEwAAAAAAAADz////8PDj4///
8PDj4+MA6ADoAOwMExMTAAAAAAAAAPP/8PDj4///8PDj4+Pj8ADjAOgA7AAMExMAAAAAAAAA8/Pz4///
8PDj4+Pj8PDj4+MA6ADoABUMEwAAAAAAAAAAAPP/8PDj4+Pj8PDj4+Pj8ADjAOgAFRUMAAAAAAAAAAAA
8/Pz4+Pj8PDj4+Pj8PDj4+MA6AAVDAwAAAAAAAAAAAAAAPPj8PDj4+Pj8PDj4+Pj8ADjAAwAAAAAAAAA
AAAAAAAA8wDz4+Pj8PDj4+Pj8PDj4+MAAAAAAAAAAAAAAAAAAAAAAPPj8PDj4+Pj8PDj4+Pj8AAAAAAA
AAAAAAAAAAAAAAAA8wDz4+Pj8PDj4+Pj8PAAAAAAAAAAAAAAAAAAAAAAAAAAAPPj8PDj4+Pj8PAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAA8wDz4+Pj8PAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPPj8PAAAAAA
AAAAAAAAAAAAAP//////8P///8B///8AP//8AB//8AAP/8AAB/+AAAP/gAAB/4AAAP+AAAB/gAAAP4AA
AB+AAAAPgAAAB4AAAAOAAAABgAAAAcAAAAHgAAAD8AAAA/AAAAPwAAAD/AAAA/wAAAP/AAAH/wAAH//A
AD//wAD///AD///wD////D//
</value>
</data>
</root>

View File

@ -0,0 +1,925 @@
Public Class frmCatalogosBinarios
Inherits System.Windows.Forms.Form
Private Command As New Command()
Private LlenaCombo As New LlenaCombo()
Private LlenaGrid As New LlenaGrid()
Private ValidaTexto As New ValidaTexto()
Public strTag As String
Private MaximoCatalogo As Integer
Private MaximoaAlias As Integer
Private NombreCatalogo As String
Private DesOperacion As String
Private dtCatalogos As New DataTable() 'Tabla de combo de Tipods de Catalogos
Private dtRegCatalogos As New DataTable() 'Tabla de Combo de registros por Catalogo
Private dtGrid As New DataTable() 'Tabla de Registros por Catalogo
Private dtGridAlias As New DataTable() 'Tabla de Alias para Cada Catalogo
Private vwGrid As New View()
Private Id_Comodin As Integer
Private Id_Catalgo As Integer
Private Nombre As String
Private NombreAlias As String
Private Activo As Integer
Private InsertaActivo As Integer
Private CuartoCampo As Object
Private bolAlias As Boolean = False
Private TipoOperacion As Int16 ' Si en 1: Agregar ;2:Actualiza ; 3:Cambia Estatus de Activo (1:Activo,0:Inactivo)
Private Id_Alias As Integer
Private DesAlias As String
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents cboCatalogos As System.Windows.Forms.ComboBox
Friend WithEvents lblCatalogos As System.Windows.Forms.Label
Friend WithEvents lblComodin As System.Windows.Forms.Label
Friend WithEvents lblNombre As System.Windows.Forms.Label
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents Panel5 As System.Windows.Forms.Panel
Friend WithEvents Panel7 As System.Windows.Forms.Panel
Friend WithEvents Panel6 As System.Windows.Forms.Panel
Friend WithEvents Panel9 As System.Windows.Forms.Panel
Friend WithEvents pnlAlias As System.Windows.Forms.Panel
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cboRegCat As System.Windows.Forms.ComboBox
Friend WithEvents txtCat As System.Windows.Forms.TextBox
Friend WithEvents dtgCat As System.Windows.Forms.DataGrid
Friend WithEvents txtComodin As System.Windows.Forms.TextBox
Friend WithEvents txtExtra As System.Windows.Forms.TextBox
Friend WithEvents lblCuaCam As System.Windows.Forms.Label
Friend WithEvents pnlCatalgo As System.Windows.Forms.Panel
Friend WithEvents RbtnActivo As System.Windows.Forms.CheckBox
Friend WithEvents btnAlias As System.Windows.Forms.Button
Friend WithEvents tlbCatUnuarios As System.Windows.Forms.ToolBar
Friend WithEvents dtgAlias As System.Windows.Forms.DataGrid
Friend WithEvents txtId_Alias As System.Windows.Forms.TextBox
Friend WithEvents txtNomAlias As System.Windows.Forms.TextBox
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents pnlDatosAlias As System.Windows.Forms.Panel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmCatalogosBinarios))
Me.tlbCatUnuarios = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel
Me.Panel3 = New System.Windows.Forms.Panel
Me.Panel4 = New System.Windows.Forms.Panel
Me.Panel5 = New System.Windows.Forms.Panel
Me.Panel7 = New System.Windows.Forms.Panel
Me.pnlAlias = New System.Windows.Forms.Panel
Me.dtgAlias = New System.Windows.Forms.DataGrid
Me.pnlDatosAlias = New System.Windows.Forms.Panel
Me.txtId_Alias = New System.Windows.Forms.TextBox
Me.txtNomAlias = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.Panel6 = New System.Windows.Forms.Panel
Me.Panel9 = New System.Windows.Forms.Panel
Me.dtgCat = New System.Windows.Forms.DataGrid
Me.btnAlias = New System.Windows.Forms.Button
Me.pnlCatalgo = New System.Windows.Forms.Panel
Me.RbtnActivo = New System.Windows.Forms.CheckBox
Me.lblCuaCam = New System.Windows.Forms.Label
Me.txtExtra = New System.Windows.Forms.TextBox
Me.txtComodin = New System.Windows.Forms.TextBox
Me.lblComodin = New System.Windows.Forms.Label
Me.lblCatalogos = New System.Windows.Forms.Label
Me.lblNombre = New System.Windows.Forms.Label
Me.cboRegCat = New System.Windows.Forms.ComboBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtCat = New System.Windows.Forms.TextBox
Me.cboCatalogos = New System.Windows.Forms.ComboBox
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.Panel7.SuspendLayout()
Me.pnlAlias.SuspendLayout()
CType(Me.dtgAlias, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlDatosAlias.SuspendLayout()
Me.Panel6.SuspendLayout()
Me.Panel9.SuspendLayout()
CType(Me.dtgCat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlCatalgo.SuspendLayout()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'tlbCatUnuarios
'
Me.tlbCatUnuarios.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCatUnuarios.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.tlbCatUnuarios.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCatUnuarios.DropDownArrows = True
Me.tlbCatUnuarios.ImageList = Me.ImageList1
Me.tlbCatUnuarios.Location = New System.Drawing.Point(0, 0)
Me.tlbCatUnuarios.Name = "tlbCatUnuarios"
Me.tlbCatUnuarios.ShowToolTips = True
Me.tlbCatUnuarios.Size = New System.Drawing.Size(592, 47)
Me.tlbCatUnuarios.TabIndex = 23
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Panel3)
Me.Panel1.Controls.Add(Me.pnlCatalgo)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 47)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(592, 271)
Me.Panel1.TabIndex = 24
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 120)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(592, 151)
Me.Panel3.TabIndex = 1
'
'Panel4
'
Me.Panel4.Controls.Add(Me.Panel5)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(592, 151)
Me.Panel4.TabIndex = 0
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.White
Me.Panel5.Controls.Add(Me.Panel7)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel5.Location = New System.Drawing.Point(0, 0)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(592, 151)
Me.Panel5.TabIndex = 56
'
'Panel7
'
Me.Panel7.Controls.Add(Me.pnlAlias)
Me.Panel7.Controls.Add(Me.Panel6)
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel7.Location = New System.Drawing.Point(0, 0)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(592, 151)
Me.Panel7.TabIndex = 1
'
'pnlAlias
'
Me.pnlAlias.Controls.Add(Me.dtgAlias)
Me.pnlAlias.Controls.Add(Me.pnlDatosAlias)
Me.pnlAlias.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlAlias.Location = New System.Drawing.Point(0, 128)
Me.pnlAlias.Name = "pnlAlias"
Me.pnlAlias.Size = New System.Drawing.Size(592, 23)
Me.pnlAlias.TabIndex = 5
Me.pnlAlias.Visible = False
'
'dtgAlias
'
Me.dtgAlias.BackgroundColor = System.Drawing.SystemColors.ActiveCaptionText
Me.dtgAlias.DataMember = ""
Me.dtgAlias.Dock = System.Windows.Forms.DockStyle.Fill
Me.dtgAlias.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dtgAlias.Location = New System.Drawing.Point(0, 88)
Me.dtgAlias.Name = "dtgAlias"
Me.dtgAlias.ReadOnly = True
Me.dtgAlias.Size = New System.Drawing.Size(592, 0)
Me.dtgAlias.TabIndex = 53
'
'pnlDatosAlias
'
Me.pnlDatosAlias.BackColor = System.Drawing.SystemColors.Control
Me.pnlDatosAlias.Controls.Add(Me.txtId_Alias)
Me.pnlDatosAlias.Controls.Add(Me.txtNomAlias)
Me.pnlDatosAlias.Controls.Add(Me.Label3)
Me.pnlDatosAlias.Controls.Add(Me.Label4)
Me.pnlDatosAlias.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlDatosAlias.Location = New System.Drawing.Point(0, 0)
Me.pnlDatosAlias.Name = "pnlDatosAlias"
Me.pnlDatosAlias.Size = New System.Drawing.Size(592, 88)
Me.pnlDatosAlias.TabIndex = 51
'
'txtId_Alias
'
Me.txtId_Alias.Location = New System.Drawing.Point(104, 8)
Me.txtId_Alias.Name = "txtId_Alias"
Me.txtId_Alias.Size = New System.Drawing.Size(32, 20)
Me.txtId_Alias.TabIndex = 43
Me.txtId_Alias.Text = ""
'
'txtNomAlias
'
Me.txtNomAlias.Location = New System.Drawing.Point(104, 40)
Me.txtNomAlias.Name = "txtNomAlias"
Me.txtNomAlias.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtNomAlias.Size = New System.Drawing.Size(184, 20)
Me.txtNomAlias.TabIndex = 45
Me.txtNomAlias.Text = ""
Me.txtNomAlias.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label3
'
Me.Label3.BackColor = System.Drawing.SystemColors.Control
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Black
Me.Label3.Location = New System.Drawing.Point(32, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 23)
Me.Label3.TabIndex = 42
Me.Label3.Text = "Id # :"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Black
Me.Label4.Location = New System.Drawing.Point(8, 40)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(88, 23)
Me.Label4.TabIndex = 44
Me.Label4.Text = "Alias Moneda :"
'
'Panel6
'
Me.Panel6.BackColor = System.Drawing.SystemColors.Control
Me.Panel6.Controls.Add(Me.Panel9)
Me.Panel6.Controls.Add(Me.btnAlias)
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel6.Location = New System.Drawing.Point(0, 0)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(592, 128)
Me.Panel6.TabIndex = 4
'
'Panel9
'
Me.Panel9.Controls.Add(Me.dtgCat)
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel9.Location = New System.Drawing.Point(0, 0)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(592, 80)
Me.Panel9.TabIndex = 0
'
'dtgCat
'
Me.dtgCat.BackgroundColor = System.Drawing.SystemColors.ActiveCaptionText
Me.dtgCat.DataMember = ""
Me.dtgCat.Dock = System.Windows.Forms.DockStyle.Left
Me.dtgCat.GridLineColor = System.Drawing.SystemColors.ActiveCaption
Me.dtgCat.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dtgCat.Location = New System.Drawing.Point(0, 0)
Me.dtgCat.Name = "dtgCat"
Me.dtgCat.ParentRowsBackColor = System.Drawing.Color.LightYellow
Me.dtgCat.ParentRowsForeColor = System.Drawing.SystemColors.ActiveCaption
Me.dtgCat.PreferredColumnWidth = 150
Me.dtgCat.ReadOnly = True
Me.dtgCat.SelectionBackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
Me.dtgCat.SelectionForeColor = System.Drawing.SystemColors.ActiveCaption
Me.dtgCat.Size = New System.Drawing.Size(360, 80)
Me.dtgCat.TabIndex = 2
'
'btnAlias
'
Me.btnAlias.BackColor = System.Drawing.SystemColors.Control
Me.btnAlias.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAlias.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAlias.Location = New System.Drawing.Point(328, 96)
Me.btnAlias.Name = "btnAlias"
Me.btnAlias.Size = New System.Drawing.Size(104, 24)
Me.btnAlias.TabIndex = 3
Me.btnAlias.Text = "Alias ..."
Me.btnAlias.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'pnlCatalgo
'
Me.pnlCatalgo.BackColor = System.Drawing.SystemColors.Control
Me.pnlCatalgo.Controls.Add(Me.RbtnActivo)
Me.pnlCatalgo.Controls.Add(Me.lblCuaCam)
Me.pnlCatalgo.Controls.Add(Me.txtExtra)
Me.pnlCatalgo.Controls.Add(Me.txtComodin)
Me.pnlCatalgo.Controls.Add(Me.lblComodin)
Me.pnlCatalgo.Controls.Add(Me.lblCatalogos)
Me.pnlCatalgo.Controls.Add(Me.lblNombre)
Me.pnlCatalgo.Controls.Add(Me.cboRegCat)
Me.pnlCatalgo.Controls.Add(Me.txtNombre)
Me.pnlCatalgo.Controls.Add(Me.txtCat)
Me.pnlCatalgo.Controls.Add(Me.cboCatalogos)
Me.pnlCatalgo.Controls.Add(Me.pnlBotones)
Me.pnlCatalgo.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlCatalgo.Location = New System.Drawing.Point(0, 0)
Me.pnlCatalgo.Name = "pnlCatalgo"
Me.pnlCatalgo.Size = New System.Drawing.Size(592, 120)
Me.pnlCatalgo.TabIndex = 0
'
'RbtnActivo
'
Me.RbtnActivo.AccessibleRole = System.Windows.Forms.AccessibleRole.None
Me.RbtnActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RbtnActivo.ForeColor = System.Drawing.Color.Red
Me.RbtnActivo.Location = New System.Drawing.Point(192, 56)
Me.RbtnActivo.Name = "RbtnActivo"
Me.RbtnActivo.Size = New System.Drawing.Size(112, 24)
Me.RbtnActivo.TabIndex = 13
Me.RbtnActivo.Text = "Activo"
'
'lblCuaCam
'
Me.lblCuaCam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCuaCam.ForeColor = System.Drawing.SystemColors.ControlText
Me.lblCuaCam.Location = New System.Drawing.Point(8, 120)
Me.lblCuaCam.Name = "lblCuaCam"
Me.lblCuaCam.Size = New System.Drawing.Size(64, 23)
Me.lblCuaCam.TabIndex = 12
Me.lblCuaCam.Text = "Nombre :"
Me.lblCuaCam.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txtExtra
'
Me.txtExtra.Location = New System.Drawing.Point(80, 120)
Me.txtExtra.Name = "txtExtra"
Me.txtExtra.Size = New System.Drawing.Size(200, 20)
Me.txtExtra.TabIndex = 11
Me.txtExtra.Text = "Tarjeta de Credito"
'
'txtComodin
'
Me.txtComodin.BackColor = System.Drawing.SystemColors.HighlightText
Me.txtComodin.Location = New System.Drawing.Point(80, 56)
Me.txtComodin.Name = "txtComodin"
Me.txtComodin.ReadOnly = True
Me.txtComodin.Size = New System.Drawing.Size(64, 20)
Me.txtComodin.TabIndex = 4
Me.txtComodin.Text = "001"
'
'lblComodin
'
Me.lblComodin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblComodin.ForeColor = System.Drawing.Color.Black
Me.lblComodin.Location = New System.Drawing.Point(0, 56)
Me.lblComodin.Name = "lblComodin"
Me.lblComodin.Size = New System.Drawing.Size(72, 23)
Me.lblComodin.TabIndex = 3
Me.lblComodin.Text = "Id # :"
Me.lblComodin.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblCatalogos
'
Me.lblCatalogos.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCatalogos.ForeColor = System.Drawing.Color.Black
Me.lblCatalogos.Location = New System.Drawing.Point(0, 24)
Me.lblCatalogos.Name = "lblCatalogos"
Me.lblCatalogos.Size = New System.Drawing.Size(72, 23)
Me.lblCatalogos.TabIndex = 2
Me.lblCatalogos.Text = "Catalogos :"
Me.lblCatalogos.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblNombre
'
Me.lblNombre.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblNombre.ForeColor = System.Drawing.SystemColors.ControlText
Me.lblNombre.Location = New System.Drawing.Point(8, 88)
Me.lblNombre.Name = "lblNombre"
Me.lblNombre.Size = New System.Drawing.Size(64, 23)
Me.lblNombre.TabIndex = 1
Me.lblNombre.Text = "Nombre :"
Me.lblNombre.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cboRegCat
'
Me.cboRegCat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboRegCat.Location = New System.Drawing.Point(80, 88)
Me.cboRegCat.Name = "cboRegCat"
Me.cboRegCat.Size = New System.Drawing.Size(200, 21)
Me.cboRegCat.TabIndex = 0
'
'txtNombre
'
Me.txtNombre.Location = New System.Drawing.Point(80, 88)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(200, 20)
Me.txtNombre.TabIndex = 1
Me.txtNombre.Text = "Tarjeta de Credito"
'
'txtCat
'
Me.txtCat.BackColor = System.Drawing.SystemColors.HighlightText
Me.txtCat.Location = New System.Drawing.Point(80, 24)
Me.txtCat.Name = "txtCat"
Me.txtCat.ReadOnly = True
Me.txtCat.Size = New System.Drawing.Size(200, 20)
Me.txtCat.TabIndex = 10
Me.txtCat.Text = "Tarjeta de Credito"
'
'cboCatalogos
'
Me.cboCatalogos.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboCatalogos.Location = New System.Drawing.Point(80, 24)
Me.cboCatalogos.Name = "cboCatalogos"
Me.cboCatalogos.Size = New System.Drawing.Size(200, 21)
Me.cboCatalogos.TabIndex = 1
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(312, 24)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 14
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'frmCatalogosBinarios
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
Me.ClientSize = New System.Drawing.Size(592, 318)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.tlbCatUnuarios)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmCatalogosBinarios"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Tag = "CatUni001"
Me.Text = "Catalogos Unitarios"
Me.Panel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel4.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
Me.Panel7.ResumeLayout(False)
Me.pnlAlias.ResumeLayout(False)
CType(Me.dtgAlias, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlDatosAlias.ResumeLayout(False)
Me.Panel6.ResumeLayout(False)
Me.Panel9.ResumeLayout(False)
CType(Me.dtgCat, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlCatalgo.ResumeLayout(False)
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCatUnuarios.ButtonClick
DesOperacion = e.Button.Text
Select Case e.Button.Text
Case "Agregar"
AgregarCat(1)
Case "Actualizar"
SetSelectedIndex(Me.dtgAlias)
AgregarCat(2)
Case "Eliminar"
AgregarCat(3)
Case "Activar"
AgregarCat(3)
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub frmCatalogosBinarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RbtnActivo.Enabled = False
cboRegCat.Visible = True
cboRegCat.Visible = False
Me.StartPosition = FormStartPosition.CenterScreen
NombreCatalogo = Me.Text
LlenaCombo.LlenaData("spcbDatosCombo '" & "Catálogos'", cboCatalogos, dtCatalogos)
Dim i As Integer
For i = 0 To cboCatalogos.Items.Count
cboCatalogos.SelectedIndex = i
If cboCatalogos.Text = NombreCatalogo Then
cboCatalogos.SelectedValue = cboCatalogos.SelectedValue
Exit For
End If
Next
cboCatalogos.Visible = False
Actualizar()
SetSelectedIndex(dtgCat)
EtiquetaExtra(NombreCatalogo, 0)
txtCat.Text = cboCatalogos.Text
Id_Catalgo = cboCatalogos.SelectedValue
End Sub
Private Sub Actualizar()
pnlCatalgo.Enabled = True
pnlAlias.Visible = False
Me.Location = New System.Drawing.Point(250, 150)
Me.Size = New System.Drawing.Size(469, 330)
txtCat.Enabled = True
txtComodin.Enabled = True
RbtnActivo.Enabled = False
Me.dtgCat.Enabled = True
cboRegCat.Visible = True
cboRegCat.Enabled = True
LlenaCombo.LlenaData("spcbDatosCombo '" & NombreCatalogo & "'", cboRegCat, dtRegCatalogos)
LlenaGrid.LlenaData("spcbDatosGridCatalogos " & Me.cboCatalogos.SelectedValue, dtgCat, dtGrid) '1:Catalgo ; 2:Alias
AparienciaGrid(dtgCat, 1)
SetSelectedIndex(dtgCat)
Me.btnAlias.Enabled = True
End Sub
Public Sub Entrar(ByVal NombreCatalgog As String)
Me.Text = NombreCatalgog
NombreCatalogo = NombreCatalgog
End Sub
Private Sub AsignaAlias(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlias.Click
If Me.bolAlias = True Then
Me.bolAlias = False
btnAlias.Text = "Alias ..."
pnlCatalgo.Controls.Add(pnlBotones)
Actualizar()
Else
bolAlias = True
btnAlias.Text = "Salir Alias"
Me.pnlBotones.Location = New System.Drawing.Point(328, 8)
pnlDatosAlias.Controls.Add(pnlBotones)
Me.Size = New System.Drawing.Size(470, 560)
Me.pnlAlias.Visible = True
cboRegCat.Visible = False
txtNombre.Text = cboRegCat.Text
pnlCatalgo.Enabled = False
ActualizarAlias()
SetSelectedIndex(Me.dtgAlias)
Me.Location = New System.Drawing.Point(250, 70)
End If
End Sub
Private Sub ActualizarAlias()
LlenaGrid.LlenaData("spcbDatosGridAliasCat " & Me.Id_Catalgo.ToString & "," & Me.Id_Comodin.ToString, dtgAlias, dtGridAlias) '1:Catalgo ; 2:Alias
AparienciaGrid(dtgAlias, 2)
End Sub
Private Sub AgregarCat(ByVal Operacion As Integer)
Try
TipoOperacion = Operacion
If bolAlias = False Then 'Catalgos
dtgCat.Enabled = False
If TipoOperacion = 1 Or TipoOperacion = 2 Then
Me.txtNombre.Enabled = True
RbtnActivo.Enabled = True
cboRegCat.Visible = False
btnAlias.Enabled = False
If TipoOperacion = 1 Then
Command.spsql = "spcbConsecutivoCatalogo '" & NombreCatalogo & " '"
Command.Lee(Command.spsql)
Me.MaximoCatalogo = Command.dtReader("Maximo")
Command.dtReader.Close()
txtComodin.Text = MaximoCatalogo.ToString
txtNombre.Text = ""
RbtnActivo.Checked = False
Me.txtExtra.Text = ""
End If
ElseIf TipoOperacion = 3 Then
txtCat.Enabled = False
cboCatalogos.Enabled = False
cboRegCat.Enabled = False
txtComodin.Enabled = False
btnAlias.Enabled = False
RbtnActivo.Enabled = True
If RbtnActivo.Checked = False Then
If MessageBox.Show("Desea Volver activar """ + Nombre + """", "Catàlogos", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
Actualizar()
Else
RbtnActivo.Checked = True
End If
End If
End If
Else
'Alias
If TipoOperacion = 1 Or TipoOperacion = 2 Then
Me.txtNomAlias.ReadOnly = False
If TipoOperacion = 1 Then
Command.spsql = "spcbConsecutivoAliasCatalogo " & Me.Id_Catalgo.ToString & "," & Me.Id_Comodin.ToString
Command.Lee(Command.spsql)
Me.MaximoaAlias = Command.dtReader("Maximo")
Command.dtReader.Close()
txtId_Alias.Text = MaximoaAlias.ToString
txtNomAlias.Text = ""
Me.txtExtra.Text = ""
End If
ElseIf TipoOperacion = 3 Then
If MessageBox.Show("Realmente desea " + DesOperacion.ToLower + """" + Me.NombreAlias + """ " + "a " & Me.cboRegCat.Text.ToLower, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Command.spsql = "spcbActAliasCatUnuarios " & Me.cboCatalogos.SelectedValue & " ," & Me.cboRegCat.SelectedValue & " , " & Me.Id_Alias & " ,'" & Me.NombreAlias.ToUpper & " '," & TipoOperacion
Command.Ejecuta(Command.spsql)
ActualizarAlias()
Me.CargarInformacion(Me.dtgAlias)
End If
End If
End If
Catch a As Exception
MessageBox.Show(a.Message)
End Try
End Sub
Private Sub SetSelectedIndex(ByVal myGrid As DataGrid)
CargarInformacion(myGrid)
End Sub
Private Sub dtgCat_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtgCat.DoubleClick
CargarInformacion(dtgCat)
End Sub
Private Sub CargarInformacion(ByVal GridOrigen As DataGrid)
Dim Indice As Integer
Indice = GridOrigen.CurrentRowIndex
If GridOrigen.Name = "dtgCat" Then
Try
'RbtnActivo.Text = dtGrid.Rows(Indice).Item(0)
Id_Comodin = dtGrid.Rows(Indice).Item(0)
Id_Catalgo = dtGrid.Rows(Indice).Item(1)
Nombre = dtGrid.Rows(Indice).Item(2)
Activo = dtGrid.Rows(Indice).Item(3)
If Activo = 0 Then
Me.tlbCatUnuarios.Buttons.Item(2).Text = "Activar"
Else
Me.tlbCatUnuarios.Buttons.Item(2).Text = "Eliminar"
End If
EtiquetaExtra(NombreCatalogo, Indice)
Catch
End Try
txtComodin.Text = Id_Comodin.ToString
txtNombre.Text = Nombre
Me.cboRegCat.SelectedValue = Id_Comodin
CatActivo(Activo)
Else
Try
Me.tlbCatUnuarios.Buttons.Item(2).Text = "Eliminar"
Id_Alias = Me.dtGridAlias.Rows(Indice).Item(2)
DesAlias = Me.dtGridAlias.Rows(Indice).Item(3)
Me.txtId_Alias.Text = Id_Alias.ToString
Me.txtNomAlias.Text = DesAlias
txtNomAlias.ReadOnly = True
Me.NombreAlias = txtNomAlias.Text
Catch
End Try
End If
End Sub
Private Function CatActivo(Optional ByVal Activo As Integer = 0) As Integer
If Activo = 1 Then
RbtnActivo.Checked = True
Else
RbtnActivo.Checked = False
End If
End Function
Private Sub InsertActivo()
If RbtnActivo.Checked = True Then
InsertaActivo = 1
Else
InsertaActivo = 0
End If
End Sub
Private Sub EtiquetaExtra(ByVal NombreCatalogo As String, ByVal indice As Integer)
If NombreCatalogo = "Catálogos" Or NombreCatalogo = "Productos" Then
Me.pnlCatalgo.Size = New System.Drawing.Size(474, 150)
If bolAlias = False Then
Me.Size = New System.Drawing.Size(482, 390)
End If
CuartoCampo = dtGrid.Rows(indice).Item(4)
If NombreCatalogo = "Catálogos" Then
Me.lblCuaCam.Text = "Tabla :"
Me.txtExtra.Text = CuartoCampo
ElseIf NombreCatalogo = "Productos" Then
Me.lblCuaCam.Text = "NoCamposLayout :"
Me.txtExtra.Text = CuartoCampo
End If
Else
Me.lblCuaCam.Text = ""
Me.txtExtra.Visible = False
End If
End Sub
Private Sub SeleccionGrid(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtgCat.CurrentCellChanged, dtgAlias.CurrentCellChanged
'Evento que se dispara cuando me muevo entre los registos de la tabla
CargarInformacion(sender)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
If Me.bolAlias = False Then
If Me.TipoOperacion = 1 Or Me.TipoOperacion = 2 Then
If ValidaTexto.ValidaCadenas(txtNombre) = 0 Then
MessageBox.Show("Ingrese datos necesarios", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Me.txtNombre.Focus()
Else
Nombre = Me.txtNombre.Text
Id_Comodin = CType(Me.txtComodin.Text, Integer)
InsertActivo()
If NombreCatalogo = "Catàlogos" Or NombreCatalogo = "Productos" Then
If NombreCatalogo = "Productos" Then
'Valida en entero
Dim Numero As Boolean
Numero = IsNumeric(Me.txtExtra.Text)
If Numero = False Then
MessageBox.Show("Tipo de Datos Incorrecto", Me.NombreCatalogo, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
CuartoCampo = Me.txtExtra.Text
End If
End If
CuartoCampo = Me.txtExtra.Text
Else
CuartoCampo = "N/A"
End If
End If
End If
If MessageBox.Show("¿Realmente desea " + DesOperacion.ToLower + " """ + Nombre + """ " + " en el catálogo? ", Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Command.spsql = "spcbActualizaCatalogosUnuarios '" & NombreCatalogo & " ' , " & Id_Comodin & " , " & Id_Catalgo & " ,'" & Nombre.ToLower & " ' ," & InsertaActivo & " , '" & CuartoCampo & " '," & TipoOperacion
Command.Ejecuta(Command.spsql)
'Si se agrega un nuevo parametro este se agrega de forma automatica al grupo de cuentas Defult...,Solo a ese grupo regla de negocio y mantenimiento
End If
Actualizar()
Else
If Me.TipoOperacion = 1 Or Me.TipoOperacion = 2 Then
If ValidaTexto.ValidaCadenas(Me.txtNomAlias) = 0 Then
MessageBox.Show("Ingerese datos necesarios")
txtNomAlias.Focus()
Else
Me.Id_Alias = Me.txtId_Alias.Text
NombreAlias = txtNomAlias.Text.Trim
If MessageBox.Show("Realmente desea " + DesOperacion.ToLower + """" + Me.NombreAlias + """ " + "a " & Me.cboRegCat.Text.ToLower, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Command.spsql = "spcbActAliasCatUnuarios " & Me.cboCatalogos.SelectedValue & " ," & Me.cboRegCat.SelectedValue & " , " & Me.Id_Alias & " ,'" & Me.NombreAlias.ToUpper & " '," & TipoOperacion
Command.Ejecuta(Command.spsql)
Me.ActualizarAlias()
Me.CargarInformacion(Me.dtgAlias)
End If
End If
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
If Me.bolAlias = False Then
Actualizar()
Else
Me.CargarInformacion(Me.dtgAlias)
End If
End Sub
Private Sub AparienciaGrid(ByVal Grid As DataGrid, ByVal Tipo As Integer)
Dim ts As DataGridTableStyle = New DataGridTableStyle
ts.MappingName = Grid.DataMember
Grid.TableStyles.Clear()
Grid.TableStyles.Add(ts)
If Tipo = 1 Then
If Me.NombreCatalogo = "Actividad Económica" Or NombreCatalogo = "Institución Financiera" Then
Grid.TableStyles(0).GridColumnStyles(0).Width = 100
Else
Grid.TableStyles(0).GridColumnStyles(0).Width = 0
End If
Grid.TableStyles(0).GridColumnStyles(1).Width = 0
Grid.TableStyles(0).GridColumnStyles(2).Width = 200
Grid.TableStyles(0).GridColumnStyles(2).HeaderText = NombreCatalogo
Grid.TableStyles(0).GridColumnStyles(3).Width = 0
Else
Grid.TableStyles(0).GridColumnStyles(0).Width = 0
Grid.TableStyles(0).GridColumnStyles(1).Width = 0
Grid.TableStyles(0).GridColumnStyles(2).Width = 50
Grid.TableStyles(0).GridColumnStyles(2).HeaderText = "# Alias"
Grid.TableStyles(0).GridColumnStyles(3).HeaderText = "Valor Alias"
Grid.TableStyles(0).GridColumnStyles(3).Width = 200
End If
End Sub
Private Sub cboRegCat_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboRegCat.SelectedValueChanged
Try
txtComodin.Text = cboRegCat.SelectedValue
Id_Comodin = txtComodin.Text.Trim
Catch
End Try
End Sub
Private Sub dtgCat_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles dtgCat.Navigate
End Sub
Private Sub Panel9_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel9.Paint
End Sub
End Class

View File

@ -0,0 +1,393 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="ToolBar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3eId3d3d3f6BHd3d3zIh3d3d3f6BHd3d8IsiHd3d3f6BHd3
eiIiyId3d3f6BHd3oiIiLIh3d3f6BHd3oiKiIsiHd3f6BHd3oiyKIiyHd3f6BHd3oiyHoiyId3f6BHd3
eix3eiLIh3f6BHd3d6p3d6IsiHf6BHd3d3d3d3oiyIf6BHd3d3d3d3eiLIf6BHd3d3d3d3d6LIf6BHd3
d3d3d3d3rHf6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3f6BHd3d3h3d3d3d3f6BHd3dwiHd3d3d3f6BHd3eRCHd3eId3f6BHd3eRCId3AIh3f6BHd3
eREIh5EQh3f6BHd3d5EQiREQd3f6BHd3d5ERkREHd3f6BHd3d3kRERB3d3f6BHd3d3eREQiHd3f6BHd3
d3eRERCHd3f6BHd3d3kRARCId3f6BHd3d3kQeREIh3f6BHd3d5EHd5EQiHf6BHd3d5EHd3kRCHf6BHd3
d3l3d3eRB3f6BHd3d3d3d3d5d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BHd3d3d3d3d3d3f6BA==
</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbPais.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbPais.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbPais.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.Name">
<value>EstadoCat</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,464 @@
Public Class EstadoCat
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents cmbPais As System.Windows.Forms.ComboBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ToolBar As System.Windows.Forms.ToolBar
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(EstadoCat))
Me.ToolBar = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.cmbPais = New System.Windows.Forms.ComboBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlBotones.SuspendLayout()
Me.SuspendLayout()
'
'ToolBar
'
Me.ToolBar.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ToolBar.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnSalir})
Me.ToolBar.ButtonSize = New System.Drawing.Size(75, 40)
Me.ToolBar.DropDownArrows = True
Me.ToolBar.ImageList = Me.ImageList1
Me.ToolBar.Location = New System.Drawing.Point(0, 0)
Me.ToolBar.Name = "ToolBar"
Me.ToolBar.ShowToolTips = True
Me.ToolBar.Size = New System.Drawing.Size(526, 47)
Me.ToolBar.TabIndex = 50
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 6
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(6, 144)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(516, 168)
Me.GroupBox1.TabIndex = 89
Me.GroupBox1.TabStop = False
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(510, 149)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style9{}Normal{Font:Microsoft Sans Serif, 8.25pt, style=Bold;}HighlightRow{F" & _
"oreColor:Aqua;BackColor:Highlight;}Style14{}OddRow{}RecordSelector{AlignImage:Ce" & _
"nter;}Style15{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;Fore" & _
"Color:ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}St" & _
"yle12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView N" & _
"ame="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" Marqu" & _
"eeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScro" & _
"llGroup=""1"" HorizontalScrollGroup=""1""><Height>145</Height><CaptionStyle parent=""" & _
"Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle " & _
"parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /" & _
"><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style" & _
"12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hi" & _
"ghlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRow" & _
"Style parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector""" & _
" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""No" & _
"rmal"" me=""Style1"" /><ClientRect>0, 0, 506, 145</ClientRect><BorderSide>0</Border" & _
"Side><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDBGrid.MergeView></Splits><" & _
"NamedStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /" & _
"><Style parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><S" & _
"tyle parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><St" & _
"yle parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><St" & _
"yle parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style p" & _
"arent=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><S" & _
"tyle parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horz" & _
"Splits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
"idth><ClientArea>0, 0, 506, 145</ClientArea><PrintPageHeaderStyle parent="""" me=""" & _
"Style14"" /><PrintPageFooterStyle parent="""" me=""Style15"" /></Blob>"
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(400, 56)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 91
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(238, 58)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(96, 16)
Me.chkActivo.TabIndex = 84
Me.chkActivo.Text = "Activo:"
'
'cmbPais
'
Me.cmbPais.Location = New System.Drawing.Point(138, 118)
Me.cmbPais.Name = "cmbPais"
Me.cmbPais.Size = New System.Drawing.Size(208, 21)
Me.cmbPais.TabIndex = 83
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(138, 86)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(208, 20)
Me.txtNombre.TabIndex = 82
Me.txtNombre.Text = ""
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(138, 54)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 85
Me.txtClave.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(90, 126)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(32, 16)
Me.Label4.TabIndex = 88
Me.Label4.Text = "País:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(42, 62)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(80, 16)
Me.Label1.TabIndex = 86
Me.Label1.Text = "Clave Estado:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(74, 94)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 16)
Me.Label2.TabIndex = 87
Me.Label2.Text = "Nombre:"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(408, 324)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 24)
Me.Button1.TabIndex = 92
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'EstadoCat
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(526, 357)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.cmbPais)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ToolBar)
Me.Name = "EstadoCat"
Me.Text = "Catalogo: Estado"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlBotones.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim clCmp As New clsComplejo
Dim guardar As Boolean
Private Sub EstadoCat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
guardar = False
txtNombre.Enabled = False
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
Try
'Llena combo y grid
clCmp.sbLlenaCombo("spListaPais ", Me.cmbPais)
clCmp.fdtDataSetTabla("spGridEstados 0")
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Carga()
Dim lsComando As String
Dim clCmpPais As New clsComplejo
lsComando = "spGridEstados " & cmbPais.SelectedValue
clCmpPais.fdtDataSetTabla(lsComando)
Me.C1TrueDBGrid1.SetDataBinding(clCmpPais.ds, "Tabla") 'Llena el grid
End Sub
Private Sub cmbPais_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbPais.SelectedIndexChanged
'Al seleccionar otro pais se cambia el grid para mostrar sus estados correspondientes
'On Error Resume Next
Try
Me.txtNombre.Text = ""
'Llena el grid
Carga()
Catch ex As Exception
End Try
End Sub
Private Sub ToolBar_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar.ButtonClick
Select Case e.Button.Text
Case "Agregar"
guardar = True
txtNombre.Enabled = True
Limpiar()
Case "Actualizar"
guardar = True
txtNombre.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Limpiar()
txtClave.Text = ""
txtNombre.Text = ""
txtNombre.Enabled = True
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
txtNombre.Enabled = False
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
'sbIniciaForma()
Carga()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClavePais As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cmbPais.SelectedIndex = -1 Then
MsgBox("País no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If txtClave.Text = "" Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClavePais = cmbPais.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatEstado "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liClavePais & ", 8, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
' MsgBox(lsSQL)
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
'Recupera datos del grid y los asigna las cajas de texto
With Me.C1TrueDBGrid1
.Col = 0
txtClave.Text = .Columns(0).Value
.Col = 1
clCmp.sbBuscaEnCombo(.Columns(1).Value, Me.cmbPais)
.Col = 2
txtNombre.Text = .Columns(2).Value
.Col = 3
If .Columns(3).Text = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias
miAlias.Entra(8, txtClave.Text.Trim)
miAlias.Text = "Alias Estados"
miAlias.piCatalogo = 8
miAlias.Show()
End Sub
End Class

View File

@ -0,0 +1,388 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="ToolBar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="ToolBar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="cmbOrganismo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbOrganismo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbOrganismo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombreIngles.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombreIngles.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombreIngles.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label3.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="GroupBox2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox2.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox2.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox2.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ListBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ListBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="ListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ComboBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="ComboBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="LinkLabel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="LinkLabel1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="LinkLabel1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="LinkLabel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="LinkLabel2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="LinkLabel2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Name">
<value>PaisCatalogo</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,392 @@
Public Class PaisCatalogo
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents cmbOrganismo As System.Windows.Forms.ComboBox
Friend WithEvents txtNombreIngles As System.Windows.Forms.TextBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents ToolBar As System.Windows.Forms.ToolBar
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(PaisCatalogo))
Me.ToolBar = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.cmbOrganismo = New System.Windows.Forms.ComboBox
Me.txtNombreIngles = New System.Windows.Forms.TextBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'ToolBar
'
Me.ToolBar.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ToolBar.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnSalir})
Me.ToolBar.ButtonSize = New System.Drawing.Size(75, 40)
Me.ToolBar.DropDownArrows = True
Me.ToolBar.ImageList = Me.ImageList1
Me.ToolBar.Location = New System.Drawing.Point(0, 0)
Me.ToolBar.Name = "ToolBar"
Me.ToolBar.ShowToolTips = True
Me.ToolBar.Size = New System.Drawing.Size(556, 47)
Me.ToolBar.TabIndex = 51
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'cmbOrganismo
'
Me.cmbOrganismo.Location = New System.Drawing.Point(119, 344)
Me.cmbOrganismo.Name = "cmbOrganismo"
Me.cmbOrganismo.Size = New System.Drawing.Size(130, 21)
Me.cmbOrganismo.TabIndex = 54
'
'txtNombreIngles
'
Me.txtNombreIngles.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombreIngles.Location = New System.Drawing.Point(118, 318)
Me.txtNombreIngles.Name = "txtNombreIngles"
Me.txtNombreIngles.Size = New System.Drawing.Size(272, 20)
Me.txtNombreIngles.TabIndex = 53
Me.txtNombreIngles.Text = ""
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(118, 288)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(272, 20)
Me.txtNombre.TabIndex = 52
Me.txtNombre.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(52, 348)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(66, 16)
Me.Label4.TabIndex = 57
Me.Label4.Text = "Organismo:"
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(30, 321)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(88, 16)
Me.Label3.TabIndex = 56
Me.Label3.Text = "Nombre Inglés:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(67, 292)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(50, 16)
Me.Label2.TabIndex = 55
Me.Label2.Text = "Nombre:"
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(198, 264)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(72, 16)
Me.chkActivo.TabIndex = 58
Me.chkActivo.Text = "Activo:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Location = New System.Drawing.Point(6, 58)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(454, 198)
Me.GroupBox1.TabIndex = 63
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Lista de Paises"
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(448, 179)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style9{}Normal{}HighlightRow{ForeColor:Aqua;BackColor:Highlight;}Style14{}Od" & _
"dRow{}RecordSelector{AlignImage:Center;}Style15{}Heading{Wrap:True;AlignVert:Cen" & _
"ter;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}S" & _
"tyle10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Split" & _
"s><C1.Win.C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=" & _
"""17"" ColumnFooterHeight=""17"" MarqueeStyle=""HighlightRow"" RecordSelectorWidth=""16" & _
""" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Height>" & _
"175</Height><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Ed" & _
"itor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle" & _
" parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><G" & _
"roupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style" & _
"2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle paren" & _
"t=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSel" & _
"ectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selecte" & _
"d"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /><ClientRect>0, 0, 444, 175" & _
"</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win" & _
".C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><St" & _
"yle parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style " & _
"parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style p" & _
"arent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style paren" & _
"t=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style pare" & _
"nt=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style p" & _
"arent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyl" & _
"es><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><Def" & _
"aultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 444, 175</ClientArea><P" & _
"rintPageHeaderStyle parent="""" me=""Style14"" /><PrintPageFooterStyle parent="""" me=" & _
"""Style15"" /></Blob>"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.ListBox1)
Me.GroupBox2.Controls.Add(Me.ComboBox1)
Me.GroupBox2.Controls.Add(Me.LinkLabel1)
Me.GroupBox2.Controls.Add(Me.LinkLabel2)
Me.GroupBox2.Location = New System.Drawing.Point(166, 390)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(236, 136)
Me.GroupBox2.TabIndex = 64
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Clasificación"
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(54, 70)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(120, 56)
Me.ListBox1.TabIndex = 1
'
'ComboBox1
'
Me.ComboBox1.Location = New System.Drawing.Point(52, 46)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 0
Me.ComboBox1.Text = "ComboBox1"
'
'LinkLabel1
'
Me.LinkLabel1.Location = New System.Drawing.Point(32, 22)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(60, 16)
Me.LinkLabel1.TabIndex = 2
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "LinkLabel1"
Me.LinkLabel1.VisitedLinkColor = System.Drawing.Color.Blue
'
'LinkLabel2
'
Me.LinkLabel2.Location = New System.Drawing.Point(144, 18)
Me.LinkLabel2.Name = "LinkLabel2"
Me.LinkLabel2.Size = New System.Drawing.Size(66, 16)
Me.LinkLabel2.TabIndex = 3
Me.LinkLabel2.TabStop = True
Me.LinkLabel2.Text = "LinkLabel2"
Me.LinkLabel2.VisitedLinkColor = System.Drawing.Color.Blue
'
'PaisCatalogo
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(556, 533)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.cmbOrganismo)
Me.Controls.Add(Me.txtNombreIngles)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.ToolBar)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MaximizeBox = False
Me.Name = "PaisCatalogo"
Me.Text = "Pais Catalogo"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim clCmpOrg As clsComplejo = New clsComplejo
Dim clCmpOrg1 As clsComplejo = New clsComplejo
Dim clCmpOrg2 As clsComplejo = New clsComplejo
Dim clCmp As clsComplejo = New clsComplejo
Dim clCmp1 As clsComplejo = New clsComplejo
Private Sub PaisCatalogo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
End Sub
Private Sub sbIniciaForma()
Try
clCmp.fdtDataSetTabla("spGridPais 0")
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
'clCmpOrg1.sbLlenaCombo("spListaOrganismos", Me.cmbOrganismo)
Catch ex As Exception
MessageBox.Show("Error PaisCatalogo; sbIniciaForma: ", "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub ToolBar_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar.ButtonClick
Select Case e.Button.Text
Case "Agregar"
Case "Actualizar"
Case "Agregar"
Case "Salir"
Me.Close()
End Select
End Sub
Private Function fsDefineSQL(ByVal SP As String) As String
'Defino mi cadena para el procedimiento almacenado para recuperar la clasificacion del pais
Try
'Declaro varibales
Dim lsSQL As String = ""
Dim _IdPais As Integer
'Asigancion de valores (parametros para el Store procedure)
_IdPais = Me.C1TrueDBGrid1.Columns("Clave").Value
'Formo el query
lsSQL = lsSQL & SP
lsSQL = lsSQL & _IdPais
Return lsSQL
Catch ex As Exception
MessageBox.Show(ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Function
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
'Recupero Datos del gird
Me.txtNombre.Text = Me.C1TrueDBGrid1.Columns("Nombre").Value
Me.txtNombreIngles.Text = Me.C1TrueDBGrid1.Columns("Nombre Inglés").Value
Me.cmbOrganismo.ValueMember = Me.C1TrueDBGrid1.Columns("Id_Organismo").Value
Me.cmbOrganismo.Text = Me.C1TrueDBGrid1.Columns("Organismo").Value
Me.chkActivo.Checked = Me.C1TrueDBGrid1.Columns("Status").Value
'Hago una consulta ala base de datos para recuperar la clasificacion del pais
Dim SQL As String = ""
SQL = fsDefineSQL("spGridPaisClasificacion ")
clCmp1.fdtDataSetTabla(SQL)
Dim x As Integer
Dim cad As String
For x = 0 To clCmp1.ds.Tables(0).Rows.Count
Select Case cad
End Select
Next
' Me.C1TrueDBGrid2.SetDataBinding(clCmp1.ds, "Tabla") 'Llena el grid de la clasificacion
' clCmp.sbLlenaCheckListBox("Select Id_Clasificacion as clave, Nombre as nombre from clasificacionpais", Me.CheckedListBox1)
End Sub
Private Sub C1TrueDBGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click
End Sub
End Class

View File

@ -0,0 +1,328 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbEstado.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbEstado.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbEstado.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="ToolBar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ToolBar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnGuardar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnGuardar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnNuevo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnNuevo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="linkAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="linkAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="linkAlias.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.Name">
<value>PlazaCat</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
</root>

View File

@ -0,0 +1,401 @@
Public Class PlazaCat
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cmbEstado As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolBar As System.Windows.Forms.ToolBar
Friend WithEvents btnNuevo As System.Windows.Forms.ToolBarButton
Friend WithEvents btnGuardar As System.Windows.Forms.ToolBarButton
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents linkAlias As System.Windows.Forms.LinkLabel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(PlazaCat))
Me.Label4 = New System.Windows.Forms.Label
Me.cmbEstado = New System.Windows.Forms.ComboBox
Me.Label2 = New System.Windows.Forms.Label
Me.txtNombre = New System.Windows.Forms.TextBox
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.ToolBar = New System.Windows.Forms.ToolBar
Me.btnGuardar = New System.Windows.Forms.ToolBarButton
Me.btnNuevo = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.linkAlias = New System.Windows.Forms.LinkLabel
Me.txtClave = New System.Windows.Forms.TextBox
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(94, 313)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(48, 16)
Me.Label4.TabIndex = 57
Me.Label4.Text = "Estado:"
'
'cmbEstado
'
Me.cmbEstado.Location = New System.Drawing.Point(144, 311)
Me.cmbEstado.Name = "cmbEstado"
Me.cmbEstado.Size = New System.Drawing.Size(208, 21)
Me.cmbEstado.TabIndex = 55
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(90, 287)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(54, 16)
Me.Label2.TabIndex = 56
Me.Label2.Text = "Nombre:"
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(144, 287)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(207, 20)
Me.txtNombre.TabIndex = 54
Me.txtNombre.Text = ""
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(208, 268)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(56, 16)
Me.chkActivo.TabIndex = 58
Me.chkActivo.Text = "Activo:"
'
'ToolBar
'
Me.ToolBar.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ToolBar.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnGuardar, Me.btnNuevo, Me.btnSalir})
Me.ToolBar.ButtonSize = New System.Drawing.Size(75, 40)
Me.ToolBar.DropDownArrows = True
Me.ToolBar.ImageList = Me.ImageList1
Me.ToolBar.Location = New System.Drawing.Point(0, 0)
Me.ToolBar.Name = "ToolBar"
Me.ToolBar.ShowToolTips = True
Me.ToolBar.Size = New System.Drawing.Size(468, 47)
Me.ToolBar.TabIndex = 59
'
'btnGuardar
'
Me.btnGuardar.ImageIndex = 7
Me.btnGuardar.Text = "Guardar"
'
'btnNuevo
'
Me.btnNuevo.ImageIndex = 6
Me.btnNuevo.Text = "Nuevo"
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Location = New System.Drawing.Point(8, 56)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(456, 196)
Me.GroupBox1.TabIndex = 60
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Plazas"
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(450, 177)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:Aqua;BackColor:Highlight;}Style3{}Inactive{ForeColor:InactiveCaptionTe" & _
"xt;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Center;}Style" & _
"9{}Normal{}HighlightRow{ForeColor:Aqua;BackColor:Highlight;}Style14{}OddRow{}Rec" & _
"ordSelector{AlignImage:Center;}Style15{}Heading{Wrap:True;AlignVert:Center;Borde" & _
"r:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{Al" & _
"ignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win" & _
".C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" Colu" & _
"mnFooterHeight=""17"" MarqueeStyle=""HighlightRow"" RecordSelectorWidth=""16"" DefRecS" & _
"elWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Height>173</Heig" & _
"ht><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=" & _
"""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""" & _
"FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle" & _
" parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><Hig" & _
"hLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inacti" & _
"ve"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyl" & _
"e parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""St" & _
"yle6"" /><Style parent=""Normal"" me=""Style1"" /><ClientRect>0, 0, 446, 173</ClientR" & _
"ect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win.C1TrueDB" & _
"Grid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style paren" & _
"t=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=""H" & _
"eading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""No" & _
"rmal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Normal" & _
""" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Norma" & _
"l"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""No" & _
"rmal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><vertS" & _
"plits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSe" & _
"lWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 446, 173</ClientArea><PrintPageH" & _
"eaderStyle parent="""" me=""Style14"" /><PrintPageFooterStyle parent="""" me=""Style15""" & _
" /></Blob>"
'
'linkAlias
'
Me.linkAlias.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.linkAlias.Location = New System.Drawing.Point(396, 296)
Me.linkAlias.Name = "linkAlias"
Me.linkAlias.Size = New System.Drawing.Size(32, 16)
Me.linkAlias.TabIndex = 61
Me.linkAlias.TabStop = True
Me.linkAlias.Text = "Alias"
Me.linkAlias.VisitedLinkColor = System.Drawing.Color.Blue
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Enabled = False
Me.txtClave.Location = New System.Drawing.Point(10, 256)
Me.txtClave.Name = "txtClave"
Me.txtClave.Size = New System.Drawing.Size(20, 20)
Me.txtClave.TabIndex = 62
Me.txtClave.Text = ""
Me.txtClave.Visible = False
'
'PlazaCat
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(468, 337)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.linkAlias)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolBar)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.cmbEstado)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtNombre)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MaximizeBox = False
Me.Name = "PlazaCat"
Me.Text = "Plazas"
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim clCmp As New clsComplejo
Dim bandera As Boolean 'Para q el combo solo cambie cuadno
Private Sub PlazaCat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
bandera = False
Me.btnGuardar.Enabled = False
End Sub
Private Sub sbIniciaForma()
Try
clCmp.sbLlenaCombo("spListaEstado", Me.cmbEstado) 'Llena combo
clCmp.fdtDataSetTabla("spGridPlazas " & cmbEstado.SelectedValue) 'Llena un dataset
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns("Activo").Visible = False
Catch ex As Exception
MessageBox.Show("Error PlazaCat; sbIniciaForma: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub LlenaGrid()
'Se llena el grid cada vz que se selecciona un estado diferente
Try
Dim clCmpEdo As New clsComplejo
clCmpEdo.fdtDataSetTabla("spGridPlazas " & cmbEstado.SelectedValue)
Me.C1TrueDBGrid1.SetDataBinding(clCmpEdo.ds, "Tabla") 'Llena el grid
Me.C1TrueDBGrid1.Splits(0, 0).DisplayColumns("Activo").Visible = False
Catch ex As Exception
MessageBox.Show("Error PlazaCat; LlenaGrid: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub cmbEstado_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbEstado.SelectedIndexChanged
If bandera = True Then
LlenaGrid()
End If
End Sub
Private Sub cmbEstado_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbEstado.DropDown
bandera = True
End Sub
Private Sub ToolBar_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar.ButtonClick
Select Case e.Button.Text
Case "Guardar"
sbGuardar()
limpia()
Me.C1TrueDBGrid1.Focus()
Me.btnGuardar.Enabled = False
Case "Nuevo"
Me.btnGuardar.Enabled = True ' habilita el botn de guardar
limpia()
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub limpia()
Me.txtNombre.Text = ""
Me.chkActivo.Checked = True
Me.txtClave.Text = ""
Me.txtNombre.Focus()
End Sub
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
'Recupera datos
Try
Me.txtNombre.Text = Me.C1TrueDBGrid1.Columns("Nombre").Value
Me.chkActivo.Checked = Me.C1TrueDBGrid1.Columns("Activo").Value
Me.txtClave.Text = Me.C1TrueDBGrid1.Columns("Clave").Value
Me.btnGuardar.Enabled = True ' habilita el botn de guardar
Catch ex As Exception
MessageBox.Show("Error PlazaCat; C1TrueDBGrid1_DoubleClick: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
'sbIniciaForma()
LlenaGrid()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClaveEstado As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cmbEstado.SelectedIndex = -1 Then
MsgBox("Estado no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClaveEstado = cmbEstado.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatPlaza "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liClaveEstado & ", 17, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub linkAlias_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkAlias.LinkClicked
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias
miAlias.Entra(17, txtClave.Text.Trim) 'Se pasa el numero de catalogo y el Registro
miAlias.Text = "Alias Plaza"
miAlias.piCatalogo = 17
miAlias.Show()
End Sub
End Class

View File

@ -0,0 +1,405 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 1.3
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">1.3</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1">this is my long string</data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
[base64 mime encoded serialized .NET Framework object]
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
[base64 mime encoded string representing a byte array form of the .NET Framework object]
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used forserialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>1.3</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="tlbCorteCaja.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="tlbCorteCaja.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="tlbCorteCaja.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAgrergar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnActualizar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnEliminar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAlias.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnSalir.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</data>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuNTAw
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
AABQDQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAH
BwMAFgcQ7BcHARUBGgEpAgAUBwXsCBQD7AIHDAAJBwEUAfIB6wEDAW0CAAQHCwADBwXsARAG7QEAA+wB
BwEAAjcBAAIHBAACNwEABwcCAAEUARoBAwHrAQMB6wEpAgACBwEACf8BAAMHBewBFAX/AfABAAPsAQcB
AAI3AQACBwQAAjcBAAcHARABEwEUAfIB6wEDAesBAwHrASkBAAIHAQAJ/wEAAwcF7AEUBf8B8AEAA+wB
BwEAAjcBAAIHBAACNwEABQcBAAEHAREB6gEUARsBSgHrAQMB6wEDAesBAAIHAQAJ/wEAAwcF7AEUBf8B
8AEAA+wBBwEAAjcHAAI3AQAEBwIAAQcBEQHqARQB8gFtAQ8BIgEDAesBAwEAAgcBAAn/AQADBwXsARQF
/wHwAQAD7AEHAQALNwEAAwcCDQIAAg4BFAEbAVEC7QHrAUoB6wEAAgcBAAn/AQADBwXsARQF/wHwAQAD
7AEHAQACNwcAAjcBAAIHAQ0BgQS4AQYBFAHyAXMBUQHsAUoB6wEDAQACBwEACf8BAAMHAuwB9wHvAW0B
FAH/AbwB/wHzAQcBkgEAA+wBBwEAATcBAAf/AQABNwEAAgcBawX+AbgBFAEbAUoB6wFKAesBSgHrAQAC
BwEACf8BAAMHAuwBbQHrAQMBFAEHAewB/wEHARQBEgEUA+wBBwEAATcBAAf/AQABNwEAAwcBgQG4A2sB
DQEUARsCSgHrAUoB6wFKAQACBwEACf8BAAMHAuwB7wEHASICmQHzAf8BBwESBewBBwEAATcBAAf/AQAB
NwEABAcBDQEAAQcBDwEVARQBGwZKAQACBwEABv8EAAMHA+wBEAEAAV4B/wEUAgABFAXsAQcBAAE3AQAH
/wEAATcBAAUHAQABBwERAeoBEQHvAZkB9wRKAQACBwEABv8BAAH/AQAEBwLsAesBEwFYASIBUQHvCOwB
BwEAATcBAAf/AQABNwEABwcBEQFtARIB7AHrAfcBBwFzAkoBAAIHAQAG/wIABQcD7AHvAewBFAEHAewB
FAHvBuwBBw0ABwcBEQLsAesBEgHsAesBkgGZAZIBAAIHCAAGBwLsAe0C7AEUAQcB7AFtAZIG7BUHAQ4E
FQFDAQABFAHsAeoBABAHEOwUBwEAAQcBAAEHAQABBwEABQcL7C8HAgAEBwHsCfMB7BcHCw8HBwcAAfsB
AAMHAewJ/wHsBQcFAAUHBQACBwEQCZIBAAGSARAGBwEABf8BAAH7AQADBwHsAv8GFAH/AewFBwEAAf8D
AAUHAQAB/wMAAQcBQwEACUMBAAFDAe0BQwUHAQAB/wT5AQAC+wEAAgcB7AL/A+8BHwLqAf8B7AUHAQAB
/wMABQcBAAH/AwABBwEABuwDMALsAQABFQEABQcBAAb/AQAB+wEAAgcB7AP/Am0B+QFGAewB7wHsAwcB
FwGSBwABBwcAAQcBAAYHAykCBwEAAewBAAUHAQAB/wX5AQAC+wEAAQcB7AP/AuwBRgH5AUYC7AMHAfkB
9wIAAf8GAAH/BQABBwEABhIDAAISAQABBwFtARIEBwEAB/8EAAHsAv8D7AEUAvkC7AEHAm8BRgEHAgAB
/wMAAQcCAAH/BQABBwEACm0BAAJtAQcBAAMHAQQC/wX5Af8BAAIBAQAB7AL/BOsBRgH5AUYB7AH3AvkB
kgEHAgAB/wMAAQcCAAH/BQABBwESCm0BEgFtARIBbQEAAgcDBAf/AwABBwHsAv8EkgESAvkCbwH5ARcD
Bw0AAwcBEwEACG0B7AETAewBEwEAAQcEBAHsAf8C+QH/AwAB7AIHAewC/wUSAUYD+QFGBQcBAAH/AwAB
BwEAAf8DAAUHARUB7wH/Be8B/wEAAewBAAHsARUDBAEHAgQE/wEAAf8BAAMHAewB/wMHAf8C8QFuA/kB
7AUHBQABBwUABgcBAAH/BRQB/wEUAQACQwEHAewBBAMHAgQD/wIABAcB7AH/A0MB/wJuAkcBRgH5AW4C
7wQHAwADBwMABwcBEAG8Af8FvAH/AQAJBwEEAewB/wIABQcB7AX/AkcC/wHsAvkBbgHsBAcBAAH/AQAD
BwEAAf8BAAgHAQAB/wUQAf8BEAHvCQcBBAgHAewJ9ALsAvkC7AMHAwADBwMACAcBDgjzAQAKBwEEBwcL
7AIHAvkWBwkAAgcBQgFNAT4HAAE+AwABKAMAAUADAAEwAwABAQEAAQEFAAGAAQEWAAP//wCYAAs=
</value>
</data>
<data name="pnlBotones.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="pnlBotones.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="pnlBotones.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="pnlBotones.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="pnlBotones.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnAceptar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnAceptar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3duAHd3d3d3d3d3d3duAHd3d3eId3d3d3duAHd3d3zIh3d3d3duAHd3d8IsiHd3d3duAHd3
eiIiyId3d3duAHd3oiIiLIh3d3duAHd3oiKiIsiHd3duAHd3oiyKIiyHd3duAHd3oiyHoiyId3duAHd3
eix3eiLIh3duAHd3d6p3d6IsiHduAHd3d3d3d3oiyIduAHd3d3d3d3eiLIduAHd3d3d3d3d6LIduAHd3
d3d3d3d3rHduAHd3d3d3d3d3d3duAHd3d3d3d3d3d3duAHd3d3d3d3d3d3duAHd3d3d3d3d3d3duAA==
</value>
</data>
<data name="btnCancelar.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="btnCancelar.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="btnCancelar.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk1mAQAAAAAAAHYAAAAoAAAAFAAAABQAAAABAAQAAAAAAAAAAAASCwAAEgsAABAAAAAQAAAAAAAA/wAA
gP8AgAD/AICA/4AAAP+AAID/gIAA/8DAwP+AgID/AAD//wD/AP8A/////wAA//8A/////wD//////3d3
d3d3d3d3d3duAHd3d3h3d3d3d3duAHd3dwiHd3d3d3duAHd3eRCHd3eId3duAHd3eRCId3AIh3duAHd3
eREIh5EQh3duAHd3d5EQiREQd3duAHd3d5ERkREHd3duAHd3d3kRERB3d3duAHd3d3eREQiHd3duAHd3
d3eRERCHd3duAHd3d3kRARCId3duAHd3d3kQeREIh3duAHd3d5EHd5EQiHduAHd3d5EHd3kRCHduAHd3
d3l3d3eRB3duAHd3d3d3d3d5d3duAHd3d3d3d3d3d3duAHd3d3d3d3d3d3duAHd3d3d3d3d3d3duAA==
</value>
</data>
<data name="cmbProducto.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="cmbProducto.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="cmbProducto.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtNombre.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="txtNombre.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="txtClave.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label4.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Label2.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="chkActivo.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="chkActivo.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="Button1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="Button1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="GroupBox1.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>8, 8</value>
</data>
<data name="GroupBox1.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="GroupBox1.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="C1TrueDBGrid1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="C1TrueDBGrid1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="resource" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
RK5CYII=
</value>
</data>
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>(Default)</value>
</data>
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>2, 2</value>
</data>
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</data>
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>80</value>
</data>
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</data>
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>Assembly</value>
</data>
<data name="$this.Name">
<value>SubProductoCat</value>
</data>
</root>

View File

@ -0,0 +1,486 @@
Imports C1.Win.C1TrueDBGrid.C1TrueDBGrid
Imports CLIENTE.clsComplejo
Public Class SubProductoCat
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents tlbCorteCaja As System.Windows.Forms.ToolBar
Friend WithEvents btnAgrergar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnActualizar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnEliminar As System.Windows.Forms.ToolBarButton
Friend WithEvents btnAlias As System.Windows.Forms.ToolBarButton
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents pnlBotones As System.Windows.Forms.Panel
Friend WithEvents btnAceptar As System.Windows.Forms.Button
Friend WithEvents btnCancelar As System.Windows.Forms.Button
Friend WithEvents cmbProducto As System.Windows.Forms.ComboBox
Friend WithEvents txtNombre As System.Windows.Forms.TextBox
Friend WithEvents txtClave As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents chkActivo As System.Windows.Forms.CheckBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(SubProductoCat))
Me.tlbCorteCaja = New System.Windows.Forms.ToolBar
Me.btnAgrergar = New System.Windows.Forms.ToolBarButton
Me.btnActualizar = New System.Windows.Forms.ToolBarButton
Me.btnEliminar = New System.Windows.Forms.ToolBarButton
Me.btnAlias = New System.Windows.Forms.ToolBarButton
Me.btnSalir = New System.Windows.Forms.ToolBarButton
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.pnlBotones = New System.Windows.Forms.Panel
Me.btnAceptar = New System.Windows.Forms.Button
Me.btnCancelar = New System.Windows.Forms.Button
Me.cmbProducto = New System.Windows.Forms.ComboBox
Me.txtNombre = New System.Windows.Forms.TextBox
Me.txtClave = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.chkActivo = New System.Windows.Forms.CheckBox
Me.Button1 = New System.Windows.Forms.Button
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
Me.pnlBotones.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'tlbCorteCaja
'
Me.tlbCorteCaja.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tlbCorteCaja.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAgrergar, Me.btnActualizar, Me.btnEliminar, Me.btnAlias, Me.btnSalir})
Me.tlbCorteCaja.ButtonSize = New System.Drawing.Size(75, 40)
Me.tlbCorteCaja.DropDownArrows = True
Me.tlbCorteCaja.ImageList = Me.ImageList1
Me.tlbCorteCaja.Location = New System.Drawing.Point(0, 0)
Me.tlbCorteCaja.Name = "tlbCorteCaja"
Me.tlbCorteCaja.ShowToolTips = True
Me.tlbCorteCaja.Size = New System.Drawing.Size(536, 47)
Me.tlbCorteCaja.TabIndex = 5
'
'btnAgrergar
'
Me.btnAgrergar.ImageIndex = 0
Me.btnAgrergar.Text = "Agregar"
'
'btnActualizar
'
Me.btnActualizar.ImageIndex = 5
Me.btnActualizar.Text = "Actualizar"
'
'btnEliminar
'
Me.btnEliminar.ImageIndex = 1
Me.btnEliminar.Text = "Eliminar"
'
'btnAlias
'
Me.btnAlias.ImageIndex = 1
Me.btnAlias.Text = "Alias"
Me.btnAlias.Visible = False
'
'btnSalir
'
Me.btnSalir.ImageIndex = 4
Me.btnSalir.Text = "Salir"
'
'ImageList1
'
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
'
'pnlBotones
'
Me.pnlBotones.Controls.Add(Me.btnAceptar)
Me.pnlBotones.Controls.Add(Me.btnCancelar)
Me.pnlBotones.Location = New System.Drawing.Point(374, 62)
Me.pnlBotones.Name = "pnlBotones"
Me.pnlBotones.Size = New System.Drawing.Size(120, 80)
Me.pnlBotones.TabIndex = 89
'
'btnAceptar
'
Me.btnAceptar.BackColor = System.Drawing.SystemColors.Control
Me.btnAceptar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAceptar.ForeColor = System.Drawing.Color.Black
Me.btnAceptar.Image = CType(resources.GetObject("btnAceptar.Image"), System.Drawing.Image)
Me.btnAceptar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAceptar.Location = New System.Drawing.Point(16, 8)
Me.btnAceptar.Name = "btnAceptar"
Me.btnAceptar.Size = New System.Drawing.Size(96, 23)
Me.btnAceptar.TabIndex = 2
Me.btnAceptar.Text = "Aceptar"
Me.btnAceptar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnCancelar
'
Me.btnCancelar.BackColor = System.Drawing.SystemColors.Control
Me.btnCancelar.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCancelar.ForeColor = System.Drawing.Color.Black
Me.btnCancelar.Image = CType(resources.GetObject("btnCancelar.Image"), System.Drawing.Image)
Me.btnCancelar.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancelar.Location = New System.Drawing.Point(16, 40)
Me.btnCancelar.Name = "btnCancelar"
Me.btnCancelar.Size = New System.Drawing.Size(96, 23)
Me.btnCancelar.TabIndex = 3
Me.btnCancelar.Text = "Cancelar"
Me.btnCancelar.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'cmbProducto
'
Me.cmbProducto.Location = New System.Drawing.Point(150, 126)
Me.cmbProducto.Name = "cmbProducto"
Me.cmbProducto.Size = New System.Drawing.Size(208, 21)
Me.cmbProducto.TabIndex = 82
'
'txtNombre
'
Me.txtNombre.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtNombre.Location = New System.Drawing.Point(150, 94)
Me.txtNombre.Name = "txtNombre"
Me.txtNombre.Size = New System.Drawing.Size(208, 20)
Me.txtNombre.TabIndex = 81
Me.txtNombre.Text = ""
'
'txtClave
'
Me.txtClave.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtClave.Location = New System.Drawing.Point(150, 62)
Me.txtClave.Name = "txtClave"
Me.txtClave.ReadOnly = True
Me.txtClave.Size = New System.Drawing.Size(56, 20)
Me.txtClave.TabIndex = 84
Me.txtClave.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(78, 134)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(56, 16)
Me.Label4.TabIndex = 87
Me.Label4.Text = "Producto:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(22, 70)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(112, 16)
Me.Label1.TabIndex = 85
Me.Label1.Text = "Clave Sub Producto:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(14, 102)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(128, 16)
Me.Label2.TabIndex = 86
Me.Label2.Text = "Nombre Sub Producto:"
'
'chkActivo
'
Me.chkActivo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkActivo.ForeColor = System.Drawing.Color.Red
Me.chkActivo.Location = New System.Drawing.Point(270, 62)
Me.chkActivo.Name = "chkActivo"
Me.chkActivo.Size = New System.Drawing.Size(88, 16)
Me.chkActivo.TabIndex = 83
Me.chkActivo.Text = "Activo"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(428, 330)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(104, 16)
Me.Button1.TabIndex = 90
Me.Button1.Text = "Alias ..."
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.C1TrueDBGrid1)
Me.GroupBox1.Location = New System.Drawing.Point(8, 158)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(522, 164)
Me.GroupBox1.TabIndex = 91
Me.GroupBox1.TabStop = False
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.AllowUpdate = False
Me.C1TrueDBGrid1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 16)
Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.HighlightRow
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(516, 145)
Me.C1TrueDBGrid1.TabIndex = 0
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
"er;}Style1{}Normal{}HighlightRow{ForeColor:Aqua;BackColor:Highlight;}Style12{}Od" & _
"dRow{}RecordSelector{AlignImage:Center;}Style13{}Heading{Wrap:True;BackColor:Con" & _
"trol;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}S" & _
"tyle10{AlignHorz:Near;}Style11{}Style14{}Style15{}Style9{}</Data></Styles><Split" & _
"s><C1.Win.C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=" & _
"""17"" ColumnFooterHeight=""17"" MarqueeStyle=""HighlightRow"" RecordSelectorWidth=""16" & _
""" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Height>" & _
"141</Height><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Ed" & _
"itor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle" & _
" parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><G" & _
"roupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style" & _
"2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle paren" & _
"t=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSel" & _
"ectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selecte" & _
"d"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /><ClientRect>0, 0, 512, 141" & _
"</ClientRect><BorderSide>0</BorderSide><BorderStyle>Sunken</BorderStyle></C1.Win" & _
".C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><St" & _
"yle parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style " & _
"parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style p" & _
"arent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style paren" & _
"t=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style pare" & _
"nt=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style p" & _
"arent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyl" & _
"es><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><Def" & _
"aultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 512, 141</ClientArea><P" & _
"rintPageHeaderStyle parent="""" me=""Style14"" /><PrintPageFooterStyle parent="""" me=" & _
"""Style15"" /></Blob>"
'
'SubProductoCat
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(536, 357)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.pnlBotones)
Me.Controls.Add(Me.cmbProducto)
Me.Controls.Add(Me.txtNombre)
Me.Controls.Add(Me.txtClave)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.chkActivo)
Me.Controls.Add(Me.tlbCorteCaja)
Me.Name = "SubProductoCat"
Me.Text = "Catalogo: Sub Productos"
Me.pnlBotones.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Dim clCmp As clsComplejo '= New clsComplejo
Dim guarda As Boolean
Private Sub SubProductoCat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sbIniciaForma()
Me.txtNombre.Enabled = False
End Sub
Private Sub sbIniciaForma()
'Lleno combos y grid
clCmp = New clsComplejo
clCmp.sbLlenaCombo("spListaProducto", Me.cmbProducto)
clCmp.fdtDataSetTabla("spGridSubProductos 0")
Me.C1TrueDBGrid1.SetDataBinding(clCmp.ds, "Tabla")
End Sub
Private Sub cmbProducto_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbProducto.SelectedValueChanged
Try
Dim lsComando As String
Dim clCmpEdo As New clsComplejo
lsComando = "spGridSubProductos " & cmbProducto.SelectedValue
clCmpEdo.fdtDataSetTabla(lsComando)
Me.C1TrueDBGrid1.SetDataBinding(clCmpEdo.ds, "Tabla")
Catch ex As Exception
End Try
End Sub
Private Sub tlbCorteCaja_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbCorteCaja.ButtonClick
Select Case e.Button.Text
Case "Agregar"
Me.txtNombre.Enabled = True
Actulizar()
Case "Actualizar"
Me.txtNombre.Enabled = True
Case "Salir"
Me.Close()
End Select
End Sub
Private Sub Actulizar()
guarda = False
txtClave.Text = " "
txtNombre.Text = " "
txtNombre.Enabled = True
End Sub
Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
sbGuardar()
LIMPIAR()
End Sub
Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
LIMPIAR()
End Sub
Private Sub LIMPIAR()
Me.txtNombre.Enabled = False
txtClave.Text = " "
txtNombre.Text = " "
chkActivo.Checked = False
End Sub
Private Sub sbGuardar()
Dim lsMensaje As String
If MsgBox("¿Desea guardar los cambios?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "MINDS Cliente") = MsgBoxResult.No Then Exit Sub
If fbValidaGrabar() Then
lsMensaje = "Datos guardados correctamente"
sbIniciaForma()
Else
lsMensaje = "Los datos no fueron guardados"
End If
MsgBox(lsMensaje, MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
End Sub
Private Function fbValidaGrabar() As Boolean
Dim liClave As Integer
Dim liClaveProducto As Integer
Dim liActivo As Integer
Dim lsNombre As String
Dim lsSQL As String
On Error GoTo eh
fbValidaGrabar = False
If cmbProducto.SelectedIndex = -1 Then
MsgBox("Producto no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
If Len(txtClave.Text) = 0 Then
liClave = -1
Else
liClave = Val(txtClave.Text)
End If
liClaveProducto = cmbProducto.SelectedValue
liActivo = IIf(chkActivo.Checked, 1, 0)
lsNombre = txtNombre.Text.Trim
If Len(lsNombre.Trim) = 0 Then
MsgBox("Nombre no válido", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Cliente")
Exit Function
End If
lsSQL = ""
lsSQL = lsSQL & "spGrabaCatSubProducto "
lsSQL = lsSQL & liClave & ", "
lsSQL = lsSQL & liClaveProducto & ", 3, '"
lsSQL = lsSQL & lsNombre & "', "
lsSQL = lsSQL & liActivo
clCmp.sbGuardaModifica(lsSQL)
Return True
Exit Function
eh:
Return False
End Function
Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick
Try
With Me.C1TrueDBGrid1
.Col = 0
txtClave.Text = .Columns(0).Value
.Col = 1
clCmp.sbBuscaEnCombo(.Columns(1).Value, Me.cmbProducto)
.Col = 2
txtNombre.Text = .Columns(2).Value
.Col = 3
If .Columns(3).Value = "Activo" Then
chkActivo.Checked = True
Else
chkActivo.Checked = False
End If
End With
Catch ex As Exception
MessageBox.Show("Error SubProductoCat; C1TrueDBGrid1_DoubleClick: " & ex.Message, "MINDS", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtClave.Text <> "" Then
sbAlias()
Else
MessageBox.Show("Debe Selecionar un elemento", "Minds", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub sbAlias()
Dim miAlias As New ActAlias
miAlias.Entra(3, txtClave.Text.Trim)
miAlias.Text = "Alias Sub Productos"
miAlias.piCatalogo = 3
miAlias.Show()
End Sub
End Class

Some files were not shown because too many files have changed in this diff Show More