Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Versión 1.9.2

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1051 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2011-07-27 16:11:36 +00:00
parent b29ac441a5
commit f17665afb7
24 changed files with 529 additions and 279 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Build/Installer.fbpInf
View File

@ -6,7 +6,7 @@
<propertysets/>
<variables>
<project_path>
<![CDATA[C:\Codigo Tecsitel]]>
<![CDATA[C:\Codigo tecsitel]]>
</project_path>
</variables>
<properties>

5
Database/scripts/factuges.sql
View File

@ -742,7 +742,8 @@ CREATE TABLE FACTURAS_PROVEEDOR (
ID_TIPO_IVA TIPO_ID,
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
DATOS_BANCARIOS VARCHAR(255),
FECHA_VENCIMIENTO DATE
FECHA_VENCIMIENTO DATE,
FECHA_RECEPCION DATE
);
CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
@ -2144,6 +2145,7 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
TIPO,
REFERENCIA_PROVEEDOR,
FECHA_FACTURA,
FECHA_RECEPCION,
FECHA_VENCIMIENTO,
SITUACION,
BASE_IMPONIBLE,
@ -2178,6 +2180,7 @@ SELECT FACTURAS_PROVEEDOR.ID,
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
FACTURAS_PROVEEDOR.FECHA_FACTURA,
FACTURAS_PROVEEDOR.FECHA_RECEPCION,
FACTURAS_PROVEEDOR.FECHA_VENCIMIENTO,
TRIM(V_FAC_PRO_SITUACION.SITUACION),
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,

3
Source/Base/Utiles/uEMailUtils.pas
View File

@ -234,7 +234,6 @@ begin
{ ... the Body: }
lpszNoteText := PChar(FMailText);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
@ -248,7 +247,6 @@ begin
Sender.ulEIDSize := 0;
Sender.lpEntryID := nil;
lpOriginator := @Sender;
PRecip := Recipients;
{ We have multiple recipients: (MAPI_TO)
@ -377,6 +375,7 @@ begin
}
if FShowDialog then
MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0)
// MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_SIMPLE_EXPLICIT, 0)
else
MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0);

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,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">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">1</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">1.9.1.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">1.9.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></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">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</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">1.9.2.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">1.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,9,1,0
PRODUCTVERSION 1,9,1,0
FILEVERSION 1,9,2,0
PRODUCTVERSION 1,9,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.9.1.0\0"
VALUE "FileVersion", "1.9.2.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.9.1.0\0"
VALUE "ProductVersion", "1.9.2.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

70
Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3
View File

File diff suppressed because one or more lines are too long

72
Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/2/InformeListadoFacturasProveedorPendientes.fr3
View File

File diff suppressed because one or more lines are too long

72
Source/Informes/2/InformeListadoFacturasProveedorPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

14
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Top = 84
end
object rda_FacturasProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -66,6 +66,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DisplayLabel = 'Fecha de las factura'
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
@ -243,8 +247,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor'
IndexDefs = <>
Left = 208
@ -363,8 +365,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterSource = ds_FacturasProveedor
MasterFields = 'ID'
DetailFields = 'ID_FACTURA'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor_Detalles'
IndexDefs = <>
Left = 368
@ -431,8 +431,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
MasterSource = ds_FacturasProveedor
MasterFields = 'ID'
DetailFields = 'ID_FACTURA'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'FacturasProveedor_Pedidos'
IndexDefs = <>
Left = 368
@ -455,8 +453,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_FacturasProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosFacturas'
IndexDefs = <>
Left = 208

