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

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

Binary file not shown.

View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Binary file not shown.

File diff suppressed because one or more lines are too long

View File

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

View File

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

View File

@ -9,14 +9,14 @@ 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_ListaAnosAlbaranesDelta = '{A83C6728-0F72-4994-B6BD-27A86E154F6A}';
RID_AlbaranesClienteDelta = '{07D97148-0DFB-49CD-B447-24C9143ECA30}';
RID_AlbaranesCliente_DetallesDelta = '{D45C143D-1990-46DF-80F3-DE6AC699561E}';
RID_ListaAnosAlbaranesDelta = '{42769BFF-45B2-4BC5-8B65-09F00716E000}';
RID_AlbaranesClienteDelta = '{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}';
RID_AlbaranesCliente_DetallesDelta = '{0D156B8D-7951-4154-A33A-0A13B7228A09}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{A83C6728-0F72-4994-B6BD-27A86E154F6A}']
['{42769BFF-45B2-4BC5-8B65-09F00716E000}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{07D97148-0DFB-49CD-B447-24C9143ECA30}']
['{A1937C90-7059-43D4-BE8C-C471DD3F2D7C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -65,6 +65,7 @@ type
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_PEDIDOValue : Integer;
function GetOldREF_PEDIDOValue : String;
function GetOldFECHA_CONTRATOValue : DateTime;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String;
function GetOldID_DIRECCIONValue : Integer;
@ -111,6 +112,7 @@ type
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldFECHA_CONTRATO : DateTime read GetOldFECHA_CONTRATOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
@ -231,6 +233,12 @@ type
function GetOldREF_PEDIDOIsNull: Boolean; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); 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_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
@ -469,6 +477,10 @@ type
property REF_PEDIDOIsNull : Boolean read GetREF_PEDIDOIsNull write SetREF_PEDIDOIsNull;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
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_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
@ -602,7 +614,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{D45C143D-1990-46DF-80F3-DE6AC699561E}']
['{0D156B8D-7951-4154-A33A-0A13B7228A09}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -1284,6 +1296,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FACTURA];

View File

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

View File

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

View File

@ -16,6 +16,7 @@
<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\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Model\PresupuestosCliente_model.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
@ -241,14 +242,23 @@
<Target Name="PresupuestosCliente_model:Make">
<MSBuild Projects="..\Presupuestos de cliente\Model\PresupuestosCliente_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="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 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 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>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

View File

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

View File

@ -77,6 +77,7 @@ var
i : integer;
ADetalles : IBizDetallesAlbaranCliente;
ADetallesController : IDetallesAlbaranClienteController;
ACadena: String;
begin
if not Assigned(AAlbaran) then
raise Exception.Create ('Albaran no asignado(CopiarDetallesAAlbaran)');
@ -100,6 +101,18 @@ begin
//obligarle siempre a recalcular los detalles una sola vez
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;
for i := 0 to AArticulos.DataTable.RecordCount - 1 do
begin

View File

@ -126,8 +126,6 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_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',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_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',
schTarifasServer_Intf in '..\Modulos\Tarifas\Model\schTarifasServer_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 ..\Servicios\RODLFile.res}

View File

@ -28,7 +28,7 @@
<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">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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

Binary file not shown.