Diego Ezequiel Guillén
Родитель
969cde3d7a
Коммит
ccd8312aaf
|
|
@ -51,6 +51,7 @@
|
|||
|
||||
# Delphi history and backups
|
||||
__history/
|
||||
Win32/
|
||||
*.~*
|
||||
|
||||
# Castalia statistics file
|
||||
|
|
|
|||
|
|
@ -0,0 +1,5 @@
|
|||
object dm: Tdm
|
||||
OldCreateOrder = False
|
||||
Height = 150
|
||||
Width = 215
|
||||
end
|
||||
3404
HasarUnit.pas
3404
HasarUnit.pas
Разница между файлами не показана из-за своего большого размера
Загрузить разницу
|
|
@ -3,7 +3,7 @@ program Project1;
|
|||
uses
|
||||
Vcl.Forms,
|
||||
Unit1 in 'Unit1.pas' {Form1},
|
||||
HasarUnit in 'HasarUnit.pas';
|
||||
HasarUnit in 'HasarUnit.pas' {dm: TDataModule};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
@ -11,5 +11,6 @@ begin
|
|||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.CreateForm(Tdm, dm);
|
||||
Application.Run;
|
||||
end.
|
||||
|
|
|
|||
104
Project1.dproj
104
Project1.dproj
|
|
@ -87,7 +87,11 @@
|
|||
<Form>Form1</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="HasarUnit.pas"/>
|
||||
<DCCReference Include="HasarUnit.pas">
|
||||
<Form>dm</Form>
|
||||
<FormType>dfm</FormType>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
@ -117,7 +121,7 @@
|
|||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
|
|
@ -134,13 +138,9 @@
|
|||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
|
|
@ -157,21 +157,14 @@
|
|||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList">
|
||||
<Platform Name="OSX32">
|
||||
|
|
@ -180,11 +173,7 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice64">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
|
|
@ -202,19 +191,16 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<RemoteDir>Contents</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
|
|
@ -225,15 +211,12 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
|
|
@ -248,15 +231,12 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
|
|
@ -305,12 +285,7 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements">
|
||||
<Platform Name="iOSDevice64">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
|
|
@ -334,26 +309,20 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
|
|
@ -368,30 +337,24 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
|
|
@ -404,9 +367,6 @@
|
|||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
|
|
@ -421,10 +381,10 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="Android">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
|
|
@ -437,20 +397,14 @@
|
|||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
|
|
@ -465,15 +419,12 @@
|
|||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice64">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSDevice32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
|
|
@ -492,13 +443,14 @@
|
|||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
|
|
|
|||
102
Unit1.dfm
102
Unit1.dfm
|
|
@ -37,8 +37,6 @@ object Form1: TForm1
|
|||
Height = 694
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 729
|
||||
object Descargas: TGroupBox
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -47,8 +45,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'DESCARGAR'
|
||||
TabOrder = 0
|
||||
ExplicitTop = 129
|
||||
ExplicitWidth = 263
|
||||
object ObtRepLog: TButton
|
||||
Left = 2
|
||||
Top = 94
|
||||
|
|
@ -58,7 +54,6 @@ object Form1: TForm1
|
|||
Caption = 'LOG INTERNO'
|
||||
TabOrder = 0
|
||||
OnClick = ObtRepLogClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object ObtRepDoc: TButton
|
||||
Left = 2
|
||||
|
|
@ -69,7 +64,6 @@ object Form1: TForm1
|
|||
Caption = 'REPORTE DOCUMENTOS'
|
||||
TabOrder = 1
|
||||
OnClick = ObtRepDocClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object ObtRepAudit: TButton
|
||||
Left = 2
|
||||
|
|
@ -80,7 +74,6 @@ object Form1: TForm1
|
|||
Caption = 'CTD (Cinta testigo digital)'
|
||||
TabOrder = 2
|
||||
OnClick = ObtRepAuditClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object ObtRepElectr: TButton
|
||||
Left = 2
|
||||
|
|
@ -91,7 +84,6 @@ object Form1: TForm1
|
|||
Caption = 'REPORTES ELECTRONICOS'
|
||||
TabOrder = 3
|
||||
OnClick = ObtRepElectrClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
end
|
||||
object Miscel: TGroupBox
|
||||
|
|
@ -102,8 +94,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'Miscel'#225'neas'
|
||||
TabOrder = 1
|
||||
ExplicitTop = 250
|
||||
ExplicitWidth = 263
|
||||
object Reimpr: TButton
|
||||
Left = 2
|
||||
Top = 166
|
||||
|
|
@ -113,7 +103,6 @@ object Form1: TForm1
|
|||
Caption = 'REIMPRESION COMPROBANTE'
|
||||
TabOrder = 0
|
||||
OnClick = ReimprClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object DocxMail: TButton
|
||||
Left = 2
|
||||
|
|
@ -124,7 +113,6 @@ object Form1: TForm1
|
|||
Caption = 'ENVIAR COMPROBANTE POR CORREO ELECTR.'
|
||||
TabOrder = 1
|
||||
OnClick = DocxMailClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object BorrarLogo: TButton
|
||||
Left = 2
|
||||
|
|
@ -135,7 +123,6 @@ object Form1: TForm1
|
|||
Caption = 'ELIMINAR LOGO EMISOR'
|
||||
TabOrder = 2
|
||||
OnClick = BorrarLogoClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CopiarDoc: TButton
|
||||
Left = 2
|
||||
|
|
@ -146,7 +133,6 @@ object Form1: TForm1
|
|||
Caption = 'COPIAR COMPROBANTE'
|
||||
TabOrder = 3
|
||||
OnClick = CopiarDocClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CargaLogo: TButton
|
||||
Left = 2
|
||||
|
|
@ -157,7 +143,6 @@ object Form1: TForm1
|
|||
Caption = 'CARGAR LOGO EMISOR'
|
||||
TabOrder = 4
|
||||
OnClick = CargaLogoClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object AvanzPap: TButton
|
||||
Left = 2
|
||||
|
|
@ -168,7 +153,6 @@ object Form1: TForm1
|
|||
Caption = 'AVANZAR PAPEL'
|
||||
TabOrder = 5
|
||||
OnClick = AvanzPapClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object AbrirCaj: TButton
|
||||
Left = 2
|
||||
|
|
@ -179,7 +163,6 @@ object Form1: TForm1
|
|||
Caption = 'ABRIR CAJON DE DINERO'
|
||||
TabOrder = 6
|
||||
OnClick = AbrirCajClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
end
|
||||
object Emisor: TGroupBox
|
||||
|
|
@ -190,8 +173,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'Modificar datos emisor'
|
||||
TabOrder = 2
|
||||
ExplicitTop = 443
|
||||
ExplicitWidth = 263
|
||||
object ModifIIBB: TButton
|
||||
Left = 2
|
||||
Top = 65
|
||||
|
|
@ -201,7 +182,6 @@ object Form1: TForm1
|
|||
Caption = 'INSCRIP. INGRESOS BRUTOS'
|
||||
TabOrder = 0
|
||||
OnClick = ModifIIBBClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object ModifIniActiv: TButton
|
||||
Left = 2
|
||||
|
|
@ -212,7 +192,6 @@ object Form1: TForm1
|
|||
Caption = 'FECHA INICIO ACTIVIDADES'
|
||||
TabOrder = 1
|
||||
OnClick = ModifIniActivClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object ModifCateg: TButton
|
||||
Left = 2
|
||||
|
|
@ -223,7 +202,6 @@ object Form1: TForm1
|
|||
Caption = 'RESPONSABILIDAD IVA'
|
||||
TabOrder = 2
|
||||
OnClick = ModifCategClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
end
|
||||
object CFG: TGroupBox
|
||||
|
|
@ -234,8 +212,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'Configurar'
|
||||
TabOrder = 3
|
||||
ExplicitTop = 535
|
||||
ExplicitWidth = 263
|
||||
object CfgBaudios: TButton
|
||||
Left = 2
|
||||
Top = 166
|
||||
|
|
@ -245,7 +221,6 @@ object Form1: TForm1
|
|||
Caption = 'BAUDIOS SERIE RS-232'
|
||||
TabOrder = 0
|
||||
OnClick = CfgBaudiosClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CFgZona: TButton
|
||||
Left = 2
|
||||
|
|
@ -256,7 +231,6 @@ object Form1: TForm1
|
|||
Caption = 'ZONAS DE LINEAS DE USUARIO'
|
||||
TabOrder = 1
|
||||
OnClick = CFgZonaClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CfgZBorr: TButton
|
||||
Left = 2
|
||||
|
|
@ -267,7 +241,6 @@ object Form1: TForm1
|
|||
Caption = 'LIMITE BORRADO DE '#39'Z'#39
|
||||
TabOrder = 2
|
||||
OnClick = CfgZBorrClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CfgServCorreo: TButton
|
||||
Left = 2
|
||||
|
|
@ -278,7 +251,6 @@ object Form1: TForm1
|
|||
Caption = 'SERVIDOR CORREO ELECTRONICO'
|
||||
TabOrder = 3
|
||||
OnClick = CfgServCorreoClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CfgRed: TButton
|
||||
Left = 2
|
||||
|
|
@ -289,7 +261,6 @@ object Form1: TForm1
|
|||
Caption = 'CONECTIVIDAD EN RED'
|
||||
TabOrder = 4
|
||||
OnClick = CfgRedClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CfgImprFis: TButton
|
||||
Left = 2
|
||||
|
|
@ -300,7 +271,6 @@ object Form1: TForm1
|
|||
Caption = 'IMPRESORA FISCAL COMPORTAMIENTO'
|
||||
TabOrder = 5
|
||||
OnClick = CfgImprFisClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
object CfgFyh: TButton
|
||||
Left = 2
|
||||
|
|
@ -311,7 +281,6 @@ object Form1: TForm1
|
|||
Caption = 'FECHA Y HORA'
|
||||
TabOrder = 6
|
||||
OnClick = CfgFyhClick
|
||||
ExplicitWidth = 259
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
@ -322,8 +291,6 @@ object Form1: TForm1
|
|||
Height = 694
|
||||
Align = alRight
|
||||
TabOrder = 1
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 729
|
||||
object AcumCierres: TGroupBox
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -332,9 +299,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'Acumulados y Cierres'
|
||||
TabOrder = 0
|
||||
ExplicitLeft = -48
|
||||
ExplicitTop = 6
|
||||
ExplicitWidth = 257
|
||||
object Audit: TButton
|
||||
Left = 2
|
||||
Top = 148
|
||||
|
|
@ -344,7 +308,6 @@ object Form1: TForm1
|
|||
Caption = 'AUDITORIA POR FECHAS'
|
||||
TabOrder = 0
|
||||
OnClick = AuditClick
|
||||
ExplicitWidth = 253
|
||||
end
|
||||
object CierreZ: TButton
|
||||
Left = 2
|
||||
|
|
@ -355,7 +318,6 @@ object Form1: TForm1
|
|||
Caption = 'INFORME DIARIO DE CIERRE '#39'Z'#39
|
||||
TabOrder = 1
|
||||
OnClick = CierreZClick
|
||||
ExplicitWidth = 253
|
||||
end
|
||||
object Equis: TButton
|
||||
Left = 2
|
||||
|
|
@ -366,7 +328,6 @@ object Form1: TForm1
|
|||
Caption = 'DETALLE DE VENTAS '#39'X'#39
|
||||
TabOrder = 2
|
||||
OnClick = EquisClick
|
||||
ExplicitWidth = 253
|
||||
end
|
||||
object ConsCierreZ: TButton
|
||||
Left = 2
|
||||
|
|
@ -377,7 +338,6 @@ object Form1: TForm1
|
|||
Caption = 'CONSULTA ACUMULADOS CIERRE '#39'Z'#39
|
||||
TabOrder = 3
|
||||
OnClick = ConsCierreZClick
|
||||
ExplicitWidth = 253
|
||||
end
|
||||
object ConsAcumMemoria: TButton
|
||||
Left = 2
|
||||
|
|
@ -388,7 +348,6 @@ object Form1: TForm1
|
|||
Caption = 'CONSULTA ACUMULADOS MEMORIA DE TRABAJO'
|
||||
TabOrder = 4
|
||||
OnClick = ConsAcumMemoriaClick
|
||||
ExplicitWidth = 253
|
||||
end
|
||||
object ConsAcumComprob: TButton
|
||||
Left = 2
|
||||
|
|
@ -399,7 +358,6 @@ object Form1: TForm1
|
|||
Caption = 'CONSULTA ACUMULADOS COMPROBANTE'
|
||||
TabOrder = 5
|
||||
OnClick = ConsAcumComprobClick
|
||||
ExplicitWidth = 253
|
||||
end
|
||||
end
|
||||
object Consultas: TGroupBox
|
||||
|
|
@ -410,9 +368,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'Consultar'
|
||||
TabOrder = 1
|
||||
ExplicitLeft = -17
|
||||
ExplicitTop = 179
|
||||
ExplicitWidth = 226
|
||||
object RangoZ: TButton
|
||||
Left = 2
|
||||
Top = 387
|
||||
|
|
@ -422,7 +377,6 @@ object Form1: TForm1
|
|||
Caption = 'RANGO CIERRES '#39'Z'#39
|
||||
TabOrder = 0
|
||||
OnClick = RangoZClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ObtStImpr: TButton
|
||||
Left = 2
|
||||
|
|
@ -433,7 +387,6 @@ object Form1: TForm1
|
|||
Caption = 'ULTIMO ESTADO IMPRESORA'
|
||||
TabOrder = 1
|
||||
OnClick = ObtStImprClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ObtStFiscal: TButton
|
||||
Left = 2
|
||||
|
|
@ -444,7 +397,6 @@ object Form1: TForm1
|
|||
Caption = 'ULTIMO ESTADO FISCAL'
|
||||
TabOrder = 2
|
||||
OnClick = ObtStFiscalClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsZona: TButton
|
||||
Left = 2
|
||||
|
|
@ -455,7 +407,6 @@ object Form1: TForm1
|
|||
Caption = 'ZONAS DE LINEAS DE USUARIO'
|
||||
TabOrder = 3
|
||||
OnClick = ConsZonaClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ZBorr: TButton
|
||||
Left = 2
|
||||
|
|
@ -466,7 +417,6 @@ object Form1: TForm1
|
|||
Caption = 'LIMITE BORRADO DE '#39'Z'#39
|
||||
TabOrder = 4
|
||||
OnClick = ZBorrClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsModvers: TButton
|
||||
Left = 2
|
||||
|
|
@ -477,7 +427,6 @@ object Form1: TForm1
|
|||
Caption = 'MODELO Y VERSION'
|
||||
TabOrder = 5
|
||||
OnClick = ConsModversClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsError: TButton
|
||||
Left = 2
|
||||
|
|
@ -488,7 +437,6 @@ object Form1: TForm1
|
|||
Caption = 'ULTIMO ERROR'
|
||||
TabOrder = 6
|
||||
OnClick = ConsErrorClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object Subtot: TButton
|
||||
Left = 2
|
||||
|
|
@ -499,7 +447,6 @@ object Form1: TForm1
|
|||
Caption = 'SUBTOTAL'
|
||||
TabOrder = 7
|
||||
OnClick = SubtotClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object FechaHora: TButton
|
||||
Left = 2
|
||||
|
|
@ -510,7 +457,6 @@ object Form1: TForm1
|
|||
Caption = 'FECHA Y HORA'
|
||||
TabOrder = 8
|
||||
OnClick = FechaHoraClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsEstado: TButton
|
||||
Left = 2
|
||||
|
|
@ -521,7 +467,6 @@ object Form1: TForm1
|
|||
Caption = 'ESTADO GENERAL'
|
||||
TabOrder = 9
|
||||
OnClick = ConsEstadoClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsDocAsoc: TButton
|
||||
Left = 2
|
||||
|
|
@ -532,7 +477,6 @@ object Form1: TForm1
|
|||
Caption = 'DOCUMENTOS ASOCIADOS'
|
||||
TabOrder = 10
|
||||
OnClick = ConsDocAsocClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsCorreo: TButton
|
||||
Left = 2
|
||||
|
|
@ -543,7 +487,6 @@ object Form1: TForm1
|
|||
Caption = 'CONFIGURACION SERV. CORREO ELECTR.'
|
||||
TabOrder = 11
|
||||
OnClick = ConsCorreoClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsZetas: TButton
|
||||
Left = 2
|
||||
|
|
@ -554,7 +497,6 @@ object Form1: TForm1
|
|||
Caption = 'CAPACIDAD ZETAS'
|
||||
TabOrder = 12
|
||||
OnClick = ConsZetasClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object Capac: TButton
|
||||
Left = 2
|
||||
|
|
@ -565,7 +507,6 @@ object Form1: TForm1
|
|||
Caption = 'CAPACIDADES IMPRESORA FISCAL'
|
||||
TabOrder = 13
|
||||
OnClick = CapacClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object DatosIni: TButton
|
||||
Left = 2
|
||||
|
|
@ -576,7 +517,6 @@ object Form1: TForm1
|
|||
Caption = 'DATOS INICIALIZACION'
|
||||
TabOrder = 14
|
||||
OnClick = DatosIniClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
object ConsCfgRed: TButton
|
||||
Left = 2
|
||||
|
|
@ -587,7 +527,6 @@ object Form1: TForm1
|
|||
Caption = 'CONFIGURACION RED'
|
||||
TabOrder = 15
|
||||
OnClick = ConsCfgRedClick
|
||||
ExplicitWidth = 222
|
||||
end
|
||||
end
|
||||
object Protocolos: TGroupBox
|
||||
|
|
@ -598,9 +537,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'Vinculaci'#243'n'
|
||||
TabOrder = 2
|
||||
ExplicitLeft = -34
|
||||
ExplicitTop = 599
|
||||
ExplicitWidth = 235
|
||||
object Salir: TButton
|
||||
Left = 2
|
||||
Top = 78
|
||||
|
|
@ -610,7 +546,6 @@ object Form1: TForm1
|
|||
Caption = 'SALIR DEL PROGRAMA'
|
||||
TabOrder = 0
|
||||
OnClick = SalirClick
|
||||
ExplicitWidth = 231
|
||||
end
|
||||
object Protocolo: TButton
|
||||
Left = 2
|
||||
|
|
@ -621,7 +556,6 @@ object Form1: TForm1
|
|||
Caption = 'VERIFICAR CONEXION A IMPRESORA FISCAL'
|
||||
TabOrder = 1
|
||||
OnClick = ProtocoloClick
|
||||
ExplicitWidth = 231
|
||||
end
|
||||
object Cancel: TButton
|
||||
Left = 2
|
||||
|
|
@ -632,7 +566,6 @@ object Form1: TForm1
|
|||
Caption = 'CANCELAR COMPROBANTE'
|
||||
TabOrder = 2
|
||||
OnClick = CancelClick
|
||||
ExplicitWidth = 231
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
@ -643,10 +576,6 @@ object Form1: TForm1
|
|||
Height = 694
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitLeft = 268
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 241
|
||||
ExplicitHeight = 721
|
||||
object DNFH: TGroupBox
|
||||
Left = 1
|
||||
Top = 1
|
||||
|
|
@ -655,9 +584,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'DNFH'
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 3
|
||||
ExplicitWidth = 130
|
||||
object Generico: TButton
|
||||
Left = 2
|
||||
Top = 143
|
||||
|
|
@ -667,7 +593,6 @@ object Form1: TForm1
|
|||
Caption = 'DOCUMENTO GENERICO'
|
||||
TabOrder = 0
|
||||
OnClick = GenericoClick
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
object PRESUP: TButton
|
||||
Left = 2
|
||||
|
|
@ -678,7 +603,6 @@ object Form1: TForm1
|
|||
Caption = 'PRESUPUESTO '#39'X'#39
|
||||
TabOrder = 1
|
||||
OnClick = PRESUPClick
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
object DONA: TButton
|
||||
Left = 2
|
||||
|
|
@ -689,7 +613,6 @@ object Form1: TForm1
|
|||
Caption = 'DONACION'
|
||||
TabOrder = 2
|
||||
OnClick = DONAClick
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
object RBOX: TButton
|
||||
Left = 2
|
||||
|
|
@ -700,7 +623,6 @@ object Form1: TForm1
|
|||
Caption = 'RECIBO '#39'X'#39
|
||||
TabOrder = 3
|
||||
OnClick = RBOXClick
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
object RTOX: TButton
|
||||
Left = 2
|
||||
|
|
@ -711,7 +633,6 @@ object Form1: TForm1
|
|||
Caption = 'REMITO '#39'X'#39
|
||||
TabOrder = 4
|
||||
OnClick = RTOXClick
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
object RTOR: TButton
|
||||
Left = 2
|
||||
|
|
@ -722,7 +643,6 @@ object Form1: TForm1
|
|||
Caption = 'REMITO '#39'R'#39
|
||||
TabOrder = 5
|
||||
OnClick = RTORClick
|
||||
ExplicitWidth = 126
|
||||
end
|
||||
end
|
||||
object DF: TGroupBox
|
||||
|
|
@ -733,9 +653,6 @@ object Form1: TForm1
|
|||
Align = alTop
|
||||
Caption = 'DF (Documentos Fiscales)'
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 179
|
||||
ExplicitWidth = 155
|
||||
object Patron: TButton
|
||||
Left = 2
|
||||
Top = 470
|
||||
|
|
@ -745,7 +662,6 @@ object Form1: TForm1
|
|||
Caption = '--- DOCUMENTO PATRON ---'
|
||||
TabOrder = 0
|
||||
OnClick = PatronClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TiqueNC: TButton
|
||||
Left = 2
|
||||
|
|
@ -756,7 +672,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NC CONS. FINAL'
|
||||
TabOrder = 1
|
||||
OnClick = TiqueNCClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object Tique: TButton
|
||||
Left = 2
|
||||
|
|
@ -767,7 +682,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE CONS. FINAL'
|
||||
TabOrder = 2
|
||||
OnClick = TiqueClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TRM: TButton
|
||||
Left = 2
|
||||
|
|
@ -778,7 +692,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE RECIBO '#39'M'#39
|
||||
TabOrder = 3
|
||||
OnClick = TRMClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TRC: TButton
|
||||
Left = 2
|
||||
|
|
@ -789,7 +702,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE RECIBO '#39'C'#39
|
||||
TabOrder = 4
|
||||
OnClick = TRCClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TRB: TButton
|
||||
Left = 2
|
||||
|
|
@ -800,7 +712,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE RECIBO '#39'B'#39
|
||||
TabOrder = 5
|
||||
OnClick = TRBClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TRA: TButton
|
||||
Left = 2
|
||||
|
|
@ -811,7 +722,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE RECIBO '#39'A'#39
|
||||
TabOrder = 6
|
||||
OnClick = TRAClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNCM: TButton
|
||||
Left = 2
|
||||
|
|
@ -822,7 +732,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE CREDITO '#39'M'#39
|
||||
TabOrder = 7
|
||||
OnClick = TNCMClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object NCC: TButton
|
||||
Left = 2
|
||||
|
|
@ -833,7 +742,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE CREDITO '#39'C'#39
|
||||
TabOrder = 8
|
||||
OnClick = NCCClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNCB: TButton
|
||||
Left = 2
|
||||
|
|
@ -844,7 +752,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE CREDITO '#39'B'#39
|
||||
TabOrder = 9
|
||||
OnClick = TNCBClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNCA: TButton
|
||||
Left = 2
|
||||
|
|
@ -855,7 +762,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE CREDITO '#39'A'#39
|
||||
TabOrder = 10
|
||||
OnClick = TNCAClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNDM: TButton
|
||||
Left = 2
|
||||
|
|
@ -866,7 +772,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE DEBITO '#39'M'#39
|
||||
TabOrder = 11
|
||||
OnClick = TNDMClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNDC: TButton
|
||||
Left = 2
|
||||
|
|
@ -877,7 +782,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE DEBITO '#39'C'#39
|
||||
TabOrder = 12
|
||||
OnClick = TNDCClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNDB: TButton
|
||||
Left = 2
|
||||
|
|
@ -888,7 +792,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE DEBITO '#39'B'#39
|
||||
TabOrder = 13
|
||||
OnClick = TNDBClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TNDA: TButton
|
||||
Left = 2
|
||||
|
|
@ -899,7 +802,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE NOTA DE DEBITO '#39'A'#39
|
||||
TabOrder = 14
|
||||
OnClick = TNDAClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TFM: TButton
|
||||
Left = 2
|
||||
|
|
@ -910,7 +812,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE FACTURA '#39'M'#39
|
||||
TabOrder = 15
|
||||
OnClick = TFMClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TFC: TButton
|
||||
Left = 2
|
||||
|
|
@ -921,7 +822,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE FACTURA '#39'C'#39
|
||||
TabOrder = 16
|
||||
OnClick = TFCClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TFB: TButton
|
||||
Left = 2
|
||||
|
|
@ -932,7 +832,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE FACTURA '#39'B'#39
|
||||
TabOrder = 17
|
||||
OnClick = TFBClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
object TFA: TButton
|
||||
Left = 2
|
||||
|
|
@ -943,7 +842,6 @@ object Form1: TForm1
|
|||
Caption = 'TIQUE FACTURA '#39'A'#39
|
||||
TabOrder = 18
|
||||
OnClick = TFAClick
|
||||
ExplicitWidth = 151
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
144
Unit1.pas
144
Unit1.pas
|
|
@ -4,7 +4,7 @@ interface
|
|||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, HasarUnit, Vcl.ExtCtrls;
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, HasarUnit;
|
||||
|
||||
type
|
||||
TForm1 = class(TForm)
|
||||
|
|
@ -178,357 +178,357 @@ implementation
|
|||
|
||||
procedure TForm1.AbrirCajClick(Sender: TObject);
|
||||
begin
|
||||
CommandAbrirCaj_Click;
|
||||
dm.CommandAbrirCaj_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.AuditClick(Sender: TObject);
|
||||
begin
|
||||
CommandAudit_Click;
|
||||
dm.CommandAudit_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.AvanzPapClick(Sender: TObject);
|
||||
begin
|
||||
CommandAvanzPap_Click;
|
||||
dm.CommandAvanzPap_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.BorrarLogoClick(Sender: TObject);
|
||||
begin
|
||||
CommandBorrarLogo_Click;
|
||||
dm.CommandBorrarLogo_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CancelClick(Sender: TObject);
|
||||
begin
|
||||
CommandCancel_Click;
|
||||
dm.CommandCancel_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CapacClick(Sender: TObject);
|
||||
begin
|
||||
CommandCapac_Click;
|
||||
dm.CommandCapac_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CargaLogoClick(Sender: TObject);
|
||||
begin
|
||||
CommandCargaLogo_Click;
|
||||
dm.CommandCargaLogo_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CfgBaudiosClick(Sender: TObject);
|
||||
begin
|
||||
CommandCfgBaudios_Click;
|
||||
dm.CommandCfgBaudios_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CfgFyhClick(Sender: TObject);
|
||||
begin
|
||||
CommandCfgFyh_Click;
|
||||
dm.CommandCfgFyh_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CfgImprFisClick(Sender: TObject);
|
||||
begin
|
||||
CommandCfgImprFis_Click;
|
||||
dm.CommandCfgImprFis_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CfgRedClick(Sender: TObject);
|
||||
begin
|
||||
CommandCfgRed_Click;
|
||||
dm.CommandCfgRed_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CfgServCorreoClick(Sender: TObject);
|
||||
begin
|
||||
CommandCfgServCorreo_Click;
|
||||
dm.CommandCfgServCorreo_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CfgZBorrClick(Sender: TObject);
|
||||
begin
|
||||
CommandCfgZBorr_Click;
|
||||
dm.CommandCfgZBorr_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CFgZonaClick(Sender: TObject);
|
||||
begin
|
||||
CommandCFgZona_Click;
|
||||
dm.CommandCFgZona_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CierreZClick(Sender: TObject);
|
||||
begin
|
||||
CommandCierreZ_Click;
|
||||
dm.CommandCierreZ_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsAcumComprobClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsAcumComprob_Click;
|
||||
dm.CommandConsAcumComprob_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsAcumMemoriaClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsAcumMemoria_Click;
|
||||
dm.CommandConsAcumMemoria_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsCfgRedClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsCfgRed_Click;
|
||||
dm.CommandConsCfgRed_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsCierreZClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsCierreZ_Click;
|
||||
dm.CommandConsCierreZ_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsCorreoClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsCorreo_Click;
|
||||
dm.CommandConsCorreo_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsDocAsocClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsDocAsoc_Click;
|
||||
dm.CommandConsDocAsoc_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsErrorClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsError_Click;
|
||||
dm.CommandConsError_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsEstadoClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsEstado_Click;
|
||||
dm.CommandConsEstado_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsModversClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsModvers_Click;
|
||||
dm.CommandConsModvers_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsZetasClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsZetas_Click;
|
||||
dm.CommandConsZetas_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ConsZonaClick(Sender: TObject);
|
||||
begin
|
||||
CommandConsZona_Click;
|
||||
dm.CommandConsZona_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.CopiarDocClick(Sender: TObject);
|
||||
begin
|
||||
CommandCopiarDoc_Click;
|
||||
dm.CommandCopiarDoc_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.DatosIniClick(Sender: TObject);
|
||||
begin
|
||||
CommandDatosIni_Click;
|
||||
dm.CommandDatosIni_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.DocxMailClick(Sender: TObject);
|
||||
begin
|
||||
CommandDocxMail_Click;
|
||||
dm.CommandDocxMail_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.DONAClick(Sender: TObject);
|
||||
begin
|
||||
CommandDONA_Click;
|
||||
dm.CommandDONA_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.EquisClick(Sender: TObject);
|
||||
begin
|
||||
CommandEquis_Click;
|
||||
dm.CommandEquis_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.FechaHoraClick(Sender: TObject);
|
||||
begin
|
||||
CommandFechaHora_Click;
|
||||
dm.CommandFechaHora_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.GenericoClick(Sender: TObject);
|
||||
begin
|
||||
CommandGenerico_Click;
|
||||
dm.CommandGenerico_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ModifCategClick(Sender: TObject);
|
||||
begin
|
||||
CommandModifCateg_Click;
|
||||
dm.CommandModifCateg_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ModifIIBBClick(Sender: TObject);
|
||||
begin
|
||||
CommandModifIIBB_Click;
|
||||
dm.CommandModifIIBB_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ModifIniActivClick(Sender: TObject);
|
||||
begin
|
||||
CommandModifIniActiv_Click;
|
||||
dm.CommandModifIniActiv_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.NCCClick(Sender: TObject);
|
||||
begin
|
||||
//CommandNCC_Click;
|
||||
//dm.CommandNCC_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ObtRepAuditClick(Sender: TObject);
|
||||
begin
|
||||
CommandObtRepAudit_Click;
|
||||
dm.CommandObtRepAudit_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ObtRepDocClick(Sender: TObject);
|
||||
begin
|
||||
CommandObtRepDoc_Click;
|
||||
dm.CommandObtRepDoc_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ObtRepElectrClick(Sender: TObject);
|
||||
begin
|
||||
CommandObtRepElectr_Click;
|
||||
dm.CommandObtRepElectr_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ObtRepLogClick(Sender: TObject);
|
||||
begin
|
||||
CommandObtRepLog_Click;
|
||||
dm.CommandObtRepLog_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ObtStFiscalClick(Sender: TObject);
|
||||
begin
|
||||
CommandObtStFiscal_Click;
|
||||
dm.CommandObtStFiscal_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ObtStImprClick(Sender: TObject);
|
||||
begin
|
||||
CommandObtStImpr_Click;
|
||||
dm.CommandObtStImpr_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.PatronClick(Sender: TObject);
|
||||
begin
|
||||
CommandPatron_Click;
|
||||
dm.CommandPatron_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.PRESUPClick(Sender: TObject);
|
||||
begin
|
||||
CommandPRESUP_Click;
|
||||
dm.CommandPRESUP_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ProtocoloClick(Sender: TObject);
|
||||
begin
|
||||
CommandProtocolo_Click;
|
||||
dm.CommandProtocolo_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.RangoZClick(Sender: TObject);
|
||||
begin
|
||||
CommandRangoZ_Click;
|
||||
dm.CommandRangoZ_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.RBOXClick(Sender: TObject);
|
||||
begin
|
||||
CommandRBOX_Click;
|
||||
dm.CommandRBOX_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ReimprClick(Sender: TObject);
|
||||
begin
|
||||
CommandReimpr_Click;
|
||||
dm.CommandReimpr_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.RTORClick(Sender: TObject);
|
||||
begin
|
||||
CommandRTOR_Click;
|
||||
dm.CommandRTOR_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.RTOXClick(Sender: TObject);
|
||||
begin
|
||||
CommandRTOX_Click;
|
||||
dm.CommandRTOX_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.SalirClick(Sender: TObject);
|
||||
begin
|
||||
CommandSalir_Click;
|
||||
dm.CommandSalir_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.SubtotClick(Sender: TObject);
|
||||
begin
|
||||
CommandSubtot_Click;
|
||||
dm.CommandSubtot_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TFAClick(Sender: TObject);
|
||||
begin
|
||||
CommandTFA_Click;
|
||||
dm.CommandTFA_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TFBClick(Sender: TObject);
|
||||
begin
|
||||
CommandTFB_Click;
|
||||
dm.CommandTFB_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TFCClick(Sender: TObject);
|
||||
begin
|
||||
CommandTFC_Click;
|
||||
dm.CommandTFC_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TFMClick(Sender: TObject);
|
||||
begin
|
||||
CommandTFM_Click;
|
||||
dm.CommandTFM_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TiqueClick(Sender: TObject);
|
||||
begin
|
||||
CommandTique_Click;
|
||||
dm.CommandTique_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TiqueNCClick(Sender: TObject);
|
||||
begin
|
||||
CommandTiqueNC_Click;
|
||||
dm.CommandTiqueNC_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNCAClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNCA_Click;
|
||||
dm.CommandTNCA_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNCBClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNCB_Click;
|
||||
dm.CommandTNCB_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNCMClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNCM_Click;
|
||||
dm.CommandTNCM_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNDAClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNDA_Click;
|
||||
dm.CommandTNDA_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNDBClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNDB_Click;
|
||||
dm.CommandTNDB_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNDCClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNDC_Click;
|
||||
dm.CommandTNDC_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TNDMClick(Sender: TObject);
|
||||
begin
|
||||
CommandTNDM_Click;
|
||||
dm.CommandTNDM_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TRAClick(Sender: TObject);
|
||||
begin
|
||||
CommandTRA_Click;
|
||||
dm.CommandTRA_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TRBClick(Sender: TObject);
|
||||
begin
|
||||
CommandTRB_Click;
|
||||
dm.CommandTRB_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TRCClick(Sender: TObject);
|
||||
begin
|
||||
CommandTRC_Click;
|
||||
dm.CommandTRC_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.TRMClick(Sender: TObject);
|
||||
begin
|
||||
CommandTRM_Click;
|
||||
dm.CommandTRM_Click;
|
||||
end;
|
||||
|
||||
procedure TForm1.ZBorrClick(Sender: TObject);
|
||||
begin
|
||||
CommandZBorr_Click;
|
||||
dm.CommandZBorr_Click;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
Загрузка…
Ссылка в новой задаче