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

Facturas de cliente: informe y exportación a Word funcionando.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@307 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-28 19:39:33 +00:00
parent e128c1bc79
commit b9aabb6d47
15 changed files with 286 additions and 193 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
Source/Informes/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

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

@ -282,17 +282,20 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
Value = '13' Value = '2'
ParamType = daptInput ParamType = daptInput
end> end>
Statements = < Statements = <
item item
Connection = 'IBX' Connection = 'IBX'
SQL = SQL =
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' + 'SELECT'#10' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALL' +
'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' + 'E, ARTICULOS.REFERENCIA,'#10' DET.CONCEPTO, DET.CANTIDAD, DET.IMP' +
'M FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA AND V' + 'ORTE_UNIDAD, DET.DESCUENTO,'#10' DET.IMPORTE_TOTAL, DET.VISIBLE'#10'F' +
'ISIBLE = 1 AND {Where}'#10'ORDER BY ID_FACTURA, POSICION;'#10 'ROM FACTURAS_CLIENTE_DETALLES AS DET'#10'LEFT OUTER JOIN ARTICULOS O' +
'N (ARTICULOS.ID = DET.ID_ARTICULO)'#10'WHERE DET.ID_FACTURA = :ID_FA' +
'CTURA AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_FACTURA, D' +
'ET.POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -334,6 +337,10 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'DESCUENTO' DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO' TableField = 'DESCUENTO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end> end>
end> end>
Name = 'InformeFacturasCliente_Detalles' Name = 'InformeFacturasCliente_Detalles'
@ -360,6 +367,11 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 10 Size = 10
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
end end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -631,20 +643,19 @@ object RptFacturasCliente: TRptFacturasCliente
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = True CloseDataSource = True
DataSource = DataSource1 DataSource = DADSCabecera
Left = 264 Left = 264
Top = 16 Top = 16
end end
object frxDBDetalles: TfrxDBDataset object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles' UserName = 'frxDBDetalles'
CloseDataSource = False CloseDataSource = False
DataSource = DataSource2 DataSource = DADSDetalles
Left = 344 Left = 344
Top = 16 Top = 16
end end
object IBDatabase1: TIBDatabase object IBDatabase1: TIBDatabase
Connected = True DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB'
DatabaseName = 'C:\Codigo Tecsitel\Database\FACTUGES.FDB'
Params.Strings = ( Params.Strings = (
'user_name=sysdba' 'user_name=sysdba'
'password=masterkey' 'password=masterkey'
@ -655,7 +666,6 @@ object RptFacturasCliente: TRptFacturasCliente
Top = 296 Top = 296
end end
object IBTransaction1: TIBTransaction object IBTransaction1: TIBTransaction
Active = True
Left = 48 Left = 48
Top = 352 Top = 352
end end
@ -672,7 +682,6 @@ object RptFacturasCliente: TRptFacturasCliente
object cabecera: TIBQuery object cabecera: TIBQuery
Database = IBDatabase1 Database = IBDatabase1
Transaction = IBTransaction1 Transaction = IBTransaction1
Active = True
SQL.Strings = ( SQL.Strings = (
'select' 'select'
' v_facturas_cliente.id, v_facturas_cliente.id_empresa,' ' v_facturas_cliente.id, v_facturas_cliente.id_empresa,'
@ -702,7 +711,7 @@ object RptFacturasCliente: TRptFacturasCliente
' left outer join formas_pago on (formas_pago.id = v_facturas_c' + ' left outer join formas_pago on (formas_pago.id = v_facturas_c' +
'liente.id_forma_pago)' 'liente.id_forma_pago)'
'WHERE V_FACTURAS_CLIENTE.ID = 25') 'WHERE V_FACTURAS_CLIENTE.ID = 2')
Left = 136 Left = 136
Top = 296 Top = 296
object cabeceraID: TIntegerField object cabeceraID: TIntegerField
@ -850,11 +859,17 @@ object RptFacturasCliente: TRptFacturasCliente
Transaction = IBTransaction1 Transaction = IBTransaction1
SQL.Strings = ( SQL.Strings = (
'SELECT' 'SELECT'
' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'
' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE' ' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALLE, ARTI' +
'FROM FACTURAS_CLIENTE_DETALLES' 'CULOS.REFERENCIA,'
'WHERE ID_FACTURA = 25 AND VISIBLE = 1'
'ORDER BY ID_FACTURA, POSICION;') ' DET.CONCEPTO, DET.CANTIDAD, DET.IMPORTE_UNIDAD, DET.DESCUENT' +
'O,'
' DET.IMPORTE_TOTAL, DET.VISIBLE'
'FROM FACTURAS_CLIENTE_DETALLES DET'
'LEFT OUTER JOIN ARTICULOS ON (ARTICULOS.ID = DET.ID_ARTICULO)'
'WHERE DET.ID_FACTURA = 2 AND DET.VISIBLE = 1 '
'ORDER BY DET.ID_FACTURA, DET.POSICION;')
Left = 136 Left = 136
Top = 352 Top = 352
object detallesID: TIntegerField object detallesID: TIntegerField
@ -906,6 +921,11 @@ object RptFacturasCliente: TRptFacturasCliente
FieldName = 'VISIBLE' FieldName = 'VISIBLE'
Origin = '"FACTURAS_CLIENTE_DETALLES"."VISIBLE"' Origin = '"FACTURAS_CLIENTE_DETALLES"."VISIBLE"'
end end
object detallesREFERENCIA: TIBStringField
FieldName = 'REFERENCIA'
Origin = '"ARTICULOS"."REFERENCIA"'
Size = 255
end
end end
object DABINAdapter: TDABINAdapter object DABINAdapter: TDABINAdapter
Left = 48 Left = 48
@ -948,6 +968,11 @@ object RptFacturasCliente: TRptFacturasCliente
Size = 10 Size = 10
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
end end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
@ -982,7 +1007,7 @@ object RptFacturasCliente: TRptFacturasCliente
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
Value = '13' Value = '2'
ParamType = daptInput ParamType = daptInput
end> end>
MasterParamsMappings.Strings = ( MasterParamsMappings.Strings = (
@ -1195,7 +1220,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39460.995435648100000000 ReportOptions.LastChange = 39506.841841898100000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'' ''
@ -1277,6 +1302,33 @@ object RptFacturasCliente: TRptFacturasCliente
' Memo4.Visible := False; ' ' Memo4.Visible := False; '
'end;' 'end;'
'' ''
'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (<frxDBCabecera."DESCUENTO"> = 0) then'
' begin '
' Memo22.Text := '#39'Base imponible:'#39';'
''
' Memo10.Text := '#39'Importe total:'#39';'
' Memo10.Font.Style := fsBold; '
''
' Memo9.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCabecera."IMP' +
'ORTE_TOTAL">);'
' Memo9.Font.Style := fsBold; '
' '
' Memo23.Text := '#39'[<frxDBCabecera."IVA">]% IVA:'#39';'
' Memo25.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';'
' Memo12.Visible := False;'
' Memo14.Visible := False;'
' Memo16.Visible := False; '
''
' Memo13.Visible := False;'
' Memo15.Visible := False;'
' Memo17.Visible := False;'
' Memo11.Color := $00CCFFCC;'
' end; '
'end;'
''
'begin' 'begin'
'' ''
'end.') 'end.')

29
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -21,7 +21,6 @@ type
DataSource2: TDataSource; DataSource2: TDataSource;
cabecera: TIBQuery; cabecera: TIBQuery;
detalles: TIBQuery; detalles: TIBQuery;
schReport: TDASchema;
DABINAdapter: TDABINAdapter; DABINAdapter: TDABINAdapter;
DADSCabecera: TDADataSource; DADSCabecera: TDADataSource;
DADSDetalles: TDADataSource; DADSDetalles: TDADataSource;
@ -71,6 +70,8 @@ type
detallesDESCUENTO: TFloatField; detallesDESCUENTO: TFloatField;
detallesIMPORTE_TOTAL: TIBBCDField; detallesIMPORTE_TOTAL: TIBBCDField;
detallesVISIBLE: TSmallintField; detallesVISIBLE: TSmallintField;
schReport: TDASchema;
detallesREFERENCIA: TIBStringField;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
@ -140,34 +141,14 @@ begin
AStream := TMemoryStream.Create; AStream := TMemoryStream.Create;
try try
{ dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False);
dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False);}
{ AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_FacturaCliente, TRUE, '', TRUE, TRUE);
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_DetallesFacturaCliente, TRUE, '', TRUE, TRUE);
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);}
frxDBCabecera.DataSource := DADSCabecera; frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles; frxDBDetalles.DataSource := DADSDetalles;
// tbl_Cabecera.ParamByName('ID').AsInteger := AID; tbl_Cabecera.ParamByName('ID').AsInteger := ID;
//tbl_Capitulos.ParamByName('ID_FACTURA').AsInteger := AID; tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
// tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := AID;
//tbl_Resumen.ParamByName('ID_FACTURA').AsInteger := AID;
{ tbl_Cabecera.Active := True; tbl_Cabecera.Active := True;
tbl_Capitulos.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Resumen.Active := True;}
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);

