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

Repaso general antes de primera subida a produccion

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@44 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-01-20 12:44:05 +00:00
parent 53f770ffa4
commit a9da477f7b
60 changed files with 198 additions and 1218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Database/scripts/factuges_sysdata.sql
View File

@ -8,20 +8,6 @@ INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO');
SET GENERATOR GEN_CATEGORIAS_ID TO 4;
COMMIT WORK;
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (4, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (6, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (7, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (8, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (9, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (10, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
SET GENERATOR GEN_INFORMES_ID TO 11;
COMMIT WORK;
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente');
@ -99,8 +85,9 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES
SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24;
COMMIT WORK;
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -');
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (2, '', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -');
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (1, 'B-81150278', 'NOVISEDA S.L.', 'NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, NULL, NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL);
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (2, 'B-81159278', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, '', NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL);
SET GENERATOR GEN_EMPRESAS_ID TO 3;
COMMIT WORK;

BIN
Resources/Logotipos/logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.9 KiB

16
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -326,8 +326,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitWidth = 202
Width = 202
end
inherited cbTipoIVA: TcxComboBox
Top = 138
@ -336,8 +334,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitWidth = 202
Width = 202
end
end
end
@ -371,6 +367,18 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited ToolBar1: TToolBar
Width = 660
ExplicitWidth = 660
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end

11
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -23,6 +23,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 23
Height = 22
Action = actEliminar
Enabled = False
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton2: TPngSpeedButton
@ -31,6 +32,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 23
Height = 22
Action = actAnadir
Enabled = False
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object eCalle: TcxDBTextEdit
@ -148,6 +150,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 388
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource
Enabled = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
@ -329,6 +332,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 277
DataBinding.DataField = 'LOGOTIPO'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.Stretch = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -350,6 +354,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 220
DataBinding.DataField = 'PARAM_MARGEN'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.OnValidate = eParamMargenPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -375,6 +380,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Top = 220
DataBinding.DataField = 'PARAM_TIEMPO'
DataBinding.DataSource = DADataSource
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.OnValidate = eParamTiempoPropertiesValidate
Style.BorderColor = clWindowFrame
@ -551,6 +557,8 @@ inherited frViewEmpresa: TfrViewEmpresa
end
object dxLayoutControl1Group13: TdxLayoutGroup
Caption = 'Datos cat'#225'logo art'#237'culos'
Enabled = False
Visible = False
LayoutDirection = ldHorizontal
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Margen de venta:'
@ -609,6 +617,8 @@ inherited frViewEmpresa: TfrViewEmpresa
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Observaciones'
Enabled = False
Visible = False
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
@ -674,6 +684,7 @@ inherited frViewEmpresa: TfrViewEmpresa
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Logotipo'
Enabled = False
Visible = False
LayoutDirection = ldHorizontal
object dxLayoutControl1Item17: TdxLayoutItem

8
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm
View File

@ -2,6 +2,12 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
Caption = 'fEditorPerfilUsuario'
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
inherited lblDesbloquear: TcxLabel
AnchorX = 821
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
@ -11,7 +17,7 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 638
ExplicitWidth = 887
ExplicitHeight = 332
end
end

5
Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas
View File

@ -9,7 +9,8 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item,
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase,
uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels;
uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls,
cxContainer, cxEdit, cxLabel;
type
TfEditorPerfilUsuario = class(TfEditorDBItem, IEditorPerfilUsuario)
@ -74,8 +75,8 @@ end;
constructor TfEditorPerfilUsuario.Create(AOwner: TComponent);
begin
inherited;
pgPaginas.ActivePageIndex := 0;
AsignarVista;
pgPaginas.ActivePageIndex := 0;
end;
destructor TfEditorPerfilUsuario.Destroy;

4
Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm
View File

@ -37,5 +37,9 @@ inherited fEditorPerfilesUsuario: TfEditorPerfilesUsuario
inherited actDuplicar: TAction
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
end
end

44
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm
View File

@ -2,6 +2,12 @@ inherited fEditorUsuario: TfEditorUsuario
Caption = 'fEditorUsuario'
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
inherited lblDesbloquear: TcxLabel
AnchorX = 821
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar
ExplicitWidth = 465
@ -22,10 +28,14 @@ inherited fEditorUsuario: TfEditorUsuario
end
inherited pgPaginas: TPageControl
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 887
ExplicitHeight = 332
inline frViewUsuario1: TfrViewUsuario
Left = 0
Top = 0
Width = 638
Width = 887
Height = 332
Align = alClient
Font.Charset = DEFAULT_CHARSET
@ -36,14 +46,14 @@ inherited fEditorUsuario: TfEditorUsuario
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 638
ExplicitWidth = 887
ExplicitHeight = 332
inherited dxLayoutControlArticulo: TdxLayoutControl
Width = 638
Width = 887
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 638
ExplicitWidth = 887
DesignSize = (
638
887
249)
inherited PngSpeedButton3: TPngSpeedButton
Top = 84
@ -51,12 +61,20 @@ inherited fEditorUsuario: TfEditorUsuario
end
inherited eNombre: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 164
Width = 164
end
inherited eUsuario: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 108
Width = 108
@ -64,22 +82,38 @@ inherited fEditorUsuario: TfEditorUsuario
inherited eMail: TcxDBHyperLinkEdit
Top = 84
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
end
inherited ePassword: TcxTextEdit
Top = 163
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 163
ExplicitWidth = 121
Width = 121
end
inherited eConfirmarPassword: TcxTextEdit
Top = 190
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 190
ExplicitWidth = 372
Width = 372
end
inherited cbPerfil: TcxComboBox
Top = 112
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 112
end
end

11
Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas
View File

@ -9,7 +9,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item,
TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario,
uBizUsuarios, dxLayoutLookAndFeels;
uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel;
type
TfEditorUsuario = class(TfEditorDBItem, IEditorUsuario)
@ -24,6 +24,7 @@ type
procedure actEliminarUpdate(Sender: TObject);
procedure actCambiarPasswordExecute(Sender: TObject);
procedure actCambiarPasswordUpdate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FController : IUsuariosController;
FUsuario : IBizUsuario;
@ -57,7 +58,7 @@ implementation
{$R *.dfm}
uses
uDialogUtils, cxControls;
uDialogUtils;
{ TfEditorUsuario }
@ -106,6 +107,12 @@ begin
end;
end;
procedure TfEditorUsuario.FormShow(Sender: TObject);
begin
inherited;
//
end;
function TfEditorUsuario.GetController: IUsuariosController;
begin
Result := FController;

2
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -300,7 +300,7 @@ procedure TControllerDetallesBase.CalculoDetalleDescuento(
ImporteDto : Double;
Redondeado : Double;}
begin
//Este metodo calcula el descuento por capitulo que no se activa para tecsitel
//Este metodo calcula el descuento por capitulo que no se activa para noviseda
{ with DataTable do
begin
if not Editing then Edit;

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">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.0.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">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.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>

3
Source/Cliente/FactuGES.rc
View File

@ -15,8 +15,7 @@ BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.0.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "1.0.0.0\0"
VALUE "ProductVersion", "2.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.identcache
View File

Binary file not shown.

4
Source/GUIBase/uEditorBase.pas
View File

@ -127,6 +127,8 @@ type
procedure actEliminarUpdate(Sender: TObject);
procedure actGuardarCerrarUpdate(Sender: TObject);
procedure actGuardarUpdate(Sender: TObject);
procedure FormShow(Sender: TObject);
protected
FWindowCaption : String;
FHeaderText : String;
@ -154,7 +156,7 @@ type
constructor Create(AOwner: TComponent); override;
function ShowModal : Integer; override;
procedure Show;
procedure FormShow(Sender: TObject);
published
property WindowCaption : String read GetWindowCaption write SetWindowCaption;
property HeaderText : String read GetHeaderText write SetHeaderText;

37
Source/GUIBase/uEditorPreview.dfm
View File

@ -34,6 +34,8 @@ inherited fEditorPreview: TfEditorPreview
end
object TBXSubmenuItem8: TTBXSubmenuItem [11]
Caption = 'Exportar'
Enabled = False
Visible = False
object TBXItem53: TTBXItem
Action = actExportarPDF
Images = SmallImages
@ -273,31 +275,41 @@ inherited fEditorPreview: TfEditorPreview
object actExportarPDF: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a PDF...'
Enabled = False
ImageIndex = 21
Visible = False
OnExecute = actExportarPDFExecute
end
object actExportarRTF: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a documento Word...'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actExportarRTFExecute
end
object actExportarExcel: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a libro Excel...'
Enabled = False
ImageIndex = 22
Visible = False
OnExecute = actExportarExcelExecute
end
object actExportarCorreo: TAction
Category = 'Exportaci'#243'n'
Caption = 'Enviar por correo electr'#243'nico...'
Enabled = False
ImageIndex = 25
Visible = False
OnExecute = actExportarCorreoExecute
end
object actExportarTexto: TAction
Category = 'Exportaci'#243'n'
Caption = 'Exportar a texto simple...'
Enabled = False
ImageIndex = 23
Visible = False
OnExecute = actExportarTextoExecute
end
end
@ -2478,7 +2490,7 @@ inherited fEditorPreview: TfEditorPreview
Bitmap = {}
end
object frxReport1: TfrxReport
Version = '4.3'
Version = '4.7.71'
DotMatrixReport = False
EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports'
@ -2529,6 +2541,7 @@ inherited fEditorPreview: TfEditorPreview
ShowDialog = False
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
Monochrome = True
Left = 120
Top = 384
@ -2536,13 +2549,21 @@ inherited fEditorPreview: TfEditorPreview
object frxPDFExport1: TfrxPDFExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
PrintOptimized = True
Outline = False
Background = False
HTMLTags = False
Author = 'FastReport'#174
Subject = 'FastReport PDF export'
Background = False
Creator = 'FastReport (http://www.fast-report.com)'
HTMLTags = False
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
HideToolbar = False
HideMenubar = False
HideWindowUI = False
FitWindow = False
CenterWindow = False
PrintScaling = False
Left = 160
Top = 384
end
@ -2550,6 +2571,7 @@ inherited fEditorPreview: TfEditorPreview
ShowDialog = False
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
Monochrome = True
Left = 192
Top = 384
@ -2557,6 +2579,8 @@ inherited fEditorPreview: TfEditorPreview
object frxXLSExport1: TfrxXLSExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
ExportEMF = True
AsText = False
Background = True
FastExport = True
@ -2569,25 +2593,32 @@ inherited fEditorPreview: TfEditorPreview
object frxMailExport1: TfrxMailExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
ShowExportDialog = True
SmtpPort = 25
UseIniFile = True
TimeOut = 60
ConfurmReading = False
Left = 80
Top = 384
end
object frxRTFExport: TfrxRTFExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
ExportEMF = True
Wysiwyg = True
Creator = 'FastReport http://www.fast-report.com'
SuppressPageHeadersFooters = False
HeaderFooterMode = hfText
AutoSize = False
Left = 232
Top = 384
end
object frxSimpleTextExport1: TfrxSimpleTextExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
Frames = False
EmptyLines = False
OEMCodepage = False

61
Source/Informes/1/InformeIVAClientes.fr3
View File

File diff suppressed because one or more lines are too long

65
Source/Informes/1/InformeIVAClientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/1/InformeListadoFacturasCliente.fr3
View File

File diff suppressed because one or more lines are too long

68
Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

39
Source/Informes/1/InformeListadoFacturasClientePendientes.fr3
View File

File diff suppressed because one or more lines are too long

43
Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

55
Source/Informes/1/InformeListadoRecibosCliPendientes.fr3
View File

File diff suppressed because one or more lines are too long

59
Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

52
Source/Informes/1/InformeListadoRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

61
Source/Informes/2/InformeIVAClientes.fr3
View File

File diff suppressed because one or more lines are too long

65
Source/Informes/2/InformeIVAClientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/2/InformeListadoFacturasCliente.fr3
View File

File diff suppressed because one or more lines are too long

67
Source/Informes/2/InformeListadoFacturasClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

39
Source/Informes/2/InformeListadoFacturasClientePendientes.fr3
View File

File diff suppressed because one or more lines are too long

43
Source/Informes/2/InformeListadoFacturasClientePendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

55
Source/Informes/2/InformeListadoRecibosCliPendientes.fr3
View File

File diff suppressed because one or more lines are too long

59
Source/Informes/2/InformeListadoRecibosCliPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

52
Source/Informes/2/InformeListadoRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

56
Source/Informes/2/InformeListadoRecibosClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -167,7 +167,7 @@ uses
uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente,
schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase,
// Pedidos no estará en TECSITEL
// Pedidos no estará en noviseda
// uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf,
uDialogUtils, Windows, Forms, Dialogs, uGUIBase, uIntegerListUtils,

2
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -187,7 +187,7 @@ end;
procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then

1
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente'
ClientWidth = 583
ExplicitWidth = 591
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -91,7 +91,7 @@ implementation
uses
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
uGenerarFacturasCliAlbCliUtils,
//En tecsitel no estaran habilitados los pedidos
//En noviseda no estaran habilitados los pedidos
// uPedidosClienteController, uBizPedidosCliente,
uDialogUtils, schAlbaranesClienteClient_Intf,
// uFacturasClienteController, uBizFacturasCliente,

BIN
Source/Modulos/Articulos/Controller/Articulos_controller.identcache
View File

Binary file not shown.

6
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -182,7 +182,7 @@ function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: In
begin
ShowHourglassCursor;
try
//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente
//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente
// if (AClienteID = -1) then
Result := BuscarTodos;
// else
@ -217,7 +217,7 @@ function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClie
begin
ShowHourglassCursor;
try
//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente
//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente
// if (AClienteID = -1) then
Result := BuscarTodosPorProveedor;
// else
@ -254,7 +254,7 @@ end;
function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo;
begin
//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente
//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente
// if not Assigned(ACliente) then
// raise Exception.Create('Falta ACliente: BuscarTodos');

1
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -159,7 +159,6 @@ inherited frViewArticulos: TfrViewArticulos
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 436
Visible = True
ExplicitTop = 436
ExplicitWidth = 715
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

4
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -158,7 +158,7 @@ end;
procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
// else
@ -173,7 +173,7 @@ end;
procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then

2
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -66,7 +66,7 @@ end;
function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
begin
//
Result := GetItem(ID_NULO)
end;
function TDataModuleFacturasCliente._GetDetalles: IBizDetallesFacturaCliente;

BIN
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache
View File

Binary file not shown.

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
Caption = 'Previsualizar la factura'
ClientWidth = 622
ExplicitWidth = 630
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -20,7 +19,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
ExplicitWidth = 622
end
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 540
object TBXItem58: TTBXItem [1]
Action = actExportarRTF
Images = SmallImages

2
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -1015,7 +1015,7 @@ begin
ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID);
ARecibosProveedorController.EliminarTodo(ARecibos);
//Se cambia la lógica a peticion de tecsitel, en el caso de meter una fecha de vencimiento,
//Se cambia la lógica a peticion de noviseda, en el caso de meter una fecha de vencimiento,
//los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento
//de la factura.
With AFormaPago.Plazos.DataTable do

1
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -5,6 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ClientWidth = 700
Position = poDesigned
ExplicitWidth = 708
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

2
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -345,7 +345,7 @@ procedure TfEditorPedidosProveedor.NuevoInterno;
begin
inherited;
// Para Tecsitel: No preguntar si hacer el pedido de proveedor
// Para noviseda: No preguntar si hacer el pedido de proveedor
// basado en pedido de cliente.
{ Respuesta := JsNuevoPedidoProveedorDialog.Execute;

4
Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
View File

@ -162,7 +162,7 @@ end;
procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP
// if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
// else
@ -177,7 +177,7 @@ end;
procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
//de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then

32
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -68,8 +68,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Left = 0
Top = 0
Width = 677
Height = 335
Align = alTop
Height = 301
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -82,12 +82,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitHeight = 335
inherited dxLayoutControl1: TdxLayoutControl
Width = 677
Height = 335
Height = 301
ExplicitWidth = 677
ExplicitHeight = 335
DesignSize = (
677
335)
301)
inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -123,53 +123,53 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 315
end
inherited eFechaEmision: TcxDBTextEdit
Left = 441
Left = 438
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 438
ExplicitWidth = 214
Width = 214
end
inherited eFormaPago: TcxDBTextEdit
Left = 441
Left = 438
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 438
ExplicitWidth = 214
Width = 214
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 441
Left = 438
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 438
ExplicitWidth = 214
Width = 214
end
inherited eNombreCliente: TcxDBTextEdit
Left = 441
Left = 438
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 438
ExplicitWidth = 214
Width = 214
end
inherited eNifCif: TcxDBTextEdit
Left = 441
Left = 438
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 438
ExplicitWidth = 214
Width = 214
end
@ -206,12 +206,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 217
end
inherited eCuenta: TcxDBTextEdit
Left = 441
Left = 438
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 438
ExplicitWidth = 214
Width = 214
end

32
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

@ -1,22 +1,24 @@
inherited frViewReciboCliente: TfrViewReciboCliente
Width = 795
Height = 333
ExplicitWidth = 795
ExplicitHeight = 333
Width = 856
Height = 450
ExplicitWidth = 856
ExplicitHeight = 450
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 795
Height = 333
Width = 856
Height = 450
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 795
ExplicitHeight = 333
DesignSize = (
795
333)
856
450)
object eReferencia: TcxDBTextEdit
Left = 120
Top = 30
@ -126,7 +128,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 314
end
object eFechaEmision: TcxDBTextEdit
Left = 545
Left = 529
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
@ -156,7 +158,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 228
end
object eFormaPago: TcxDBTextEdit
Left = 545
Left = 529
Top = 57
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@ -186,7 +188,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 228
end
object eImporteTotal: TcxDBCurrencyEdit
Left = 545
Left = 529
Top = 111
AutoSize = False
DataBinding.DataField = 'IMPORTE_FACTURA'
@ -222,7 +224,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 228
end
object eNombreCliente: TcxDBTextEdit
Left = 545
Left = 529
Top = 194
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NOMBRE_CLIENTE'
@ -252,7 +254,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 228
end
object eNifCif: TcxDBTextEdit
Left = 545
Left = 529
Top = 167
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'NIF_CIF_CLIENTE'
@ -400,7 +402,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
Width = 216
end
object eCuenta: TcxDBTextEdit
Left = 545
Left = 529
Top = 84
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'DATOS_BANCARIOS'
@ -498,6 +500,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'New Group'
ShowCaption = False
ShowBorder = False
@ -548,6 +551,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
end
object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = [aaHorizontal]

24
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -220,8 +220,9 @@ begin
// if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del albaran seleccionados a su factura correspondiente?', [])) = IDYES) then
// Result := GenerarFacturaCliAlb(AAlbaran)
// else
// Result := GenerarFacturaCliAlb(AAlbaran, False);
//Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1.
Result := GenerarFacturaCliAlb(AAlbaran, False);
Result := GenerarFacturaCliAlb(AAlbaran);
end;
if Assigned(AAlbaranesClienteController) then
@ -299,10 +300,13 @@ begin
if Assigned(AAlbaranes) then
begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then
Result := GenerarFacturaCliAlb(AAlbaranes)
else
Result := GenerarFacturaCliAlb(AAlbaranes, False);
// if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then
// Result := GenerarFacturaCliAlb(AAlbaranes)
// else
// Result := GenerarFacturaCliAlb(AAlbaranes, False);
//Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1.
Result := GenerarFacturaCliAlb(AAlbaranes);
end;
if Assigned(AAlbaranesClienteController) then
@ -357,7 +361,9 @@ begin
AAlbaranesController.RecuperarCliente(AListaAlbaranes);
AListaAlbaranes.Cliente.DataTable.Active := True;
AFacturas.Cliente := AListaAlbaranes.Cliente;
AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO;
AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO;
AFacturas.DATOS_BANCARIOS := AListaAlbaranes.DATOS_BANCARIOS;
AFacturas.PERSONA_CONTACTO := AListaAlbaranes.PERSONA_CONTACTO;
//Si el albaran es de tipo devolución hacemos la factura de tipo abono
if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
@ -385,7 +391,7 @@ begin
Edit;
CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA;
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
Post;
end;
@ -404,7 +410,8 @@ begin
// Añado el contenido del albarán
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
//No hay porte en noviseda
{ AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AFacturaActual.Detalles do
begin
Edit;
@ -413,6 +420,7 @@ begin
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
Post;
end;
}
// Añado el resumen
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);

2
Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas
View File

@ -402,7 +402,7 @@ begin
Edit;
CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA;
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
Post;
end;

2
Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas
View File

@ -361,7 +361,7 @@ begin
Edit;
CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA;
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los pedidos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
Post;
end;

2
Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
View File

@ -353,7 +353,7 @@ begin
Edit;
CONCEPTO := 'Presupuesto ' + AListaPresupuestos.REFERENCIA;
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los presupuestos por lo tanto el
IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los presupuestos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
Post;
end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

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">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 15 de enero de 2010 17:13</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">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 20 de enero de 2010 11:54</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>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 19 de enero de 2010 19:31\0"
VALUE "CompileDate", "miércoles, 20 de enero de 2010 12:54\0"
END
END
BLOCK "VarFileInfo"