Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio en la generacion automatica de albaranes y facturas para que en las lineas de detalles se ponga el pedido/contrato y el albarán relacionado

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@150 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2020-06-24 17:13:35 +00:00
parent 767b310e1f
commit c418b78eff
16 changed files with 225 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.3.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><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">4</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.8.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.8.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

4
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -112,6 +112,10 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DisplayLabel = 'Ref. pedido cliente' DisplayLabel = 'Ref. pedido cliente'
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO' DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger

109
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{341C2DAC-F578-4289-BEC6-A22088E12DDA}'; RID_ListaAnosAlbaranes = '{5392573B-B6A0-49DE-ACCD-1B04E1684DCC}';
RID_AlbaranesCliente = '{9E0606CC-EF63-4EDA-B7FA-D41CC8803129}'; RID_AlbaranesCliente = '{2B6F227E-8173-4A9A-A666-BAA270EAEA1A}';
RID_AlbaranesCliente_Detalles = '{4D6277E1-50CF-4276-9A60-C66040C70E0E}'; RID_AlbaranesCliente_Detalles = '{FE404448-507F-47B3-ADD1-1D5821AF7506}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -38,6 +38,7 @@ const
fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN'; fld_AlbaranesClienteNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO'; fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO';
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO'; fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
fld_AlbaranesClienteFECHA_CONTRATO = 'FECHA_CONTRATO';
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA'; fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA'; fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION'; fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
@ -84,37 +85,38 @@ const
idx_AlbaranesClienteNOMBRE_ALMACEN = 10; idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
idx_AlbaranesClienteID_PEDIDO = 11; idx_AlbaranesClienteID_PEDIDO = 11;
idx_AlbaranesClienteREF_PEDIDO = 12; idx_AlbaranesClienteREF_PEDIDO = 12;
idx_AlbaranesClienteID_FACTURA = 13; idx_AlbaranesClienteFECHA_CONTRATO = 13;
idx_AlbaranesClienteREF_FACTURA = 14; idx_AlbaranesClienteID_FACTURA = 14;
idx_AlbaranesClienteID_DIRECCION = 15; idx_AlbaranesClienteREF_FACTURA = 15;
idx_AlbaranesClienteCALLE = 16; idx_AlbaranesClienteID_DIRECCION = 16;
idx_AlbaranesClienteCODIGO_POSTAL = 17; idx_AlbaranesClienteCALLE = 17;
idx_AlbaranesClientePOBLACION = 18; idx_AlbaranesClienteCODIGO_POSTAL = 18;
idx_AlbaranesClientePROVINCIA = 19; idx_AlbaranesClientePOBLACION = 19;
idx_AlbaranesClientePERSONA_CONTACTO = 20; idx_AlbaranesClientePROVINCIA = 20;
idx_AlbaranesClienteTELEFONO = 21; idx_AlbaranesClientePERSONA_CONTACTO = 21;
idx_AlbaranesClienteMOVIL = 22; idx_AlbaranesClienteTELEFONO = 22;
idx_AlbaranesClienteIMPORTE_NETO = 23; idx_AlbaranesClienteMOVIL = 23;
idx_AlbaranesClienteIMPORTE_PORTE = 24; idx_AlbaranesClienteIMPORTE_NETO = 24;
idx_AlbaranesClienteDESCUENTO = 25; idx_AlbaranesClienteIMPORTE_PORTE = 25;
idx_AlbaranesClienteIMPORTE_DESCUENTO = 26; idx_AlbaranesClienteDESCUENTO = 26;
idx_AlbaranesClienteBASE_IMPONIBLE = 27; idx_AlbaranesClienteIMPORTE_DESCUENTO = 27;
idx_AlbaranesClienteID_TIPO_IVA = 28; idx_AlbaranesClienteBASE_IMPONIBLE = 28;
idx_AlbaranesClienteIVA = 29; idx_AlbaranesClienteID_TIPO_IVA = 29;
idx_AlbaranesClienteIMPORTE_IVA = 30; idx_AlbaranesClienteIVA = 30;
idx_AlbaranesClienteIMPORTE_TOTAL = 31; idx_AlbaranesClienteIMPORTE_IVA = 31;
idx_AlbaranesClienteOBSERVACIONES = 32; idx_AlbaranesClienteIMPORTE_TOTAL = 32;
idx_AlbaranesClienteINCIDENCIAS = 33; idx_AlbaranesClienteOBSERVACIONES = 33;
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 34; idx_AlbaranesClienteINCIDENCIAS = 34;
idx_AlbaranesClienteFECHA_ALTA = 35; idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 35;
idx_AlbaranesClienteFECHA_MODIFICACION = 36; idx_AlbaranesClienteFECHA_ALTA = 36;
idx_AlbaranesClienteUSUARIO = 37; idx_AlbaranesClienteFECHA_MODIFICACION = 37;
idx_AlbaranesClienteID_FORMA_PAGO = 38; idx_AlbaranesClienteUSUARIO = 38;
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 39; idx_AlbaranesClienteID_FORMA_PAGO = 39;
idx_AlbaranesClienteFECHA_ENVIO = 40; idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 40;
idx_AlbaranesClienteFECHA_RECEPCION = 41; idx_AlbaranesClienteFECHA_ENVIO = 41;
idx_AlbaranesClienteID_TIENDA = 42; idx_AlbaranesClienteFECHA_RECEPCION = 42;
idx_AlbaranesClienteTIENDA = 43; idx_AlbaranesClienteID_TIENDA = 43;
idx_AlbaranesClienteTIENDA = 44;
{ AlbaranesCliente_Detalles fields } { AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID'; fld_AlbaranesCliente_DetallesID = 'ID';
@ -153,7 +155,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{18882089-8287-47C7-9C5D-931786CE7191}'] ['{9E537DDB-8E64-4969-8E68-8892E1235B3B}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -188,7 +190,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{79507D33-A636-472C-B17E-D017E6D4FCAE}'] ['{657314CF-9B6C-48E9-9BA7-B2475D33165E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -242,6 +244,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String); procedure SetREF_PEDIDOValue(const aValue: String);
function GetREF_PEDIDOIsNull: Boolean; function GetREF_PEDIDOIsNull: Boolean;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); procedure SetREF_PEDIDOIsNull(const aValue: Boolean);
function GetFECHA_CONTRATOValue: DateTime;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
function GetFECHA_CONTRATOIsNull: Boolean;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean);
function GetID_FACTURAValue: Integer; function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer); procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean; function GetID_FACTURAIsNull: Boolean;
@ -393,6 +399,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue; property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull; property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
@ -518,6 +526,10 @@ type
procedure SetREF_PEDIDOValue(const aValue: String); virtual; procedure SetREF_PEDIDOValue(const aValue: String); virtual;
function GetREF_PEDIDOIsNull: Boolean; virtual; function GetREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetFECHA_CONTRATOValue: DateTime; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual; procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual; function GetID_FACTURAIsNull: Boolean; virtual;
@ -668,6 +680,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue; property REF_PEDIDO: String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull; property REF_PEDIDOIsNull: Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
@ -739,7 +753,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{E5EA0F49-1453-4D24-9E59-0EDC0AEC18F7}'] ['{E97BA8BC-8EC8-441E-8A6F-E53552B75E94}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1281,6 +1295,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteREF_PEDIDO].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetFECHA_CONTRATOValue: DateTime;
begin
result := DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].AsDateTime;
end;
procedure TAlbaranesClienteDataTableRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
begin
DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].AsDateTime := aValue;
end;
function TAlbaranesClienteDataTableRules.GetFECHA_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteFECHA_CONTRATO].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetID_FACTURAValue: Integer; function TAlbaranesClienteDataTableRules.GetID_FACTURAValue: Integer;
begin begin
result := DataTable.Fields[idx_AlbaranesClienteID_FACTURA].AsInteger; result := DataTable.Fields[idx_AlbaranesClienteID_FACTURA].AsInteger;