35
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
View File

@ -1,8 +1,8 @@
object RptWordFacturaCliente: TRptWordFacturaCliente object RptWordFacturaCliente: TRptWordFacturaCliente
OldCreateOrder = False OldCreateOrder = False
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
Height = 245 Height = 366
Width = 341 Width = 514
object schReport: TDASchema object schReport: TDASchema
ConnectionManager = dmServer.ConnectionManager ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary DataDictionary = DataDictionary
@ -265,7 +265,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
Params = < Params = <
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
Value = '' Value = '2'
ParamType = daptInput ParamType = daptInput
end> end>
Statements = < Statements = <
@ -274,10 +274,13 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
ConnectionType = 'Interbase' ConnectionType = 'Interbase'
Default = True Default = True
SQL = SQL =
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' + 'SELECT'#10' DET.ID, DET.ID_FACTURA, DET.POSICION, DET.TIPO_DETALL' +
'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' + 'E, ARTICULOS.REFERENCIA,'#10' F_RTFTOTEXT(CONCEPTO) as CONCEPTO, ' +
'M FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA AND V' + 'CONCEPTO as CONCEPTO_RTF, CANTIDAD,'#10' DET.IMPORTE_UNIDAD, DET.' +
'ISIBLE = 1 AND {Where}'#10'ORDER BY ID_FACTURA, POSICION;'#10 'DESCUENTO,'#10' DET.IMPORTE_TOTAL, DET.VISIBLE'#10'FROM FACTURAS_CLIE' +
'NTE_DETALLES AS DET'#10'LEFT OUTER JOIN ARTICULOS ON (ARTICULOS.ID =' +
' DET.ID_ARTICULO)'#10'WHERE DET.ID_FACTURA = :ID_FACTURA AND DET.VIS' +
'IBLE = 1 AND {Where}'#10'ORDER BY DET.ID_FACTURA, DET.POSICION;'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -319,6 +322,14 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
item item
DatasetField = 'VISIBLE' DatasetField = 'VISIBLE'
TableField = 'VISIBLE' TableField = 'VISIBLE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'CONCEPTO_RTF'
TableField = 'CONCEPTO_RTF'
end> end>
end> end>
Name = 'Informe_Detalles' Name = 'Informe_Detalles'
@ -341,9 +352,19 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
DataType = datString DataType = datString
Size = 10 Size = 10
end end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 254
end
item
Name = 'CONCEPTO_RTF'
DataType = datString
Size = 2000 Size = 2000
end end
item item

