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

Version 1.9.9

Browse Source 
Peticiones relacionadas Tareas #1071: En el informe de recibo de cliente poder sacar el número de cuenta del cliente para llebar al banco
Tareas #1168: Los empleados en la empresa sólo pueden ser los de esa empresa
Tareas #1169: Las referencias de los empleados debe de ser a nivel de empresa
Tareas #1171: En todos los informes de Azacan quitar el título porque redunda
Tareas #1177: Incluir el sello de azacan en la firma de los pedidos a proveedor

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1075 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2013-04-10 14:03:06 +00:00
parent d76477a818
commit 3231456ade
15 changed files with 245 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Firmas Tecsitel/sello_azacan.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 36 KiB

BIN
Source/Informes/3/AlbaranCliente.rdx
View File

Binary file not shown.

BIN
Source/Informes/3/FacturaCliente.rdx
View File

Binary file not shown.

20
Source/Informes/3/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

28
Source/Informes/3/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

31
Source/Informes/3/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

17
Source/Informes/3/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

20
Source/Informes/3/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/3/PedidoProveedor.rdx
View File

Binary file not shown.

BIN
Source/Informes/3/Presupuesto.rdx
View File

Binary file not shown.

12
Source/Modulos/Contactos/Model/uBizContactosServer.pas
View File

@ -14,8 +14,8 @@ type
private
FReferenciaAutomatica : Boolean;
protected
function _DarReferenciaInterna(const ATipo: String) : String;
function _IncrementarReferenciaInterna(const ATipo: String) : Boolean;
function _DarReferenciaInterna(const ATipo: String; const AIDEmpresa: Integer = -1) : String;
function _IncrementarReferenciaInterna(const ATipo: String; const AIDEmpresa: Integer = -1) : Boolean;
function DarReferenciaContacto : String; virtual; abstract;
function IncrementarReferenciaContacto : Boolean; virtual; abstract;
@ -269,7 +269,7 @@ begin
end;
function TBizContactosServer._DarReferenciaInterna(
const ATipo: String): String;
const ATipo: String; const AIDEmpresa: Integer = -1): String;
var
AReferenciasService : IsrvReferencias;
Intf : IInterface;
@ -279,11 +279,11 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ATipo, -1)
Result := AReferenciasService.DarNuevaReferencia(ATipo, AIDEmpresa)
end;
function TBizContactosServer._IncrementarReferenciaInterna(
const ATipo: String): Boolean;
const ATipo: String; const AIDEmpresa: Integer = -1): Boolean;
var
AReferenciasService : IsrvReferencias;
Intf : IInterface;
@ -293,7 +293,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, -1)
Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, AIDEmpresa)
end;
initialization

4
Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas
View File

@ -33,7 +33,7 @@ const
function TBizEmpleadoServer.DarReferenciaContacto: String;
begin
Result := _DarReferenciaInterna(REF_EMPLEADOS)
Result := _DarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA)
end;
procedure TBizEmpleadoServer.Delete_Datos_Contacto(aChange: TDADeltaChange);
@ -61,7 +61,7 @@ end;
function TBizEmpleadoServer.IncrementarReferenciaContacto: Boolean;
begin
Result := _IncrementarReferenciaInterna(REF_EMPLEADOS)
Result := _IncrementarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA)
end;
procedure TBizEmpleadoServer.Insert_Datos_Contacto(aChange: TDADeltaChange);

