Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios varios de contabilidad para poder ser más manejable en ciertos casos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@171 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-19 16:51:25 +00:00
parent e56234c002
commit 461102c1fe
29 changed files with 316 additions and 172 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -46,6 +46,7 @@ type
procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
function DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
function Duplicar(ASubCuenta: IBizSubCuenta): IBizSubCuenta;
end;
TSubCuentasController = class(TObservador, ISubCuentasController)
@ -63,6 +64,7 @@ type
function ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
procedure AsignarDataModule;
procedure FiltrarEjercicio(ASubCuenta: IBizSubCuenta);
function _Vacio : IBizSubCuenta; virtual;
public
constructor Create; override;
@ -92,6 +94,7 @@ type
procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
function DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
function Duplicar(ASubCuenta: IBizSubCuenta): IBizSubCuenta;
end;
implementation
@ -99,7 +102,7 @@ implementation
uses
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
uIEditorSubCuentas, uIEditorSubCuenta, uIEditorElegirSubCuentas, uDataModuleContabilidad,
uBizCuentas, uCuentasController, Dialogs,
uBizCuentas, uCuentasController, Dialogs, Variants,
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows;
@ -365,6 +368,22 @@ begin
inherited;
end;
function TSubCuentasController.Duplicar(ASubCuenta: IBizSubCuenta): IBizSubCuenta;
begin
Result := Self._Vacio;
ShowHourglassCursor;
try
DuplicarRegistros(ASubCuenta.DataTable, Result.DataTable, mdrActual);
// Hay que dejar algunos campos como si fuera una subcuenta nueva
Result.Edit;
with Result do
Result.DataTable.FieldByName(fld_SubCuentasID_CONTACTO).AsVariant := Null;
Result.Post;
finally
HideHourglassCursor;
end;
end;
function TSubCuentasController.ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
begin
Result := False;
@ -452,6 +471,11 @@ begin
end;
end;
function TSubCuentasController._Vacio: IBizSubCuenta;
begin
Result := Buscar(ID_NULO);
end;
procedure TSubCuentasController.ElegirCuenta(ASubCuenta: IBizSubCuenta);
var
ACuenta : IBizCuenta;

32
Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
View File

@ -529,67 +529,99 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
item
Name = 'ID_APUNTE'
DataType = datInteger
DisplayLabel = 'Diario_ID_APUNTE'
DictionaryEntry = 'Diario_ID_APUNTE'
InPrimaryKey = True
end
item
Name = 'ID_ASIENTO'
DataType = datInteger
DisplayLabel = 'Diario_ID_ASIENTO'
DictionaryEntry = 'Diario_ID_ASIENTO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DisplayLabel = 'Diario_ID_FACTURA'
DictionaryEntry = 'Diario_ID_FACTURA'
end
item
Name = 'ID_PAGO'
DataType = datInteger
DisplayLabel = 'Diario_ID_PAGO'
DictionaryEntry = 'Diario_ID_PAGO'
end
item
Name = 'ORDEN_ASIENTO'
DataType = datInteger
DisplayLabel = 'Diario_ORDEN_ASIENTO'
Alignment = taRightJustify
DictionaryEntry = 'Diario_ORDEN_ASIENTO'
end
item
Name = 'FECHA_ASIENTO'
DataType = datDateTime
DisplayLabel = 'Diario_FECHA_ASIENTO'
DictionaryEntry = 'Diario_FECHA_ASIENTO'
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
DisplayLabel = 'Diario_ID_SUBCUENTA'
DictionaryEntry = 'Diario_ID_SUBCUENTA'
end
item
Name = 'REF_SUBCUENTA'
DataType = datString
Size = 15
DisplayLabel = 'Diario_REF_SUBCUENTA'
DictionaryEntry = 'Diario_REF_SUBCUENTA'
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
DisplayLabel = 'Diario_SUBCUENTA'
DictionaryEntry = 'Diario_SUBCUENTA'
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
DisplayLabel = 'Diario_ID_EJERCICIO'
DictionaryEntry = 'Diario_ID_EJERCICIO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
DisplayLabel = 'Diario_CONCEPTO'
DictionaryEntry = 'Diario_CONCEPTO'
end
item
Name = 'DOCUMENTO'
DataType = datString
Size = 255
DisplayLabel = 'Diario_DOCUMENTO'
DictionaryEntry = 'Diario_DOCUMENTO'
end
item
Name = 'DEBE'
DataType = datCurrency
Alignment = taRightJustify
DictionaryEntry = 'Diario_DEBE'
end
item
Name = 'HABER'
DataType = datCurrency
DisplayLabel = 'Diario_HABER'
Alignment = taRightJustify
DictionaryEntry = 'Diario_HABER'
end
item
Name = 'PUNTEADO'
DataType = datSmallInt
DisplayLabel = 'Diario_PUNTEADO'
DictionaryEntry = 'Diario_PUNTEADO'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