28
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
View File

@ -48,7 +48,7 @@ uses
srvEmpresas_Impl, uROTypes, uROClasses; srvEmpresas_Impl, uROTypes, uROClasses;
const const
rptInforme = 'AlbaranCliente.rdx'; rptInforme = 'FacturaCliente.rdx';
constructor TRptWordFacturaCliente.Create(AOwner: TComponent); constructor TRptWordFacturaCliente.Create(AOwner: TComponent);
begin begin
@ -174,7 +174,7 @@ var
LinkToFile, SaveWithDocument, _Range : OleVariant; LinkToFile, SaveWithDocument, _Range : OleVariant;
Imagen : InlineShape; Imagen : InlineShape;
_ShiftCells : OleVariant; _ShiftCells : OleVariant;
ImporteAux : Double;
begin begin
//PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
@ -201,7 +201,10 @@ begin
with FDocumento, tbl_Cabecera do with FDocumento, tbl_Cabecera do
begin begin
ReplaceBookmark('CodigoFacturaCab', FCodigoFactura); //Activamos cabecera
FWordApp.Application.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
ReplaceBookmark('CodigoFacturaCab', FieldByName('REFERENCIA').AsString);
ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString); ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString);
ReplaceBookmark('VencimientoCab', ''{FieldByName('FECHAVENCIMIENTO').AsString}); ReplaceBookmark('VencimientoCab', ''{FieldByName('FECHAVENCIMIENTO').AsString});
ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString); ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString);
@ -216,7 +219,8 @@ begin
FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString); FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
ReplaceBookmark('BaseImponible', FormatFloat(DISPLAY_EUROS2, FieldByName('BASE_IMPONIBLE').AsFloat)); ReplaceBookmark('BaseImponible', FormatFloat(DISPLAY_EUROS2, FieldByName('BASE_IMPONIBLE').AsFloat));
// ???????? ReplaceBookmark('BaseImponible2', FormatFloat(DISPLAY_EUROS2, FieldByName('BASE_IMPONIBLE2').AsFloat); ImporteAux := FieldByName('BASE_IMPONIBLE').AsFloat - FieldByName('IMPORTE_DESCUENTO').AsFloat;
ReplaceBookmark('BaseImponible2', FormatFloat(DISPLAY_EUROS2, ImporteAux));
if (FieldByName('DESCUENTO').AsInteger = 0) then if (FieldByName('DESCUENTO').AsInteger = 0) then
begin begin
@ -343,14 +347,16 @@ begin
FCodigoFactura := AID; FCodigoFactura := AID;
ACopiaPlantilla := DarFicheroTemporal; if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then
CopiarFichero(FPlantilla, ACopiaPlantilla); begin
FPlantilla := ACopiaPlantilla; ACopiaPlantilla := DarFicheroTemporal;
try CopiarFichero(FPlantilla, ACopiaPlantilla);
if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then FPlantilla := ACopiaPlantilla;
try
Generar; Generar;
finally finally
SysUtils.DeleteFile(ACopiaPlantilla); SysUtils.DeleteFile(ACopiaPlantilla);
end;
end; end;
end; end;

