Se añade la opcion de cambiar un capitulo del presupuesto a opcional, se arragla recibos de proveedor y de cliente la fecha de emision es la misma que la de la factura
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@593 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
35e89e7192
commit
1af9e6d3e2
@ -295,7 +295,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_ALBARAN TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -351,7 +351,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_ALBARAN TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -681,7 +681,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FACTURA TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -733,7 +733,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_FACTURA TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -884,7 +884,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_PEDIDO TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -940,7 +940,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_PEDIDO TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -1018,7 +1018,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_PRESUPUESTO TIPO_ID NOT NULL,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
TIPO_DETALLE VARCHAR(25),
|
||||
ID_ARTICULO TIPO_ID,
|
||||
CONCEPTO TIPO_CONCEPTO,
|
||||
CANTIDAD INTEGER,
|
||||
@ -3394,15 +3394,13 @@ CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
|
||||
/******************************************************************************/
|
||||
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
tipo_detalle varchar(25),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
@ -3475,7 +3473,7 @@ begin
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where tipo_detalle = 'Titulo' and id_presupuesto = :AID
|
||||
where ((tipo_detalle = 'Titulo') or (tipo_detalle = 'Titulo opcional'))and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
@ -3491,7 +3489,7 @@ GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS TO "PUBLIC";
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS TO SYSDBA;
|
||||
|
||||
SET TERM ^ ;
|
||||
SET TERM ; ^
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
aid integer)
|
||||
@ -3499,7 +3497,7 @@ returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
tipo_detalle varchar(25),
|
||||
id_capitulo integer,
|
||||
id_articulo integer,
|
||||
referencia varchar(255),
|
||||
@ -3548,7 +3546,7 @@ GRANT SELECT ON ARTICULOS TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS TO "PUBLIC";
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS TO SYSDBA;
|
||||
|
||||
SET TERM ^ ;
|
||||
SET TERM ; ^
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_RESUMEN (
|
||||
aid integer)
|
||||
@ -3556,7 +3554,7 @@ returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
tipo_detalle varchar(25),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
@ -3567,6 +3565,7 @@ declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
declare variable concepto_capitulo varchar(2000);
|
||||
declare variable tipo varchar(25);
|
||||
begin
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
@ -3574,6 +3573,7 @@ begin
|
||||
num_filas = 0;
|
||||
num_capitulos = 0;
|
||||
concepto_capitulo = '';
|
||||
tipo = '';
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
@ -3630,25 +3630,27 @@ begin
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
/* Tratar el resto de las filas */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle,
|
||||
F_RTFTOTEXT(concepto) as concepto, importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID and
|
||||
tipo_detalle in ('Titulo', 'Subtotal')
|
||||
tipo_detalle in ('Titulo', 'Titulo opcional', 'Subtotal')
|
||||
order by posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
if (tipo_detalle = 'Titulo') then
|
||||
contador = contador + 1;
|
||||
if ((tipo_detalle = 'Titulo') or (tipo_detalle = 'Titulo opcional')) then
|
||||
begin
|
||||
concepto_capitulo = concepto;
|
||||
tipo = tipo_detalle;
|
||||
end
|
||||
if (tipo_detalle = 'Subtotal') then
|
||||
begin
|
||||
concepto = concepto_capitulo;
|
||||
tipo_detalle = tipo;
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
@ -3661,7 +3663,7 @@ GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_RESUMEN;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_RESUMEN TO "PUBLIC";
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_RESUMEN TO SYSDBA;
|
||||
|
||||
SET TERM ^ ;
|
||||
SET TERM ; ^
|
||||
|
||||
CREATE PROCEDURE PRO_ART_RECALCULAR_PVP (
|
||||
id_empresa integer,
|
||||
|
||||
@ -44,6 +44,8 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -53,57 +55,57 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -7,10 +7,10 @@ uses Classes, Variants, uDACDSDataTable, uDADataTable, uControllerBase, uCalculo
|
||||
const
|
||||
TIPO_DETALLE_CONCEPTO = 'Concepto';
|
||||
TIPO_DETALLE_TITULO = 'Titulo';
|
||||
TIPO_DETALLE_TITULO_OPCIONAL = 'Titulo opcional';
|
||||
TIPO_DETALLE_SUBTOTAL = 'Subtotal';
|
||||
TIPO_DETALLE_SALTO = 'Salto';
|
||||
TIPO_DETALLE_DESCUENTO = 'Descuento';
|
||||
TIPO_DETALLE_OPCIONAL = 'Opcional';
|
||||
CTE_DESC_SALTO = 'SALTO DE PAGINA >>';
|
||||
|
||||
type
|
||||
@ -55,17 +55,17 @@ type
|
||||
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
|
||||
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual;
|
||||
procedure TratamientoDetalleConcepto(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleConcepto(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
procedure CalculoDetalleConcepto(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double; const Opcional: Boolean); virtual;
|
||||
procedure TratamientoDetalleSalto(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleSalto(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
procedure TratamientoDetalleTitulo(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleTitulo(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
procedure TratamientoDetalleTituloOpcional(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleTituloOpcional(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
procedure TratamientoDetalleSubtotal(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleSubtotal(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
procedure TratamientoDetalleDescuento(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleDescuento(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
procedure TratamientoDetalleOpcional(DataTable: TDADataTable); virtual;
|
||||
procedure CalculoDetalleOpcional(DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double); virtual;
|
||||
|
||||
//Si sobreescribimos este metodo es para continuar el CalcularTotales segun los tipos de concepto de los hijos
|
||||
function CalcularTotalesHijos(Modificar: boolean; DataTable: TDADataTable; var ImporteAcumulado : Double; var ImporteTotal : Double): Double; virtual;
|
||||
@ -156,6 +156,7 @@ var
|
||||
AuxPosicion : Integer;
|
||||
AuxImporteAcumulado : Double;
|
||||
AuxImporteTotal : Double;
|
||||
SemaforoOpcional: Boolean;
|
||||
|
||||
begin
|
||||
if (DataTable.State in dsEditModes) then
|
||||
@ -169,6 +170,7 @@ begin
|
||||
AuxPosicion := 0;
|
||||
AuxImporteAcumulado := 0;
|
||||
AuxImporteTotal := 0;
|
||||
SemaforoOpcional := False;
|
||||
try
|
||||
|
||||
DataTable.First;
|
||||
@ -184,16 +186,26 @@ begin
|
||||
//TITULOS
|
||||
else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO) then
|
||||
begin
|
||||
SemaforoOpcional := False;
|
||||
if Modificar then
|
||||
TratamientoDetalleTitulo(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos en hijos
|
||||
CalculoDetalleTitulo(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
|
||||
end
|
||||
//TITULOS OPCIONALES
|
||||
else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL) then
|
||||
begin
|
||||
SemaforoOpcional := True;
|
||||
if Modificar then
|
||||
TratamientoDetalleTituloOpcional(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos en hijos
|
||||
CalculoDetalleTituloOpcional(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
|
||||
end
|
||||
//SUBTOTAL
|
||||
else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL) then
|
||||
begin
|
||||
if Modificar then
|
||||
TratamientoDetalleSubtotal(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos
|
||||
CalculoDetalleSubtotal(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
|
||||
SemaforoOpcional := False;
|
||||
end
|
||||
//DESCUENTO DE CAPITULO
|
||||
else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_DESCUENTO) then
|
||||
@ -207,14 +219,7 @@ begin
|
||||
begin
|
||||
if Modificar then
|
||||
TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos
|
||||
CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
|
||||
end
|
||||
//OPCIONALES
|
||||
else if (DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_OPCIONAL) then
|
||||
begin
|
||||
if Modificar then
|
||||
TratamientoDetalleOpcional(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos en hijos
|
||||
CalculoDetalleOpcional(DataTable, AuxImporteAcumulado, AuxImporteTotal); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
|
||||
CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal, SemaforoOpcional); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
|
||||
end
|
||||
//HIJOS
|
||||
else CalcularTotalesHijos(Modificar, DataTable, AuxImporteAcumulado, AuxImporteTotal);
|
||||
@ -238,11 +243,12 @@ begin
|
||||
Result := 0;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.CalculoDetalleConcepto(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double);
|
||||
procedure TControllerDetallesBase.CalculoDetalleConcepto(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double; const Opcional: Boolean);
|
||||
begin
|
||||
with DataTable do
|
||||
begin
|
||||
ImporteAcumulado := ImporteAcumulado + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
|
||||
if not Opcional then
|
||||
ImporteTotal := ImporteTotal + FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat;
|
||||
end;
|
||||
end;
|
||||
@ -262,12 +268,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.CalculoDetalleOpcional(
|
||||
DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double);
|
||||
begin
|
||||
// No acumular ni sumar nada.
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.CalculoDetalleSalto(DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double);
|
||||
begin
|
||||
with DataTable do
|
||||
@ -296,6 +296,12 @@ begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.CalculoDetalleTituloOpcional(
|
||||
DataTable: TDADataTable; var ImporteAcumulado, ImporteTotal: Double);
|
||||
begin
|
||||
//
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.Clear(ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
//
|
||||
@ -310,11 +316,11 @@ function TControllerDetallesBase.DarListaTiposDetalle: TStringList;
|
||||
begin
|
||||
Result := TStringList.Create;
|
||||
Result.Values[TIPO_DETALLE_CONCEPTO] := TIPO_DETALLE_CONCEPTO;
|
||||
Result.Values[TIPO_DETALLE_OPCIONAL] := TIPO_DETALLE_OPCIONAL;
|
||||
Result.Values[TIPO_DETALLE_TITULO] := TIPO_DETALLE_TITULO;
|
||||
Result.Values[TIPO_DETALLE_TITULO_OPCIONAL] := TIPO_DETALLE_TITULO_OPCIONAL;
|
||||
Result.Values[TIPO_DETALLE_SUBTOTAL] := TIPO_DETALLE_SUBTOTAL;
|
||||
//Result.Values[TIPO_DETALLE_DESCUENTO] := TIPO_DETALLE_DESCUENTO;
|
||||
//Result.Values[TIPO_DETALLE_SALTO] := TIPO_DETALLE_SALTO;
|
||||
// Result.Values[TIPO_DETALLE_DESCUENTO] := TIPO_DETALLE_DESCUENTO;
|
||||
// Result.Values[TIPO_DETALLE_SALTO] := TIPO_DETALLE_SALTO;
|
||||
end;
|
||||
|
||||
function TControllerDetallesBase.DarTotalImporteTotal(ADataTable: IDAStronglyTypedDataTable): Double;
|
||||
@ -609,22 +615,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.TratamientoDetalleOpcional(
|
||||
DataTable: TDADataTable);
|
||||
begin
|
||||
with DataTable do
|
||||
begin
|
||||
if not Editing then Edit;
|
||||
//Si alguno de los campos de calculo de total es nulo el total tambien será nulo
|
||||
if (VarIsNull(FieldByName(CAMPO_CANTIDAD).AsVariant) or
|
||||
VarIsNull(FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant)) then
|
||||
FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null
|
||||
else
|
||||
FieldByName(CAMPO_IMPORTE_TOTAL).AsFloat := CalcularImporteTotalConcepto(DataTable);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.TratamientoDetalleSalto(DataTable: TDADataTable);
|
||||
begin
|
||||
with DataTable do
|
||||
@ -665,6 +655,20 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.TratamientoDetalleTituloOpcional(DataTable: TDADataTable);
|
||||
begin
|
||||
with DataTable do
|
||||
begin
|
||||
if not Editing then Edit;
|
||||
if (FieldByName(CAMPO_CONCEPTO).AsString = CTE_DESC_SALTO) then
|
||||
FieldByName(CAMPO_CONCEPTO).AsVariant := Null;
|
||||
FieldByName(CAMPO_CANTIDAD).AsVariant := Null;
|
||||
FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
|
||||
FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TControllerDetallesBase.ValidarCampos(DataTable: TDADataTable);
|
||||
var
|
||||
AField: TDAField;
|
||||
@ -716,7 +720,7 @@ begin
|
||||
if (ATipoCampo = TIPO_DETALLE_SUBTOTAL) and bEnCapitulo then
|
||||
bEnCapitulo := False;
|
||||
|
||||
if (ATipoCampo = TIPO_DETALLE_TITULO) then
|
||||
if ((ATipoCampo = TIPO_DETALLE_TITULO) or (ATipoCampo = TIPO_DETALLE_TITULO_OPCIONAL)) then
|
||||
begin
|
||||
if bEnCapitulo then
|
||||
begin
|
||||
|
||||
@ -54,7 +54,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">3</VersionInfo><VersionInfo Name="Release">1</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.3.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.3.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<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">3</VersionInfo><VersionInfo Name="Release">3</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.3.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.3.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,3,1,0
|
||||
PRODUCTVERSION 1,3,1,0
|
||||
FILEVERSION 1,3,3,0
|
||||
PRODUCTVERSION 1,3,3,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "1.3.1.0\0"
|
||||
VALUE "FileVersion", "1.3.3.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "1.3.1.0\0"
|
||||
VALUE "ProductVersion", "1.3.3.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -58,30 +58,30 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Views\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
||||
DroppedDownWidth = 145
|
||||
MaxMRUCount = 0
|
||||
FontName = 'Tahoma'
|
||||
ItemIndex = 43
|
||||
ItemIndex = 42
|
||||
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
|
||||
Sorted = True
|
||||
TabOrder = 2
|
||||
@ -969,6 +969,15 @@ inherited frViewDetallesBase: TfrViewDetallesBase
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
end
|
||||
object cxStyle_TITULO_OPCIONAL: TcxStyle
|
||||
AssignedValues = [svColor, svFont]
|
||||
Color = 546166271
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu: TcxGridPopupMenu
|
||||
Grid = cxGrid
|
||||
|
||||
@ -144,6 +144,7 @@ type
|
||||
ExportaraMicrosoftExcel1: TMenuItem;
|
||||
actSeleccionarTodo: TAction;
|
||||
Seleccionartodo1: TMenuItem;
|
||||
cxStyle_TITULO_OPCIONAL: TcxStyle;
|
||||
procedure actAnadirExecute(Sender: TObject);
|
||||
procedure actEliminarExecute(Sender: TObject);
|
||||
procedure actSubirExecute(Sender: TObject);
|
||||
@ -714,6 +715,9 @@ begin
|
||||
if ATipo = TIPO_DETALLE_TITULO then
|
||||
AStyle := cxStyle_TITULO;
|
||||
|
||||
if ATipo = TIPO_DETALLE_TITULO_OPCIONAL then
|
||||
AStyle := cxStyle_TITULO_OPCIONAL;
|
||||
|
||||
if ATipo = TIPO_DETALLE_SUBTOTAL then
|
||||
AStyle := cxStyle_SUBTOTAL;
|
||||
|
||||
@ -741,6 +745,14 @@ begin
|
||||
Result.Style := cxStyle_TITULO.Font.Style;
|
||||
end;
|
||||
|
||||
if ATipo = TIPO_DETALLE_TITULO_OPCIONAL then
|
||||
begin
|
||||
Result.Name := cxStyle_TITULO_OPCIONAL.Font.Name;
|
||||
Result.Color := cxStyle_TITULO_OPCIONAL.TextColor;
|
||||
Result.Size := cxStyle_TITULO_OPCIONAL.Font.Size;
|
||||
Result.Style := cxStyle_TITULO_OPCIONAL.Font.Style;
|
||||
end;
|
||||
|
||||
if ATipo = TIPO_DETALLE_SUBTOTAL then
|
||||
begin
|
||||
Result.Name := cxStyle_SUBTOTAL.Font.Name;
|
||||
@ -809,6 +821,7 @@ begin
|
||||
else
|
||||
begin
|
||||
if (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SUBTOTAL)
|
||||
or (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
|
||||
or (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_TITULO) then
|
||||
begin
|
||||
IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_CONCEPTO).Index;
|
||||
|
||||
@ -1,91 +1,51 @@
|
||||
inherited frViewDetallesDTO: TfrViewDetallesDTO
|
||||
inherited ToolBar1: TToolBar
|
||||
Height = 95
|
||||
ExplicitHeight = 95
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 109
|
||||
end
|
||||
inherited ToolButton3: TToolButton [1]
|
||||
inherited ToolButton2: TToolButton
|
||||
Left = 109
|
||||
ExplicitLeft = 109
|
||||
end
|
||||
inherited ToolButton2: TToolButton [2]
|
||||
Left = 164
|
||||
ExplicitLeft = 164
|
||||
ExplicitWidth = 114
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Wrap = False
|
||||
inherited ToolButton3: TToolButton
|
||||
Left = 223
|
||||
ExplicitLeft = 223
|
||||
end
|
||||
inherited UpDown1: TUpDown [5]
|
||||
Left = 121
|
||||
Top = 22
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton11: TToolButton [6]
|
||||
Left = 137
|
||||
Top = 22
|
||||
ExplicitLeft = 137
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited FontSize: TEdit [7]
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 22
|
||||
Width = 41
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
ExplicitLeft = 334
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
Width = 41
|
||||
ExplicitWidth = 41
|
||||
end
|
||||
inherited ToolButton7: TToolButton [8]
|
||||
Left = 319
|
||||
Top = 22
|
||||
Wrap = True
|
||||
ExplicitLeft = 319
|
||||
ExplicitTop = 22
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 186
|
||||
ExplicitLeft = 186
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [9]
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 202
|
||||
ExplicitLeft = 202
|
||||
end
|
||||
inherited ToolButton6: TToolButton [10]
|
||||
Left = 145
|
||||
ExplicitLeft = 145
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 210
|
||||
ExplicitLeft = 210
|
||||
end
|
||||
inherited ToolButton13: TToolButton [11]
|
||||
Left = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitHeight = 27
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 276
|
||||
ExplicitLeft = 276
|
||||
end
|
||||
inherited ToolButton9: TToolButton [12]
|
||||
Left = 0
|
||||
Top = 71
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 71
|
||||
end
|
||||
inherited ToolButton12: TToolButton [13]
|
||||
Left = 145
|
||||
Top = 71
|
||||
ExplicitLeft = 145
|
||||
ExplicitTop = 71
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 153
|
||||
Top = 71
|
||||
ExplicitLeft = 153
|
||||
ExplicitTop = 71
|
||||
end
|
||||
inherited ToolButton8: TToolButton [15]
|
||||
Left = 278
|
||||
Top = 71
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 71
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 343
|
||||
ExplicitLeft = 343
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 121
|
||||
Height = 183
|
||||
ExplicitTop = 121
|
||||
ExplicitHeight = 210
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
object cxGridViewDESCUENTO: TcxGridDBColumn [7]
|
||||
Caption = 'Dto'
|
||||
@ -125,9 +85,6 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXDock1: TTBXDock
|
||||
Top = 95
|
||||
end
|
||||
inherited ActionListContenido: TActionList
|
||||
inherited actAnadir: TAction
|
||||
Caption = 'A'#241'adir concepto'
|
||||
|
||||
@ -322,7 +322,7 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesCliente = '{8E9C9E82-769C-4B9B-BBCD-15E8ABB5F341}';
|
||||
RID_AlbaranesCliente_Detalles = '{7438D3A0-220D-4882-8919-09C4E9995672}';
|
||||
RID_AlbaranesCliente = '{C4ACA983-2E79-43A3-A993-241191F525D6}';
|
||||
RID_AlbaranesCliente_Detalles = '{7B5B9AEF-8781-448C-A9BC-13D967D43796}';
|
||||
|
||||
{ Data table names }
|
||||
nme_AlbaranesCliente = 'AlbaranesCliente';
|
||||
@ -137,7 +137,7 @@ const
|
||||
type
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{7E7930B1-64D6-483A-AC1C-2CE60F883F41}']
|
||||
['{AF7FDCDE-1C18-4F3A-861D-EE8F29667409}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -628,7 +628,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{08CCA27A-C500-4A1D-BEE3-ED4A8D8E8726}']
|
||||
['{80EB5D35-8AC0-4C15-A379-BE154FF2B8E2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesClienteDelta = '{65D47153-FD9F-44D6-8200-78DC3F9417AC}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{3FF81C35-8B1C-4F7D-95EA-8F11EF184F45}';
|
||||
RID_AlbaranesClienteDelta = '{D9971B77-2B74-450A-A0FB-9923C629A09B}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{C5DD9D52-6097-4080-A97E-435B4D387C4E}';
|
||||
|
||||
type
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{65D47153-FD9F-44D6-8200-78DC3F9417AC}']
|
||||
['{D9971B77-2B74-450A-A0FB-9923C629A09B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -507,7 +507,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{3FF81C35-8B1C-4F7D-95EA-8F11EF184F45}']
|
||||
['{C5DD9D52-6097-4080-A97E-435B4D387C4E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
|
||||
@ -49,7 +49,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
object schReport: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
DataDictionary = DataDictionary
|
||||
Datasets = <
|
||||
item
|
||||
Params = <
|
||||
@ -253,17 +252,17 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
TableField = 'POSICION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_DETALLE'
|
||||
TableField = 'TIPO_DETALLE'
|
||||
@ -272,6 +271,14 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_UNIDAD'
|
||||
TableField = 'IMPORTE_UNIDAD'
|
||||
@ -282,15 +289,8 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
TableField = '<unknown>'
|
||||
SQLOrigin = 'REFERENCIA'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Detalles'
|
||||
@ -310,7 +310,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -425,7 +425,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -464,200 +464,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Left = 48
|
||||
Top = 16
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'FacturasCliente_ID'
|
||||
DataType = datAutoInc
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_ID_CONTRATO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_CONTRATO'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_VENCIMIENTO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Vencimiento'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IMPORTE_IVA'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FORMA_PAGO'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Forma de pago'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Observaciones'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DisplayLabel = 'Cliente'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_CALLE'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DisplayLabel = 'Direcci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
DisplayLabel = 'Provincia'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_POBLACION'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_IVA'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'IVA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_USUARIO'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DisplayLabel = 'USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DisplayLabel = 'Referencia'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Dto.'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_ID'
|
||||
DataType = datAutoInc
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DisplayLabel = 'Concepto'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe unidad'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_VISIBLE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = #191'Visible?'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_POSICION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Posici'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_CANTIDAD'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cantidad'
|
||||
end>
|
||||
Left = 46
|
||||
Top = 158
|
||||
end
|
||||
object frxReport: TfrxReport
|
||||
Version = '4.3'
|
||||
DotMatrixReport = False
|
||||
@ -1093,7 +899,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
|
||||
@ -61,7 +61,6 @@ type
|
||||
tbl_Detalles: TDAMemDataTable;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
|
||||
@ -213,6 +213,10 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POSICION'
|
||||
TableField = 'POSICION'
|
||||
@ -225,29 +229,25 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_UNIDAD'
|
||||
TableField = 'IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Detalles'
|
||||
@ -268,7 +268,7 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -437,7 +437,7 @@ object RptWordAlbaranCliente: TRptWordAlbaranCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
|
||||
@ -510,7 +510,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
@ -1363,7 +1363,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'AlbaranesCliente_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -309,7 +309,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesProveedor = '{AEA50745-91B1-4767-BD4C-0342B4369E7F}';
|
||||
RID_AlbaranesProveedor_Detalles = '{D4FA78EC-16C7-4A90-91B8-3A82A4E7E76A}';
|
||||
RID_AlbaranesProveedor = '{7DB07FA1-C594-4F6F-A3AB-62B8AAE9EFA5}';
|
||||
RID_AlbaranesProveedor_Detalles = '{7FCFF51E-1B40-47EE-BC5C-3925F440AD37}';
|
||||
|
||||
{ Data table names }
|
||||
nme_AlbaranesProveedor = 'AlbaranesProveedor';
|
||||
@ -135,7 +135,7 @@ const
|
||||
type
|
||||
{ IAlbaranesProveedor }
|
||||
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{748AC7A5-9E6C-468E-BE35-CF169E6ADBC8}']
|
||||
['{AAF09857-D18A-4696-9964-9A7FE0E23C0F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -602,7 +602,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_Detalles }
|
||||
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{7E9AB0E2-DB09-4CE4-9893-F72625C02A01}']
|
||||
['{09211C9C-4122-4F30-83FC-886D245B8952}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlbaranesProveedorDelta = '{4D8E87E2-EC7B-4811-8361-AF6CA86C03AA}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{54442582-9203-4008-9E87-3F639EBDA771}';
|
||||
RID_AlbaranesProveedorDelta = '{2A2F0AD1-E371-4938-9505-C0733D91A9EE}';
|
||||
RID_AlbaranesProveedor_DetallesDelta = '{1371B0E5-5F40-4895-9EE0-1ED3CAB202B3}';
|
||||
|
||||
type
|
||||
{ IAlbaranesProveedorDelta }
|
||||
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
|
||||
['{4D8E87E2-EC7B-4811-8361-AF6CA86C03AA}']
|
||||
['{2A2F0AD1-E371-4938-9505-C0733D91A9EE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -483,7 +483,7 @@ type
|
||||
|
||||
{ IAlbaranesProveedor_DetallesDelta }
|
||||
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
|
||||
['{54442582-9203-4008-9E87-3F639EBDA771}']
|
||||
['{1371B0E5-5F40-4895-9EE0-1ED3CAB202B3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
|
||||
@ -502,7 +502,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
@ -1340,7 +1340,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
|
||||
item
|
||||
Name = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -2,7 +2,6 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
Caption = 'Seleccionar art'#237'culos'
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||
@ -56,10 +55,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Align = alLeft
|
||||
DockPos = -6
|
||||
ExplicitWidth = 126
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
ExplicitWidth = 283
|
||||
inherited TBXItem5: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -74,12 +70,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 126
|
||||
Left = 283
|
||||
Top = 23
|
||||
Align = alLeft
|
||||
DockPos = 101
|
||||
DockRow = 1
|
||||
ExplicitLeft = 126
|
||||
ExplicitLeft = 283
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
@ -89,11 +85,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 463
|
||||
Left = 620
|
||||
Top = 23
|
||||
DockPos = 395
|
||||
DockRow = 1
|
||||
ExplicitLeft = 463
|
||||
ExplicitLeft = 620
|
||||
ExplicitTop = 23
|
||||
end
|
||||
end
|
||||
@ -104,7 +100,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
end
|
||||
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
||||
Left = 0
|
||||
Top = 376
|
||||
Top = 436
|
||||
Width = 656
|
||||
Height = 49
|
||||
Align = alBottom
|
||||
@ -116,7 +112,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitTop = 376
|
||||
ExplicitTop = 436
|
||||
ExplicitWidth = 656
|
||||
inherited JvFooter1: TJvFooter
|
||||
Width = 656
|
||||
|
||||
@ -44,6 +44,9 @@ type
|
||||
procedure SetViewGrid(const Value: IViewGridBase); override;
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
|
||||
procedure NuevoInterno; override;
|
||||
|
||||
public
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
property ArticulosSeleccionados: IBizArticulo read GetArticulosSeleccionados;
|
||||
@ -99,7 +102,7 @@ begin
|
||||
raise Exception.Create('No hay ningún articulo asignado');
|
||||
|
||||
Articulos.DataTable.Active := True;
|
||||
EditorActionList.State := asSuspended;
|
||||
// EditorActionList.State := asSuspended;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirArticulos.frViewBarraSeleccion1actCancelarExecute(
|
||||
@ -150,6 +153,38 @@ begin
|
||||
Result := ViewGrid.MultiSelect;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirArticulos.NuevoInterno;
|
||||
var
|
||||
AArticulo: IBizArticulo;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
AArticulo := FController.Nuevo;
|
||||
if not AArticulo.DataTable.Active then
|
||||
AArticulo.DataTable.Active := True;
|
||||
|
||||
FController.Ver(AArticulo);
|
||||
Articulos.DataTable.Refresh;
|
||||
|
||||
{
|
||||
if (FViewGrid._Grid.ActiveLevel.Tag = 1) then
|
||||
AArticulo := FController.Nuevo
|
||||
else
|
||||
begin
|
||||
AArticulo := Articulos;
|
||||
FController.Anadir(AArticulo);
|
||||
end;
|
||||
|
||||
if not AArticulo.DataTable.Active then
|
||||
AArticulo.DataTable.Active := True;
|
||||
|
||||
FController.Ver(AArticulo);
|
||||
|
||||
if (FViewGrid._Grid.ActiveLevel.Tag = 1) then
|
||||
Articulos.DataTable.Refresh;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirArticulos.SetArticulos(const Value: IBizArticulo);
|
||||
begin
|
||||
FArticulos := Value;
|
||||
|
||||
@ -46,8 +46,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
ExplicitTop = 99
|
||||
ExplicitHeight = 205
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||
MinWidth = 69
|
||||
|
||||
@ -3,7 +3,7 @@ unit uDetallesFacturaClienteController;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADataTable, uControllerDetallesArticulos, uBizDetallesFacturaCliente, uIDataModuleFacturasCliente,
|
||||
Classes, uDADataTable, uControllerDetallesArticulos, uBizDetallesFacturaCliente, uIDataModuleFacturasCliente,
|
||||
uBizContactos, uBizArticulos;
|
||||
|
||||
type
|
||||
@ -32,6 +32,8 @@ type
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
|
||||
public
|
||||
function DarListaTiposDetalle: TStringList; override;
|
||||
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||
|
||||
@ -126,6 +128,17 @@ begin
|
||||
FDataModule := TDataModuleFacturasCliente.Create(Nil);
|
||||
end;
|
||||
|
||||
function TDetallesFacturaClienteController.DarListaTiposDetalle: TStringList;
|
||||
begin
|
||||
Result := TStringList.Create;
|
||||
Result.Values[TIPO_DETALLE_CONCEPTO] := TIPO_DETALLE_CONCEPTO;
|
||||
Result.Values[TIPO_DETALLE_TITULO] := TIPO_DETALLE_TITULO;
|
||||
// Result.Values[TIPO_DETALLE_TITULO_OPCIONAL] := TIPO_DETALLE_TITULO_OPCIONAL;
|
||||
Result.Values[TIPO_DETALLE_SUBTOTAL] := TIPO_DETALLE_SUBTOTAL;
|
||||
// Result.Values[TIPO_DETALLE_DESCUENTO] := TIPO_DETALLE_DESCUENTO;
|
||||
// Result.Values[TIPO_DETALLE_SALTO] := TIPO_DETALLE_SALTO;
|
||||
end;
|
||||
|
||||
function TDetallesFacturaClienteController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
begin
|
||||
Result := DarTotalPorte(ADetalles);
|
||||
|
||||
@ -1082,6 +1082,7 @@ begin
|
||||
and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then
|
||||
AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento));
|
||||
|
||||
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
|
||||
ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento;
|
||||
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
|
||||
@ -42,7 +42,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Source><Source Name="MainSource">FacturasCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Source><Source Name="MainSource">FacturasCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -58,7 +58,7 @@
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -286,7 +286,7 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
|
||||
@ -9,8 +9,8 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FacturasCliente = '{AD741F75-5D7A-43A4-AAE0-E35405E7BA1B}';
|
||||
RID_FacturasCliente_Detalles = '{904C6FB4-5BD2-465F-B0C3-B3D44A76D809}';
|
||||
RID_FacturasCliente = '{4E42B55F-F2F8-410E-BCE0-62687554F3C8}';
|
||||
RID_FacturasCliente_Detalles = '{A0F7CFA0-6C55-4A53-A777-C282018410A6}';
|
||||
|
||||
{ Data table names }
|
||||
nme_FacturasCliente = 'FacturasCliente';
|
||||
@ -125,7 +125,7 @@ const
|
||||
type
|
||||
{ IFacturasCliente }
|
||||
IFacturasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{73279B00-4445-4DA2-9D31-2E3469AAB404}']
|
||||
['{ED9B9F34-C0EB-4988-B293-1D0482D48E72}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -556,7 +556,7 @@ type
|
||||
|
||||
{ IFacturasCliente_Detalles }
|
||||
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{2BA86FBB-A3F7-479C-BDC4-2A8A906CE4E8}']
|
||||
['{164E9DC0-C0D9-4ABB-A06C-B3731839929F}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FacturasClienteDelta = '{95399966-522E-40D5-8AC4-9B411575BD5B}';
|
||||
RID_FacturasCliente_DetallesDelta = '{AA165F8F-A3A0-4DCE-87FB-81DA2C9C6020}';
|
||||
RID_FacturasClienteDelta = '{DF1FD699-5232-4833-B096-A6497A86329D}';
|
||||
RID_FacturasCliente_DetallesDelta = '{F24D2321-3AF8-4E72-BC06-4F35B3F688BF}';
|
||||
|
||||
type
|
||||
{ IFacturasClienteDelta }
|
||||
IFacturasClienteDelta = interface(IFacturasCliente)
|
||||
['{95399966-522E-40D5-8AC4-9B411575BD5B}']
|
||||
['{DF1FD699-5232-4833-B096-A6497A86329D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -446,7 +446,7 @@ type
|
||||
|
||||
{ IFacturasCliente_DetallesDelta }
|
||||
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
|
||||
['{AA165F8F-A3A0-4DCE-87FB-81DA2C9C6020}']
|
||||
['{F24D2321-3AF8-4E72-BC06-4F35B3F688BF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
|
||||
@ -337,6 +337,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_UNIDAD'
|
||||
TableField = 'IMPORTE_UNIDAD'
|
||||
@ -352,10 +356,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
DatasetField = 'VISIBLE'
|
||||
TableField = 'VISIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end>
|
||||
end>
|
||||
Name = 'InformeFacturasCliente_Detalles'
|
||||
@ -363,24 +363,20 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -391,12 +387,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
@ -406,7 +400,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
@ -415,12 +408,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -632,7 +623,7 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
end
|
||||
item
|
||||
@ -986,24 +977,20 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -1014,12 +1001,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
@ -1029,7 +1014,6 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
@ -1038,12 +1022,10 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
|
||||
@ -365,7 +365,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -633,7 +633,7 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
|
||||
@ -455,7 +455,7 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
@ -1354,7 +1354,7 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
end
|
||||
item
|
||||
|
||||
@ -3,7 +3,7 @@ unit uDetallesFacturaProveedorController;
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADataTable, uControllerDetallesArticulos, uBizDetallesFacturaProveedor, uIDataModuleFacturasProveedor,
|
||||
Classes, uDADataTable, uControllerDetallesArticulos, uBizDetallesFacturaProveedor, uIDataModuleFacturasProveedor,
|
||||
uBizContactos, uBizArticulos;
|
||||
|
||||
const
|
||||
@ -34,6 +34,8 @@ type
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
|
||||
public
|
||||
function DarListaTiposDetalle: TStringList; override;
|
||||
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
|
||||
procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String);
|
||||
@ -115,6 +117,17 @@ begin
|
||||
FDataModule := TDataModuleFacturasProveedor.Create(Nil);
|
||||
end;
|
||||
|
||||
function TDetallesFacturaProveedorController.DarListaTiposDetalle: TStringList;
|
||||
begin
|
||||
Result := TStringList.Create;
|
||||
Result.Values[TIPO_DETALLE_CONCEPTO] := TIPO_DETALLE_CONCEPTO;
|
||||
Result.Values[TIPO_DETALLE_TITULO] := TIPO_DETALLE_TITULO;
|
||||
// Result.Values[TIPO_DETALLE_TITULO_OPCIONAL] := TIPO_DETALLE_TITULO_OPCIONAL;
|
||||
Result.Values[TIPO_DETALLE_SUBTOTAL] := TIPO_DETALLE_SUBTOTAL;
|
||||
// Result.Values[TIPO_DETALLE_DESCUENTO] := TIPO_DETALLE_DESCUENTO;
|
||||
// Result.Values[TIPO_DETALLE_SALTO] := TIPO_DETALLE_SALTO;
|
||||
end;
|
||||
|
||||
function TDetallesFacturaProveedorController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
begin
|
||||
Result := DarTotalPorte(ADetalles);
|
||||
|
||||
@ -876,6 +876,7 @@ begin
|
||||
ARecibos.Edit;
|
||||
ARecibos.ID_FACTURA := AFactura.ID;
|
||||
ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
|
||||
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
|
||||
ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
|
||||
ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);
|
||||
ARecibosProveedorController.Guardar(ARecibos);
|
||||
|
||||
@ -41,7 +41,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Source><Source Name="MainSource">FacturasProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Source><Source Name="MainSource">FacturasProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -58,7 +58,7 @@
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -270,7 +270,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
|
||||
@ -439,7 +439,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'FacturasProveedor_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
@ -1428,7 +1428,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
|
||||
item
|
||||
Name = 'FacturasProveedor_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'Tipo detalle'
|
||||
end
|
||||
item
|
||||
|
||||
@ -103,20 +103,36 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitHeight = 341
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Properties.ReadOnly = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 242
|
||||
Width = 242
|
||||
end
|
||||
inherited edtFecha: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 242
|
||||
Width = 242
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 356
|
||||
ExplicitHeight = 161
|
||||
Height = 161
|
||||
Width = 356
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 104
|
||||
Width = 104
|
||||
end
|
||||
@ -125,6 +141,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitLeft = 246
|
||||
end
|
||||
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 242
|
||||
Width = 242
|
||||
end
|
||||
@ -138,32 +158,56 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitWidth = 377
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 303
|
||||
Width = 303
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 303
|
||||
Width = 303
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 303
|
||||
Width = 303
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 185
|
||||
Width = 185
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 303
|
||||
Width = 303
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 285
|
||||
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 285
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
@ -204,7 +248,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton [3]
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 278
|
||||
Top = 0
|
||||
ExplicitLeft = 278
|
||||
@ -222,15 +266,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitLeft = 399
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit [6]
|
||||
inherited FontSize: TEdit
|
||||
Left = 544
|
||||
Top = 0
|
||||
Width = 104
|
||||
Width = 120
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 104
|
||||
ExplicitWidth = 120
|
||||
end
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
@ -243,9 +290,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
Left = 17
|
||||
Top = 27
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
Left = 83
|
||||
Top = 27
|
||||
ExplicitLeft = 83
|
||||
@ -262,10 +311,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Top = 27
|
||||
ExplicitLeft = 233
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
Left = 241
|
||||
Top = 27
|
||||
ExplicitLeft = 241
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
Left = 386
|
||||
@ -273,7 +325,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitLeft = 386
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
inherited ToolButton11: TToolButton [15]
|
||||
Left = 511
|
||||
Top = 27
|
||||
ExplicitLeft = 511
|
||||
@ -340,6 +392,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 805
|
||||
ExplicitWidth = 805
|
||||
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
|
||||
@ -398,7 +462,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Top = 131
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 131
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
@ -406,7 +474,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 634
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 634
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 163
|
||||
@ -415,7 +487,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 564
|
||||
Top = 131
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 564
|
||||
ExplicitTop = 131
|
||||
ExplicitWidth = 233
|
||||
@ -424,20 +500,32 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Top = 131
|
||||
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 131
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 563
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 563
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 563
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 563
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 234
|
||||
@ -447,14 +535,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Left = 563
|
||||
Top = 84
|
||||
Properties.AssignedValues.MinValue = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 563
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited ImporteRE: TcxDBCurrencyEdit
|
||||
Left = 634
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 634
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 163
|
||||
@ -462,7 +558,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
end
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 331
|
||||
Width = 331
|
||||
@ -471,7 +571,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Top = 158
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
OnEditing = frViewTotales1ePorteEditing
|
||||
ExplicitTop = 158
|
||||
ExplicitWidth = 331
|
||||
@ -481,6 +585,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Top = 57
|
||||
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
|
||||
Style.Color = clInfoBk
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 193
|
||||
Width = 193
|
||||
@ -495,6 +603,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 84
|
||||
Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 331
|
||||
Width = 331
|
||||
|
||||
@ -299,11 +299,10 @@ begin
|
||||
FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
|
||||
|
||||
// Si la factura tiene pedidos asociados hay que mirar si pertenecen al proveedor seleccionado si no es así se eliminan
|
||||
if (FFactura.Pedidos.RecordCount > 0) then
|
||||
begin
|
||||
showmessage('Comprobar si los pedidos pertenecen al nuevo proveedor');
|
||||
|
||||
end;
|
||||
// if (FFactura.Pedidos.RecordCount > 0) then
|
||||
// begin
|
||||
// showmessage('Comprobar si los pedidos pertenecen al nuevo proveedor');
|
||||
// end;
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;
|
||||
|
||||
@ -42,15 +42,15 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Source><Source Name="MainSource">PedidosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Source><Source Name="MainSource">PedidosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PedidosProveedor_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="uDataModulePedidosProveedor.pas">
|
||||
<Form>DataModulePedidosProveedor</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -388,7 +388,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -264,7 +264,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -666,7 +666,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -689,7 +689,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
@ -708,7 +708,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
Value = '2'
|
||||
Value = '3'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterParamsMappings.Strings = (
|
||||
|
||||
@ -59,9 +59,9 @@ type
|
||||
cabeceraPROVINCIA: TIBStringField;
|
||||
cabeceraCODIGO_POSTAL: TIBStringField;
|
||||
cabeceraENTREGAR_A: TIBStringField;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure frxReportGetValue(const VarName: string; var Value: Variant);
|
||||
private
|
||||
|
||||
@ -272,7 +272,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -444,7 +444,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
@ -467,7 +467,7 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
|
||||
@ -523,7 +523,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
@ -1433,7 +1433,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
item
|
||||
Name = 'PedidosProveedor_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited fEditorElegirArticulosPedidoProveedor: TfEditorElegirArticulosPedidoProveedor
|
||||
Caption = 'fEditorElegirArticulosPedidoProveedor'
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 538
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
end
|
||||
|
||||
@ -272,7 +272,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -382,7 +382,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'ID_CAPITULO'
|
||||
@ -497,7 +497,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -528,7 +528,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Default = True
|
||||
SQL =
|
||||
'SELECT * FROM PRO_PRES_RESUMEN(:ID_PRESUPUESTO)'#10'WHERE (VISIBLE <' +
|
||||
'> 0) AND {where}'#10'ORDER BY ID_PRESUPUESTO, POSICION'#10
|
||||
'> 0) AND (TIPO_DETALLE = '#39'Titulo'#39')'#10'AND {where}'#10'ORDER BY ID_PRESU' +
|
||||
'PUESTO, POSICION'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -578,7 +579,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -867,11 +868,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -891,6 +887,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <
|
||||
item
|
||||
@ -929,7 +930,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'ID_CAPITULO'
|
||||
@ -953,6 +954,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'UNIDAD_MEDIDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
@ -976,7 +982,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = ''
|
||||
Value = '32'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmWhere
|
||||
@ -1311,7 +1317,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -1371,7 +1377,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -1389,7 +1395,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
Value = ''
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterParamsMappings.Strings = (
|
||||
|
||||
@ -319,7 +319,7 @@ object RptWordCertificadoTrabajo: TRptWordCertificadoTrabajo
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -506,7 +506,7 @@ object RptWordCertificadoTrabajo: TRptWordCertificadoTrabajo
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
@ -524,6 +524,7 @@ object RptWordCertificadoTrabajo: TRptWordCertificadoTrabajo
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_PRESUPUESTO'
|
||||
DataType = datInteger
|
||||
Value = '12'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
|
||||
@ -292,26 +292,26 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
DatasetField = 'TIPO_DETALLE'
|
||||
TableField = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VISIBLE'
|
||||
TableField = 'VISIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ARTICULO'
|
||||
TableField = 'ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO_RTF'
|
||||
TableField = 'CONCEPTO_RTF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CANTIDAD'
|
||||
TableField = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_UNIDAD'
|
||||
TableField = 'IMPORTE_UNIDAD'
|
||||
@ -324,6 +324,14 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
DatasetField = 'IMPORTE_PORTE'
|
||||
TableField = 'IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'VISIBLE'
|
||||
TableField = 'VISIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_ALTA'
|
||||
TableField = 'FECHA_ALTA'
|
||||
@ -331,14 +339,6 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
item
|
||||
DatasetField = 'FECHA_MODIFICACION'
|
||||
TableField = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO_RTF'
|
||||
TableField = 'CONCEPTO_RTF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'UNIDAD_MEDIDA'
|
||||
TableField = 'UNIDAD_MEDIDA'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Detalles'
|
||||
@ -359,7 +359,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
@ -584,7 +584,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
|
||||
@ -322,7 +322,7 @@ begin
|
||||
end;
|
||||
|
||||
if (FieldByName('TIPO_DETALLE').AsString = 'Titulo') or
|
||||
(FieldByName('TIPO_DETALLE').AsString = 'Opcional') then
|
||||
(FieldByName('TIPO_DETALLE').AsString = 'Titulo opcional') then
|
||||
begin
|
||||
NombreCapitulo := '';
|
||||
Estilo := 'TituloCapitulo';
|
||||
@ -433,7 +433,7 @@ begin
|
||||
begin
|
||||
for iAux := 1 to FNumCapitulos do
|
||||
begin
|
||||
if (ListaCapitulos[iAux].Tipo = 'Opcional') then
|
||||
if (ListaCapitulos[iAux].Tipo = 'Titulo opcional') then
|
||||
continue; // No sumamos los capítulos opcionales.
|
||||
|
||||
// Partir la celda actual en en 2 filas de 1 columna.
|
||||
|
||||
@ -437,7 +437,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
@ -1230,7 +1230,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
Name = 'PresupuestosCliente_Detalles_TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
Size = 25
|
||||
DisplayLabel = 'TIPO_DETALLE'
|
||||
end
|
||||
item
|
||||
|
||||
@ -14,7 +14,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitHeight = 307
|
||||
DesignSize = (
|
||||
690
|
||||
361)
|
||||
@ -33,14 +32,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 216
|
||||
end
|
||||
@ -59,14 +62,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Width = 216
|
||||
end
|
||||
@ -82,13 +89,17 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Width = 216
|
||||
end
|
||||
@ -103,9 +114,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
Height = 49
|
||||
Width = 314
|
||||
@ -125,14 +140,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
Width = 228
|
||||
end
|
||||
@ -151,14 +170,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
Width = 228
|
||||
end
|
||||
@ -184,12 +207,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.Font.Style = [fsBold]
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.TextColor = clWindowText
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
Height = 21
|
||||
Width = 228
|
||||
@ -209,14 +236,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
Width = 228
|
||||
end
|
||||
@ -235,14 +266,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
Width = 228
|
||||
end
|
||||
@ -261,14 +296,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
Width = 59
|
||||
end
|
||||
@ -287,14 +326,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
Width = 52
|
||||
end
|
||||
@ -313,14 +356,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
Width = 33
|
||||
end
|
||||
@ -339,14 +386,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
Width = 228
|
||||
end
|
||||
@ -365,14 +416,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 4
|
||||
Width = 216
|
||||
end
|
||||
@ -380,7 +435,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Left = 120
|
||||
Top = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataField = 'FECHA_EMISION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.ImmediatePost = True
|
||||
@ -389,15 +444,19 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Width = 216
|
||||
end
|
||||
@ -416,14 +475,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Width = 216
|
||||
end
|
||||
@ -441,14 +504,18 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 5
|
||||
Width = 216
|
||||
end
|
||||
|
||||
@ -4,7 +4,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
ClientWidth = 691
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 699
|
||||
ExplicitHeight = 581
|
||||
ExplicitHeight = 588
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -49,19 +49,20 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 691
|
||||
Height = 359
|
||||
ExplicitWidth = 691
|
||||
ExplicitHeight = 359
|
||||
Width = 685
|
||||
Height = 353
|
||||
ActivePage = pagPagos
|
||||
ExplicitWidth = 685
|
||||
ExplicitHeight = 353
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 331
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 325
|
||||
inline frViewReciboProveedor1: TfrViewReciboProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 683
|
||||
Width = 677
|
||||
Height = 350
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -72,102 +73,174 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 683
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 350
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 683
|
||||
Width = 677
|
||||
Height = 350
|
||||
ExplicitWidth = 683
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 350
|
||||
DesignSize = (
|
||||
683
|
||||
677
|
||||
350)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 50
|
||||
Width = 50
|
||||
end
|
||||
inherited eSituacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 216
|
||||
Width = 216
|
||||
end
|
||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 216
|
||||
Width = 216
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 274
|
||||
Width = 274
|
||||
end
|
||||
inherited eFechaEmision: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited eFormaPago: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 42
|
||||
Width = 42
|
||||
end
|
||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 431
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 182
|
||||
Width = 182
|
||||
end
|
||||
inherited eNombreCliente: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eNifCif: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
end
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 90
|
||||
Width = 90
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 545
|
||||
ExplicitLeft = 545
|
||||
Left = 540
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 540
|
||||
ExplicitWidth = 75
|
||||
Width = 75
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Left = 628
|
||||
ExplicitLeft = 628
|
||||
Left = 622
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 622
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
ExplicitWidth = 83
|
||||
Width = 83
|
||||
end
|
||||
inherited eRemesa: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 113
|
||||
Width = 113
|
||||
end
|
||||
inherited edtFechaEmision: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 97
|
||||
Width = 97
|
||||
end
|
||||
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited rReferenciaFacturaProv: TcxDBTextEdit
|
||||
Left = 431
|
||||
ExplicitLeft = 431
|
||||
Left = 428
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 428
|
||||
end
|
||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 216
|
||||
Width = 216
|
||||
end
|
||||
@ -180,8 +253,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
inline frViewPagosProveedor1: TfrViewPagosProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 683
|
||||
Height = 331
|
||||
Width = 677
|
||||
Height = 325
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -191,13 +264,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 331
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 325
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 683
|
||||
Height = 331
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 331
|
||||
Width = 677
|
||||
Height = 325
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 325
|
||||
inherited ListaPagosProveedor: TcxGrid
|
||||
Width = 252
|
||||
Height = 105
|
||||
@ -218,6 +291,19 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
Left = 32
|
||||
Top = 80
|
||||
end
|
||||
inherited ActionListContenido: TActionList
|
||||
inherited actAnadir: TAction
|
||||
OnExecute = frViewPagosProveedor1actAnadirExecute
|
||||
end
|
||||
inherited actModificar: TAction
|
||||
OnExecute = frViewPagosProveedor1actModificarExecute
|
||||
OnUpdate = frViewPagosProveedor1actModificarUpdate
|
||||
end
|
||||
inherited actEliminar: TAction
|
||||
OnExecute = frViewPagosProveedor1actEliminarExecute
|
||||
OnUpdate = frViewPagosProveedor1actEliminarUpdate
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagCompensados: TTabSheet
|
||||
@ -226,8 +312,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 683
|
||||
Height = 331
|
||||
Width = 677
|
||||
Height = 325
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -237,13 +323,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 331
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 325
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 683
|
||||
Height = 306
|
||||
ExplicitWidth = 683
|
||||
ExplicitHeight = 306
|
||||
Width = 677
|
||||
Height = 300
|
||||
ExplicitWidth = 677
|
||||
ExplicitHeight = 300
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
@ -255,24 +341,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
end
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 683
|
||||
ExplicitWidth = 683
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
Width = 677
|
||||
ExplicitWidth = 677
|
||||
inherited ToolButton3: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 98
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Top = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 99
|
||||
end
|
||||
end
|
||||
@ -311,13 +389,25 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
inherited eImporte: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 150
|
||||
Width = 150
|
||||
end
|
||||
inherited eOtrosGastos: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited eImporteTotalRecibo: TcxCurrencyEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
end
|
||||
|
||||
@ -11,6 +11,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
DesignSize = (
|
||||
@ -31,14 +32,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 50
|
||||
end
|
||||
@ -57,14 +62,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 4
|
||||
Width = 216
|
||||
end
|
||||
@ -80,13 +89,17 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Width = 216
|
||||
end
|
||||
@ -101,9 +114,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
Height = 49
|
||||
Width = 274
|
||||
@ -123,14 +140,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 9
|
||||
Width = 20
|
||||
end
|
||||
@ -149,14 +170,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
Width = 42
|
||||
end
|
||||
@ -182,12 +207,16 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.Font.Style = [fsBold]
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.TextColor = clWindowText
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 11
|
||||
Height = 21
|
||||
Width = 182
|
||||
@ -207,14 +236,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 13
|
||||
Width = 171
|
||||
end
|
||||
@ -233,14 +266,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
Width = 147
|
||||
end
|
||||
@ -259,14 +296,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 14
|
||||
Width = 90
|
||||
end
|
||||
@ -285,14 +326,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 15
|
||||
Width = 75
|
||||
end
|
||||
@ -311,14 +356,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 16
|
||||
Width = 33
|
||||
end
|
||||
@ -337,14 +386,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 17
|
||||
Width = 83
|
||||
end
|
||||
@ -362,14 +415,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 5
|
||||
Width = 113
|
||||
end
|
||||
@ -377,7 +434,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Left = 136
|
||||
Top = 84
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
DataBinding.DataField = 'FECHA_EMISION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Enabled = False
|
||||
Properties.ImmediatePost = True
|
||||
@ -386,15 +443,19 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.Shadow = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.ButtonTransparency = ebtNone
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 2
|
||||
Width = 668
|
||||
end
|
||||
@ -412,14 +473,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Width = 287
|
||||
end
|
||||
@ -438,14 +503,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
Width = 157
|
||||
end
|
||||
@ -464,14 +533,18 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 6
|
||||
Width = 216
|
||||
end
|
||||
|
||||
Binary file not shown.
@ -102,12 +102,8 @@ uses
|
||||
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas',
|
||||
uBizArticulosServer in '..\Modulos\Articulos\Model\uBizArticulosServer.pas',
|
||||
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
||||
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
|
||||
@ -120,8 +116,6 @@ uses
|
||||
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
|
||||
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
|
||||
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
@ -129,7 +123,13 @@ uses
|
||||
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
|
||||
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
|
||||
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -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">3</VersionInfo><VersionInfo Name="Release">1</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.3.1.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.3.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 05 de septiembre de 2008 19:22</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></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">3</VersionInfo><VersionInfo Name="Release">3</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.3.3.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.3.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 17 de septiembre de 2008 18:33</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,3,1,0
|
||||
PRODUCTVERSION 1,3,1,0
|
||||
FILEVERSION 1,3,3,0
|
||||
PRODUCTVERSION 1,3,3,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -12,9 +12,9 @@ BEGIN
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.3.1.0\0"
|
||||
VALUE "ProductVersion", "1.3.1.0\0"
|
||||
VALUE "CompileDate", "lunes, 15 de septiembre de 2008 17:04\0"
|
||||
VALUE "FileVersion", "1.3.3.0\0"
|
||||
VALUE "ProductVersion", "1.3.3.0\0"
|
||||
VALUE "CompileDate", "miércoles, 17 de septiembre de 2008 19:49\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user