90
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -329,6 +329,74 @@ object srvContabilidad: TsrvContabilidad
item
Name = 'Asientos_ID_RECIBO'
DataType = datInteger
end
item
Name = 'Diario_ID_APUNTE'
DataType = datInteger
end
item
Name = 'Diario_ID_ASIENTO'
DataType = datInteger
end
item
Name = 'Diario_ID_FACTURA'
DataType = datInteger
end
item
Name = 'Diario_ID_PAGO'
DataType = datInteger
end
item
Name = 'Diario_ORDEN_ASIENTO'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'Diario_FECHA_ASIENTO'
DataType = datDateTime
end
item
Name = 'Diario_ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'Diario_REF_SUBCUENTA'
DataType = datString
Size = 15
end
item
Name = 'Diario_SUBCUENTA'
DataType = datString
Size = 255
end
item
Name = 'Diario_ID_EJERCICIO'
DataType = datInteger
end
item
Name = 'Diario_CONCEPTO'
DataType = datString
Size = 255
end
item
Name = 'Diario_DOCUMENTO'
DataType = datString
Size = 255
end
item
Name = 'Diario_DEBE'
DataType = datCurrency
DisplayLabel = 'DEBE'
Alignment = taRightJustify
end
item
Name = 'Diario_HABER'
DataType = datCurrency
Alignment = taRightJustify
end
item
Name = 'Diario_PUNTEADO'
DataType = datSmallInt
end>
Left = 150
Top = 24
@ -420,6 +488,11 @@ object srvContabilidad: TsrvContabilidad
Name = 'REF_CUENTA'
Value = ''
ParamType = daptInput
end
item
Name = 'REF_TIENDA'
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -432,7 +505,7 @@ object srvContabilidad: TsrvContabilidad
'Integer))'#10'from cont_subcuentas'#10'left join cont_cuentas on cont_cu' +
'entas.id = cont_subcuentas.id_cuenta'#10'where cont_subcuentas.id_ej' +
'ercicio = :ID_EJERCICIO'#10'and cont_cuentas.ref_cuenta = :REF_CUENT' +
'A'#10
'A'#10'and substr(cont_subcuentas.ref_subcuenta, 4, 5) = :REF_TIENDA'#10
StatementType = stSQL
ColumnMappings = <
item
@ -554,67 +627,82 @@ object srvContabilidad: TsrvContabilidad
item
Name = 'ID_APUNTE'
DataType = datInteger
DictionaryEntry = 'Diario_ID_APUNTE'
InPrimaryKey = True
end
item
Name = 'ID_ASIENTO'
DataType = datInteger
DictionaryEntry = 'Diario_ID_ASIENTO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'Diario_ID_FACTURA'
end
item
Name = 'ID_PAGO'
DataType = datInteger
DictionaryEntry = 'Diario_ID_PAGO'
end
item
Name = 'ORDEN_ASIENTO'
DataType = datInteger
DictionaryEntry = 'Diario_ORDEN_ASIENTO'
end
item
Name = 'FECHA_ASIENTO'
DataType = datDateTime
DictionaryEntry = 'Diario_FECHA_ASIENTO'
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
DictionaryEntry = 'Diario_ID_SUBCUENTA'
end
item
Name = 'REF_SUBCUENTA'
DataType = datString
Size = 15
DictionaryEntry = 'Diario_REF_SUBCUENTA'
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
DictionaryEntry = 'Diario_SUBCUENTA'
end
item
Name = 'ID_EJERCICIO'
DataType = datInteger
DictionaryEntry = 'Diario_ID_EJERCICIO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 255
DictionaryEntry = 'Diario_CONCEPTO'
end
item
Name = 'DOCUMENTO'
DataType = datString
Size = 255
DictionaryEntry = 'Diario_DOCUMENTO'
end
item
Name = 'DEBE'
DataType = datCurrency
DictionaryEntry = 'Diario_DEBE'
end
item
Name = 'HABER'
DataType = datCurrency
DictionaryEntry = 'Diario_HABER'
end
item
Name = 'PUNTEADO'
DataType = datSmallInt
DictionaryEntry = 'Diario_PUNTEADO'
end>
end
item