1
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -1,7 +1,6 @@
object srvFacturasCliente: TsrvFacturasCliente object srvFacturasCliente: TsrvFacturasCliente
OldCreateOrder = True OldCreateOrder = True
OnCreate = DARemoteServiceCreate OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager SessionManager = dmServer.SessionManager
ConnectionName = 'IBX' ConnectionName = 'IBX'
ServiceSchema = schFacturasCliente ServiceSchema = schFacturasCliente

9
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -47,7 +47,7 @@ uses
uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasClienteClient_Intf, uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasClienteClient_Intf,
uRestriccionesUsuarioUtils, uRestriccionesUsuarioUtils,
// uRptFacturasCliente_Server, // uRptFacturasCliente_Server,
uBizFacturasClienteServer, uRptWordFacturaCliente; uBizFacturasClienteServer, uRptWordFacturaCliente, uRptFacturasCliente_Server;
procedure Create_srvFacturasCliente(out anInstance : IUnknown); procedure Create_srvFacturasCliente(out anInstance : IUnknown);
begin begin
@ -84,16 +84,15 @@ begin
end; end;
function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary; function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary;
//var var
// AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
{ AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarFactura(FacturaID); Result := AReportGenerator.GenerarFactura(FacturaID);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
}
end; end;
function TsrvFacturasCliente.GenerateReportEnWord(const ID: Integer): Binary; function TsrvFacturasCliente.GenerateReportEnWord(const ID: Integer): Binary;

8
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
ClientWidth = 654 ClientWidth = 654
ExplicitWidth = 662 ExplicitWidth = 662
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -192,14 +192,16 @@ inherited fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 343 ExplicitWidth = 416
Width = 343 Width = 416
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654
ExplicitWidth = 654
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 644 Width = 644
ExplicitWidth = 644
end end
end end
end end

4
Source/Modulos/Facturas de cliente/Views/uEditorElegirFacturasCliente.pas
View File

