Cullere/Cullere_FactuGES2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pequeños arreglillos finales

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Cullere_FactuGES2/trunk@8 e61cf4a9-ab77-6246-bebb-cff159b4cb7d
This commit is contained in:
David Arranz 2014-01-31 16:44:08 +00:00
parent 32b8482603
commit a9351ba34c
11 changed files with 353 additions and 330 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.

BIN
Build/Installer.fbl6
View File

Binary file not shown.

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

File diff suppressed because one or more lines are too long

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

18
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -11,16 +11,16 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 646 ExplicitWidth = 646
ExplicitHeight = 563 ExplicitHeight = 563
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 584 Left = 585
ExplicitLeft = 584 ExplicitLeft = 585
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 584 Left = 585
ExplicitLeft = 584 ExplicitLeft = 585
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 584 Left = 585
ExplicitLeft = 584 ExplicitLeft = 585
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 132 Left = 132
@ -331,6 +331,7 @@ inherited frViewCliente: TfrViewCliente
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 132 Left = 132
Enabled = False
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
@ -394,6 +395,11 @@ inherited frViewCliente: TfrViewCliente
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
inherited dxLayoutControlContactoGroup1: TdxLayoutGroup inherited dxLayoutControlContactoGroup1: TdxLayoutGroup
inherited dxLayoutControlContactoGroup16: TdxLayoutGroup
inherited dxLayoutControlContactoItem25: TdxLayoutItem
Enabled = False
end
end
object dxLayoutControlContactoItem24: TdxLayoutItem object dxLayoutControlContactoItem24: TdxLayoutItem
Caption = 'Nombre comercial:' Caption = 'Nombre comercial:'
Enabled = False Enabled = False

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

@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -181,7 +181,7 @@ type
end; end;
{ TListaAnosFacturasDataTableRules } { TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -515,7 +515,7 @@ type
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -935,7 +935,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

36
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -237,6 +237,11 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
end
item
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
end> end>
Params = < Params = <
item item
@ -652,11 +657,12 @@ object RptFacturasCliente: TRptFacturasCliente
'PRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPR' + 'PRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPR' +
'ESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_' + 'ESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_' +
'1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESA' + '1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESA' +
'S.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESA' + 'S.LOGOTIPO,'#10' V_FACTURAS_CLIENTE.REFERENCIA_PRESUPUESTO'#10'FROM V' +
'S.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_F' + '_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA' +
'ACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO O' + #10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.I' +
'N (CONTACTOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLI' + 'D_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATO' +
'ENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID'#10 'S_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FAC' +
'TURAS_CLIENTE.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -851,6 +857,10 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'REFERENCIA_CLIENTE' DatasetField = 'REFERENCIA_CLIENTE'
TableField = '<unknown>' TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_CLIENTE' SQLOrigin = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'REFERENCIA_PRESUPUESTO'
TableField = 'REFERENCIA_PRESUPUESTO'
end> end>
end> end>
Name = 'InformeFacturasCliente' Name = 'InformeFacturasCliente'
@ -1073,6 +1083,11 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
end
item
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
end> end>
end end
item item
@ -1545,11 +1560,16 @@ object RptFacturasCliente: TRptFacturasCliente
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 40959.582460520830000000 ReportOptions.LastChange = 41670.730509479170000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
ReportOptions.VersionRelease = '1'
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False

1
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -284,7 +284,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.Items.Strings = ( Properties.Items.Strings = (
'PENDIENTE' 'PENDIENTE'
'PARCIALMENTE PAGADA'
'PAGADA') 'PAGADA')
TabOrder = 3 TabOrder = 3
Width = 121 Width = 121

3
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -165,8 +165,7 @@ begin
case cxGrid.ActiveLevel.Index of case cxGrid.ActiveLevel.Index of
1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE); 1 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PENDIENTE, CTE_PENDIENTE);
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PARCIAMENTE_PAGADA, CTE_PARCIAMENTE_PAGADA); 2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, CTE_PAGADA, CTE_PAGADA);
end; end;
end; end;

3
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,7 +29,6 @@
<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">6</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.6.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.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 08 de octubre de 2013 18:53</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">6</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.6.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.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 08 de octubre de 2013 18:53</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><ModelSupport>True</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>True</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.