53
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
View File

@ -77,7 +77,17 @@ begin
try
try
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_CLIENTES]);
dsData := schContabilidad.NewDataset(AConn, 'DarCodigoContableTienda', ['ID_EMPRESA', 'ID_TIENDA'], [ID_EMPRESA, ID_TIENDA]);
dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then
NumTienda := 0
else
NumTienda := dsData.FieldValues[0];
RefTienda := format('%.2d', [NumTienda]);
dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA', 'REF_TIENDA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_CLIENTES, RefTienda]);
dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then
@ -87,20 +97,9 @@ begin
Inc(NumCuenta);
RefSubCuenta := format('%.5d', [NumCuenta]);
dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarCodigoContableTienda', ['ID_EMPRESA', 'ID_TIENDA'], [ID_EMPRESA, ID_TIENDA]);
dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then
NumTienda := 0
else
NumTienda := dsData.FieldValues[0];
RefTienda := format('%.2d', [NumTienda]);
RefSubCuenta := IntToStr(REFERENCIA_CLIENTES) + RefTienda + RefSubCuenta;
dsData := NIL;
dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_CLIENTES]);
dsData.Active := True;
@ -161,18 +160,6 @@ begin
try
try
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then
NumCuenta := 0
else
NumCuenta := dsData.FieldValues[0];
Inc(NumCuenta);
RefSubCuenta := format('%.5d', [NumCuenta]);
dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarCodigoContableTienda', ['ID_EMPRESA', 'ID_TIENDA'], [ID_EMPRESA, ID_TIENDA]);
dsData.Active := True;
@ -180,11 +167,21 @@ begin
NumTienda := 0
else
NumTienda := dsData.FieldValues[0];
RefTienda := format('%.2d', [NumTienda]);
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefTienda + RefSubCuenta;
dsData := NIL;
dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA', 'REF_TIENDA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES, RefTienda]);
dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then
NumCuenta := 0
else
NumCuenta := dsData.FieldValues[0];
Inc(NumCuenta);
RefSubCuenta := format('%.5d', [NumCuenta]);
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefTienda + RefSubCuenta;
dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
dsData.Active := True;

13
Source/Modulos/Contabilidad/Views/uEditorSubCuentas.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
Left = 489
Top = 325
Caption = 'Lista de epigrafes'
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -13,7 +12,7 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F0000061349444154484B8D957950535714C6AFA3B6
17100000171001186111DB0000061349444154484B8D957950535714C6AFA3B6
D50A3550C7FEE3D8B163D5EAB45A3BB668D516A958A753D756D45A15C48588D6
3A82A52A1641515CC6991008080202861910704341306CA238209B61912D4202
D9F78D255FEF7B048B3A3A7D995FCECD7D2FE7FBEEB92737A3E2A323425C5D46
@ -126,19 +125,9 @@ inherited fEditorSubCuentas: TfEditorSubCuentas
inherited dxLayoutControl1: TdxLayoutControl
Width = 543
ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 337
ExplicitLeft = 337
ExplicitWidth = 121
Width = 121
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