@ -1,4 +1,4 @@
{ {
=============================================================================== ===============================================================================
Copyright (©) 2007. Rodax Software. Copyright (©) 2007. Rodax Software.
=============================================================================== ===============================================================================
@ -37,7 +37,7 @@ uses
uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente, uViewFacturasCliente, uEditorFacturasCliente, uBizFacturasCliente, uIEditorElegirFacturasCliente,
Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls, Buttons, cxRadioGroup, cxMaskEdit, cxDropDownEdit, cxCalendar, cxControls,
cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog; cxContainer, cxEdit, cxTextEdit, TBXDkPanels, JSDialog, uDAInterfaces;
type type

175
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -2,20 +2,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ClientHeight = 575 ClientHeight = 608
ClientWidth = 788 ClientWidth = 829
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 796 ExplicitWidth = 837
ExplicitHeight = 602 ExplicitHeight = 635
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 788 Width = 829
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitWidth = 788 ExplicitWidth = 788
inherited Image1: TImage inherited Image1: TImage
Left = 761 Left = 802
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,7 +39,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 788 Width = 829
ExplicitWidth = 788 ExplicitWidth = 788
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
@ -54,7 +54,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 788 ExplicitWidth = 829
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -69,8 +69,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 782 Width = 823
Height = 311 Height = 344
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 782 ExplicitWidth = 782
ExplicitHeight = 311 ExplicitHeight = 311
@ -82,8 +82,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 774 Width = 815
Height = 283 Height = 316
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -96,13 +96,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 283 ExplicitHeight = 283
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 774 Width = 815
Height = 283 Height = 316
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 283 ExplicitHeight = 283
DesignSize = ( DesignSize = (
774 815
283) 316)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 393 ExplicitWidth = 393
Width = 393 Width = 393
@ -118,9 +118,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 473 Width = 473
end end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 471 Left = 495
Width = 332 Width = 332
ExplicitLeft = 471 ExplicitLeft = 495
ExplicitWidth = 332 ExplicitWidth = 332
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 332 Width = 332
@ -152,7 +152,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 206
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitLeft = 206
end
inherited Button3: TBitBtn
Left = 96
ExplicitLeft = 96
end end
end end
end end
@ -161,8 +167,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 255 Width = 255
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 311 Left = 335
ExplicitLeft = 311 ExplicitLeft = 335
end end
end end
end end
@ -170,11 +176,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 774
ExplicitHeight = 283
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 774 Width = 815
Height = 283 Height = 316
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -189,14 +197,26 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 283 ExplicitHeight = 283
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 774 Width = 815
Height = 51 Height = 51
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 51 ExplicitHeight = 51
inherited ToolButton14: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited FontName: TJvFontComboBox inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [4]
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox [5]
Left = 399 Left = 399
Top = 0 Top = 0
ExplicitLeft = 399 ExplicitLeft = 399
@ -210,13 +230,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited ToolButton13: TToolButton [7]
Left = 601
Top = 0
ExplicitLeft = 601
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
@ -224,62 +238,67 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton6: TToolButton inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton6: TToolButton [9]
Left = 66 Left = 17
Top = 27 Top = 27
ExplicitLeft = 66 ExplicitLeft = 17
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton7: TToolButton [10]
Left = 133 Left = 83
Top = 27 Top = 27
ExplicitLeft = 133 ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton8: TToolButton [11]
Left = 216 Left = 150
Top = 27 Top = 27
Wrap = False ExplicitLeft = 150
ExplicitLeft = 216 ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton [13]
Left = 224 Left = 241
Top = 27 Top = 27
ExplicitLeft = 224 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton [14]
Left = 369 Left = 386
Top = 27 Top = 27
ExplicitLeft = 369 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton [15]
Left = 494 Left = 511
Top = 27 Top = 27
ExplicitLeft = 494 ExplicitLeft = 511
ExplicitTop = 27 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77 Top = 77
Width = 774 Width = 815
Height = 206 Height = 239
ExplicitTop = 72 ExplicitTop = 72
ExplicitWidth = 774 ExplicitWidth = 774
ExplicitHeight = 211 ExplicitHeight = 211
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 51
Width = 774 Width = 815
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 774 ExplicitWidth = 774
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
@ -290,8 +309,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 556 Top = 589
Width = 788 Width = 829
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -301,8 +320,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 393 Top = 426
Width = 788 Width = 829
Height = 163 Height = 163
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -317,7 +336,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 788 ExplicitWidth = 788
ExplicitHeight = 163 ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 788 Width = 829
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1 LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 788 ExplicitWidth = 788
inherited Bevel1: TBevel inherited Bevel1: TBevel
@ -327,18 +346,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 420 Left = 441
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 420 ExplicitLeft = 441
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 532 Left = 553
Top = 111 Top = 111
Width = 186 Width = 186
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 186 ExplicitWidth = 186
end end
@ -350,19 +369,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 603 Left = 624
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 624
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 533 Left = 554
Top = 131 Top = 131
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 533 ExplicitLeft = 554
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -374,34 +393,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 532 Left = 553
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 532 Left = 553
Top = 30 Top = 30
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 532 Left = 553
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 553
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 603 Left = 624
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 624
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -432,10 +451,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 134 Width = 134
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 272 Left = 293
Top = 57 Top = 57
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 272 ExplicitLeft = 293
ExplicitTop = 57 ExplicitTop = 57
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

7
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -276,11 +276,8 @@ end;
procedure TfEditorFacturaCliente.ImprimirInterno; procedure TfEditorFacturaCliente.ImprimirInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Print(FFactura); FController.Print(FFactura);
}
end; end;
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject); procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
@ -356,11 +353,8 @@ end;
procedure TfEditorFacturaCliente.PrevisualizarInterno; procedure TfEditorFacturaCliente.PrevisualizarInterno;
begin begin
AppFactuGES.ShowCapado;
{
inherited; inherited;
FController.Preview(FFactura); FController.Preview(FFactura);
}
end; end;
procedure TfEditorFacturaCliente.RecalcularPortePorUnidad; procedure TfEditorFacturaCliente.RecalcularPortePorUnidad;
@ -424,4 +418,3 @@ begin
end; end;
end. end.