55
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{A83C6728-0F72-4994-B6BD-27A86E154F6A}'; RID_ListaAnosAlbaranesDelta = '{42769BFF-45B2-4BC5-8B65-09F00716E000}';
RID_AlbaranesClienteDelta = '{07D97148-0DFB-49CD-B447-24C9143ECA30}'; RID_AlbaranesClienteDelta = '{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}';
RID_AlbaranesCliente_DetallesDelta = '{D45C143D-1990-46DF-80F3-DE6AC699561E}'; RID_AlbaranesCliente_DetallesDelta = '{0D156B8D-7951-4154-A33A-0A13B7228A09}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{A83C6728-0F72-4994-B6BD-27A86E154F6A}'] ['{42769BFF-45B2-4BC5-8B65-09F00716E000}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{07D97148-0DFB-49CD-B447-24C9143ECA30}'] ['{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -65,6 +65,7 @@ type
function GetOldNOMBRE_ALMACENValue : String; function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PEDIDOValue : String; function GetOldREF_PEDIDOValue : String;
function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String; function GetOldREF_FACTURAValue : String;
function GetOldID_DIRECCIONValue : Integer; function GetOldID_DIRECCIONValue : Integer;
@ -111,6 +112,7 @@ type
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue; property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue; property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue; property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -231,6 +233,12 @@ type
function GetOldREF_PEDIDOIsNull: Boolean; virtual; function GetOldREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); virtual; procedure SetREF_PEDIDOValue(const aValue: String); virtual;
procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual; procedure SetREF_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetFECHA_CONTRATOValue: DateTime; virtual;
function GetFECHA_CONTRATOIsNull: Boolean; virtual;
function GetOldFECHA_CONTRATOValue: DateTime; virtual;
function GetOldFECHA_CONTRATOIsNull: Boolean; virtual;
procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual; function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual; function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual; function GetOldID_FACTURAValue: Integer; virtual;
@ -469,6 +477,10 @@ type
property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull; property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue; property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldREF_PEDIDOIsNull : Boolean read GetOldREF_PEDIDOIsNull; property OldREF_PEDIDOIsNull : Boolean read GetOldREF_PEDIDOIsNull;
property FECHA_CONTRATO : DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
property FECHA_CONTRATOIsNull : Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldFECHA_CONTRATOIsNull : Boolean read GetOldFECHA_CONTRATOIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue; property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
@ -602,7 +614,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{D45C143D-1990-46DF-80F3-DE6AC699561E}'] ['{0D156B8D-7951-4154-A33A-0A13B7228A09}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -1284,6 +1296,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_CONTRATOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_CONTRATOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_CONTRATO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_CONTRATOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_CONTRATO]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_CONTRATO] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_FACTURAValue: Integer; function TAlbaranesClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FACTURA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FACTURA];

