Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo errores mandados por luisleon

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@207 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2014-01-14 13:56:10 +00:00
parent 388b89efa9
commit ee01cfbe7a
10 changed files with 480 additions and 443 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -284,7 +284,10 @@ begin
Result := NIL;
for i := 0 to ModuleManager.ModulesCount - 1 do
if ModuleManager.Modules[i].Module.ModuleName = AModuleName then
Result := ModuleManager.Modules[i].Module
begin
Result := ModuleManager.Modules[i].Module;
Break;
end;
end;
function TAppFactuGES.GetModuleManager: THostManager;

BIN
Source/Base/Base.RES
View File

Binary file not shown.

BIN
Source/Modulos/Contactos/Model/Contactos_model.identcache
View File

Binary file not shown.

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

@ -856,6 +856,7 @@ begin
ID_CATEGORIA := CATEGORIA_CLIENTE;
BLOQUEADO := 0;
FELICITACION := 0;
SEPA := 0;
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;

2
Source/Modulos/Facturas proforma/Plugin/uPluginFacturasProforma.pas
View File

@ -54,7 +54,7 @@ end;
constructor TPluginFacturasProforma.Create(AOwner: TComponent);
begin
inherited;
ModuleName := MODULENAME_FACTURAS_CLIENTE;
ModuleName := MODULENAME_FACTURAS_PROFORMA;
uFacturasProformaViewRegister.RegisterViews;
end;

82
Source/Modulos/Facturas proforma/Views/uViewFacturaProforma.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProforma: TfrViewFacturaProforma
Width = 451
Height = 304
Width = 882
Height = 423
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,17 +9,19 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Height = 304
Width = 882
Height = 423
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
451
304)
882
423)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@ -88,13 +90,13 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Height = 345
Width = 355
end
object cbFormaPago: TcxDBLookupComboBox
Left = 146
Top = 103
Top = 130
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@ -126,21 +128,21 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
TabOrder = 3
Width = 269
end
object bFormasPago: TButton
Left = 172
Top = 103
Left = 352
Top = 130
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
TabOrder = 3
TabOrder = 4
OnClick = bFormasPagoClick
end
object cbCuentaBancaria: TcxDBComboBox
Left = 146
Top = 159
Top = 186
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@ -157,12 +159,12 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Width = 165
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 146
Top = 132
Top = 159
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@ -183,11 +185,11 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
TabOrder = 5
Width = 275
end
inline frViewDatosYSeleccionClienteFacturaProforma1: TfrViewDatosYSeleccionClienteFacturaProforma
Left = 343
Left = 523
Top = 36
Width = 387
Height = 180
@ -197,9 +199,9 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
TabOrder = 7
ReadOnly = False
ExplicitLeft = 343
ExplicitLeft = 523
ExplicitTop = 36
ExplicitWidth = 387
ExplicitHeight = 180
@ -220,20 +222,20 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 171
Left = 224
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 171
ExplicitLeft = 224
end
inherited Button3: TBitBtn
Left = 82
ExplicitLeft = 82
Left = 135
ExplicitLeft = 135
end
inherited Button4: TButton
Left = 251
ExplicitLeft = 251
Left = 304
ExplicitLeft = 304
end
inherited edtDireccion: TcxMemo
Style.LookAndFeel.SkinName = ''
@ -245,6 +247,31 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
end
end
end
object cbSituacion: TcxDBComboBox
Left = 124
Top = 84
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 12
Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True
Properties.Items.Strings = (
'PENDIENTE'
'PAGADA')
Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
Width = 338
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -273,6 +300,11 @@ inherited frViewFacturaProforma: TfrViewFacturaProforma
Control = edtFecha
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Situaci'#243'n:'
Control = cbSituacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group6: TdxLayoutGroup
Caption = 'Forma de pago'
object dxLayoutControl1Group4: TdxLayoutGroup

2
Source/Modulos/Facturas proforma/Views/uViewFacturaProforma.pas
View File

@ -58,6 +58,8 @@ type
dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Item11: TdxLayoutItem;
frViewDatosYSeleccionClienteFacturaProforma1: TfrViewDatosYSeleccionClienteFacturaProforma;
dxLayoutControl1Item7: TdxLayoutItem;
cbSituacion: TcxDBComboBox;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -36,7 +36,6 @@
<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">4</VersionInfo><VersionInfo Name="MinorVer">3</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.4.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">4.3.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 04 de diciembre de 2013 17:44</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><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "4.3.4.0\0"
VALUE "ProductVersion", "4.3.4.0\0"
VALUE "CompileDate", "viernes, 13 de diciembre de 2013 12:45\0"
VALUE "CompileDate", "martes, 14 de enero de 2014 13:08\0"
END
END
BLOCK "VarFileInfo"