BIN
Source/Modulos/Contabilidad/Views/uEditorSubCuentas.pas
View File

Binary file not shown.

12
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

@ -68,15 +68,27 @@ inherited frViewDiario: TfrViewDiario
PropertiesClassName = 'TcxTextEditProperties'
Width = 118
end
object cxGridViewDOCUMENTO: TcxGridDBColumn
Caption = 'Documento'
DataBinding.FieldName = 'DOCUMENTO'
end
object cxGridViewDEBE: TcxGridDBColumn
Caption = 'Debe'
DataBinding.FieldName = 'DEBE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
object cxGridViewHABER: TcxGridDBColumn
Caption = 'Haber'
DataBinding.FieldName = 'HABER'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
GroupSummaryAlignment = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
end
end

BIN
Source/Modulos/Contabilidad/Views/uViewDiario.pas
View File

Binary file not shown.

28
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
View File

@ -41,6 +41,7 @@ type
property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
property IdSubCuenta: Integer read getIDCajaBanco;
procedure ElegirSubCuenta(const AIdSubCuenta : Integer);
procedure refrescar;
end;
@ -84,17 +85,7 @@ end;
procedure TfrViewListaSubcuentas.eContabilizarPropertiesEditValueChanged(Sender: TObject);
begin
inherited;
if not eContabilizar.Checked then
begin
cbSubCuentas.ItemIndex := 0;
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
cbSubCuentas.Enabled := True;
end
else
begin
cbSubCuentas.ItemIndex := -1;
cbSubCuentas.Enabled := False;
end;
refrescar;
end;
procedure TfrViewListaSubcuentas.ElegirSubCuenta(const AIdSubCuenta: Integer);
@ -121,6 +112,21 @@ begin
Result := FTipoSubCuenta;
end;
procedure TfrViewListaSubcuentas.refrescar;
begin
if not eContabilizar.Checked then
begin
cbSubCuentas.ItemIndex := 0;
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
cbSubCuentas.Enabled := True;
end
else
begin
cbSubCuentas.ItemIndex := -1;
cbSubCuentas.Enabled := False;
end;
end;
procedure TfrViewListaSubcuentas.SetTipoSubCuenta(Const Value: TEnumTipoSubCuenta);
var
i: Integer;

8
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -150,23 +150,21 @@ begin
Execute;
end;
//REPASAR en el caso de que se modifique el contacto sera todo manual
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
{ if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
begin
with TsrvContabilidad.Create(NIL) do
try
IdCliente := aChange.NewValueByName[fld_ClientesID];
IdTienda := aChange.NewValueByName[fld_ClientesID_TIENDA];
IdEmpresa := aChange.NewValueByName[fld_ClientesID_EMPRESA];
NombreComercial := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
Nombre := aChange.NewValueByName[fld_ClientesNOMBRE];
if not TieneCuentaAsociada(idCliente, idEmpresa) then
AnadirSubCuentaCliente(idCliente, idTienda, idEmpresa, NombreComercial);
AnadirSubCuentaCliente(idCliente, idTienda, idEmpresa, Nombre);
finally
Free;
end;
end;
}
finally
ACommand := NIL;