58
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -126,6 +126,15 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'FECHA_PREVISTA_ENVIO' Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime DataType = datDateTime
end end
item
Name = 'REF_CONTRATO'
DataType = datString
Size = 255
end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
@ -343,20 +352,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARANES_C' + 'E.OBSERVACIONES,'#10' ALBARANES_CLIENTE.IMPORTE_NETO,'#10' ALBARANES_C' +
'LIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ALBAR' + 'LIENTE.DESCUENTO,'#10' ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' ALBAR' +
'ANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10 + 'ANES_CLIENTE.BASE_IMPONIBLE,'#10' ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10 +
' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS ' + ' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' CONTRATOS_CLIENTE.RE' +
'NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS' + 'FERENCIA AS REF_CONTRATO,'#10' CONTRATOS_CLIENTE.FECHA_CONTRATO,'#10' ' +
'.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE' + 'EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE' +
'_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' E' + '_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMP' +
'MPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS ' + 'RESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO' +
'PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10 + '_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EM' +
' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMP' + 'PRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS ' +
'RESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_W' + 'TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MO' +
'EB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10' INNER JOIN E' + 'VIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,' +
'MPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMPRESA)'#10' INNER ' + #10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CL' +
'JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)'#10 + 'IENTE'#10' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.' +
' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONE' + 'ID_EMPRESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_' +
'S.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.I' + 'CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTRATOS_CLIENTE ON (CONT' +
'D = :ID'#10 'RATOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)'#10' LEFT OUTER JOI' +
'N CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ALBARANES' +
'_CLIENTE.ID_DIRECCION)'#10'WHERE ALBARANES_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -505,6 +516,16 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item item
DatasetField = 'BASE_IMPONIBLE' DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'REF_CONTRATO'
TableField = '<unknown>'
SQLOrigin = 'REF_CONTRATO'
end
item
DatasetField = 'FECHA_CONTRATO'
TableField = '<unknown>'
SQLOrigin = 'FECHA_CONTRATO'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -617,6 +638,15 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'FECHA_PREVISTA_ENVIO' Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime DataType = datDateTime
end end
item
Name = 'REF_CONTRATO'
DataType = datString
Size = 255
end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString

8
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -223,6 +223,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'MOVIL' DatasetField = 'MOVIL'
TableField = 'MOVIL' TableField = 'MOVIL'
end
item
DatasetField = 'FECHA_CONTRATO'
TableField = 'FECHA_CONTRATO'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -304,6 +308,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Size = 255 Size = 255
DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO' DictionaryEntry = 'AlbaranesCliente_REF_PEDIDO'
end end
item
Name = 'FECHA_CONTRATO'
DataType = datDateTime
end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger

16
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -16,6 +16,7 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" /> <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" /> <Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" /> <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
@ -241,14 +242,23 @@
<Target Name="PresupuestosCliente_model:Make"> <Target Name="PresupuestosCliente_model:Make">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="Make" /> <MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" Targets="Make" />
</Target> </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="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ConCli_AlbCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view;FacturasCliente_view;PresupuestosCliente_model" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ConCli_AlbCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view;FacturasCliente_view;PresupuestosCliente_model;FacturasCliente_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;PresupuestosCliente_model:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ConCli_AlbCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean;PresupuestosCliente_model:Clean;FacturasCliente_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;PresupuestosCliente_model:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ConCli_AlbCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make;PresupuestosCliente_model:Make;FacturasCliente_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -248,6 +248,7 @@ function TFacturasClienteController.Anadir(AFacturas: IBizFacturaCliente;
var var
AFacturaActual : IBizFacturaCliente; AFacturaActual : IBizFacturaCliente;
AAlbaranesController : IAlbaranesClienteController; AAlbaranesController : IAlbaranesClienteController;
ACadena: String;
I: Integer; I: Integer;
bEnEdicion : Boolean; bEnEdicion : Boolean;
begin begin
@ -330,12 +331,15 @@ begin
// Ya tengo la factura. Le añado los conceptos del albarán // Ya tengo la factura. Le añado los conceptos del albarán
AFacturaActual.Detalles.DataTable.Last; AFacturaActual.Detalles.DataTable.Last;
// Añado el título
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO); // Añado el título, se cambia a petición por linea de concepto con resumen del albaran correspondiente, SE SOLICITA QUITAR POR MÓNICA 16/06/2020
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AFacturaActual.Detalles do with AFacturaActual.Detalles do
begin begin
ACadena := '';
ACadena := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' de ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Edit; Edit;
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN); CONCEPTO := ACadena;
Post; Post;
end; end;
// Añado el contenido del albarán // Añado el contenido del albarán
@ -369,14 +373,14 @@ begin
end; end;
end; end;
// Añado el resumen // Añado el resumen SE SOLICITA QUITAR POR MÓNICA 16/06/2020
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL); // Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
with AFacturaActual.Detalles do // with AFacturaActual.Detalles do
begin // begin
Edit; // Edit;
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA; // CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
Post; // Post;
end; // end;
// Añado una línea en blanco // Añado una línea en blanco
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);

13
Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -77,6 +77,7 @@ var
i : integer; i : integer;
ADetalles : IBizDetallesAlbaranCliente; ADetalles : IBizDetallesAlbaranCliente;
ADetallesController : IDetallesAlbaranClienteController; ADetallesController : IDetallesAlbaranClienteController;
ACadena: String;
begin begin
if not Assigned(AAlbaran) then if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignado(CopiarDetallesAAlbaran)'); raise Exception.Create ('Albaran no asignado(CopiarDetallesAAlbaran)');
@ -100,6 +101,18 @@ begin
//obligarle siempre a recalcular los detalles una sola vez //obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADetalles); ADetallesController.BeginUpdate(ADetalles);
// Añado el título, se cambia a petición por linea de concepto con resumen del albaran correspondiente, SE SOLICITA QUITAR POR MÓNICA 16/06/2020
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
with ADetalles do
begin
ACadena := '';
if not AContrato.REFERENCIAIsNull then
ACadena := 'Pedido: ' + AContrato.REFERENCIA + ' de ' + DateToStr(AContrato.FECHA_CONTRATO);
Edit;
CONCEPTO := ACadena;
Post;
end;
AArticulos.DataTable.First; AArticulos.DataTable.First;
for i := 0 to AArticulos.DataTable.RecordCount - 1 do for i := 0 to AArticulos.DataTable.RecordCount - 1 do
begin begin

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -126,8 +126,6 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
uNumUtils in '..\Base\Utiles\uNumUtils.pas', uNumUtils in '..\Base\Utiles\uNumUtils.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
@ -146,7 +144,9 @@ uses
schTarifasClient_Intf in '..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas', schTarifasClient_Intf in '..\Modulos\Tarifas\Model\schTarifasClient_Intf.pas',
schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas', schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas'; schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <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">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 07 de mayo de 2020 13:24</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">8</VersionInfo><VersionInfo Name="Release">4</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.8.4.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.8.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 24 de junio de 2020 18:24</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.