107
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schFacturasProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosFacturas = '{B75825C2-3B8D-4DF1-AF22-024910F5FBD9}';
RID_FacturasProveedor = '{44FD4DE6-500F-4F58-A58C-97CF98028CD2}';
RID_FacturasProveedor_Detalles = '{1CB49BE9-8421-4FD5-80E8-12FFC6360422}';
RID_FacturasProveedor_Pedidos = '{961FA245-B4B9-478F-8B57-34025D5C9EEB}';
RID_ListaAnosFacturas = '{94FBDA60-1B7A-4466-BCB5-A78D474F0270}';
RID_FacturasProveedor = '{757861F8-67CC-46FA-A3A3-094DF0532D43}';
RID_FacturasProveedor_Detalles = '{26D28A28-EDBA-4AF9-8516-96BC332BF817}';
RID_FacturasProveedor_Pedidos = '{F267AF62-2197-4F19-A71E-E511CE687790}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -33,6 +33,7 @@ const
fld_FacturasProveedorTIPO = 'TIPO';
fld_FacturasProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_FacturasProveedorFECHA_FACTURA = 'FECHA_FACTURA';
fld_FacturasProveedorFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_FacturasProveedorFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
fld_FacturasProveedorSITUACION = 'SITUACION';
fld_FacturasProveedorBASE_IMPONIBLE = 'BASE_IMPONIBLE';
@ -68,33 +69,34 @@ const
idx_FacturasProveedorTIPO = 3;
idx_FacturasProveedorREFERENCIA_PROVEEDOR = 4;
idx_FacturasProveedorFECHA_FACTURA = 5;
idx_FacturasProveedorFECHA_VENCIMIENTO = 6;
idx_FacturasProveedorSITUACION = 7;
idx_FacturasProveedorBASE_IMPONIBLE = 8;
idx_FacturasProveedorDESCUENTO = 9;
idx_FacturasProveedorIMPORTE_DESCUENTO = 10;
idx_FacturasProveedorIVA = 11;
idx_FacturasProveedorIMPORTE_IVA = 12;
idx_FacturasProveedorRE = 13;
idx_FacturasProveedorIMPORTE_RE = 14;
idx_FacturasProveedorIMPORTE_TOTAL = 15;
idx_FacturasProveedorOBSERVACIONES = 16;
idx_FacturasProveedorID_PROVEEDOR = 17;
idx_FacturasProveedorNIF_CIF = 18;
idx_FacturasProveedorNOMBRE = 19;
idx_FacturasProveedorCALLE = 20;
idx_FacturasProveedorPOBLACION = 21;
idx_FacturasProveedorPROVINCIA = 22;
idx_FacturasProveedorCODIGO_POSTAL = 23;
idx_FacturasProveedorFECHA_ALTA = 24;
idx_FacturasProveedorFECHA_MODIFICACION = 25;
idx_FacturasProveedorUSUARIO = 26;
idx_FacturasProveedorID_FORMA_PAGO = 27;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 28;
idx_FacturasProveedorID_TIPO_IVA = 29;
idx_FacturasProveedorIMPORTE_NETO = 30;
idx_FacturasProveedorIMPORTE_PORTE = 31;
idx_FacturasProveedorDATOS_BANCARIOS = 32;
idx_FacturasProveedorFECHA_RECEPCION = 6;
idx_FacturasProveedorFECHA_VENCIMIENTO = 7;
idx_FacturasProveedorSITUACION = 8;
idx_FacturasProveedorBASE_IMPONIBLE = 9;
idx_FacturasProveedorDESCUENTO = 10;
idx_FacturasProveedorIMPORTE_DESCUENTO = 11;
idx_FacturasProveedorIVA = 12;
idx_FacturasProveedorIMPORTE_IVA = 13;
idx_FacturasProveedorRE = 14;
idx_FacturasProveedorIMPORTE_RE = 15;
idx_FacturasProveedorIMPORTE_TOTAL = 16;
idx_FacturasProveedorOBSERVACIONES = 17;
idx_FacturasProveedorID_PROVEEDOR = 18;
idx_FacturasProveedorNIF_CIF = 19;
idx_FacturasProveedorNOMBRE = 20;
idx_FacturasProveedorCALLE = 21;
idx_FacturasProveedorPOBLACION = 22;
idx_FacturasProveedorPROVINCIA = 23;
idx_FacturasProveedorCODIGO_POSTAL = 24;
idx_FacturasProveedorFECHA_ALTA = 25;
idx_FacturasProveedorFECHA_MODIFICACION = 26;
idx_FacturasProveedorUSUARIO = 27;
idx_FacturasProveedorID_FORMA_PAGO = 28;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 29;
idx_FacturasProveedorID_TIPO_IVA = 30;
idx_FacturasProveedorIMPORTE_NETO = 31;
idx_FacturasProveedorIMPORTE_PORTE = 32;
idx_FacturasProveedorDATOS_BANCARIOS = 33;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID = 'ID';
@ -153,7 +155,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{CB673572-AD31-405A-9EF0-0FC870012A4E}']
['{B70A8975-7F23-4972-9368-BFE726B5E26A}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -188,7 +190,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{20CB371E-32B4-45B7-B925-7DAF93C6F093}']
['{F772B3DA-3DD4-4EF7-B92E-A308271EA1EB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -214,6 +216,10 @@ type
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
function GetFECHA_RECEPCIONValue: DateTime;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
function GetFECHA_RECEPCIONIsNull: Boolean;
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
function GetFECHA_VENCIMIENTOValue: DateTime;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
function GetFECHA_VENCIMIENTOIsNull: Boolean;
@ -336,6 +342,8 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@ -423,6 +431,10 @@ type
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_RECEPCIONValue: DateTime; virtual;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
@ -544,6 +556,8 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull: Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
@ -607,7 +621,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{AE1A2F3E-33E1-4593-A397-EF5B9520D17E}']
['{190BF84D-B95F-44CC-852D-EA525387744E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -822,7 +836,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{00E2CBCC-20FA-40E8-A713-06794CC6A2B1}']
['{F3D2B69B-D69B-48F2-B9CC-142E86840B12}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1112,6 +1126,27 @@ begin
DataTable.Fields[idx_FacturasProveedorFECHA_FACTURA].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetFECHA_RECEPCIONValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].AsDateTime;
end;
procedure TFacturasProveedorDataTableRules.SetFECHA_RECEPCIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].AsDateTime := aValue;
end;
function TFacturasProveedorDataTableRules.GetFECHA_RECEPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorFECHA_RECEPCION].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := DataTable.Fields[idx_FacturasProveedorFECHA_VENCIMIENTO].AsDateTime;

