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="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">8</VersionInfo>
<VersionInfo Name="Release">9</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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> <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"
1 VERSIONINFO
FILEVERSION 3,0,8,0
PRODUCTVERSION 3,0,8,0
FILEVERSION 3,0,9,0
PRODUCTVERSION 3,0,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "3.0.8.0\0"
VALUE "ProductVersion", "3.0.9.0\0"
END
END
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 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
RemoteUpdatesOptions = []
Fields = <
@ -469,7 +495,7 @@ inherited DataModuleAgentes: TDataModuleAgentes
Name = 'ID_AGENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
Value = 4
ParamType = daptInput
end>
MasterMappingMode = mmParams

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

@ -481,6 +481,18 @@ inherited DataModuleClientes: TDataModuleClientes
Lookup = False
LookupCache = False
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
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger

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

@ -389,6 +389,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
Lookup = False
LookupCache = False
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
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datInteger

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

@ -4971,9 +4971,9 @@ object srvContactos: TsrvContactos
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="Contactos" Left="223' +
',77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left=' +
'"0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" Left="4' +
'79,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
',77" Top="0,00" />'#13#10' <Entity Name="DatosBancarios" Left="479,' +
'77" Top="0,00" />'#13#10' <Entity Name="ContactosCategorias" Left="' +
'0,00" Top="26,50" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object bpContactos: TDABusinessProcessor
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>
</Delphi.Personality>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
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
Width = 876
Height = 570
ActivePage = pagDescuentos
ExplicitWidth = 876
ExplicitHeight = 570
inherited pagGeneral: TTabSheet
@ -202,6 +203,15 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 345
Width = 345
end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 557
Top = 315
Properties.Prefix = 'mailto:'
ExplicitLeft = 557
ExplicitTop = 315
ExplicitWidth = 74
Width = 74
end
inherited eTlfParticular: TcxDBTextEdit
Left = 557
Top = 57
@ -210,14 +220,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 103
Width = 103
end
inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 557
Top = 315
ExplicitLeft = 557
ExplicitTop = 315
ExplicitWidth = 74
Width = 74
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 557
Top = 30
@ -308,22 +310,22 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 868
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 221
Width = 221
ExplicitWidth = 337
Width = 337
end
inherited eSucursal: TcxDBTextEdit
Left = 534
ExplicitLeft = 534
ExplicitWidth = 208
Width = 208
ExplicitWidth = 312
Width = 312
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 388
Width = 388
ExplicitWidth = 608
Width = 608
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 509
Width = 509
ExplicitWidth = 729
Width = 729
end
end
end
@ -352,66 +354,76 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 868
inherited Label1: TLabel
Left = 482
Left = 536
Top = 30
Width = 279
Caption =
'Puede indicar el d'#237'a de mes que el cliente desea realizar el pag' +
'o de sus recibos.'
ExplicitLeft = 482
ExplicitLeft = 536
ExplicitTop = 30
ExplicitWidth = 279
end
inherited eAgente: TcxDBLookupComboBox
Top = 162
ExplicitTop = 162
ExplicitWidth = 197
Width = 197
ExplicitWidth = 354
Width = 354
end
inherited eDiasVencimiento: TcxDBSpinEdit
Left = 611
inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 665
Top = 62
ExplicitLeft = 611
ExplicitLeft = 665
ExplicitTop = 62
ExplicitWidth = 160
Width = 160
end
inherited cbRegimenIVA: TcxDBComboBox
Top = 30
ExplicitTop = 30
ExplicitWidth = 121
Width = 121
ExplicitWidth = 354
Width = 354
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
ExplicitWidth = 354
Width = 354
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
ExplicitTop = 57
ExplicitWidth = 121
Width = 121
ExplicitWidth = 216
Width = 216
end
inherited bFormasPago: TButton
Left = 322
Left = 376
Top = 57
ExplicitLeft = 322
ExplicitLeft = 376
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 121
Width = 121
ExplicitWidth = 216
Width = 216
end
inherited bTiposIVA: TButton
Left = 322
Left = 376
Top = 84
ExplicitLeft = 322
ExplicitLeft = 376
ExplicitTop = 84
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 dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
@ -493,12 +505,12 @@ inherited fEditorCliente: TfEditorCliente
inherited cxGrid: TcxGrid
Width = 868
Height = 517
ExplicitWidth = 648
ExplicitHeight = 437
ExplicitWidth = 868
ExplicitHeight = 517
end
inherited ToolBar1: TToolBar
Width = 868
ExplicitWidth = 648
ExplicitWidth = 868
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end

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

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

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

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

8
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">7</VersionInfo>
<VersionInfo Name="Release">9</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,15 +167,15 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</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="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></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="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 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>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 3,0,7,0
PRODUCTVERSION 3,0,7,0
FILEVERSION 3,0,9,0
PRODUCTVERSION 3,0,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductVersion", "3.0.7.0\0"
VALUE "CompileDate", "martes, 30 de septiembre de 2008 19:31\0"
VALUE "ProductVersion", "3.0.9.0\0"
VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:02\0"
END
END
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
Name = 'IBX'
ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\FACTU' +
'GES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO88' +
'59_1;'
'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\Copia' +
' de FACTUGES(con varios dias de vencimiento).FDB;UserID=sysdba;P' +
'assword=masterkey;Dialect=3;Charset=ISO8859_1;'
Default = True
Tag = 0
end>