Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de recibos, para poder elegir un cliente o proveedor con diferentes sucursales, y otros arreglos varios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@210 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-04-24 08:50:04 +00:00
parent 2410031393
commit f57c426653
63 changed files with 5019 additions and 4746 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
Database/scripts/factuges.sql
View File

@ -1224,9 +1224,16 @@ CREATE TABLE RECIBOS_CLIENTE (
USUARIO TIPO_USUARIO,
ID_REMESA TIPO_ID,
ID_RECIBO_COMPENSADO INTEGER,
ID_TIENDA TIPO_ID
ID_TIENDA TIPO_ID,
NIF_CIF VARCHAR(15) COLLATE ES_ES,
NOMBRE VARCHAR(255),
CALLE VARCHAR(255),
POBLACION VARCHAR(255) COLLATE ES_ES,
PROVINCIA VARCHAR(255) COLLATE ES_ES,
CODIGO_POSTAL VARCHAR(10) COLLATE ES_ES
);
CREATE TABLE RECIBOS_PROVEEDOR (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
@ -3348,6 +3355,9 @@ CREATE VIEW V_RECIBOS_CLIENTE(
REFERENCIA,
SITUACION,
ID_FACTURA,
FECHA_FACTURA,
FORMA_PAGO_FACTURA,
IMPORTE_FACTURA,
ID_REMESA,
REFERENCIA_REMESA,
FECHA_EMISION,
@ -3357,26 +3367,24 @@ CREATE VIEW V_RECIBOS_CLIENTE(
IMPORTE,
OTROS_GASTOS,
IMPORTE_TOTAL,
FECHA_FACTURA,
FORMA_PAGO_FACTURA,
IMPORTE_FACTURA,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE_CLIENTE,
NIF_CIF_CLIENTE,
ENTIDAD_CLIENTE,
SUCURSAL_CLIENTE,
DC_CLIENTE,
CUENTA_CLIENTE,
NIF_CIF,
NOMBRE,
CALLE,
POBLACION,
CODIGO_POSTAL,
PROVINCIA,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_TIENDA,
TIENDA,
CALLE_CLIENTE,
POBLACION_CLIENTE,
CODIGO_POSTAL_CLIENTE,
PROVINCIA_CLIENTE)
TIENDA)
AS
SELECT RECIBOS_CLIENTE.ID,
RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO,
@ -3388,26 +3396,31 @@ SELECT RECIBOS_CLIENTE.ID,
ELSE TRIM(RECIBO_COMPENSADO2.SITUACION)
END,
RECIBOS_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.FECHA_FACTURA,
FORMAS_PAGO.DESCRIPCION,
FACTURAS_CLIENTE.IMPORTE_TOTAL,
RECIBOS_CLIENTE.ID_REMESA, REMESAS_CLIENTE.REFERENCIA as REFERENCIA_REMESA,
RECIBOS_CLIENTE.FECHA_EMISION, RECIBOS_CLIENTE.FECHA_VENCIMIENTO, RECIBOS_CLIENTE.DESCRIPCION,
RECIBOS_CLIENTE.OBSERVACIONES, RECIBOS_CLIENTE.IMPORTE, RECIBOS_CLIENTE.OTROS_GASTOS,
COALESCE(RECIBOS_CLIENTE.IMPORTE, 0) + COALESCE(RECIBOS_CLIENTE.OTROS_GASTOS, 0) + COALESCE(V_REC_CLI_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
FACTURAS_CLIENTE.FECHA_FACTURA, FORMAS_PAGO.DESCRIPCION, FACTURAS_CLIENTE.IMPORTE_TOTAL,
RECIBOS_CLIENTE.ID_EMPRESA,
CONTACTOS.ID as ID_CLIENTE, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
RECIBOS_CLIENTE.ID_CLIENTE,
CONTACTOS.NOMBRE,
CONTACTOS_DATOS_BANCO.ENTIDAD,
CONTACTOS_DATOS_BANCO.SUCURSAL,
CONTACTOS_DATOS_BANCO.DC,
CONTACTOS_DATOS_BANCO.CUENTA,
RECIBOS_CLIENTE.NIF_CIF,
RECIBOS_CLIENTE.NOMBRE,
RECIBOS_CLIENTE.CALLE,
RECIBOS_CLIENTE.POBLACION,
RECIBOS_CLIENTE.CODIGO_POSTAL,
RECIBOS_CLIENTE.PROVINCIA,
RECIBOS_CLIENTE.FECHA_ALTA,
RECIBOS_CLIENTE.FECHA_MODIFICACION,
RECIBOS_CLIENTE.USUARIO,
RECIBOS_CLIENTE.ID_TIENDA,
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
CONTACTOS.CALLE,
CONTACTOS.POBLACION,
CONTACTOS.CODIGO_POSTAL,
CONTACTOS.PROVINCIA
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA
FROM RECIBOS_CLIENTE
LEFT JOIN V_REC_CLI_SITUACION
@ -3432,8 +3445,6 @@ LEFT JOIN EMPRESAS_TIENDAS
ON (EMPRESAS_TIENDAS.ID = RECIBOS_CLIENTE.ID_TIENDA)
;
/* View: V_RECIBOS_PROVEEDOR */
CREATE VIEW V_RECIBOS_PROVEEDOR(
ID,

2
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -228,7 +228,7 @@ begin
with TIniFile.Create(Fichero) do
begin
VAR_IDTIENDA := ReadInteger ('VARIABLES', 'IdTienda', 0);
VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', '');
VAR_TIENDA := ReadString ('VARIABLES', 'Tienda', 'Todas');
Free;
end;

BIN
Source/Base/Base.res
View File

Binary file not shown.

5
Source/GUIBase/uViewGrid.dfm
View File

@ -107,7 +107,6 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2
Visible = False
ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 0
@ -155,7 +154,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39443.853303854160000000
ReportDocument.CreationDate = 39559.757468888880000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True
@ -315,7 +314,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.PageFooter.Font.Name = 'Tahoma'
PrinterPage.PageFooter.Font.Style = []
PrinterPage.PageFooter.LeftTitle.Strings = (
'LUIS LEON REPRESENTACIONES S.L.')
'ACANA HOME S.L.')
PrinterPage.PageFooter.RightTitle.Strings = (
'[Page #] de [Total Pages]')
PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET

18
Source/Modulos/Contactos/Data/Contactos_data.dproj
View File

@ -42,30 +42,34 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contactos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Contactos_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Contactos_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Base\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Base\Base.dcp" />
<DCCReference Include="..\..\..\Base\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Base\GUIBase.dcp" />
<DCCReference Include="..\..\..\Base\rtl.dcp" />
<DCCReference Include="..\..\..\Base\vcl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="uDataModuleClientes.pas">
<Form>DataModuleClientes</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uDataModuleContactos.pas">
<Form>DataModuleContactos</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uDataModuleEmpleados.pas">
<Form>DataModuleEmpleados</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uDataModuleProveedores.pas">
<Form>DataModuleProveedores</Form>
<DesignClass>TDAClientDataModule</DesignClass>
</DCCReference>
<None Include="ModelSupport_Contactos_data\default.txaPackage" />
</ItemGroup>

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

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

@ -10,117 +10,6 @@ inherited DataModuleClientes: TDataModuleClientes
inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
end
inherited tbl_DireccionesContacto: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'DireccionesContacto_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'DireccionesContacto_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'DireccionesContacto_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'DireccionesContacto_NOMBRE'
DictionaryEntry = 'DireccionesContacto_NOMBRE'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'DireccionesContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
DictionaryEntry = 'DireccionesContacto_EMAIL'
end
item
Name = 'NOTAS'
DataType = datMemo
DisplayLabel = 'Notas'
DictionaryEntry = 'DireccionesContacto_NOTAS'
end
item
Name = 'PORTE'
DataType = datFloat
DisplayLabel = 'Coste del porte'
DictionaryEntry = 'DireccionesContacto_PORTE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end>
end
inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
end

5
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -230,6 +230,11 @@ inherited DataModuleContactos: TDataModuleContactos
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString

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

@ -4,117 +4,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset
end
inherited tbl_DireccionesContacto: TDAMemDataTable
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'DireccionesContacto_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'DireccionesContacto_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'DireccionesContacto_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'DireccionesContacto_NOMBRE'
DictionaryEntry = 'DireccionesContacto_NOMBRE'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'DireccionesContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
DictionaryEntry = 'DireccionesContacto_EMAIL'
end
item
Name = 'NOTAS'
DataType = datMemo
DisplayLabel = 'Notas'
DictionaryEntry = 'DireccionesContacto_NOTAS'
end
item
Name = 'PORTE'
DataType = datFloat
DisplayLabel = 'Coste del porte'
DictionaryEntry = 'DireccionesContacto_PORTE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end>
end
inherited ds_DireccionesContacto: TDADataSource
DataSet = tbl_DireccionesContacto.Dataset
end

80
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,25 +3,25 @@ unit schContactosClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContacto = '{C590CC84-6AC7-4513-8D77-7258F8EB4535}';
RID_Contactos = '{B90A91FA-E62F-42FC-A978-194A0DD6A4BD}';
RID_GruposCliente = '{3AE7D1E5-3CBB-49C7-A3BC-3E8738099CC0}';
RID_DatosBancarios = '{8788C035-B5A3-44D6-83A4-DFCBD4B62098}';
RID_Clientes = '{363F240A-531E-4C17-924D-FDA78492B088}';
RID_Proveedores = '{47BD57F0-0117-4609-B36E-DE4F8054FE96}';
RID_Empleados = '{18570434-D839-4C1D-907E-F266CA08F759}';
RID_DireccionesContacto = '{0BCC33E0-DDFB-4718-A63F-66326ACDD55C}';
RID_ClientesDescuentos = '{397118E3-6034-4264-B378-A646EE472E09}';
RID_ProcedenciasCliente = '{C452DC28-9F89-43A4-A245-CC9C2DF12458}';
RID_GruposProveedor = '{93523FFC-C70F-4769-98A6-7E07BEBF14BD}';
RID_GruposEmpleado = '{EFC3E233-2239-4D54-A23D-B859102E8AAB}';
RID_Contactos_Refresh = '{DAFCE1F7-9449-4170-BA9A-182DFBD2B440}';
RID_SubCuentasContacto = '{DB13534D-4F66-4F7A-AA47-A3750FB6AF8D}';
RID_Contactos = '{5A1FF834-F42A-4433-B3BB-33E3E6D6F601}';
RID_GruposCliente = '{D6EB0072-26E0-4FF6-BFEE-782EF5A2856C}';
RID_DatosBancarios = '{A2B2C8F0-5C46-4290-927A-C65B8416FB28}';
RID_Clientes = '{3667E3E4-2352-46D7-BFA8-7E57E641EAD5}';
RID_Proveedores = '{E20838F6-54CF-4730-A976-E94FBD45CC84}';
RID_Empleados = '{C579408E-EB03-448C-A3DE-0B03EA808043}';
RID_DireccionesContacto = '{F458A24A-F154-4499-8AA2-17A1CC34F534}';
RID_ClientesDescuentos = '{493FB076-CB1E-4788-B6AE-158C133CF91D}';
RID_ProcedenciasCliente = '{A0EF189E-3FDC-40DE-9A34-C015C5637009}';
RID_GruposProveedor = '{62877BBE-4203-4FB1-A4CD-D7CE999BB8F1}';
RID_GruposEmpleado = '{62BDE0EF-FC09-42FF-A3B7-EEE7EA761B30}';
RID_Contactos_Refresh = '{7A32F22A-ABD7-45D4-AA0A-4B0749ECFB1E}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@ -497,7 +497,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{3C6FCE2A-1F78-4B2A-9DDE-E49783DB3354}']
['{E55102AC-23D4-4B72-B565-F73315E0D02C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -541,7 +541,7 @@ type
end;
{ TSubCuentasContactoDataTableRules }
TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
private
protected
{ Property getters and setters }
@ -592,7 +592,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{F6F2F867-4B4A-412F-B4E6-73621D0BDE0A}']
['{2CF9C4AB-BFF3-4CB4-9B1E-0DE2663541FD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -749,7 +749,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
TContactosDataTableRules = class(TDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -915,7 +915,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{A016FE21-06D0-42D0-8080-FA263A898337}']
['{7CDABC80-C90D-451E-8F0A-B0D1A8C2E302}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -935,7 +935,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -962,7 +962,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{5FA0CE9B-73F8-490C-9238-2AB1C6B97A82}']
['{B8A09F34-4344-44FF-A7CE-FB07B1B9A661}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1024,7 +1024,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1093,7 +1093,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{4B798E26-1BFF-4E85-B130-683F79FF8F6C}']
['{BC86DEF5-59DE-4183-A68A-B8935CA07359}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1334,7 +1334,7 @@ type
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
TClientesDataTableRules = class(TDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1584,7 +1584,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{C2FC4275-80D5-469C-8A86-72F71CDE26FD}']
['{09EE22A7-EAC7-4F06-9FFC-22E2EB719A9C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1825,7 +1825,7 @@ type
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2075,7 +2075,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{7BE5930F-DFEB-42FF-A1B5-1F208AE7E423}']
['{23A1B700-F071-4A40-88BD-7C40365E4E9D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2276,7 +2276,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2494,7 +2494,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{6D18A60E-F841-46E1-BB6F-FA840C83D1CA}']
['{AFF34C4D-7E69-4A19-9DC8-CE5E5A7EFBB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2603,7 +2603,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2721,7 +2721,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{6DD4A9BD-5260-47AC-844C-A83424002EA9}']
['{4C7AD5A0-287B-42A5-B371-D4212207B562}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2759,7 +2759,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -2804,7 +2804,7 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{B3F0B2C9-DE6D-4E46-858B-28517AF13733}']
['{32BA4DA2-A83D-4A86-9E3E-C97C6503B330}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2824,7 +2824,7 @@ type
end;
{ TProcedenciasClienteDataTableRules }
TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
private
protected
{ Property getters and setters }
@ -2851,7 +2851,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{F70EB01C-2913-44ED-A784-1DB30C28CF24}']
['{2350E1EA-E9A9-4715-8A7D-71519BADBDBA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2871,7 +2871,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -2898,7 +2898,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{07795EB8-F353-4AB7-9956-3F1CEB045506}']
['{00148DAB-C258-43EB-8BA5-1F286CE20673}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2918,7 +2918,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -2945,7 +2945,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{7AB51E50-F1FC-460B-B962-2E16691C8DFC}']
['{B63A757E-4A8E-4B8B-AA10-7E8FB2B0B0D9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3078,7 +3078,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);

52
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,24 +9,24 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContactoDelta = '{E8742466-5EA1-44A5-9AE5-DD451737894B}';
RID_ContactosDelta = '{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}';
RID_GruposClienteDelta = '{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}';
RID_DatosBancariosDelta = '{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}';
RID_ClientesDelta = '{61AA99B2-A336-4CF4-B737-F7002CAE26A8}';
RID_ProveedoresDelta = '{9F1B09AD-D218-4081-9531-51647613FE85}';
RID_EmpleadosDelta = '{9E2B39E4-C45A-489E-B91D-8115E398AAE4}';
RID_DireccionesContactoDelta = '{3BEFC631-A199-4025-9A4A-535780FC7FB1}';
RID_ClientesDescuentosDelta = '{6A749D0D-D126-40CC-856C-A1EA0042B3B2}';
RID_ProcedenciasClienteDelta = '{58146E09-69C6-4A3D-9D4E-067BCA148B35}';
RID_GruposProveedorDelta = '{1CFF788E-11F9-4CB6-B76F-8486A316784C}';
RID_GruposEmpleadoDelta = '{3804414A-7B65-4D1B-AAC1-027A1ED130AE}';
RID_Contactos_RefreshDelta = '{D9CC832B-B08B-489C-8562-A79E392C9510}';
RID_SubCuentasContactoDelta = '{FC0194D1-310E-4427-AF7F-AB018733BB57}';
RID_ContactosDelta = '{527CF7E9-2348-451B-8C83-481A8B52C85A}';
RID_GruposClienteDelta = '{F1BA8678-D575-4F78-B4D1-B844BC9FF07B}';
RID_DatosBancariosDelta = '{77E54D4E-287A-4452-8DAA-0B0EE634F103}';
RID_ClientesDelta = '{F71CBCDE-EF92-41DE-89E4-34E6EE84EB04}';
RID_ProveedoresDelta = '{7C15EA57-7716-461B-B224-F0F372D48882}';
RID_EmpleadosDelta = '{6E22A5F7-5C65-4E88-9A80-0B4A0E39AD9C}';
RID_DireccionesContactoDelta = '{F03C2A28-12AF-4253-A847-F21AE6F55C0E}';
RID_ClientesDescuentosDelta = '{0366F4B1-E659-4C51-B654-1D19255C0469}';
RID_ProcedenciasClienteDelta = '{7D90B987-7B65-461C-BB0F-368751B6BFA3}';
RID_GruposProveedorDelta = '{2646C695-AF72-47B1-B49F-3D205AB26AA8}';
RID_GruposEmpleadoDelta = '{98E9C2E7-A746-4DCE-B266-11B82D69A7DA}';
RID_Contactos_RefreshDelta = '{69513B43-5718-4C52-8EC8-9A276ACAE98A}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{E8742466-5EA1-44A5-9AE5-DD451737894B}']
['{FC0194D1-310E-4427-AF7F-AB018733BB57}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -120,7 +120,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}']
['{527CF7E9-2348-451B-8C83-481A8B52C85A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -443,7 +443,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}']
['{F1BA8678-D575-4F78-B4D1-B844BC9FF07B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -489,7 +489,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}']
['{77E54D4E-287A-4452-8DAA-0B0EE634F103}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -619,7 +619,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{61AA99B2-A336-4CF4-B737-F7002CAE26A8}']
['{F71CBCDE-EF92-41DE-89E4-34E6EE84EB04}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1110,7 +1110,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{9F1B09AD-D218-4081-9531-51647613FE85}']
['{7C15EA57-7716-461B-B224-F0F372D48882}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1601,7 +1601,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{9E2B39E4-C45A-489E-B91D-8115E398AAE4}']
['{6E22A5F7-5C65-4E88-9A80-0B4A0E39AD9C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -2024,7 +2024,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{3BEFC631-A199-4025-9A4A-535780FC7FB1}']
['{F03C2A28-12AF-4253-A847-F21AE6F55C0E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2251,7 +2251,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{6A749D0D-D126-40CC-856C-A1EA0042B3B2}']
['{0366F4B1-E659-4C51-B654-1D19255C0469}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2333,7 +2333,7 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{58146E09-69C6-4A3D-9D4E-067BCA148B35}']
['{7D90B987-7B65-461C-BB0F-368751B6BFA3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2379,7 +2379,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{1CFF788E-11F9-4CB6-B76F-8486A316784C}']
['{2646C695-AF72-47B1-B49F-3D205AB26AA8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2425,7 +2425,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{3804414A-7B65-4D1B-AAC1-027A1ED130AE}']
['{98E9C2E7-A746-4DCE-B266-11B82D69A7DA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2471,7 +2471,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{D9CC832B-B08B-489C-8562-A79E392C9510}']
['{69513B43-5718-4C52-8EC8-9A276ACAE98A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;

20
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -117,6 +117,9 @@ type
function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
@ -148,6 +151,7 @@ type
property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -324,6 +328,9 @@ type
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetNOMBRE_COMERCIALValue: String;
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetREGIMEN_IVAValue: String;
procedure SetREGIMEN_IVAValue(const aValue: String);
@ -374,7 +381,8 @@ type
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
end;
@ -721,6 +729,11 @@ begin
result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
end;
function TBizProveedor.GetNOMBRE_COMERCIALValue: String;
begin
result := DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString;
end;
function TBizProveedor.GetREGIMEN_IVAValue: String;
begin
result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
@ -849,6 +862,11 @@ begin
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := Value;
end;
procedure TBizProveedor.SetNOMBRE_COMERCIALValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsString := aValue;
end;
procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;

6
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1180,6 +1180,12 @@ begin
ARecibos.ID_CLIENTE := AFactura.ID_CLIENTE;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
ARecibos.CALLE := AFactura.CALLE;
ARecibos.NIF_CIF := AFactura.NIF_CIF;
ARecibos.POBLACION := AFactura.POBLACION;
ARecibos.PROVINCIA := AFactura.PROVINCIA;
ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then

4
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -141,11 +141,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'NIF_CIF'
@ -256,11 +258,13 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
ServerAutoRefresh = True
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'ID_SUBCUENTA'

8
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasCliente = '{C39C2786-BDB8-49DE-9EAC-91698C9EBFFA}';
RID_FacturasCliente_Detalles = '{263850A9-538B-4EC7-B310-3E4C2EE93339}';
RID_FacturasCliente = '{AE5A4A76-8A04-4005-A949-58C1F079D651}';
RID_FacturasCliente_Detalles = '{A6BF3706-DC34-41F3-8469-835D382D23D8}';
{ Data table names }
nme_FacturasCliente = 'FacturasCliente';
@ -135,7 +135,7 @@ const
type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{DAB1C0BD-33A9-4AFD-B37A-5402F2FAC3A5}']
['{89B45F34-48D2-4E4D-9C03-F1591EA6F05E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -638,7 +638,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{D3CAD64F-1C21-4C1F-9BEE-04D8DAD24072}']
['{6C713963-6140-464C-8BE5-4E547A0336EC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

8
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasClienteDelta = '{46477AC1-BF12-4410-9EA7-3D1C21A049B9}';
RID_FacturasCliente_DetallesDelta = '{64DA04CA-425B-42E0-A86A-4B521E488AA9}';
RID_FacturasClienteDelta = '{E601804E-04A1-4309-8827-23A675659EC2}';
RID_FacturasCliente_DetallesDelta = '{E26FF170-E793-4E14-86D0-6A5FCEAD94EB}';
type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{46477AC1-BF12-4410-9EA7-3D1C21A049B9}']
['{E601804E-04A1-4309-8827-23A675659EC2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -518,7 +518,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{64DA04CA-425B-42E0-A86A-4B521E488AA9}']
['{E26FF170-E793-4E14-86D0-6A5FCEAD94EB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;

6
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -281,11 +281,13 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'NOMBRE_COMERCIAL_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'NIF_CIF'
@ -383,11 +385,13 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
ServerAutoRefresh = True
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
ServerAutoRefresh = True
end
item
Name = 'ID_SUBCUENTA'
@ -1235,6 +1239,7 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_BASE_IMPONIBLE'
@ -1302,6 +1307,7 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datString
Size = 100
DisplayLabel = 'Cliente'
ServerAutoRefresh = True
end
item
Name = 'FacturasCliente_CALLE'

50
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -2,12 +2,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454
Top = 208
Caption = 'Nueva factura de cliente'
ClientHeight = 642
ClientHeight = 662
ClientWidth = 771
Position = poScreenCenter
OnClose = CustomEditorClose
ExplicitWidth = 779
ExplicitHeight = 676
ExplicitHeight = 696
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -70,7 +70,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited pgPaginas: TPageControl
Width = 765
Height = 378
Height = 398
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
@ -85,7 +85,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 0
Top = 0
Width = 757
Height = 350
Height = 370
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -99,13 +99,35 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 757
Height = 350
Height = 370
ExplicitWidth = 757
ExplicitHeight = 350
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159
Width = 159
end
inherited edtFecha: TcxDBDateEdit
ExplicitWidth = 159
Width = 159
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 301
ExplicitHeight = 159
Height = 159
Width = 301
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 78
Width = 78
end
inherited frViewTienda1: TfrViewTienda
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
ExplicitWidth = 399
Width = 399
end
end
end
inherited frViewClienteFactura1: TfrViewClienteFactura
Width = 314
ExplicitWidth = 314
@ -142,13 +164,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 225
Left = 242
DataBinding.DataSource = dsDataTable
ExplicitLeft = 225
ExplicitLeft = 242
end
inherited Button3: TBitBtn
Left = 115
ExplicitLeft = 115
Left = 132
ExplicitLeft = 132
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
@ -162,11 +184,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 350
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
Width = 757
Height = 350
Height = 370
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -242,7 +265,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inherited cxGrid: TcxGrid
Width = 757
Height = 278
Height = 298
ExplicitWidth = 757
ExplicitHeight = 278
end
@ -258,6 +281,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
ExplicitHeight = 350
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 0
@ -299,7 +323,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 623
Top = 643
Width = 771
Panels = <
item
@ -310,7 +334,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 460
Top = 480
Width = 771
Height = 163
Align = alBottom

13
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -59,15 +59,22 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 28
end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
Visible = False
end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'
end
object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF'
Visible = False
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Raz'#243'n'
Caption = 'Raz'#243'n social'
DataBinding.FieldName = 'NOMBRE'
Visible = False
Width = 181
end
object cxGridViewCALLE: TcxGridDBColumn
@ -135,10 +142,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
VisibleForCustomization = False
Width = 54
end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'

44
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -1174,29 +1174,13 @@ begin
ARecibosProveedorController.EliminarTodo(ARecibos);
//Se cambia la lógica para acana, en el caso de elegir una forma de pago sin plazos
//y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento de la factura
if AFormaPago.Plazos.RecordCount < 1 then
begin
ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
ARecibos.ID_EMPRESA := AFactura.ID_EMPRESA;
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - 1';
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
ARecibosProveedorController.Guardar(ARecibos);
end
else
//Vamos a generar todos los recibos necesarios para la factura
//y meter una fecha de vencimiento se generará un recibo con el 100% y fecha de vencimiento
//de la factura, en el caso de elegir una forma de pago con plazos la logica será la misma que en clientes
With AFormaPago.Plazos.DataTable do
begin
i := 1;
First;
while not eof do
begin
repeat
ARecibos := ARecibosProveedorController.Nuevo;
ARecibos.Edit;
ARecibos.ID_FACTURA := AFactura.ID;
@ -1204,13 +1188,27 @@ begin
ARecibos.ID_PROVEEDOR := AFactura.ID_PROVEEDOR;
ARecibos.ID_TIENDA := AFactura.ID_TIENDA;
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
ARecibos.NOMBRE := AFactura.NOMBRE; //Es la razon social de la factura
ARecibos.CALLE := AFactura.CALLE;
ARecibos.NIF_CIF := AFactura.NIF_CIF;
ARecibos.POBLACION := AFactura.POBLACION;
ARecibos.PROVINCIA := AFactura.PROVINCIA;
ARecibos.CODIGO_POSTAL := AFactura.CODIGO_POSTAL;
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
if AFormaPago.Plazos.RecordCount < 1 then
begin
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_VENCIMIENTO;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL;
end
else
begin
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
end;
ARecibosProveedorController.Guardar(ARecibos);
Inc(i);
Next;
end;
until (eof);
end;
//Liberamos

29
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 831
Height = 466
Width = 790
Height = 496
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 831
Height = 466
Width = 790
Height = 496
Align = alClient
ParentBackground = True
TabOrder = 0
@ -19,8 +19,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
831
466)
790
496)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@ -113,7 +113,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 169
end
object bFormasPago: TButton
Left = 324
Left = 296
Top = 138
Width = 132
Height = 23
@ -189,7 +189,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158
end
inline frViewProveedorFactura1: TfrViewProveedorFactura
Left = 484
Left = 456
Top = 30
Width = 312
Height = 260
@ -201,7 +201,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False
TabOrder = 7
ReadOnly = False
ExplicitLeft = 484
ExplicitLeft = 456
ExplicitTop = 30
ExplicitWidth = 312
ExplicitHeight = 260
@ -233,12 +233,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 233
ExplicitLeft = 233
Left = 220
ExplicitLeft = 220
end
inherited Button3: TBitBtn
Left = 117
ExplicitLeft = 117
Left = 104
ExplicitLeft = 104
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 276
@ -315,9 +315,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item3: TdxLayoutItem
Control = frViewProveedorFactura1

BIN
Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dpk
View File

Binary file not shown.

14
Source/Modulos/Recibos de cliente/Controller/RecibosCliente_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{c8b2fb9a-0367-4fd0-b836-4b594c06bcab}</ProjectGuid>
<MainSource>RecibosCliente_controller.dpk</MainSource>
@ -39,17 +40,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Contactos\Views\Base.dcp" />
<DCCReference Include="..\..\Contactos\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Contactos\Views\RecibosCliente_data.dcp" />
<DCCReference Include="..\..\Contactos\Views\RecibosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_data.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
<DCCReference Include="uPagosClienteController.pas" />
<DCCReference Include="uRecibosClienteController.pas" />
<DCCReference Include="uRecibosClienteReportController.pas" />

43
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase,
uPagosClienteController, uClientesController,
uPagosClienteController, uClientesController, uBizDireccionesContacto,
uBizRecibosCliente, uIDataModuleRecibosCliente;
type
@ -70,6 +70,8 @@ type
function ExtraerSeleccionados(ARecibosCliente: IBizRecibosCliente) : IBizRecibosCliente;
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure SetSituacionCobrados(ARecibos : IBizRecibosCliente; WithDeltas: Boolean=False);
@ -140,6 +142,8 @@ type
function ElegirRecibos(ARecibos : IBizRecibosCliente; AMensaje: String; AMultiSelect: Boolean): IBizRecibosCliente;
function ElegirRecibosCompensados(ARecibo : IBizRecibosCliente): Boolean;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
procedure AsignarRemesa(ARecibos : IBizRecibosCliente; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosCliente);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosCliente);
@ -296,6 +300,43 @@ begin
end;
end;
procedure TRecibosClienteController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosCliente);
var
bEnEdicion : Boolean;
begin
if not Assigned(ARecibo) then
raise Exception.Create ('Recibo no asignado (CopiarDireccion)');
if not Assigned(ADireccionEnvio) then
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
if ARecibo.DataTable.Active then
ARecibo.DataTable.Active := True;
if ADireccionEnvio.DataTable.Active then
ADireccionEnvio.DataTable.Active := True;
bEnEdicion := (ARecibo.DataTable.State in dsEditModes);
if not bEnEdicion then
ARecibo.Edit;
ShowHourglassCursor;
ARecibo.Edit;
try
ARecibo.CALLE := ADireccionEnvio.CALLE;
ARecibo.POBLACION := ADireccionEnvio.POBLACION;
ARecibo.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
ARecibo.PROVINCIA := ADireccionEnvio.PROVINCIA;
ARecibo.NIF_CIF := ADireccionEnvio.NIF_CIF;
ARecibo.NOMBRE := ADireccionEnvio.NOMBRE;
if not bEnEdicion then
ARecibo.Post;
finally
HideHourglassCursor;
end;
end;
constructor TRecibosClienteController.Create;
begin
inherited;

202
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm
View File

@ -147,22 +147,28 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
DisplayLabel = 'RecibosCliente_ID_RECIBO_COMPENSADO'
DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
@ -170,6 +176,23 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -223,25 +246,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Alignment = taRightJustify
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@ -256,14 +263,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
@ -288,6 +290,48 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Size = 15
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'RecibosCliente_NIF_CIF'
DictionaryEntry = 'RecibosCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_NOMBRE'
DictionaryEntry = 'RecibosCliente_NOMBRE'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_CALLE'
DictionaryEntry = 'RecibosCliente_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_POBLACION'
DictionaryEntry = 'RecibosCliente_POBLACION'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'RecibosCliente_CODIGO_POSTAL'
DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_PROVINCIA'
DictionaryEntry = 'RecibosCliente_PROVINCIA'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -307,31 +351,17 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
DisplayLabel = 'RecibosCliente_ID_TIENDA'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_ID_TIENDA'
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'RecibosCliente_TIENDA'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_TIENDA'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -380,6 +410,19 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -418,19 +461,9 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
Alignment = taRightJustify
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'ID_EMPRESA'
@ -444,11 +477,8 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
@ -470,6 +500,36 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
DataType = datString
Size = 15
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -491,26 +551,6 @@ inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end>
Params = <>
MasterMappingMode = mmWhere

1274
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1474
Source/Modulos/Recibos de cliente/Model/schRecibosClienteServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

10
Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas
View File

@ -153,13 +153,14 @@ begin
ID_CLIENTE := FCliente.ID;
NOMBRE_CLIENTE := FCliente.NOMBRE;
NIF_CIF_CLIENTE := FCliente.NIF_CIF;
{ CALLE := FCliente.CALLE;
//En el caso de cliente en nombre_comercial solo será para localizar y en el
//caso de elegir la dirección principal del cliente se cogerá el nombre para los datos fiscales
NOMBRE := FCliente.NOMBRE;
NIF_CIF := FCliente.NIF_CIF;
CALLE := FCliente.CALLE;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION;
}
Post;
if bEnEdicion then
@ -243,6 +244,7 @@ begin
OTROS_GASTOS := 0;
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
SITUACION := CTE_PENDIENTE;
//TEMPORAL
ID_TIENDA := AppFactuGES.VAR_IDTIENDA;

106
Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
View File

@ -14,8 +14,18 @@
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Data\FacturasCliente_data.dproj" />
<Projects Include="..\Facturas de cliente\Model\FacturasCliente_model.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
<Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="Controller\RecibosCliente_controller.dproj" />
<Projects Include="Data\RecibosCliente_data.dproj" />
<Projects Include="Model\RecibosCliente_model.dproj" />
@ -181,14 +191,104 @@
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_model">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_model:Clean">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_model:Make">
<MSBuild Projects="..\Facturas de cliente\Model\FacturasCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_controller">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_controller:Clean">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_controller:Make">
<MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_data">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_data:Clean">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_data:Make">
<MSBuild Projects="..\Facturas de cliente\Data\FacturasCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_model">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_model:Clean">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_model:Make">
<MSBuild Projects="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_model">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="" />
</Target>
<Target Name="Contactos_model:Clean">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_model:Make">
<MSBuild Projects="..\Contactos\Model\Contactos_model.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_data">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_data:Clean">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_data:Make">
<MSBuild Projects="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_controller">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_controller:Clean">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_controller:Make">
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_data">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="" />
</Target>
<Target Name="Contactos_data:Clean">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_view">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_view:Clean">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;FacturasCliente_model;FacturasCliente_controller;FacturasCliente_data;Contactos_controller;RecibosProveedor_model;Contactos_model;RecibosProveedor_data;RecibosProveedor_controller;Contactos_data;RecibosProveedor_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FacturasCliente_model:Clean;FacturasCliente_controller:Clean;FacturasCliente_data:Clean;Contactos_controller:Clean;RecibosProveedor_model:Clean;Contactos_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;Contactos_data:Clean;RecibosProveedor_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FacturasCliente_model:Make;FacturasCliente_controller:Make;FacturasCliente_data:Make;Contactos_controller:Make;RecibosProveedor_model:Make;Contactos_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;Contactos_data:Make;RecibosProveedor_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

365
Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -106,10 +106,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
@ -147,20 +143,28 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = 'CALLE_CLIENTE'
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = 'POBLACION_CLIENTE'
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'CODIGO_POSTAL_CLIENTE'
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'PROVINCIA_CLIENTE'
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end>
end>
Name = 'RecibosCliente'
@ -176,22 +180,26 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
@ -199,6 +207,22 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -245,24 +269,9 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@ -277,14 +286,9 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
@ -309,6 +313,42 @@ object srvRecibosCliente: TsrvRecibosCliente
Size = 15
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_NOMBRE'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_POBLACION'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_PROVINCIA'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -328,31 +368,15 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID_TIENDA'
DataType = datInteger
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_ID_TIENDA'
end
item
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_TIENDA'
end>
end
item
@ -586,10 +610,6 @@ object srvRecibosCliente: TsrvRecibosCliente
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
@ -627,20 +647,28 @@ object srvRecibosCliente: TsrvRecibosCliente
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = 'CALLE_CLIENTE'
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = 'POBLACION_CLIENTE'
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'CODIGO_POSTAL_CLIENTE'
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'PROVINCIA_CLIENTE'
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end>
end>
Name = 'RecibosCompensadosCli'
@ -673,6 +701,19 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -711,19 +752,8 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'ID_EMPRESA'
@ -737,11 +767,8 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
@ -763,6 +790,36 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 15
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -784,26 +841,6 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end>
end>
JoinDataTables = <>
@ -910,6 +947,30 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'ID_TIENDA'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'NIF_CIF'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end>
Statements = <
item
@ -919,9 +980,11 @@ object srvRecibosCliente: TsrvRecibosCliente
'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, I' +
'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' +
'DA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :R' +
'EFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OB' +
'SERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10
'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL)' +
#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_FACTURA, :REFE' +
'RENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSER' +
'VACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA, :NO' +
'MBRE, :NIF_CIF, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -991,6 +1054,30 @@ object srvRecibosCliente: TsrvRecibosCliente
Name = 'ID_TIENDA'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'NIF_CIF'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1005,8 +1092,10 @@ object srvRecibosCliente: TsrvRecibosCliente
'EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMI' +
'ENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :OBSER' +
'VACIONES,'#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GAST' +
'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'#10
'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOMB' +
'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' +
'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' +
'TAL = :CODIGO_POSTAL'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1286,7 +1375,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DeleteCommandName = 'Delete_RecibosCliente'
UpdateCommandName = 'Update_RecibosCliente'
ReferencedDataset = 'RecibosCliente'
ProcessorOptions = [poPrepareCommands]
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
@ -1306,12 +1395,14 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_SITUACION'
DataType = datString
Size = 9
DisplayLabel = 'SITUACION'
ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_ID_FACTURA'
@ -1363,6 +1454,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datString
Size = 255
DisplayLabel = 'NOMBRE_CLIENTE'
ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_NIF_CIF_CLIENTE'
@ -1493,6 +1585,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DataType = datCurrency
DisplayLabel = 'IMPORTE_TOTAL'
Alignment = taRightJustify
ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_ID_CLIENTE'
@ -1502,6 +1595,56 @@ object srvRecibosCliente: TsrvRecibosCliente
item
Name = 'RecibosCliente_FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'RecibosCliente_ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'RecibosCliente_NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_CALLE'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_POBLACION'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'RecibosCliente_PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_ID_TIENDA'
DataType = datInteger
ServerAutoRefresh = True
end
item
Name = 'RecibosCliente_TIENDA'
DataType = datString
Size = 255
ServerAutoRefresh = True
end>
Left = 48
Top = 152
@ -1523,7 +1666,7 @@ object srvRecibosCliente: TsrvRecibosCliente
DeleteCommandName = 'Delete_RecibosCompensadosCli'
UpdateCommandName = 'Update_RecibosCompensadosCli'
ReferencedDataset = 'RecibosCompensadosCli'
ProcessorOptions = [poPrepareCommands]
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 152

BIN
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dpk
View File

Binary file not shown.

28
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.dproj
View File

@ -40,19 +40,41 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="uEditorElegirRecibosCliente.pas">
<Form>fEditorElegirRecibosCliente</Form>
<DesignClass>TfEditorElegirRecibosCliente</DesignClass>
@ -73,6 +95,10 @@
<DesignClass>TfEditorRecibosCliente</DesignClass>
</DCCReference>
<DCCReference Include="uRecibosClienteViewRegister.pas" />
<DCCReference Include="uViewClienteRecibo.pas">
<Form>frViewClienteRecibo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewPagosCliente.pas">
<Form>frViewPagosCliente</Form>
<DesignClass>TFrame</DesignClass>

243
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -1,18 +1,18 @@
inherited fEditorReciboCliente: TfEditorReciboCliente
Caption = 'Recibo de cliente'
ClientHeight = 528
ClientWidth = 689
ClientHeight = 562
ClientWidth = 742
OnClose = CustomEditorClose
ExplicitWidth = 697
ExplicitHeight = 562
ExplicitWidth = 750
ExplicitHeight = 596
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 689
Width = 742
Caption = 'Recibo de cliente'
ExplicitWidth = 689
ExplicitWidth = 742
inherited Image1: TImage
Left = 662
Left = 715
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,32 +39,32 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited TBXDock: TTBXDock
Width = 689
ExplicitWidth = 689
Width = 742
ExplicitWidth = 742
inherited tbxMain: TTBXToolbar
ExplicitWidth = 425
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 689
ExplicitWidth = 742
end
end
inherited pgPaginas: TPageControl
Width = 683
Height = 327
Width = 736
Height = 361
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 683
ExplicitHeight = 327
ExplicitWidth = 736
ExplicitHeight = 361
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 675
ExplicitHeight = 299
ExplicitWidth = 728
ExplicitHeight = 333
inline frViewReciboCliente1: TfrViewReciboCliente
Left = 0
Top = 0
Width = 675
Width = 728
Height = 335
Align = alTop
Font.Charset = DEFAULT_CHARSET
@ -75,15 +75,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 675
ExplicitWidth = 728
ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl
Width = 675
Width = 728
Height = 335
ExplicitWidth = 675
ExplicitWidth = 728
ExplicitHeight = 335
DesignSize = (
675
728
335)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 217
@ -104,57 +104,27 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 293
end
inherited eFechaEmision: TcxDBTextEdit
Left = 475
ExplicitLeft = 475
ExplicitWidth = 253
Width = 253
end
inherited eFormaPago: TcxDBTextEdit
Left = 475
ExplicitLeft = 475
Left = 512
ExplicitLeft = 512
ExplicitWidth = 253
Width = 253
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 475
Left = 512
Style.IsFontAssigned = True
ExplicitLeft = 475
ExplicitLeft = 512
ExplicitWidth = 253
Width = 253
end
inherited eNombreCliente: TcxDBTextEdit
Left = 475
ExplicitLeft = 475
Left = 512
ExplicitLeft = 512
ExplicitWidth = 286
Width = 286
end
inherited eNifCif: TcxDBTextEdit
Left = 475
ExplicitLeft = 475
ExplicitWidth = 286
Width = 286
end
inherited eEntidad: TcxDBTextEdit
Left = 475
ExplicitLeft = 475
ExplicitWidth = 84
Width = 84
end
inherited eSucursal: TcxDBTextEdit
Left = 550
ExplicitLeft = 550
ExplicitWidth = 81
Width = 81
end
inherited eDC: TcxDBTextEdit
Left = 599
ExplicitLeft = 599
ExplicitWidth = 37
Width = 37
end
inherited eCuenta: TcxDBTextEdit
Left = 475
ExplicitLeft = 475
Left = 512
ExplicitLeft = 512
ExplicitWidth = 286
Width = 286
end
@ -171,45 +141,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 191
Width = 191
end
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 399
Top = 272
Width = 350
ExplicitLeft = 399
ExplicitTop = 272
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
end
end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 437
Width = 437
@ -225,6 +156,58 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
end
inherited frViewClienteRecibo1: TfrViewClienteRecibo
Left = 436
Width = 350
ExplicitLeft = 436
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
ExplicitWidth = 350
inherited Bevel1: TBevel
Width = 266
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 192
DataBinding.DataSource = frViewReciboCliente1.DADataSource
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
end
end
end
@ -234,8 +217,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewPagosCliente1: TfrViewPagosCliente
Left = 0
Top = 0
Width = 675
Height = 299
Width = 728
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -245,19 +228,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 675
ExplicitHeight = 299
ExplicitWidth = 728
ExplicitHeight = 333
inherited dxLayoutControl1: TdxLayoutControl
Width = 675
Height = 299
ExplicitWidth = 675
ExplicitHeight = 299
Width = 728
Height = 333
ExplicitWidth = 728
ExplicitHeight = 333
end
inherited dxLayoutControl2: TdxLayoutControl
Width = 675
Height = 299
ExplicitWidth = 675
ExplicitHeight = 299
Width = 728
Height = 333
ExplicitWidth = 728
ExplicitHeight = 333
inherited ToolBar1: TToolBar
Width = 666
ExplicitWidth = 666
@ -296,8 +279,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
Left = 0
Top = 0
Width = 675
Height = 299
Width = 728
Height = 333
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -307,13 +290,13 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 675
ExplicitHeight = 299
ExplicitWidth = 728
ExplicitHeight = 333
inherited cxGrid: TcxGrid
Width = 675
Height = 274
ExplicitWidth = 675
ExplicitHeight = 274
Width = 728
Height = 308
ExplicitWidth = 728
ExplicitHeight = 308
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -325,8 +308,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited ToolBar1: TToolBar
Width = 675
ExplicitWidth = 677
Width = 728
ExplicitWidth = 728
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
@ -350,19 +333,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
inherited StatusBar: TJvStatusBar
Top = 509
Width = 689
Top = 543
Width = 742
Panels = <
item
Width = 200
end>
ExplicitTop = 509
ExplicitWidth = 689
ExplicitTop = 543
ExplicitWidth = 742
end
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
Left = 0
Top = 409
Width = 689
Top = 443
Width = 742
Height = 100
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -373,11 +356,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 409
ExplicitWidth = 689
ExplicitTop = 443
ExplicitWidth = 742
inherited dxLayoutControl1: TdxLayoutControl
Width = 689
ExplicitWidth = 689
Width = 742
ExplicitWidth = 742
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged

39
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -73,13 +73,15 @@ type
implementation
uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App;
uses uDialogUtils, schRecibosClienteClient_Intf, uEditorFechaPago, uEditorBase, uFactuGES_App,
uClientesController, uBizDireccionesContacto, uViewClienteRecibo;
{$R *.dfm}
procedure TfEditorReciboCliente.CalcularTotal;
var
ImporteAux: Double;
EnEdicion: Boolean;
begin
ImporteAux := 0;
@ -355,8 +357,37 @@ begin
end;
procedure TfEditorReciboCliente.OnClienteChanged(Sender: TObject);
var
AClientesController : IClientesController;
ADireccion : IBizDireccionesContacto;
begin
FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo.Cliente;
FRecibo.Cliente := frViewReciboCliente1.frViewClienteRecibo1.Cliente;
if not (FRecibo.DataTable.State in dsEditModes) then
FRecibo.DataTable.Edit;
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para el recibo
AClientesController := TClientesController.Create;
try
case FRecibo.Cliente.Direcciones.RecordCount of
0 : //No hay direcciones secundarias asociadas
else ADireccion := AClientesController.ElegirDireccion(FRecibo.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este recibo.');
end;
// Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
if Assigned(ADireccion) then
begin
try
FRecibo.Edit;
FController.CopiarDireccion(ADireccion, FRecibo);
finally
ADireccion := NIL;
end;
end
finally
AClientesController := Nil;
end;
end;
procedure TfEditorReciboCliente.pgPaginasChanging(Sender: TObject;
@ -415,8 +446,8 @@ begin
if Assigned(FViewRecibo) and Assigned(Recibo) then
begin
FViewRecibo.Recibo := Recibo;
frViewReciboCliente1.frViewClienteRecibo.Cliente := FRecibo.Cliente;
frViewReciboCliente1.frViewClienteRecibo.OnClienteChanged := OnClienteChanged;
frViewReciboCliente1.frViewClienteRecibo1.Cliente := FRecibo.Cliente;
frViewReciboCliente1.frViewClienteRecibo1.OnClienteChanged := OnClienteChanged;
frViewPagosCliente1.Pagos := Recibo.Pagos;
frViewRecibosCliCompensados1.ReciboCliente := FRecibo;

325
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -1,20 +1,21 @@
inherited frViewReciboCliente: TfrViewReciboCliente
Width = 905
Width = 854
Height = 509
ExplicitWidth = 905
ExplicitWidth = 854
ExplicitHeight = 509
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 905
Width = 854
Height = 509
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 905
DesignSize = (
905
854
509)
object eReferencia: TcxDBTextEdit
Left = 120
@ -109,7 +110,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 274
end
object eFechaEmision: TcxDBTextEdit
Left = 631
Left = 551
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@ -134,35 +135,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 9
Width = 20
end
object eFormaPago: TcxDBTextEdit
Left = 631
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Width = 42
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 631
Top = 84
Left = 551
Top = 111
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@ -188,15 +163,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
TabOrder = 12
Height = 21
Width = 182
end
object eNombreCliente: TcxDBTextEdit
Left = 631
Top = 167
Left = 551
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE'
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
@ -215,14 +190,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
TabOrder = 11
Width = 171
end
object eNifCif: TcxDBTextEdit
Left = 631
Top = 140
Left = 551
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE'
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
@ -241,113 +216,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
TabOrder = 10
Width = 147
end
object eEntidad: TcxDBTextEdit
Left = 631
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14
Width = 90
end
object eSucursal: TcxDBTextEdit
Left = 759
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15
Width = 75
end
object eDC: TcxDBTextEdit
Left = 850
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16
Width = 33
end
object eCuenta: TcxDBTextEdit
Left = 631
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_CLIENTE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 17
Width = 83
end
object eRemesa: TcxDBTextEdit
Left = 120
Top = 138
@ -425,52 +296,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
TabOrder = 6
Width = 191
end
inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 555
Top = 275
Width = 350
Height = 212
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 18
ReadOnly = False
ExplicitLeft = 555
ExplicitTop = 275
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 236
ExplicitLeft = 236
end
inherited Button3: TBitBtn
Left = 126
ExplicitLeft = 126
end
end
end
object eDescripcion: TcxDBTextEdit
Left = 120
Top = 165
@ -513,6 +338,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
ExplicitLeft = 120
ExplicitTop = 267
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 407
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
@ -526,6 +352,57 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
end
inline frViewClienteRecibo1: TfrViewClienteRecibo
Left = 475
Top = 162
Width = 357
Height = 318
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 13
ReadOnly = False
ExplicitLeft = 475
ExplicitTop = 162
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 328
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 158
Width = 158
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = DADataSource
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -609,8 +486,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
@ -623,24 +498,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eFechaEmision
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma pago:'
Control = eFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlCliente: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos del cliente'
Offsets.Top = 5
object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'NIF/CIF:'
Control = eNifCif
@ -651,44 +508,10 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Entidad:'
Control = eEntidad
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Sucursal:'
Control = eSucursal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'DC:'
Control = eDC
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'C'#243'd. cuenta:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlClienteModif: TdxLayoutGroup
@ -696,7 +519,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
AlignVert = avClient
Caption = 'Datos del cliente'
object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewClienteRecibo
Control = frViewClienteRecibo1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end

23
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas
View File

@ -8,7 +8,7 @@ uses
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController,
uViewTienda;
uViewTienda, uViewClienteRecibo;
type
IViewReciboCliente = interface(IViewBase)
@ -38,8 +38,6 @@ type
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eFechaEmision: TcxDBTextEdit;
dxLayoutControl1Item8: TdxLayoutItem;
eFormaPago: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
eImporteTotal: TcxDBCurrencyEdit;
dxLayoutControlFactura: TdxLayoutGroup;
@ -47,37 +45,26 @@ type
eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eNifCif: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eEntidad: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
eSucursal: TcxDBTextEdit;
dxLayoutControl1Item14: TdxLayoutItem;
eDC: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit;
dxLayoutControlCliente: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item19: TdxLayoutItem;
edtFechaEmision: TcxDBDateEdit;
dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo: TfrViewDatosYSeleccionCliente;
dxLayoutControlClienteModif: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
eDescripcion: TcxDBTextEdit;
dxLayoutControl1Item18: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group5: TdxLayoutGroup;
dxLayoutControl1Item6: TdxLayoutItem;
frViewClienteRecibo1: TfrViewClienteRecibo;
private
FRecibo : IBizRecibosCliente;
FController : IRecibosClienteController;
@ -115,7 +102,7 @@ begin
FController := Value;
if Assigned(FController) then
frViewClienteRecibo.Controller := FController.ClienteController;
frViewClienteRecibo1.Controller := FController.ClienteController;
end;
procedure TfrViewReciboCliente.SetRecibo(const Value: IBizRecibosCliente);
@ -124,7 +111,6 @@ begin
//Por defecto
dxLayoutControlFactura.Visible := true;
dxLayoutControlCliente.Visible := true;
dxLayoutControlClienteModif.Visible := false;
eDescripcion.Enabled := False;
@ -136,7 +122,6 @@ begin
if FRecibo.SinFactura then
begin
dxLayoutControlFactura.Visible := false;
dxLayoutControlCliente.Visible := false;
dxLayoutControlClienteModif.Visible := true;
eDescripcion.Enabled := True;
end;

48
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -116,18 +116,22 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Visible = False
BestFitMaxWidth = 150
end
object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn
Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF_CLIENTE'
Visible = False
BestFitMaxWidth = 70
end
object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE_CLIENTE'
BestFitMaxWidth = 150
Width = 51
end
object cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF'
Visible = False
BestFitMaxWidth = 70
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Raz'#243'n'
DataBinding.FieldName = 'NOMBRE'
end
object cxGridViewIMPORTE: TcxGridDBColumn
Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE'
@ -167,6 +171,26 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
HeaderAlignmentHorz = taRightJustify
Width = 48
end
object cxGridViewCALLE: TcxGridDBColumn
Caption = 'Calle'
DataBinding.FieldName = 'CALLE'
Visible = False
end
object cxGridViewPOBLACION: TcxGridDBColumn
Caption = 'Poblaci'#243'n'
DataBinding.FieldName = 'POBLACION'
Visible = False
end
object cxGridViewPROVINCIA: TcxGridDBColumn
Caption = 'Provincia'
DataBinding.FieldName = 'PROVINCIA'
Visible = False
end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
Caption = 'C'#243'digo postal'
DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todos'
@ -189,17 +213,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 531
ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 229
ExplicitLeft = 229
Left = 287
ExplicitLeft = 287
ExplicitWidth = 287
Width = 287
end

7
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -37,7 +37,7 @@ type
cxGridViewDESCRIPCION: TcxGridDBColumn;
cxGridViewIMPORTE: TcxGridDBColumn;
cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn;
cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn;
cxGridViewNIF_CIF: TcxGridDBColumn;
cxGridViewREFERENCIA_REMESA: TcxGridDBColumn;
cxGridDevueltos: TcxGridLevel;
cxGridViewOTROS_GASTOS: TcxGridDBColumn;
@ -51,6 +51,11 @@ type
cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn;
cxGridViewTIENDA: TcxGridDBColumn;
cxGridViewID_TIENDA: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewCALLE: TcxGridDBColumn;
cxGridViewPOBLACION: TcxGridDBColumn;
cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);

BIN
Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dpk
View File

Binary file not shown.

11
Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj
View File

@ -40,17 +40,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosProveedor_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\RecibosProveedor_data.dcp" />
<DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_data.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
<DCCReference Include="uPagosProveedorController.pas" />
<DCCReference Include="uRecibosProveedorController.pas" />
<DCCReference Include="uRecibosProveedorReportController.pas" />

44
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase,
uPagosProveedorController, uProveedoresController,
uPagosProveedorController, uProveedoresController, uBizDireccionesContacto,
uBizRecibosProveedor, uIDataModuleRecibosProveedor;
type
@ -69,6 +69,8 @@ type
procedure SetSituacionCobrados(ARecibos : IBizRecibosProveedor; WithDeltas: Boolean=False);
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
function EsEliminable(ARecibo : IBizRecibosProveedor): Boolean;
@ -134,6 +136,8 @@ type
function ElegirRecibos(ARecibos : IBizRecibosProveedor; AMensaje: String; AMultiSelect: Boolean): IBizRecibosProveedor;
function ElegirRecibosCompensados(ARecibo : IBizRecibosProveedor): Boolean;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; ARecibo: IBizRecibosProveedor);
procedure AsignarRemesa(ARecibos : IBizRecibosProveedor; ID_REMESA: Integer; AIgnorarContabilidad : Integer; ASubCuenta: Integer);
procedure QuitarRemesa(ARecibos : IBizRecibosProveedor);
procedure QuitarReciboCompensado(ARecibo : IBizRecibosProveedor);
@ -229,6 +233,44 @@ begin
FiltrarEmpresa(Result);
end;
procedure TRecibosProveedorController.CopiarDireccion(const ADireccionEnvio: IBizDireccionesContacto;
ARecibo: IBizRecibosProveedor);
var
bEnEdicion : Boolean;
begin
if not Assigned(ARecibo) then
raise Exception.Create ('Recibo no asignado (CopiarDireccion)');
if not Assigned(ADireccionEnvio) then
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
if ARecibo.DataTable.Active then
ARecibo.DataTable.Active := True;
if ADireccionEnvio.DataTable.Active then
ADireccionEnvio.DataTable.Active := True;
bEnEdicion := (ARecibo.DataTable.State in dsEditModes);
if not bEnEdicion then
ARecibo.Edit;
ShowHourglassCursor;
ARecibo.Edit;
try
ARecibo.CALLE := ADireccionEnvio.CALLE;
ARecibo.POBLACION := ADireccionEnvio.POBLACION;
ARecibo.CODIGO_POSTAL := ADireccionEnvio.CODIGO_POSTAL;
ARecibo.PROVINCIA := ADireccionEnvio.PROVINCIA;
ARecibo.NIF_CIF := ADireccionEnvio.NIF_CIF;
ARecibo.NOMBRE := ADireccionEnvio.NOMBRE;
if not bEnEdicion then
ARecibo.Post;
finally
HideHourglassCursor;
end;
end;
constructor TRecibosProveedorController.Create;
begin
inherited;

8
Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.dproj
View File

@ -42,16 +42,16 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosProveedor_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
<DCCReference Include="uDataModuleRecibosProveedor.pas" />
</ItemGroup>
</Project>

196
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -169,6 +169,24 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -208,24 +226,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@ -239,11 +239,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
@ -264,6 +259,36 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString
Size = 15
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -285,26 +310,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
@ -373,6 +378,30 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_FACTURA'
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
DisplayLabel = 'Ref. factura prov.'
DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -426,30 +455,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Alignment = taRightJustify
DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
DisplayLabel = 'Ref. factura prov.'
DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@ -468,13 +473,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
end
item
Name = 'NIF_CIF_PROVEEDOR'
DataType = datString
Size = 15
DisplayLabel = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
@ -503,6 +501,36 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DisplayLabel = 'RecibosProveedor_CUENTA_PROVEEDOR'
DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -527,26 +555,6 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

63
Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.dproj
View File

@ -40,73 +40,32 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">RecibosProveedor_model.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosProveedor_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="Data\uIDataModuleRecibosProveedor.pas" />
<DCCReference Include="Data\uIDataModuleRecibosProveedorReport.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="uBizPagosProveedor.pas" />
<DCCReference Include="uBizRecibosProvCompensados.pas" />
<DCCReference Include="uBizRecibosProveedor.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

1414
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

1646
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

File diff suppressed because it is too large Load Diff

16
Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas
View File

@ -168,14 +168,14 @@ begin
FProveedor.DataTable.Active := True;
ID_PROVEEDOR := FProveedor.ID;
NOMBRE_PROVEEDOR := FProveedor.NOMBRE;
NIF_CIF_PROVEEDOR := FProveedor.NIF_CIF;
{ CALLE := FCliente.CALLE;
CODIGO_POSTAL := FCliente.CODIGO_POSTAL;
PROVINCIA := FCliente.PROVINCIA;
POBLACION := FCliente.POBLACION;
}
//El proveedor puede tener un nombre por el ce se le conoce y luego un nombre_comercial
//caso de elegir la dirección principal del proveedor para el recibo, se cogerá el nombre_comercial para los datos fiscales
NOMBRE := FProveedor.NOMBRE_COMERCIAL;
NIF_CIF := FProveedor.NIF_CIF;
CALLE := FProveedor.CALLE;
CODIGO_POSTAL := FProveedor.CODIGO_POSTAL;
PROVINCIA := FProveedor.PROVINCIA;
POBLACION := FProveedor.POBLACION;
Post;
if bEnEdicion then

BIN
Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dpk
View File

Binary file not shown.

52
Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.dproj
View File

@ -41,50 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
@ -95,11 +52,7 @@
<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\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages>
<Source>
<Source Name="MainSource">RecibosProveedor_plugin.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</Excluded_Packages><Source><Source Name="MainSource">RecibosProveedor_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
@ -113,7 +66,6 @@
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

22
Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res
View File

Binary file not shown.

16
Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
View File

@ -10,6 +10,7 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
<Projects Include="..\Recibos de cliente\Data\RecibosCliente_data.dproj" />
@ -161,14 +162,23 @@
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data;RecibosCliente_view;Contactos_view;RecibosCliente_controller;Contabilidad_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_data;RecibosCliente_view;Contactos_view;RecibosCliente_controller;Contabilidad_view;Contactos_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean;RecibosCliente_view:Clean;Contactos_view:Clean;RecibosCliente_controller:Clean;Contabilidad_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_data:Clean;RecibosCliente_view:Clean;Contactos_view:Clean;RecibosCliente_controller:Clean;Contabilidad_view:Clean;Contactos_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make;RecibosCliente_view:Make;Contactos_view:Make;RecibosCliente_controller:Make;Contabilidad_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_data:Make;RecibosCliente_view:Make;Contactos_view:Make;RecibosCliente_controller:Make;Contabilidad_view:Make;Contactos_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

311
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -113,10 +113,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'NIF_CIF_PROVEEDOR'
TableField = 'NIF_CIF_PROVEEDOR'
end
item
DatasetField = 'ENTIDAD_PROVEEDOR'
TableField = 'ENTIDAD_PROVEEDOR'
@ -154,20 +150,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_PROVEEDOR'
TableField = 'CALLE_PROVEEDOR'
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'POBLACION_PROVEEDOR'
TableField = 'POBLACION_PROVEEDOR'
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CODIGO_POSTAL_PROVEEDOR'
TableField = 'CODIGO_POSTAL_PROVEEDOR'
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA_PROVEEDOR'
TableField = 'PROVINCIA_PROVEEDOR'
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end>
end>
Name = 'RecibosCompensadosProv'
@ -207,6 +211,24 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -246,24 +268,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@ -277,11 +281,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_PROVEEDOR'
DataType = datString
Size = 15
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
@ -302,6 +301,36 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString
Size = 15
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -323,26 +352,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
end
item
@ -445,10 +454,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'NIF_CIF_PROVEEDOR'
TableField = 'NIF_CIF_PROVEEDOR'
end
item
DatasetField = 'ENTIDAD_PROVEEDOR'
TableField = 'ENTIDAD_PROVEEDOR'
@ -486,20 +491,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
TableField = 'TIENDA'
end
item
DatasetField = 'CALLE_PROVEEDOR'
TableField = 'CALLE_PROVEEDOR'
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'POBLACION_PROVEEDOR'
TableField = 'POBLACION_PROVEEDOR'
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CODIGO_POSTAL_PROVEEDOR'
TableField = 'CODIGO_POSTAL_PROVEEDOR'
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'PROVINCIA_PROVEEDOR'
TableField = 'PROVINCIA_PROVEEDOR'
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end>
end>
Name = 'RecibosProveedor'
@ -545,6 +558,28 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datInteger
DictionaryEntry = 'RecibosProveedor_ID_FACTURA'
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
@ -593,28 +628,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datCurrency
DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
end
item
Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosProveedor_REFERENCIA_FACTURA_PROV'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosProveedor_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosProveedor_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosProveedor_IMPORTE_FACTURA'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
@ -631,12 +644,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 255
DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
end
item
Name = 'NIF_CIF_PROVEEDOR'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
end
item
Name = 'ENTIDAD_PROVEEDOR'
DataType = datString
@ -661,6 +668,36 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Size = 15
DictionaryEntry = 'RecibosProveedor_CUENTA_PROVEEDOR'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
@ -685,26 +722,6 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'CALLE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_PROVEEDOR'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_PROVEEDOR'
DataType = datString
Size = 255
end>
end
item
@ -952,6 +969,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item
Name = 'ID_TIENDA'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'NIF_CIF'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end>
Statements = <
item
@ -961,10 +1002,12 @@ object srvRecibosProveedor: TsrvRecibosProveedor
'INSERT'#10' INTO RECIBOS_PROVEEDOR'#10' (ID, ID_EMPRESA, ID_PROVEEDO' +
'R, ID_FACTURA, REFERENCIA, REFERENCIA_PROVEEDOR, FECHA_EMISION, ' +
'FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10' IMPORTE, OTRO' +
'S_GASTOS, USUARIO, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
'D_PROVEEDOR, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :F' +
'ECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10 +
' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA)'#10' '#10' '#10' ' +
'S_GASTOS, USUARIO, ID_TIENDA, NOMBRE, NIF_CIF, CALLE, POBLACION,' +
' PROVINCIA, CODIGO_POSTAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_P' +
'ROVEEDOR, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FECH' +
'A_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' +
' :IMPORTE, :OTROS_GASTOS, :USUARIO, :ID_TIENDA, :NOMBRE, :NIF_CI' +
'F, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL)'#10' '#10' '#10' ' +
' '#10#10
StatementType = stSQL
ColumnMappings = <>
@ -1039,6 +1082,30 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'ID_TIENDA'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'NIF_CIF'
Value = ''
end
item
Name = 'CALLE'
Value = ''
end
item
Name = 'POBLACION'
Value = ''
end
item
Name = 'PROVINCIA'
Value = ''
end
item
Name = 'CODIGO_POSTAL'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1054,8 +1121,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' DESCRIPCION = :DESCRIPCION' +
','#10' OBSERVACIONES = :OBSERVACIONES,'#10' ID_REMESA = :ID_REMESA' +
','#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GASTOS,'#10' ' +
'USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID =' +
' :OLD_ID)'#10
'USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOMBRE = :NO' +
'MBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' POBLACION ' +
'= :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :C' +
'ODIGO_POSTAL'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

BIN
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk
View File

Binary file not shown.

30
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{74e7da8d-38a8-404c-b92c-c3a913b30982}</ProjectGuid>
<MainSource>RecibosProveedor_view.dpk</MainSource>
@ -39,19 +40,40 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="RecibosProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" />
<DCCReference Include="uEditorElegirRecibosProveedor.pas">
<Form>fEditorElegirRecibosProveedor</Form>
<DesignClass>TfEditorElegirRecibosProveedor</DesignClass>
@ -76,6 +98,10 @@
<Form>frViewPagosProveedor</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewProveedorRecibo.pas">
<Form>frViewProveedorRecibo</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewReciboProveedor.pas">
<Form>frViewReciboProveedor</Form>
<DesignClass>TFrame</DesignClass>

145
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
View File

@ -101,58 +101,24 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 274
end
inherited eFechaEmision: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
Left = 383
ExplicitLeft = 383
ExplicitWidth = 20
Width = 20
end
inherited eFormaPago: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
ExplicitWidth = 42
Width = 42
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 481
Left = 383
Style.IsFontAssigned = True
ExplicitLeft = 481
ExplicitLeft = 383
ExplicitWidth = 182
Width = 182
end
inherited eNombreCliente: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
Left = 383
ExplicitLeft = 383
ExplicitWidth = 171
Width = 171
end
inherited eNifCif: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
ExplicitWidth = 255
Width = 255
end
inherited eEntidad: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
ExplicitWidth = 90
Width = 90
end
inherited eSucursal: TcxDBTextEdit
Left = 556
ExplicitLeft = 556
ExplicitWidth = 75
Width = 75
end
inherited eDC: TcxDBTextEdit
Left = 605
ExplicitLeft = 605
end
inherited eCuenta: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
ExplicitWidth = 83
Width = 83
end
inherited eRemesa: TcxDBTextEdit
ExplicitWidth = 113
Width = 113
@ -166,8 +132,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
Width = 129
end
inherited rReferenciaFacturaProv: TcxDBTextEdit
Left = 481
ExplicitLeft = 481
Left = 383
ExplicitLeft = 383
ExplicitWidth = 157
Width = 157
end
@ -175,45 +141,6 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 216
Width = 216
end
inherited frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
Left = 384
Top = 299
Width = 350
ExplicitLeft = 384
ExplicitTop = 299
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 203
ExplicitLeft = 203
end
inherited Button3: TBitBtn
Left = 87
ExplicitLeft = 87
end
end
end
inherited frViewTienda1: TfrViewTienda
Width = 451
ExplicitWidth = 451
@ -229,6 +156,60 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
ExplicitWidth = 407
Width = 407
end
inherited eNifCif: TcxDBTextEdit
Left = 383
ExplicitLeft = 383
ExplicitWidth = 255
Width = 255
end
inherited frViewProveedorRecibo1: TfrViewProveedorRecibo
Left = 286
Width = 350
ExplicitLeft = 286
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
ExplicitWidth = 350
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 276
Width = 276
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 260
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
ExplicitLeft = 260
end
inherited Button3: TBitBtn
Left = 144
ExplicitLeft = 144
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
end
end
end
@ -386,6 +367,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end
inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable

38
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -71,7 +71,8 @@ type
implementation
uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App;
uses schRecibosProveedorClient_Intf, uEditorFechaPagoProveedor, uEditorBase, uFactuGES_App,
uProveedoresController, uBizDireccionesContacto, uViewProveedorRecibo;
{$R *.dfm}
@ -333,8 +334,37 @@ begin
end;
procedure TfEditorReciboProveedor.OnProveedorChanged(Sender: TObject);
var
AProveedoresController : IProveedoresController;
ADireccion : IBizDireccionesContacto;
begin
FRecibo.Proveedor := frViewReciboProveedor1.frViewProveedorRecibo.Proveedor;
FRecibo.Proveedor := frViewReciboProveedor1.frViewProveedorRecibo1.Proveedor;
if not (FRecibo.DataTable.State in dsEditModes) then
FRecibo.DataTable.Edit;
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para el recibo
AProveedoresController := TProveedoresController.Create;
try
case FRecibo.Proveedor.Direcciones.RecordCount of
0 : //No hay direcciones secundarias asociadas
else ADireccion := AProveedoresController.ElegirDireccion(FRecibo.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de este recibo.');
end;
// Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
if Assigned(ADireccion) then
begin
try
FRecibo.Edit;
FController.CopiarDireccion(ADireccion, FRecibo);
finally
ADireccion := NIL;
end;
end
finally
AProveedoresController := Nil;
end;
end;
procedure TfEditorReciboProveedor.PonerTitulos(const ATitulo: string);
@ -385,8 +415,8 @@ begin
if Assigned(FViewRecibo) and Assigned(Recibo) then
begin
FViewRecibo.Recibo := Recibo;
frViewReciboProveedor1.frViewProveedorRecibo.Proveedor := FRecibo.Proveedor;
frViewReciboProveedor1.frViewProveedorRecibo.OnProveedorChanged := OnProveedorChanged;
frViewReciboProveedor1.frViewProveedorRecibo1.Proveedor := FRecibo.Proveedor;
frViewReciboProveedor1.frViewProveedorRecibo1.OnProveedorChanged := OnProveedorChanged;
frViewPagosProveedor1.Pagos := Recibo.Pagos;
frViewRecibosProvCompensados1.ReciboProveedor := FRecibo;

384
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

@ -1,21 +1,21 @@
inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 985
Height = 553
ExplicitWidth = 985
ExplicitHeight = 553
Width = 811
Height = 524
ExplicitWidth = 811
ExplicitHeight = 524
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 985
Height = 553
Width = 811
Height = 524
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
DesignSize = (
985
553)
811
524)
object eReferencia: TcxDBTextEdit
Left = 136
Top = 30
@ -106,10 +106,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Height = 49
Width = 300
Width = 200
end
object eFechaEmision: TcxDBTextEdit
Left = 764
Left = 529
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@ -134,35 +134,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 11
Width = 20
end
object eFormaPago: TcxDBTextEdit
Left = 764
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Width = 42
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 764
Top = 111
Left = 529
Top = 138
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
DataBinding.DataSource = DADataSource
@ -188,15 +162,15 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
TabOrder = 14
Height = 21
Width = 182
end
object eNombreCliente: TcxDBTextEdit
Left = 764
Top = 194
Left = 529
Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_PROVEEDOR'
DataBinding.DataField = 'NOMBRE'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
@ -215,139 +189,9 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15
TabOrder = 13
Width = 171
end
object eNifCif: TcxDBTextEdit
Left = 764
Top = 167
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14
Width = 147
end
object eEntidad: TcxDBTextEdit
Left = 764
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'ENTIDAD_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16
Width = 90
end
object eSucursal: TcxDBTextEdit
Left = 859
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'SUCURSAL_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 17
Width = 75
end
object eDC: TcxDBTextEdit
Left = 930
Top = 221
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DC_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 18
Width = 33
end
object eCuenta: TcxDBTextEdit
Left = 764
Top = 248
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CUENTA_PROVEEDOR'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
Width = 83
end
object eRemesa: TcxDBTextEdit
Left = 136
Top = 165
@ -377,7 +221,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Left = 136
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataField = 'FECHA_EMISION'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ImmediatePost = True
@ -424,7 +268,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Width = 287
end
object rReferenciaFacturaProv: TcxDBTextEdit
Left = 764
Left = 529
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@ -473,50 +317,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 216
end
inline frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor
Left = 667
Top = 312
Width = 350
Height = 202
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 20
ReadOnly = False
ExplicitLeft = 667
ExplicitTop = 312
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 296
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 204
ExplicitLeft = 204
end
inherited Button3: TBitBtn
Left = 88
ExplicitLeft = 88
end
end
Width = 200
end
inline frViewTienda1: TfrViewTienda
Left = 136
@ -534,12 +335,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ExplicitLeft = 136
ExplicitTop = 294
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 503
inherited cbTienda: TcxComboBox
Left = 10
ExplicitLeft = 10
ExplicitWidth = 376
Width = 376
ExplicitWidth = 200
Width = 200
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
@ -574,6 +374,82 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
TabOrder = 6
Width = 407
end
object eNifCif: TcxDBTextEdit
Left = 529
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Width = 199
end
inline frViewProveedorRecibo1: TfrViewProveedorRecibo
Left = 432
Top = 189
Width = 357
Height = 318
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 15
ReadOnly = False
ExplicitLeft = 432
ExplicitTop = 189
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 562
Width = 562
end
inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 177
Width = 177
end
inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = DADataSource
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = DADataSource
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -663,8 +539,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
end
end
object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
@ -683,24 +557,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Forma pago:'
Control = eFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlProveedor: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos del proveedor'
Offsets.Top = 5
object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'NIF/CIF:'
Control = eNifCif
ControlOptions.ShowBorder = False
@ -710,44 +566,10 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
Control = eNombreCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group11: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item12: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Entidad:'
Control = eEntidad
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Sucursal:'
Control = eSucursal
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'DC:'
Control = eDC
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item15: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'C'#243'd. cuenta:'
Control = eCuenta
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem
Caption = 'Total factura:'
Control = eImporteTotal
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlProveedorModif: TdxLayoutGroup
@ -755,7 +577,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
AlignVert = avClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item6: TdxLayoutItem
Control = frViewProveedorRecibo
Control = frViewProveedorRecibo1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end

28
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
View File

@ -7,7 +7,8 @@ uses
Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda;
uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda,
uViewProveedorRecibo;
type
IViewReciboProveedor = interface(IViewBase)
@ -37,34 +38,19 @@ type
dxLayoutControl1Group1: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem;
eFechaEmision: TcxDBTextEdit;
dxLayoutControl1Item8: TdxLayoutItem;
eFormaPago: TcxDBTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
eImporteTotal: TcxDBCurrencyEdit;
dxLayoutControlFactura: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
eNombreCliente: TcxDBTextEdit;
dxLayoutControl1Item11: TdxLayoutItem;
eNifCif: TcxDBTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
eEntidad: TcxDBTextEdit;
dxLayoutControl1Item13: TdxLayoutItem;
eSucursal: TcxDBTextEdit;
dxLayoutControl1Item14: TdxLayoutItem;
eDC: TcxDBTextEdit;
dxLayoutControl1Item15: TdxLayoutItem;
eCuenta: TcxDBTextEdit;
dxLayoutControlProveedor: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item16: TdxLayoutItem;
eRemesa: TcxDBTextEdit;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Group2: TdxLayoutGroup;
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
dxLayoutControl1Group7: TdxLayoutGroup;
dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item19: TdxLayoutItem;
edtFechaEmision: TcxDBDateEdit;
dxLayoutControl1Item20: TdxLayoutItem;
@ -73,14 +59,16 @@ type
rReferenciaFacturaProv: TcxDBTextEdit;
dxLayoutControl1Item4: TdxLayoutItem;
rRefReciboCompensado: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor;
dxLayoutControlProveedorModif: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item18: TdxLayoutItem;
eDescripcion: TcxDBTextEdit;
dxLayoutControl1Item8: TdxLayoutItem;
eNifCif: TcxDBTextEdit;
dxLayoutControl1Item6: TdxLayoutItem;
frViewProveedorRecibo1: TfrViewProveedorRecibo;
private
FRecibo : IBizRecibosProveedor;
FController : IRecibosProveedorController;
@ -118,7 +106,7 @@ begin
FController := Value;
if Assigned(FController) then
frViewProveedorRecibo.Controller := FController.ProveedorController;
frViewProveedorRecibo1.Controller := FController.ProveedorController;
end;
procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
@ -127,7 +115,6 @@ begin
//Por defecto
dxLayoutControlFactura.Visible := true;
dxLayoutControlProveedor.Visible := true;
dxLayoutControlProveedorModif.Visible := false;
eDescripcion.Enabled := False;
@ -139,7 +126,6 @@ begin
if FRecibo.SinFactura then
begin
dxLayoutControlFactura.Visible := false;
dxLayoutControlProveedor.Visible := false;
dxLayoutControlProveedorModif.Visible := true;
eDescripcion.Enabled := True;
end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -108,16 +108,16 @@ uses
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';

501
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,254 +1,255 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de abril de 2008 20:40</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de abril de 2008 20:40</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.1.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.1.9.0\0"
VALUE "CompileDate", "martes, 15 de abril de 2008 11:15\0"
VALUE "CompileDate", "miércoles, 23 de abril de 2008 12:32\0"
END
END
BLOCK "VarFileInfo"