8
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -229,8 +229,7 @@ var
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -264,7 +263,6 @@ AppFactuGES.ShowCapado;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasCliente.ModificarInterno; procedure TfEditorFacturasCliente.ModificarInterno;
@ -332,8 +330,6 @@ var
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
begin begin
AppFactuGES.ShowCapado;
{
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
@ -367,7 +363,6 @@ AppFactuGES.ShowCapado;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorFacturasCliente.SetController(const Value: IFacturasClienteController); procedure TfEditorFacturasCliente.SetController(const Value: IFacturasClienteController);
@ -384,4 +379,3 @@ begin
end; end;
end. end.

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

@ -2,4 +2,13 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
Caption = 'Previsualizar la factura' Caption = 'Previsualizar la factura'
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited TBXDock: TTBXDock
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 540
object TBXItem58: TTBXItem [1]
Action = actExportarRTF
Images = SmallImages
end
end
end
end end

1
Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
View File

@ -18,6 +18,7 @@ uses
type type
TfEditorFacturasClientePreview = class(TfEditorPreview, IEditorFacturasClientePreview) TfEditorFacturasClientePreview = class(TfEditorPreview, IEditorFacturasClientePreview)
TBXItem58: TTBXItem;
procedure actExportarRTFExecute(Sender: TObject); procedure actExportarRTFExecute(Sender: TObject);
private private
{ Private declarations } { Private declarations }

29
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -192,13 +192,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton [4] inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox [5] inherited FontName: TJvFontComboBox
Left = 399 Left = 399
Top = 0 Top = 0
ExplicitLeft = 399 ExplicitLeft = 399
@ -207,10 +208,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 57 Width = 72
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 72
end end
inherited ToolButton13: TToolButton [7] inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
@ -226,45 +227,43 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton [9] inherited ToolButton6: TToolButton
Left = 17 Left = 17
Top = 27 Top = 27
ExplicitLeft = 17 ExplicitLeft = 17
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [10] inherited ToolButton7: TToolButton
Left = 83 Left = 83
Top = 27 Top = 27
ExplicitLeft = 83 ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton8: TToolButton
Left = 150 Left = 150
Top = 27 Top = 27
ExplicitLeft = 150 ExplicitLeft = 150
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton12: TToolButton
Left = 233 Left = 233
Top = 27 Top = 27
Wrap = False
ExplicitLeft = 233 ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton
Left = 241 Left = 241
Top = 27 Top = 27
ExplicitLeft = 241 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton
Left = 386 Left = 386
Top = 27 Top = 27
ExplicitLeft = 386 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton
Left = 511 Left = 511
Top = 27 Top = 27
ExplicitLeft = 511 ExplicitLeft = 511
@ -275,9 +274,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Top = 77 Top = 77
Width = 735 Width = 735
Height = 309 Height = 309
ExplicitTop = 77 ExplicitTop = 72
ExplicitWidth = 735 ExplicitWidth = 735
ExplicitHeight = 309 ExplicitHeight = 314
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 51