36
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -5,7 +5,7 @@ inherited fEditorCliente: TfEditorCliente
ClientHeight = 645
ClientWidth = 896
ExplicitWidth = 904
ExplicitHeight = 672
ExplicitHeight = 679
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -310,23 +310,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 882
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 542
ExplicitLeft = 542
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
Left = 543
ExplicitLeft = 543
end
end
end
@ -453,18 +439,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 882
ExplicitWidth = 882
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
@ -537,6 +511,9 @@ inherited fEditorCliente: TfEditorCliente
Height = 516
ExplicitWidth = 882
ExplicitHeight = 516
DesignSize = (
882
516)
inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346
Width = 346
@ -551,6 +528,7 @@ inherited fEditorCliente: TfEditorCliente
end
inherited BitBtn1: TBitBtn
Left = 656
Visible = True
ExplicitLeft = 656
end
inherited BitBtn2: TBitBtn

15
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -32,6 +32,7 @@ type
procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject);
protected
procedure GuardarInterno; override;
procedure EliminarInterno; override;
procedure SetContacto(const Value: IBizContacto); override;
public
@ -44,7 +45,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, cxDBEdit,
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;
procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
@ -87,6 +88,18 @@ begin
end;
procedure TfEditorCliente.GuardarInterno;
begin
//Si estamos modificando un cliente y se activa la contabilidad, debemos avisar que se asignará una subcuenta al cliente
if not Contacto.EsNuevo
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then
if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el cliente' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then
frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1;
inherited;
end;
procedure TfEditorCliente.PonerTitulos(const ATitulo: string);
var
FTitulo : String;

1
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632
Scaled = False
ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

20
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
View File

@ -1,5 +1,6 @@
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 575
Width = 487
Height = 304
Align = alClient
AutoSize = True
OnCreate = CustomViewCreate
@ -9,17 +10,16 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object layoutApunte: TdxLayoutControl
Left = 0
Top = 0
Width = 575
Height = 291
Width = 487
Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
575
291)
487
304)
object eRefSubCuenta: TcxDBTextEdit
Left = 93
Top = 37
@ -41,7 +41,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 346
end
object BitBtn3: TBitBtn
Left = 233
Left = 145
Top = 37
Width = 110
Height = 25
@ -105,7 +105,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 265
end
object BitBtn1: TBitBtn
Left = 349
Left = 261
Top = 37
Width = 120
Height = 25
@ -149,7 +149,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object BitBtn2: TBitBtn
Left = 475
Left = 387
Top = 37
Width = 90
Height = 25
@ -258,7 +258,9 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
end
object actAnadirSubcuenta: TAction
Caption = 'A'#241'adir subcuenta'
Enabled = False
ImageIndex = 5
Visible = False
OnExecute = actAnadirSubcuentaExecute
OnUpdate = actAnadirSubcuentaUpdate
end

5
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas
View File

@ -84,8 +84,9 @@ end;
procedure TfrViewSubCuentaContacto.actAnadirSubcuentaUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
and (DADataSource.DataTable.IsEmpty);
(Sender as TAction).Enabled := False;
// (Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
// and (DADataSource.DataTable.IsEmpty);
end;
procedure TfrViewSubCuentaContacto.actElegirSubCuentaExecute(Sender: TObject);

1
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -494,7 +494,6 @@ begin
if ARecibosCliente.DataTable.FieldByName(fld_RecibosClienteFECHA_VENCIMIENTO).IsNull then
raise Exception.Create('Debe indicar la fecha de vencimiento del recibo.');
{ Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. }
ARecibosCliente.Edit;

7
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -36,6 +36,7 @@ type
property FechaPago: TDateTime Read GetFechaPago write SetFechaPago;
property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
procedure DeshabilitarContabilidad;
end;
var
@ -47,6 +48,11 @@ implementation
uses uDialogUtils;
procedure TfEditorFechaPago.DeshabilitarContabilidad;
begin
frViewListaSubCuentas1.eContabilizar.Enabled := False;
end;
procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
begin
FechaPago := eFechaPago.Date;
@ -121,6 +127,7 @@ end;
procedure TfEditorFechaPago.SetIgnorarContabilidad(const Value: Integer);
begin
frViewListaSubCuentas1.eContabilizar.EditValue := Value;
frViewListaSubCuentas1.Refrescar;
end;
end.

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