199
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -23,7 +23,7 @@ object RptRecibosCliente: TRptRecibosCliente
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
Size = 1
end
item
Name = 'ID_EMPRESA'
@ -100,6 +100,10 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
@ -198,7 +202,7 @@ object RptRecibosCliente: TRptRecibosCliente
item
Name = 'ID'
DataType = datInteger
Value = ''
Value = '40'
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
@ -449,13 +453,13 @@ object RptRecibosCliente: TRptRecibosCliente
item
Name = 'ID'
DataType = datInteger
Value = ''
Value = '40'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'REMESAS_CLIENTE'
TargetTable = 'RECIBOS_CLIENTE'
SQL =
'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_RECIBO' +
'_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' +
@ -469,18 +473,19 @@ object RptRecibosCliente: TRptRecibosCliente
'.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBO' +
'S_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' +
'A,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.' +
'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' +
'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' +
'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' +
'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' +
'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' +
' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' +
' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' +
'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' +
' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' +
'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' +
'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 +
'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10
'ID_CLIENTE,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_' +
'CLIENTE.NIF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' ' +
' V_RECIBOS_CLIENTE.CODIGO_POSTAL_CLIENTE,'#10' V_RECIBOS_CLIENTE' +
'.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10#10' ' +
' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' ' +
' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACI' +
'ON_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESA' +
'S.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_' +
'1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESA' +
'S.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FR' +
'OM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.I' +
'D = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID =' +
' :ID'#10
StatementType = stSQL
ColumnMappings = <
item
@ -489,8 +494,7 @@ object RptRecibosCliente: TRptRecibosCliente
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = '<unknown>'
SQLOrigin = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
@ -499,7 +503,8 @@ object RptRecibosCliente: TRptRecibosCliente
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
TableField = '<unknown>'
SQLOrigin = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
@ -512,8 +517,7 @@ object RptRecibosCliente: TRptRecibosCliente
end
item
DatasetField = 'ID_FACTURA'
TableField = '<unknown>'
SQLOrigin = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'DATOS_BANCARIOS'
@ -522,8 +526,7 @@ object RptRecibosCliente: TRptRecibosCliente
end
item
DatasetField = 'ID_REMESA'
TableField = '<unknown>'
SQLOrigin = 'ID_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
@ -532,13 +535,11 @@ object RptRecibosCliente: TRptRecibosCliente
end
item
DatasetField = 'FECHA_EMISION'
TableField = '<unknown>'
SQLOrigin = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = '<unknown>'
SQLOrigin = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'DESCRIPCION'
@ -546,22 +547,20 @@ object RptRecibosCliente: TRptRecibosCliente
end
item
DatasetField = 'OBSERVACIONES'
TableField = '<unknown>'
SQLOrigin = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = '<unknown>'
SQLOrigin = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
TableField = '<unknown>'
SQLOrigin = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_FACTURA'
@ -672,6 +671,11 @@ object RptRecibosCliente: TRptRecibosCliente
DatasetField = 'LOGOTIPO'
TableField = '<unknown>'
SQLOrigin = 'LOGOTIPO'
end
item
DatasetField = 'ID_CLIENTE'
TableField = '<unknown>'
SQLOrigin = 'ID_CLIENTE'
end>
end>
Name = 'Informe_Cabecera'
@ -687,7 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
Size = 1
end
item
Name = 'ID_EMPRESA'
@ -764,6 +768,10 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
@ -1161,6 +1169,69 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end>
end
item
Params = <
item
Name = 'ID_CONTACTO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT'#10' TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA'#10'FROM contactos' +
'_datos_banco'#10'WHERE ID_CONTACTO = :ID_CONTACTO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'TITULAR'
TableField = 'TITULAR'
end
item
DatasetField = 'ENTIDAD'
TableField = 'ENTIDAD'
end
item
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end
item
DatasetField = 'DC'
TableField = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
end>
end>
Name = 'Informe_Bancos_Cliente'
Fields = <
item
Name = 'TITULAR'
DataType = datString
Size = 255
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'DC'
DataType = datString
Size = 15
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
end>
end>
JoinDataTables = <>
UnionDataTables = <>
@ -1671,4 +1742,62 @@ object RptRecibosCliente: TRptRecibosCliente
Left = 704
Top = 304
end
object tbl_BancosCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'TITULAR'
DataType = datString
Size = 255
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'DC'
DataType = datString
Size = 15
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
end>
Params = <
item
Name = 'ID_CONTACTO'
Value = ''
end>
MasterMappingMode = mmDataRequest
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'Informe_Bancos_Cliente'
IndexDefs = <>
Left = 168
Top = 200
end
object DADataBancosCliente: TDADataSource
DataSet = tbl_BancosCliente.Dataset
DataTable = tbl_BancosCliente
Left = 168
Top = 144
end
object frxDBBancosCliente: TfrxDBDataset
UserName = 'frxDBBancosCliente'
CloseDataSource = False
DataSource = DADataBancosCliente
BCDToCurrency = False
Left = 168
Top = 88
end
end

14
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -40,6 +40,9 @@ type
tbl_InformeListadoRecibosPendResumen: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
tbl_BancosCliente: TDAMemDataTable;
DADataBancosCliente: TDADataSource;
frxDBBancosCliente: TfrxDBDataset;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
@ -88,6 +91,7 @@ const
{ Dataset names for schReport }
ds_InformeCabecera = 'Informe_Cabecera';
ds_InformeCompensados = 'Informe_Compensados';
ds_InformeBancosCliente = 'Informe_Bancos_Cliente';
ds_InformeListadoRecibosResumen = 'InformeListadoRecibosResumen';
ds_InformeListadoRecibosPendientesResumen = 'InformeListadoRecibosPendientesResumen';
@ -108,6 +112,9 @@ begin
frxDBCompensados.DataSource := DADataCompensados;
frxDBCompensados.CloseDataSource := False;
frxDBBancosCliente.DataSource := DADataBancosCliente;
frxDBBancosCliente.CloseDataSource := False;
end;
function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
@ -399,6 +406,7 @@ procedure TRptRecibosCliente.DataModuleDestroy(Sender: TObject);
begin
tbl_Cabecera.Active := False;
tbl_Compensados.Active := False;
tbl_BancosCliente.Active := False;
FreeANDNIL(FListaNombresClientes);
end;
@ -564,6 +572,7 @@ begin
try
tbl_Cabecera.Active := False;
tbl_Compensados.Active := False;
tbl_BancosCliente.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID;
@ -571,6 +580,11 @@ begin
tbl_Cabecera.Active := True;
tbl_Compensados.Active := True;
//Ojo orden importante
tbl_BancosCliente.ParamByName('ID_CONTACTO').AsInteger := tbl_Cabecera.FieldByName('ID_CLIENTE').AsInteger;
tbl_BancosCliente.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme));

1
Source/Servidor/FactuGES_Server.dproj
View File

@ -41,6 +41,7 @@
<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>