59
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,15 +9,15 @@ 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_ListaAnosFacturasDelta = '{EC0C9C41-F75A-44AF-9563-C1BF7C94797E}';
RID_FacturasProveedorDelta = '{E6CC20F4-E176-4296-8598-60A05EE8A3BA}';
RID_FacturasProveedor_DetallesDelta = '{F1E67867-CD3F-4CAD-A9E2-103852351589}';
RID_FacturasProveedor_PedidosDelta = '{F8DF3A8E-57BE-4D89-AA51-C60A1A6845F0}';
RID_ListaAnosFacturasDelta = '{99DA85D3-EA9A-41E6-A66E-FF1D2AB9AE8B}';
RID_FacturasProveedorDelta = '{58681BDC-4147-4339-BACB-501CA5E4487D}';
RID_FacturasProveedor_DetallesDelta = '{BBB8B4C0-752D-4319-8893-B5C08B88658F}';
RID_FacturasProveedor_PedidosDelta = '{085BF081-2B43-4D0F-8B97-B03EB67DC5F2}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{EC0C9C41-F75A-44AF-9563-C1BF7C94797E}']
['{99DA85D3-EA9A-41E6-A66E-FF1D2AB9AE8B}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{E6CC20F4-E176-4296-8598-60A05EE8A3BA}']
['{58681BDC-4147-4339-BACB-501CA5E4487D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -59,6 +59,7 @@ type
function GetOldTIPOValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldFECHA_FACTURAValue : DateTime;
function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldFECHA_VENCIMIENTOValue : DateTime;
function GetOldSITUACIONValue : String;
function GetOldBASE_IMPONIBLEValue : Currency;
@ -94,6 +95,7 @@ type
property OldTIPO : String read GetOldTIPOValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
@ -166,6 +168,12 @@ type
function GetOldFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFECHA_RECEPCIONValue: DateTime; virtual;
function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
function GetOldFECHA_RECEPCIONIsNull: Boolean; virtual;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
function GetFECHA_VENCIMIENTOIsNull: Boolean; virtual;
function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
@ -353,6 +361,10 @@ type
property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull;
property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property FECHA_RECEPCIONIsNull : Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldFECHA_RECEPCIONIsNull : Boolean read GetOldFECHA_RECEPCIONIsNull;
property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
property FECHA_VENCIMIENTOIsNull : Boolean read GetFECHA_VENCIMIENTOIsNull write SetFECHA_VENCIMIENTOIsNull;
property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
@ -470,7 +482,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{F1E67867-CD3F-4CAD-A9E2-103852351589}']
['{BBB8B4C0-752D-4319-8893-B5C08B88658F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -684,7 +696,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{F8DF3A8E-57BE-4D89-AA51-C60A1A6845F0}']
['{085BF081-2B43-4D0F-8B97-B03EB67DC5F2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1044,6 +1056,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_FACTURA] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetFECHA_RECEPCIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetFECHA_RECEPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_RECEPCIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_RECEPCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldFECHA_RECEPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFECHA_RECEPCION]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_RECEPCIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_RECEPCION] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFECHA_VENCIMIENTO];

1
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -261,6 +261,7 @@ begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now);
FECHA_RECEPCION := DateOf(Now);
FECHA_VENCIMIENTO := DateOf(Now);
ID_PROVEEDOR := ID_NULO;
TIPO := CTE_TIPO_FACTURA;

94
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -445,11 +445,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA' +
'_FACTURA, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IMPORTE_IVA, IMPORT' +
'E_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta ' +
'bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10#10'from V_f' +
'acturas_proveedor'#10'where {where}'#10'order by ANO, MES, fecha_vencimi' +
'ento, DATOS_BANCARIOS, NOMBRE'#10#10
'_FACTURA, FECHA_RECEPCION, FECHA_VENCIMIENTO, BASE_IMPONIBLE, IM' +
'PORTE_IVA, IMPORTE_TOTAL,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 ' +
'then '#39'Sin cuenta bancaria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BAN' +
'CARIOS'#10#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by ANO, M' +
'ES, fecha_vencimiento, DATOS_BANCARIOS, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -514,6 +514,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item
DatasetField = 'FECHA_RECEPCION'
TableField = 'FECHA_RECEPCION'
end>
end>
Name = 'InformeListadoFacturasPendientes'
@ -563,6 +567,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
@ -1688,47 +1696,63 @@ object RptFacturasProveedor: TRptFacturasProveedor
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40577.743050081020000000
ReportOptions.LastChange = 40751.452820069450000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'procedure Chart1OnBeforePrint(Sender: TfrxComponent);'
'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBInformeListadoFacturasGrafComp."ANO1"> <> 0) then ' +
' '
' TLineSeries(Chart1.Series[0]).Title := '#39'Total Facturado '#39' +' +
' IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO1">);'
''
' if (<frxDBInformeListadoFacturasGrafComp."ANO2"> <> 0) then'
' TLineSeries(Chart1.Series[1]).Title := '#39'Total Facturado '#39' +' +
' IntToStr(<frxDBInformeListadoFacturasGrafComp."ANO2">)'
' else'
' Chart1.Series[1].Active := False; '
' if Engine.FinalPass then'
' begin'
' if (<Page#> = <TotalPages#>) then'
' begin '
' mContinua.Visible := False;'
' end '
' else'
' begin '
' mContinua.Visible := True;'
' end '
' end; '
'end;'
''
'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' Valor:Double; '
' ACadena : String; ' +
' '
'begin'
' Valor := SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOT' +
'AL1">) * 100; '
' ACadena := <frxDBInformeListadoFacturasPendResumen."DATOS_BAN' +
'CARIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' if (SUM(<frxDBInformeListadoFacturasGrafComp."IMPORTE_TOTAL">)' +
' = 0) then'
' Valor := 100 - Valor '
' else'
' Valor := 100 - (Valor/SUM(<frxDBInformeListadoFacturasGrafC' +
'omp."IMPORTE_TOTAL">)); '
' Memo11.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end;'
'end;'
''
' memo16.lines.add(FormatFloat('#39'#,##0.00 %'#39',Valor));'
'procedure Memo10OnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String; ' +
' '
'begin'
' ACadena := <frxDBInformeListadoFacturasPendientes."DATOS_BANC' +
'ARIOS">; '
' if Pos('#39'N'#186' de cuenta: '#39', ACadena) > 0 then'
' begin'
' Delete(ACadena, 1, 14);'
' Memo10.Lines.Text := '#39' '#39' + ACadena; ' +
' '
' end;'
'end;'
''
'begin'
'end. ')
''
'end.')
ShowProgress = False
StoreInDFM = False
OnStartReport = 'frxReportOnStartReport'
@ -1894,6 +1918,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime

120
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -179,6 +179,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'FECHA_RECEPCION'
TableField = 'FECHA_RECEPCION'
end>
end>
Name = 'FacturasProveedor'
@ -219,6 +223,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datDateTime
DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
@ -672,122 +680,167 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
Value = ''
end>
Statements = <
@ -803,15 +856,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' NOMBRE, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, '#10' FECH' +
'A_ALTA, FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, '#10' RECARG' +
'O_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' D' +
'ATOS_BANCARIOS, FECHA_VENCIMIENTO)'#10' VALUES'#10' (:ID, :ID_EMPRES' +
'A, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BAS' +
'E_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE' +
'_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :I' +
'D_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVI' +
'NCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA_MODIFICACION, :U' +
'SUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IV' +
'A, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA' +
'_VENCIMIENTO)'#10' '#10' '#10#10
'ATOS_BANCARIOS, FECHA_VENCIMIENTO, FECHA_RECEPCION)'#10' VALUES'#10' ' +
' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10' :FE' +
'CHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENT' +
'O, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :' +
'OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :' +
'POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_ALTA, :FECHA' +
'_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECARGO_EQUIVALE' +
'NCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_' +
'BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -840,126 +893,172 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_RECEPCION'
DataType = datDateTime
Value = ''
end
item
@ -988,7 +1087,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'IVALENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_I' +
'VA, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMP' +
'ORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_BANCARIOS,'#10' FECHA_VE' +
'NCIMIENTO = :FECHA_VENCIMIENTO'#10' WHERE'#10' (ID = :OLD_ID)'#10
'NCIMIENTO = :FECHA_VENCIMIENTO,'#10' FECHA_RECEPCION = :FECHA_REC' +
'EPCION'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -1,5 +1,5 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 687
Width = 451
Height = 304
Align = alClient
OnCreate = CustomViewCreate
@ -9,7 +9,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 687
Width = 451
Height = 304
Align = alClient
ParentBackground = True
@ -17,9 +17,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
DesignSize = (
687
451
304)
object eReferencia: TcxDBTextEdit
Left = 136
@ -73,7 +72,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object memObservaciones: TcxDBMemo
Left = 22
Top = 242
Top = 269
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@ -89,13 +88,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Height = 159
Width = 301
end
object cbFormaPago: TcxDBLookupComboBox
Left = 136
Top = 135
Top = 162
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -126,16 +125,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
TabOrder = 4
Width = 78
end
object bFormasPago: TButton
Left = 204
Top = 135
Left = 162
Top = 162
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
TabOrder = 4
TabOrder = 5
OnClick = bFormasPagoClick
end
object eReferenciaProveedor: TcxDBTextEdit
@ -163,7 +162,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158
end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 364
Left = 322
Top = 30
Width = 350
Height = 202
@ -173,9 +172,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 8
TabOrder = 9
ReadOnly = False
ExplicitLeft = 364
ExplicitLeft = 322
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
@ -217,22 +216,22 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 209
Left = 203
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 209
ExplicitLeft = 203
end
inherited Button3: TBitBtn
Left = 93
ExplicitLeft = 93
Left = 87
ExplicitLeft = 87
end
end
end
object cbCuentaBancaria: TcxDBComboBox
Left = 136
Top = 191
Top = 218
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@ -249,12 +248,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 165
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 136
Top = 164
Top = 191
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@ -274,9 +273,34 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Width = 251
end
object edtFechaRecepcion: TcxDBDateEdit
Left = 136
Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 158
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -307,6 +331,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Control = edtFecha
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Fecha recepci'#243'n:'
Control = edtFechaRecepcion
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Forma de pago'