@ -104,45 +104,45 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 293
end
inherited eFechaEmision: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
Left = 475
ExplicitLeft = 475
ExplicitWidth = 253
Width = 253
end
inherited eFormaPago: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
Left = 475
ExplicitLeft = 475
ExplicitWidth = 253
Width = 253
end
inherited eImporteTotal: TcxDBCurrencyEdit
Left = 468
Left = 475
Style.IsFontAssigned = True
ExplicitLeft = 468
ExplicitLeft = 475
ExplicitWidth = 253
Width = 253
end
inherited eNombreCliente: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
Left = 475
ExplicitLeft = 475
ExplicitWidth = 286
Width = 286
end
inherited eNifCif: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
Left = 475
ExplicitLeft = 475
ExplicitWidth = 286
Width = 286
end
inherited eEntidad: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
Left = 475
ExplicitLeft = 475
ExplicitWidth = 84
Width = 84
end
inherited eSucursal: TcxDBTextEdit
Left = 543
ExplicitLeft = 543
Left = 550
ExplicitLeft = 550
ExplicitWidth = 81
Width = 81
end
@ -153,8 +153,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 37
end
inherited eCuenta: TcxDBTextEdit
Left = 468
ExplicitLeft = 468
Left = 475
ExplicitLeft = 475
ExplicitWidth = 286
Width = 286
end
@ -167,11 +167,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitWidth = 217
Width = 217
end
inherited rRefReciboCompensado: TcxDBTextEdit
ExplicitWidth = 191
Width = 191
end
inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente
Left = 392
Left = 399
Top = 272
Width = 350
ExplicitLeft = 392
ExplicitLeft = 399
ExplicitTop = 272
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
@ -206,6 +210,21 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end
end
end
inherited eDescripcion: TcxDBTextEdit
ExplicitWidth = 437
Width = 437
end
inherited frViewTienda1: TfrViewTienda
Width = 451
ExplicitWidth = 451
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
inherited cbTienda: TcxComboBox
ExplicitWidth = 200
Width = 200
end
end
end
end
end
end

17
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -153,6 +153,14 @@ begin
begin
with TfEditorFechaPago.Create(Nil) do
begin
//En el caso de que el cliente del recibo no tenga aignada subcuenta contable el pago no podrá contabilizarse
if (Recibo.Cliente.SubCuentas.ID < 1) then
begin
IgnorarContabilidad := 1;
DeshabilitarContabilidad;
end;
if (ShowModal = mrOk) then
begin
AFechaPago := DateToStr(FechaPago);
@ -233,6 +241,15 @@ begin
begin
FechaPago := Recibo.Pagos.FECHA_PAGO;
IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD;
if IgnorarContabilidad = 0 then
IdSubCuenta := StrToInt(Recibo.Pagos.CUENTA);
//En el caso de que el cliente del recibo no tenga aignada subcuenta contable el pago no podrá contabilizarse
if (Recibo.Cliente.SubCuentas.ID < 1) then
begin
IgnorarContabilidad := 1;
DeshabilitarContabilidad;
end;
if (ShowModal = mrOk) then
begin

4
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas
View File

