Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corregidos errores con los vencimientos de los clientes.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@294 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-10-16 18:07:10 +00:00
parent 5d716410f0
commit 73fc0f45a2
18 changed files with 152 additions and 299 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

215
Database/Script.txt
View File

@ -1,215 +0,0 @@
ALTER TABLE ALBARANES_CLIENTE
ADD ID_ALBARAN_DEV TIPO_ID;
ALTER TABLE ALBARANES_PROVEEDOR
ADD ID_ALBARAN_DEV TIPO_ID;
DROP VIEW V_ALBARANES_CLIENTE;
CREATE VIEW V_ALBARANES_CLIENTE(
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_CLIENTE,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
SITUACION,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO,
FECHA_ENVIO,
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS)
AS
SELECT
ALBARANES_CLIENTE.ID,
ALBARANES_CLIENTE.ID_EMPRESA,
ALBARANES_CLIENTE.ID_CLIENTE,
CLIENTES.NOMBRE,
ALBARANES_CLIENTE.FECHA_ALBARAN,
ALBARANES_CLIENTE.REFERENCIA,
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
ALBARANES_CLIENTE.TIPO,
ALBARANES_CLIENTE.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_CLI_ALB_DEV.REFERENCIA,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_CLIENTE.ID_PEDIDO,
PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
ALBARANES_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
ALBARANES_CLIENTE.CALLE,
ALBARANES_CLIENTE.CODIGO_POSTAL,
ALBARANES_CLIENTE.POBLACION,
ALBARANES_CLIENTE.PROVINCIA,
ALBARANES_CLIENTE.PERSONA_CONTACTO,
ALBARANES_CLIENTE.TELEFONO,
ALBARANES_CLIENTE.IMPORTE_NETO,
ALBARANES_CLIENTE.IMPORTE_PORTE,
ALBARANES_CLIENTE.DESCUENTO,
ALBARANES_CLIENTE.IMPORTE_DESCUENTO,
ALBARANES_CLIENTE.BASE_IMPONIBLE,
ALBARANES_CLIENTE.IVA,
ALBARANES_CLIENTE.IMPORTE_IVA,
ALBARANES_CLIENTE.IMPORTE_TOTAL,
ALBARANES_CLIENTE.OBSERVACIONES,
ALBARANES_CLIENTE.INCIDENCIAS,
ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS,
ALBARANES_CLIENTE.FECHA_ALTA,
ALBARANES_CLIENTE.FECHA_MODIFICACION,
ALBARANES_CLIENTE.USUARIO,
ALBARANES_CLIENTE.ID_FORMA_PAGO,
ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION,
CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_CLIENTE
INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN ALBARANES_CLIENTE ALB_DEV ON (ALB_DEV.ID = ALBARANES_CLIENTE.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_CLIENTE FAC_CLI_ALB_DEV ON (FAC_CLI_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
;
DROP VIEW V_ALBARANES_PROVEEDOR;
CREATE VIEW V_ALBARANES_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
ALBARANES_PROVEEDOR.ID_EMPRESA,
ALBARANES_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE,
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
ALBARANES_PROVEEDOR.TIPO,
ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_PROV_ALB_DEV.REFERENCIA,
ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
ALBARANES_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
ALBARANES_PROVEEDOR.CALLE,
ALBARANES_PROVEEDOR.CODIGO_POSTAL,
ALBARANES_PROVEEDOR.POBLACION,
ALBARANES_PROVEEDOR.PROVINCIA,
ALBARANES_PROVEEDOR.PERSONA_CONTACTO,
ALBARANES_PROVEEDOR.TELEFONO,
ALBARANES_PROVEEDOR.IMPORTE_NETO,
ALBARANES_PROVEEDOR.IMPORTE_PORTE,
ALBARANES_PROVEEDOR.DESCUENTO,
ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO,
ALBARANES_PROVEEDOR.BASE_IMPONIBLE,
ALBARANES_PROVEEDOR.IVA,
ALBARANES_PROVEEDOR.IMPORTE_IVA,
ALBARANES_PROVEEDOR.IMPORTE_TOTAL,
ALBARANES_PROVEEDOR.OBSERVACIONES,
ALBARANES_PROVEEDOR.INCIDENCIAS,
ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS,
ALBARANES_PROVEEDOR.FECHA_ALTA,
ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
LEFT OUTER JOIN ALBARANES_PROVEEDOR ALB_DEV ON (ALB_DEV.ID = ALBARANES_PROVEEDOR.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_PROVEEDOR FAC_PROV_ALB_DEV ON (FAC_PROV_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'))
;

BIN
Source/Base/GUIBase/GUIBase.res
View File

Binary file not shown.

6
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">8</VersionInfo> <VersionInfo Name="Release">9</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.8.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys> <VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys> <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.8.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages> </VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,8,0 FILEVERSION 3,0,9,0
PRODUCTVERSION 3,0,8,0 PRODUCTVERSION 3,0,9,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.8.0\0" VALUE "FileVersion", "3.0.9.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.0.8.0\0" VALUE "ProductVersion", "3.0.9.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

28
Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm
View File

@ -1,4 +1,30 @@
inherited DataModuleAgentes: TDataModuleAgentes inherited DataModuleAgentes: TDataModuleAgentes
inherited DADesigntimeCall1: TDADesigntimeCall
RemoteRequest.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBoolean
end
item
Name = 'User'
ParamType = fIn
DataType = rtString
Value = 'Luis'
end
item
Name = 'Password'
ParamType = fIn
DataType = rtString
Value = '1'
end
item
Name = 'LoginInfo'
ParamType = fOut
DataType = rtUserDefined
UserClassName = 'TRdxLoginInfo'
end>
end
object tbl_Agentes: TDACDSDataTable object tbl_Agentes: TDACDSDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <
@ -469,7 +495,7 @@ inherited DataModuleAgentes: TDataModuleAgentes
Name = 'ID_AGENTE' Name = 'ID_AGENTE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown BlobType = dabtUnknown
Value = '' Value = 4
ParamType = daptInput ParamType = daptInput
end> end>
MasterMappingMode = mmParams MasterMappingMode = mmParams

12
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -481,6 +481,18 @@ inherited DataModuleClientes: TDataModuleClientes
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger

12
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -389,6 +389,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'EMAIL_ADMINISTRACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger DataType = datInteger

6
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -4971,9 +4971,9 @@ object srvContactos: TsrvContactos
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' + 'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
',77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left=' + ',77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="479,' +
'"0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" Left="4' + '77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left="' +
'79,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 '0,00" Top="26,50" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object bpContactos: TDABusinessProcessor object bpContactos: TDABusinessProcessor
Schema = schContactos Schema = schContactos

2
Source/Modulos/Contactos/Views/Contactos_view.bdsproj
View File

@ -223,7 +223,7 @@
<Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>
</Delphi.Personality> </Delphi.Personality>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=519 EurekaLog Version=519
Activate=1 Activate=1

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

92
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -65,6 +65,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 876 Width = 876
Height = 570 Height = 570
ActivePage = pagDescuentos
ExplicitWidth = 876 ExplicitWidth = 876
ExplicitHeight = 570 ExplicitHeight = 570
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -202,6 +203,15 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 345 ExplicitWidth = 345
Width = 345 Width = 345
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 557
Top = 315
Properties.Prefix = 'mailto:'
ExplicitLeft = 557
ExplicitTop = 315
ExplicitWidth = 74
Width = 74
end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 557 Left = 557
Top = 57 Top = 57
@ -210,14 +220,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 103 ExplicitWidth = 103
Width = 103 Width = 103
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 557
Top = 315
ExplicitLeft = 557
ExplicitTop = 315
ExplicitWidth = 74
Width = 74
end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 557 Left = 557
Top = 30 Top = 30
@ -308,22 +310,22 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 868 ExplicitWidth = 868
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 221 ExplicitWidth = 337
Width = 221 Width = 337
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 534 Left = 534
ExplicitLeft = 534 ExplicitLeft = 534
ExplicitWidth = 208 ExplicitWidth = 312
Width = 208 Width = 312
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 388 ExplicitWidth = 608
Width = 388 Width = 608
end end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
ExplicitWidth = 509 ExplicitWidth = 729
Width = 509 Width = 729
end end
end end
end end
@ -352,66 +354,76 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 868 ExplicitWidth = 868
inherited Label1: TLabel inherited Label1: TLabel
Left = 482 Left = 536
Top = 30 Top = 30
Width = 279 Width = 279
Caption = Caption =
'Puede indicar el d'#237'a de mes que el cliente desea realizar el pag' + 'Puede indicar el d'#237'a de mes que el cliente desea realizar el pag' +
'o de sus recibos.' 'o de sus recibos.'
ExplicitLeft = 482 ExplicitLeft = 536
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 279 ExplicitWidth = 279
end end
inherited eAgente: TcxDBLookupComboBox inherited eAgente: TcxDBLookupComboBox
Top = 162 Top = 162
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 197 ExplicitWidth = 354
Width = 197 Width = 354
end end
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 611 Left = 665
Top = 62 Top = 62
ExplicitLeft = 611 ExplicitLeft = 665
ExplicitTop = 62 ExplicitTop = 62
ExplicitWidth = 160
Width = 160
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 121 ExplicitWidth = 354
Width = 121 Width = 354
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 354
Width = 121 Width = 354
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 121 ExplicitWidth = 216
Width = 121 Width = 216
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 322 Left = 376
Top = 57 Top = 57
ExplicitLeft = 322 ExplicitLeft = 376
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 121 ExplicitWidth = 216
Width = 121 Width = 216
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 322 Left = 376
Top = 84 Top = 84
ExplicitLeft = 322 ExplicitLeft = 376
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 665
Top = 89
ExplicitLeft = 665
ExplicitTop = 89
end
inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 665
Top = 116
ExplicitLeft = 665
ExplicitTop = 116
end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem inherited dxLayoutControl1Item2: TdxLayoutItem
@ -493,12 +505,12 @@ inherited fEditorCliente: TfEditorCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 868 Width = 868
Height = 517 Height = 517
ExplicitWidth = 648 ExplicitWidth = 868
ExplicitHeight = 437 ExplicitHeight = 517
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 868 Width = 868
ExplicitWidth = 648 ExplicitWidth = 868
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 62 ExplicitWidth = 62
end end

1
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

45
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -168,6 +168,13 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Top = 301
Properties.Prefix = 'mailto:'
ExplicitTop = 301
ExplicitWidth = 33
Width = 33
end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 460 Left = 460
Top = 30 Top = 30
@ -192,12 +199,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Top = 301
ExplicitTop = 301
ExplicitWidth = 33
Width = 33
end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
@ -257,19 +258,23 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 703 Width = 703
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 703 ExplicitWidth = 703
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 202
Width = 202
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 399 Left = 399
ExplicitLeft = 399 ExplicitLeft = 399
ExplicitWidth = 177 ExplicitWidth = 282
Width = 177 Width = 282
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 242 ExplicitWidth = 443
Width = 242 Width = 443
end end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
ExplicitWidth = 363 ExplicitWidth = 564
Width = 363 Width = 564
end end
end end
end end
@ -308,14 +313,14 @@ inherited fEditorProveedor: TfEditorProveedor
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 121 ExplicitWidth = 320
Width = 121 Width = 320
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 121 ExplicitWidth = 182
Width = 121 Width = 182
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 295 Left = 295
@ -326,8 +331,8 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 121 ExplicitWidth = 182
Width = 121 Width = 182
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 295 Left = 295
@ -340,8 +345,8 @@ inherited fEditorProveedor: TfEditorProveedor
Top = 62 Top = 62
ExplicitLeft = 499 ExplicitLeft = 499
ExplicitTop = 62 ExplicitTop = 62
ExplicitWidth = 73 ExplicitWidth = 182
Width = 73 Width = 182
end end
end end
end end

8
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo> <VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo> <VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo> <VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">7</VersionInfo> <VersionInfo Name="Release">9</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo> <VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo> <VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo> <VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,15 +167,15 @@
<VersionInfoKeys> <VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys> <VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys> <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.7.0</VersionInfoKeys> <VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys> <VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.7.0</VersionInfoKeys> <VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">lunes, 22 de septiembre de 2008 14:11</VersionInfoKeys></VersionInfoKeys> <VersionInfoKeys Name="CompileDate">martes, 30 de septiembre de 2008 19:31</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages> <Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages> </Excluded_Packages>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico" MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 3,0,7,0 FILEVERSION 3,0,9,0
PRODUCTVERSION 3,0,7,0 PRODUCTVERSION 3,0,9,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.7.0\0" VALUE "FileVersion", "3.0.9.0\0"
VALUE "ProductName", "FactuGES Server\0" VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.7.0\0" VALUE "ProductVersion", "3.0.9.0\0"
VALUE "CompileDate", "martes, 30 de septiembre de 2008 19:31\0" VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:02\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.

6
Source/Servidor/uDataModuleServer.dfm
View File

@ -59,9 +59,9 @@ object dmServer: TdmServer
item item
Name = 'IBX' Name = 'IBX'
ConnectionString = ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\FACTU' + 'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\Copia' +
'GES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO88' + ' de FACTUGES(con varios dias de vencimiento).FDB;UserID=sysdba;P' +
'59_1;' 'assword=masterkey;Dialect=3;Charset=ISO8859_1;'
Default = True Default = True
Tag = 0 Tag = 0
end> end>