2
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -55,6 +55,8 @@ type
ledtFechaVencimiento: TdxLayoutItem;
edtFechaVencimiento: TcxDBDateEdit;
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item8: TdxLayoutItem;
edtFechaRecepcion: TcxDBDateEdit;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);

12
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -71,6 +71,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
PropertiesClassName = 'TcxDateEditProperties'
Width = 27
end
object cxGridViewFECHA_RECEPCION: TcxGridDBColumn
Caption = 'Fecha recepci'#243'n'
DataBinding.FieldName = 'FECHA_RECEPCION'
end
object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
Caption = 'Fecha vto.'
DataBinding.FieldName = 'FECHA_VENCIMIENTO'
@ -186,22 +190,22 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 229
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 333
Left = 230
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 333
ExplicitLeft = 230
ExplicitWidth = 188
Width = 188
end
inherited eLista: TcxComboBox
Left = 558
Left = 388
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 558
ExplicitLeft = 388
ExplicitWidth = 215
Width = 215
end

4
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -13,7 +13,8 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizFacturasProveedor, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
uViewBase;
type
IViewFacturasProveedor = interface(IViewGrid)
@ -56,6 +57,7 @@ type
TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewTIPO: TcxGridDBColumn;
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewFECHA_RECEPCION: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -117,8 +117,6 @@ uses
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
@ -135,7 +133,9 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,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 Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">1</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.9.1.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.9.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 05 de mayo de 2011 16:36</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</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.9.2.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.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 27 de julio de 2011 11:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 1,9,1,0
PRODUCTVERSION 1,9,1,0
FILEVERSION 1,9,2,0
PRODUCTVERSION 1,9,2,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.9.1.0\0"
VALUE "ProductVersion", "1.9.1.0\0"
VALUE "CompileDate", "jueves, 05 de mayo de 2011 16:42\0"
VALUE "FileVersion", "1.9.2.0\0"
VALUE "ProductVersion", "1.9.2.0\0"
VALUE "CompileDate", "miércoles, 27 de julio de 2011 13:11\0"
END
END
BLOCK "VarFileInfo"