@ -45,6 +45,7 @@ type
property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad;
property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta;
constructor Create(AOwner: TComponent); override;
procedure DeshabilitarContabilidad;
end;
implementation
@ -132,6 +133,9 @@ procedure TfEditorFechaPagoProveedor.SetIgnorarContabilidad(const Value: Integer
begin
FIgnorarContabilidad := Value;
eContabilizar.EditValue := FIgnorarContabilidad;
//frViewListaSubCuentas1.eContabilizar.EditValue := Value;
// frViewListaSubCuentas1.Refrescar;
end;
end.

10
Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
View File

@ -151,6 +151,14 @@ begin
begin
with TfEditorFechaPagoProveedor.Create(Nil) do
begin
//En el caso de que el proveedor del recibo no tenga aignada subcuenta contable el pago no podrá contabilizar
if (Recibo.Cliente.SubCuentas.ID < 1) then
begin
IgnorarContabilidad := 1;
DeshabilitarContabilidad;
end;
if (ShowModal = mrOk) then
begin
AFechaPago := DateToStr(FechaPago);
@ -217,6 +225,8 @@ begin
begin
FechaPago := Recibo.Pagos.FECHA_PAGO;
IgnorarContabilidad := Recibo.Pagos.IGNORAR_CONTABILIDAD;
if IgnorarContabilidad = 0 then
IdSubCuenta := StrToInt(Recibo.Pagos.CUENTA);
if (ShowModal = mrOk) then
begin

9
Source/Servicios/FactuGES.RODL
View File

@ -440,15 +440,6 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvTiposVenta" UID="{7C44A080-71E6-408F-929A-1FA2C919E5EE}" Ancestor="DataAbstractService">
<Group Under="{B6013F6E-68F8-4EDF-85C1-1904BBA5008E}" />
<Interfaces>
<Interface Name="Default" UID="{3F7A1493-5134-4C13-8A9B-35363ADD55EB}">
<Operations>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services>
<EventSinks>
</EventSinks>

33
Source/Servicios/FactuGES_Intf.pas
View File

@ -49,7 +49,6 @@ const
IsrvReferencias_IID : TGUID = '{B957528D-3BE1-412D-A35E-801C97CCD252}';
IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}';
IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}';
IsrvTiposVenta_IID : TGUID = '{3F7A1493-5134-4C13-8A9B-35363ADD55EB}';
{ Event ID's }
@ -81,7 +80,6 @@ type
IsrvReferencias = interface;
IsrvContabilidad = interface;
IsrvUnidadesMedida = interface;
IsrvTiposVenta = interface;
TRdxEmpresasArray = class;
@ -652,23 +650,6 @@ type
end;
{ IsrvTiposVenta }
IsrvTiposVenta = interface(IDataAbstractService)
['{3F7A1493-5134-4C13-8A9B-35363ADD55EB}']
end;
{ CosrvTiposVenta }
CosrvTiposVenta = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiposVenta;
end;
{ TsrvTiposVenta_Proxy }
TsrvTiposVenta_Proxy = class(TDataAbstractService_Proxy, IsrvTiposVenta)
protected
function __GetInterfaceName:string; override;
end;
implementation
uses
@ -1698,18 +1679,6 @@ begin
result := 'srvUnidadesMedida';
end;
{ CosrvTiposVenta }
class function CosrvTiposVenta.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiposVenta;
begin
result := TsrvTiposVenta_Proxy.Create(aMessage, aTransportChannel);
end;
function TsrvTiposVenta_Proxy.__GetInterfaceName:string;
begin
result := 'srvTiposVenta';
end;
initialization
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);
@ -1739,7 +1708,6 @@ initialization
RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy);
RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy);
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
RegisterProxyClass(IsrvTiposVenta_IID, TsrvTiposVenta_Proxy);
finalization
@ -1771,6 +1739,5 @@ finalization
UnregisterProxyClass(IsrvReferencias_IID);
UnregisterProxyClass(IsrvContabilidad_IID);
UnregisterProxyClass(IsrvUnidadesMedida_IID);
UnregisterProxyClass(IsrvTiposVenta_IID);
end.

6
Source/Servicios/FactuGES_Invk.pas
View File

@ -200,12 +200,6 @@ type
published
end;
TsrvTiposVenta_Invoker = class(TDataAbstractService_Invoker)
private
protected
published
end;
implementation
uses

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

1
Source/Servidor/FactuGES_Server.dpr
View File

@ -106,7 +106,6 @@ uses
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService},
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -197,10 +197,6 @@
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
<Form>srvTiposVenta</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">

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", "viernes, 14 de marzo de 2008 11:32\0"
VALUE "CompileDate", "viernes, 14 de marzo de 2008 12:40\0"
END
END
BLOCK "VarFileInfo"