General -> revisión en presupuestos, albaranes, facturas y recibos para poder indicar otra dirección de cliente/persona de contacto cuando proceda.
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@366 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
0d75c318bb
commit
f15978b7d5
@ -417,6 +417,7 @@ CREATE TABLE ALBARANES_CLIENTE (
|
||||
ID_FACTURA TIPO_ID,
|
||||
TIPO VARCHAR(1),
|
||||
REFERENCIA VARCHAR(255),
|
||||
ID_DIRECCION TIPO_ID,
|
||||
CALLE VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
POBLACION VARCHAR(255),
|
||||
@ -1158,6 +1159,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID,
|
||||
ID_CLIENTE TIPO_ID,
|
||||
ID_DIRECCION TIPO_ID,
|
||||
PERSONA_CONTACTO VARCHAR(255),
|
||||
REFERENCIA VARCHAR(255),
|
||||
FECHA_PRESUPUESTO DATE,
|
||||
FECHA_DECISION DATE,
|
||||
@ -1495,6 +1498,7 @@ CREATE VIEW V_ALBARANES_CLIENTE(
|
||||
REF_PEDIDO,
|
||||
ID_FACTURA,
|
||||
REF_FACTURA,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
CODIGO_POSTAL,
|
||||
POBLACION,
|
||||
@ -1538,6 +1542,7 @@ SELECT
|
||||
PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
|
||||
ALBARANES_CLIENTE.ID_FACTURA,
|
||||
FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
|
||||
ALBARANES_CLIENTE.ID_DIRECCION,
|
||||
ALBARANES_CLIENTE.CALLE,
|
||||
ALBARANES_CLIENTE.CODIGO_POSTAL,
|
||||
ALBARANES_CLIENTE.POBLACION,
|
||||
@ -3270,6 +3275,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
|
||||
FECHA_DECISION,
|
||||
REFERENCIA,
|
||||
SITUACION,
|
||||
ID_DIRECCION,
|
||||
ID_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
@ -3303,7 +3309,8 @@ SELECT
|
||||
PRESUPUESTOS_CLIENTE.FECHA_PRESUPUESTO,
|
||||
PRESUPUESTOS_CLIENTE.FECHA_DECISION,
|
||||
PRESUPUESTOS_CLIENTE.REFERENCIA,
|
||||
PRESUPUESTOS_CLIENTE.SITUACION,
|
||||
PRESUPUESTOS_CLIENTE.SITUACION,
|
||||
PRESUPUESTOS_CLIENTE.ID_DIRECCION,
|
||||
PRESUPUESTOS_CLIENTE.ID_CLIENTE,
|
||||
CONTACTOS.NIF_CIF,
|
||||
CONTACTOS.NOMBRE,
|
||||
@ -3326,11 +3333,10 @@ SELECT
|
||||
PRESUPUESTOS_CLIENTE.IMPORTE_IVA,
|
||||
PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,
|
||||
PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO,
|
||||
PRESUPUESTOS_CLIENTE.id_tienda,
|
||||
PRESUPUESTOS_CLIENTE.ID_TIENDA,
|
||||
COALESCE(EMPRESAS_TIENDAS.NOMBRE, 'Todas') AS TIENDA,
|
||||
PRESUPUESTOS_CLIENTE.ID_VENDEDOR,
|
||||
CONTACTOS2.NOMBRE AS VENDEDOR
|
||||
|
||||
FROM
|
||||
PRESUPUESTOS_CLIENTE
|
||||
LEFT OUTER JOIN CONTACTOS ON (PRESUPUESTOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
|
||||
@ -31,10 +31,12 @@ function CloneDataTable(const ASource : TDAMemDataTable;
|
||||
|
||||
|
||||
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable;
|
||||
Const WithPKKey: Boolean = False; Const WithFKKey: Boolean = False);
|
||||
const WithPKKey: Boolean = False; const WithFKKey: Boolean = False;
|
||||
const Insertar: Boolean = True);
|
||||
|
||||
procedure DuplicarRegistros(ASource : TDADataTable; ATarget : TDADataTable;
|
||||
AModo : TModoDuplicarRegistros; APermitirRepetidos: Boolean = True;
|
||||
Const WithDeltas: Boolean = True; Const WithPKKey: Boolean = False; Const WithFKKey: Boolean = False);
|
||||
const WithDeltas: Boolean = True; const WithPKKey: Boolean = False; const WithFKKey: Boolean = False);
|
||||
|
||||
procedure DeleteAllTable(const ADataTable : TDADataTable);
|
||||
|
||||
@ -347,7 +349,7 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable; Const WithPKKey: Boolean = False; Const WithFKKey: Boolean = False);
|
||||
procedure DuplicarRegistro(ASource : TDADataTable; ATarget : TDADataTable; const WithPKKey: Boolean = False; const WithFKKey: Boolean = False; const Insertar: Boolean = True);
|
||||
var
|
||||
i, j: Integer;
|
||||
ATargetField: TDAField;
|
||||
@ -380,7 +382,11 @@ begin
|
||||
else
|
||||
ADetailFields := Nil;
|
||||
|
||||
ATarget.Insert;
|
||||
if Insertar then
|
||||
ATarget.Insert
|
||||
else
|
||||
ATarget.Edit;
|
||||
|
||||
{ Hay que desactivar los eventos para que dejan de funcionar
|
||||
las reglas de negocio y no nos interfieran en la copia
|
||||
de valores de los campos. }
|
||||
|
||||
@ -60,12 +60,6 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</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>
|
||||
@ -573,5 +567,5 @@ Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
TextsCollection=
|
||||
EurekaLog Last Line -->
|
||||
|
||||
@ -58,37 +58,37 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.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\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.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\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.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="..\Modulos\Facturas de cliente\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
Binary file not shown.
@ -124,6 +124,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
DisplayLabel = 'Ref. factura cliente'
|
||||
DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'AlbaranesCliente_ID_DIRECCION'
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -287,12 +293,16 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'AlbaranesCliente_ID_TIENDA'
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'AlbaranesCliente_TIENDA'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesCliente_TIENDA'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -41,19 +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><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -63,9 +51,9 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
|
||||
<DCCReference Include="schAlbaranesClienteClient_Intf.pas" />
|
||||
|
||||
@ -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 = '{01F506EA-EABE-4F52-9EAA-43EC08B5F96F}';
|
||||
RID_AlbaranesCliente_Detalles = '{88EE6D4A-FCA7-4055-952A-DFE5D4679C52}';
|
||||
RID_AlbaranesCliente = '{5C4C05DF-4F36-42A3-99B4-DFB3A7AD89CA}';
|
||||
RID_AlbaranesCliente_Detalles = '{B01769A9-4634-4893-BB47-AEA3E26FCF82}';
|
||||
|
||||
{ Data table names }
|
||||
nme_AlbaranesCliente = 'AlbaranesCliente';
|
||||
@ -32,6 +32,7 @@ const
|
||||
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
|
||||
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
|
||||
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
|
||||
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
|
||||
fld_AlbaranesClienteCALLE = 'CALLE';
|
||||
fld_AlbaranesClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
|
||||
fld_AlbaranesClientePOBLACION = 'POBLACION';
|
||||
@ -75,32 +76,33 @@ const
|
||||
idx_AlbaranesClienteREF_PEDIDO = 12;
|
||||
idx_AlbaranesClienteID_FACTURA = 13;
|
||||
idx_AlbaranesClienteREF_FACTURA = 14;
|
||||
idx_AlbaranesClienteCALLE = 15;
|
||||
idx_AlbaranesClienteCODIGO_POSTAL = 16;
|
||||
idx_AlbaranesClientePOBLACION = 17;
|
||||
idx_AlbaranesClientePROVINCIA = 18;
|
||||
idx_AlbaranesClientePERSONA_CONTACTO = 19;
|
||||
idx_AlbaranesClienteTELEFONO = 20;
|
||||
idx_AlbaranesClienteIMPORTE_NETO = 21;
|
||||
idx_AlbaranesClienteIMPORTE_PORTE = 22;
|
||||
idx_AlbaranesClienteDESCUENTO = 23;
|
||||
idx_AlbaranesClienteIMPORTE_DESCUENTO = 24;
|
||||
idx_AlbaranesClienteBASE_IMPONIBLE = 25;
|
||||
idx_AlbaranesClienteIVA = 26;
|
||||
idx_AlbaranesClienteIMPORTE_IVA = 27;
|
||||
idx_AlbaranesClienteIMPORTE_TOTAL = 28;
|
||||
idx_AlbaranesClienteOBSERVACIONES = 29;
|
||||
idx_AlbaranesClienteINCIDENCIAS = 30;
|
||||
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 31;
|
||||
idx_AlbaranesClienteFECHA_ALTA = 32;
|
||||
idx_AlbaranesClienteFECHA_MODIFICACION = 33;
|
||||
idx_AlbaranesClienteUSUARIO = 34;
|
||||
idx_AlbaranesClienteID_FORMA_PAGO = 35;
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 37;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 38;
|
||||
idx_AlbaranesClienteID_TIENDA = 39;
|
||||
idx_AlbaranesClienteTIENDA = 40;
|
||||
idx_AlbaranesClienteID_DIRECCION = 15;
|
||||
idx_AlbaranesClienteCALLE = 16;
|
||||
idx_AlbaranesClienteCODIGO_POSTAL = 17;
|
||||
idx_AlbaranesClientePOBLACION = 18;
|
||||
idx_AlbaranesClientePROVINCIA = 19;
|
||||
idx_AlbaranesClientePERSONA_CONTACTO = 20;
|
||||
idx_AlbaranesClienteTELEFONO = 21;
|
||||
idx_AlbaranesClienteIMPORTE_NETO = 22;
|
||||
idx_AlbaranesClienteIMPORTE_PORTE = 23;
|
||||
idx_AlbaranesClienteDESCUENTO = 24;
|
||||
idx_AlbaranesClienteIMPORTE_DESCUENTO = 25;
|
||||
idx_AlbaranesClienteBASE_IMPONIBLE = 26;
|
||||
idx_AlbaranesClienteIVA = 27;
|
||||
idx_AlbaranesClienteIMPORTE_IVA = 28;
|
||||
idx_AlbaranesClienteIMPORTE_TOTAL = 29;
|
||||
idx_AlbaranesClienteOBSERVACIONES = 30;
|
||||
idx_AlbaranesClienteINCIDENCIAS = 31;
|
||||
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 32;
|
||||
idx_AlbaranesClienteFECHA_ALTA = 33;
|
||||
idx_AlbaranesClienteFECHA_MODIFICACION = 34;
|
||||
idx_AlbaranesClienteUSUARIO = 35;
|
||||
idx_AlbaranesClienteID_FORMA_PAGO = 36;
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 37;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 38;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 39;
|
||||
idx_AlbaranesClienteID_TIENDA = 40;
|
||||
idx_AlbaranesClienteTIENDA = 41;
|
||||
|
||||
{ AlbaranesCliente_Detalles fields }
|
||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||
@ -137,7 +139,7 @@ const
|
||||
type
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{4F964B2D-8C90-492D-9267-F5E2B3DDFB63}']
|
||||
['{6AC3B22E-CE4C-4A1F-9373-B342F525C057}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -199,6 +201,10 @@ type
|
||||
procedure SetREF_FACTURAValue(const aValue: String);
|
||||
function GetREF_FACTURAIsNull: Boolean;
|
||||
procedure SetREF_FACTURAIsNull(const aValue: Boolean);
|
||||
function GetID_DIRECCIONValue: Integer;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer);
|
||||
function GetID_DIRECCIONIsNull: Boolean;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
function GetCALLEValue: String;
|
||||
procedure SetCALLEValue(const aValue: String);
|
||||
function GetCALLEIsNull: Boolean;
|
||||
@ -334,6 +340,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
|
||||
property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
|
||||
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||
@ -457,6 +465,10 @@ type
|
||||
procedure SetREF_FACTURAValue(const aValue: String); virtual;
|
||||
function GetREF_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_DIRECCIONValue: Integer; virtual;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetCALLEValue: String; virtual;
|
||||
procedure SetCALLEValue(const aValue: String); virtual;
|
||||
function GetCALLEIsNull: Boolean; virtual;
|
||||
@ -591,6 +603,8 @@ type
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
|
||||
property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
|
||||
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||
@ -652,7 +666,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{E8D3062A-A5CA-4AE5-828F-99FDD5587811}']
|
||||
['{61E85E5C-B0EF-4350-A06D-5601DB03ADB2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1191,6 +1205,27 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteREF_FACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetCALLEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteCALLE].AsString;
|
||||
|
||||
@ -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 = '{63F763A7-8A93-4D0B-9931-17164BB987A7}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{2D200945-9A98-464A-AB39-1C3FE7E78CFC}';
|
||||
RID_AlbaranesClienteDelta = '{07089145-5284-4338-A434-D04FD6D3C95E}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{2B77EEBC-CEEE-4FED-A05D-8FBB11FAC5AA}';
|
||||
|
||||
type
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{63F763A7-8A93-4D0B-9931-17164BB987A7}']
|
||||
['{07089145-5284-4338-A434-D04FD6D3C95E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -32,6 +32,7 @@ type
|
||||
function GetOldREF_PEDIDOValue : String;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
function GetOldREF_FACTURAValue : String;
|
||||
function GetOldID_DIRECCIONValue : Integer;
|
||||
function GetOldCALLEValue : String;
|
||||
function GetOldCODIGO_POSTALValue : String;
|
||||
function GetOldPOBLACIONValue : String;
|
||||
@ -75,6 +76,7 @@ type
|
||||
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
||||
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
||||
@ -202,6 +204,12 @@ type
|
||||
function GetOldREF_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetREF_FACTURAValue(const aValue: String); virtual;
|
||||
procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_DIRECCIONValue: Integer; virtual;
|
||||
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||
function GetOldID_DIRECCIONValue: Integer; virtual;
|
||||
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetCALLEValue: String; virtual;
|
||||
function GetCALLEIsNull: Boolean; virtual;
|
||||
function GetOldCALLEValue: String; virtual;
|
||||
@ -418,6 +426,10 @@ type
|
||||
property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
|
||||
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
|
||||
property OldREF_FACTURAIsNull : Boolean read GetOldREF_FACTURAIsNull;
|
||||
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
|
||||
property CALLE : String read GetCALLEValue write SetCALLEValue;
|
||||
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -531,7 +543,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{2D200945-9A98-464A-AB39-1C3FE7E78CFC}']
|
||||
['{2B77EEBC-CEEE-4FED-A05D-8FBB11FAC5AA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -1220,6 +1232,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]);
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]);
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := Null;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetCALLEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE];
|
||||
|
||||
@ -40,7 +40,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
@ -59,24 +59,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REF_PEDIDO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
@ -88,9 +74,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
@ -98,7 +84,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
@ -178,7 +164,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
MasterMappingMode = mmDataRequest
|
||||
@ -303,7 +289,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
Value = '2'
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
@ -311,29 +297,32 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'ALBARANES_CLIENTE'
|
||||
SQL =
|
||||
'SELECT'#10' V_ALBARANES_CLIENTE.ID,'#10' V_ALBARANES_CLIENTE.ID_EMPRES' +
|
||||
'A,'#10' V_ALBARANES_CLIENTE.ID_TIENDA,'#10' V_ALBARANES_CLIENTE.ID_CLI' +
|
||||
'ENTE,'#10' V_ALBARANES_CLIENTE.NOMBRE,'#10' V_CLIENTES.NOMBRE_COMERCIA' +
|
||||
'L,'#10' V_CLIENTES.NIF_CIF,'#10' V_ALBARANES_CLIENTE.FECHA_ALBARAN,'#10' ' +
|
||||
'V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.REFERENCIA' +
|
||||
'_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARANES_CLIENTE' +
|
||||
'.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' V_ALBARANES_' +
|
||||
'CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V_ALBARANE' +
|
||||
'S_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEFONO,'#10' V_' +
|
||||
'ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' ' +
|
||||
'V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' V_ALBARANES_CLIENTE.FECHA_P' +
|
||||
'REVISTA_ENVIO,'#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS' +
|
||||
'.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCI' +
|
||||
'AL_EMPRESA,'#10' EMPRESAS.CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO' +
|
||||
'_POSTAL AS CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLAC' +
|
||||
'ION_EMPRESA,'#10' EMPRESAS.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRES' +
|
||||
'AS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRE' +
|
||||
'SA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS' +
|
||||
' EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FR' +
|
||||
'OM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CL' +
|
||||
'IENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EM' +
|
||||
'PRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V' +
|
||||
'_ALBARANES_CLIENTE.ID = :ID'#10
|
||||
'SELECT'#10' ALBARANES_CLIENTE.ID,'#10' ALBARANES_CLIENTE.ID_EMPRESA,'#10' ' +
|
||||
' ALBARANES_CLIENTE.ID_TIENDA,'#10' ALBARANES_CLIENTE.ID_CLIENTE,'#10' ' +
|
||||
'CONTACTOS.NOMBRE,'#10' CONTACTOS.REFERENCIA as REFERENCIA_CLIENTE,'#10 +
|
||||
' CONTACTOS.NIF_CIF,'#10' ALBARANES_CLIENTE.FECHA_ALBARAN,'#10' ALBARA' +
|
||||
'NES_CLIENTE.REFERENCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' +
|
||||
'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' +
|
||||
'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' +
|
||||
'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' +
|
||||
'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' +
|
||||
') AS CODIGO_POSTAL,'#10' COALESCE(CONTACTOS_DIRECCIONES.TELEFONO, C' +
|
||||
'ONTACTOS.TELEFONO_1) AS TELEFONO,'#10' ALBARANES_CLIENTE.PERSONA_CO' +
|
||||
'NTACTO,'#10' ALBARANES_CLIENTE.OBSERVACIONES,'#10' ALBARANES_CLIENTE.I' +
|
||||
'MPORTE_TOTAL,'#10' ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,'#10' EMPRES' +
|
||||
'AS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRE' +
|
||||
'SA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.' +
|
||||
'CALLE AS CALLE_EMPRESA,'#10' EMPRESAS.CODIGO_POSTAL AS CODIGO_POSTA' +
|
||||
'L_EMPRESA,'#10' EMPRESAS.POBLACION AS POBLACION_EMPRESA,'#10' EMPRESAS' +
|
||||
'.PROVINCIA AS PROVINCIA_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFO' +
|
||||
'NO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 ' +
|
||||
'AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMP' +
|
||||
'RESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' ALBARANES_CLIENTE'#10 +
|
||||
' INNER JOIN EMPRESAS ON (EMPRESAS.ID = ALBARANES_CLIENTE.ID_EMP' +
|
||||
'RESA)'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENT' +
|
||||
'E.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTAC' +
|
||||
'TOS_DIRECCIONES.ID = ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE ALBAR' +
|
||||
'ANES_CLIENTE.ID = :ID'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -420,18 +409,6 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
DatasetField = 'FECHA_ALBARAN'
|
||||
TableField = 'FECHA_ALBARAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_PEDIDO'
|
||||
TableField = 'ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_PEDIDO'
|
||||
TableField = 'REF_PEDIDO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
@ -494,7 +471,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
@ -513,24 +490,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REF_PEDIDO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
@ -542,9 +505,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
@ -552,7 +515,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
|
||||
@ -186,6 +186,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'TIENDA'
|
||||
TableField = 'TIENDA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_DIRECCION'
|
||||
TableField = 'ID_DIRECCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente'
|
||||
@ -278,6 +282,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Size = 255
|
||||
DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
@ -414,12 +423,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
Name = 'ID_TIENDA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'AlbaranesCliente_ID_TIENDA'
|
||||
end
|
||||
item
|
||||
Name = 'TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'AlbaranesCliente_TIENDA'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -626,6 +637,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'ID_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
Value = ''
|
||||
@ -734,22 +749,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
SQL =
|
||||
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
|
||||
' FECHA_ALBARAN, TIPO, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_AL' +
|
||||
'MACEN, ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACI' +
|
||||
'ON, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, I' +
|
||||
'MPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE' +
|
||||
', IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENC' +
|
||||
'IAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' ' +
|
||||
'USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' ' +
|
||||
' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID' +
|
||||
'_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA_C' +
|
||||
'LIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODI' +
|
||||
'GO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELE' +
|
||||
'FONO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUE' +
|
||||
'NTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :' +
|
||||
'OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_A' +
|
||||
'LTA, :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_' +
|
||||
'PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :ID_TIENDA)' +
|
||||
#10' '#10' '#10#10
|
||||
'MACEN, ID_PEDIDO, ID_FACTURA, ID_DIRECCION,'#10' CALLE, CODIGO_P' +
|
||||
'OSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, IM' +
|
||||
'PORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' B' +
|
||||
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
|
||||
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
|
||||
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
|
||||
'_ENVIO, '#10' FECHA_RECEPCION, ID_TIENDA)'#10' VALUES'#10' (:ID, :ID' +
|
||||
'_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' ' +
|
||||
':REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_D' +
|
||||
'IRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :' +
|
||||
'PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_PORTE,' +
|
||||
' :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IM' +
|
||||
'PORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIAS, :I' +
|
||||
'NCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUA' +
|
||||
'RIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA' +
|
||||
'_RECEPCION,'#10' :ID_TIENDA)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -810,6 +825,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'ID_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
Value = ''
|
||||
@ -924,21 +943,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = :FECHA_ALBARAN,' +
|
||||
#10' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA' +
|
||||
'_CLIENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' +
|
||||
' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CAL' +
|
||||
'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION ' +
|
||||
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO' +
|
||||
' = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NE' +
|
||||
'TO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DE' +
|
||||
'SCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENT' +
|
||||
'O, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' ' +
|
||||
'IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
|
||||
' '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDE' +
|
||||
'NCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FEC' +
|
||||
'HA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICA' +
|
||||
'CION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
|
||||
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
|
||||
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,' +
|
||||
#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ID_' +
|
||||
'DIRECCION = :ID_DIRECCION,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL' +
|
||||
' = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, '#10' PROVINCIA =' +
|
||||
' :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TEL' +
|
||||
'EFONO = :TELEFONO, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPOR' +
|
||||
'TE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMP' +
|
||||
'ORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE' +
|
||||
'_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ' +
|
||||
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVACIONES = :OBSERVA' +
|
||||
'CIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVA' +
|
||||
'S = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FE' +
|
||||
'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' +
|
||||
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
|
||||
'= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
|
||||
'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' ID_TIENDA = :ID_TIENDA'#10' ' +
|
||||
'WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -1522,6 +1542,20 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesCliente_ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesCliente_ID_TIENDA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesCliente_TIENDA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Left = 48
|
||||
Top = 136
|
||||
|
||||
@ -49,6 +49,7 @@ contains
|
||||
uEditorAlbaranesDevCliente in 'uEditorAlbaranesDevCliente.pas' {fEditorAlbaranesDevCliente: TCustomEditor},
|
||||
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
|
||||
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
|
||||
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView};
|
||||
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
|
||||
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView};
|
||||
|
||||
end.
|
||||
|
||||
@ -47,6 +47,14 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
|
||||
@ -111,6 +119,10 @@
|
||||
<Form>frViewAlbaranesDevCliente</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDatosYSeleccionClienteAlbaran.pas">
|
||||
<Form>frViewDatosYSeleccionClienteAlbaran</Form>
|
||||
<DesignClass>TCustomView</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesAlbaranCliente.pas">
|
||||
<Form>frViewDetallesAlbaranCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
@ -277,10 +277,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited Bevel1: TBevel
|
||||
Left = 93
|
||||
Top = 92
|
||||
Width = 73
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 368
|
||||
@ -295,15 +293,17 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited Bevel4: TBevel
|
||||
Left = 484
|
||||
Top = 92
|
||||
Width = 192
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 192
|
||||
end
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 164
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 164
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 188
|
||||
@ -313,7 +313,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 555
|
||||
Top = 38
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 182
|
||||
@ -322,7 +326,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 485
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 485
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 252
|
||||
@ -331,7 +339,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 112
|
||||
end
|
||||
@ -339,14 +351,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 484
|
||||
Top = 38
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 484
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 253
|
||||
@ -356,7 +376,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 484
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 484
|
||||
ExplicitTop = 65
|
||||
end
|
||||
@ -364,7 +388,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 555
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 555
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 182
|
||||
@ -373,7 +401,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 259
|
||||
@ -383,7 +415,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 93
|
||||
Top = 139
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 139
|
||||
ExplicitWidth = 259
|
||||
@ -393,6 +429,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Left = 93
|
||||
Top = 38
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 121
|
||||
@ -409,6 +449,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 259
|
||||
|
||||
@ -218,73 +218,58 @@ end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.ImprimirInterno;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
FController.Print(FAlbaran);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
|
||||
var
|
||||
AClientesController : IClientesController;
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
FAlbaran.Cliente := ViewAlbaran.ViewClienteAlbaran.Cliente;
|
||||
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
// Avisar si no hay datos bancarios
|
||||
//if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
|
||||
// ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');
|
||||
{
|
||||
// Elegir la dirección de envio
|
||||
case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
0 : begin
|
||||
ADireccion := NIL;
|
||||
ShowWarningMessage('Este cliente no tiene ' + #10#13 + 'ninguna dirección de envío en su ficha');
|
||||
end;
|
||||
1 : begin
|
||||
ADireccion := FAlbaran.Cliente.Direcciones;
|
||||
end
|
||||
else begin
|
||||
ADireccion := AClientesController.ElegirDireccionEntrega(FAlbaran.Cliente.Direcciones, 'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.');
|
||||
end;
|
||||
end;
|
||||
// Avisar si no hay datos bancarios
|
||||
{if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
|
||||
ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');}
|
||||
|
||||
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
FController.QuitarDireccionEnvio(FAlbaran);
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
end;
|
||||
}
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FAlbaran.Detalles.RecordCount > 0) then
|
||||
begin
|
||||
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente);
|
||||
end;
|
||||
|
||||
finally
|
||||
AClientesController := NIL;
|
||||
// Elegir la dirección de envio
|
||||
case FAlbaran.Cliente.Direcciones.RecordCount of
|
||||
0 : begin
|
||||
ADireccion := NIL;
|
||||
//ShowWarningMessage('Este cliente no tiene ninguna dirección de envío en su ficha');
|
||||
end;
|
||||
1 : begin
|
||||
ADireccion := FAlbaran.Cliente.Direcciones;
|
||||
end
|
||||
end;
|
||||
|
||||
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
FController.QuitarDireccionEnvio(FAlbaran);
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := 0;
|
||||
end;
|
||||
|
||||
// Si el pedido tiene detalles hay que mirar si los descuentos
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FAlbaran.Detalles.RecordCount > 0) then
|
||||
FController.DetallesController.ActualizarDetalles(FAlbaran.Detalles, FAlbaran.Cliente);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfEditorAlbaranCliente.pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
@ -316,11 +301,8 @@ end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{
|
||||
inherited;
|
||||
FController.Preview(FAlbaran);
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;
|
||||
@ -338,7 +320,6 @@ begin
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
ViewAlbaran.Controller := Controller;
|
||||
frViewDetallesAlbaranCliente1.Controller := Controller.DetallesController;
|
||||
end;
|
||||
end;
|
||||
@ -353,13 +334,17 @@ begin
|
||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
|
||||
|
||||
if Assigned(FViewAlbaran) then
|
||||
begin
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
ViewAlbaran.ViewClienteAlbaran.Cliente := FAlbaran.Cliente;
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := OnClienteChanged;
|
||||
frViewDetallesAlbaranCliente1.Detalles := FAlbaran.Detalles;
|
||||
frViewDetallesAlbaranCliente1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := NIL;
|
||||
try
|
||||
FViewAlbaran.Albaran := FAlbaran;
|
||||
frViewDetallesAlbaranCliente1.Detalles := FAlbaran.Detalles;
|
||||
frViewDetallesAlbaranCliente1.Albaran := FAlbaran; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||
finally
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := OnClienteChanged;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
@ -371,7 +356,6 @@ begin
|
||||
begin
|
||||
FViewAlbaran.Albaran := NIL;
|
||||
ViewAlbaran.ViewClienteAlbaran.OnClienteChanged := NIL;
|
||||
ViewAlbaran.ViewClienteAlbaran.Cliente := NIL;
|
||||
frViewDetallesAlbaranCliente1.Detalles := NIL;
|
||||
frViewDetallesAlbaranCliente1.Albaran := NIL;
|
||||
end;
|
||||
|
||||
@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
Caption = 'Lista de albaranes de cliente'
|
||||
ClientWidth = 583
|
||||
ExplicitWidth = 591
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -430,10 +430,10 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesCliente.NuevoInterno;
|
||||
var
|
||||
{var
|
||||
Respuesta : Integer;
|
||||
AAlbaran : IBizAlbaranCliente;
|
||||
IDAlbaranAux: Integer;
|
||||
IDAlbaranAux: Integer;}
|
||||
begin
|
||||
inherited;
|
||||
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente
|
||||
Caption = 'fEditorElegirArticulosAlbaranCliente'
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 480
|
||||
ExplicitHeight = 478
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
end
|
||||
|
||||
@ -9,7 +9,7 @@ uses
|
||||
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
|
||||
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
|
||||
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
|
||||
JvgWizardHeader, uIEditorElegirArticulosAlbaranesCliente;
|
||||
JvgWizardHeader, uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces;
|
||||
|
||||
type
|
||||
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -7,7 +7,7 @@ uses
|
||||
Dialogs, uViewBase, uBizAlbaranesCliente, DB, uDADataTable, uCustomView,
|
||||
AppEvnts, StdCtrls, Mask, DBCtrls,
|
||||
|
||||
uViewObservaciones, uViewDatosYSeleccionCliente,
|
||||
uViewObservaciones, uViewDatosYSeleccionClienteAlbaran,
|
||||
cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
|
||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||
uViewDireccionEntregaAlbaranCliente, Buttons, ActnList,
|
||||
@ -16,22 +16,17 @@ uses
|
||||
|
||||
ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
|
||||
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces,
|
||||
uViewTienda, uAlbaranesClienteController;
|
||||
uViewTienda, uAlbaranesClienteController, uViewDatosYSeleccionCliente;
|
||||
|
||||
type
|
||||
IViewAlbaranCliente = interface(IViewBase)
|
||||
['{F4946DFE-B64C-47C8-96D6-24549E6DAC11}']
|
||||
function GetController : IAlbaranesClienteController;
|
||||
procedure SetController (const Value : IAlbaranesClienteController);
|
||||
property Controller : IAlbaranesClienteController read GetController write SetController;
|
||||
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente);
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
|
||||
function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
|
||||
procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
|
||||
property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran write SetViewClienteAlbaran;
|
||||
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
|
||||
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
|
||||
end;
|
||||
|
||||
TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente)
|
||||
@ -51,7 +46,7 @@ type
|
||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
frViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
|
||||
frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
eCalle: TcxDBTextEdit;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
@ -104,13 +99,11 @@ type
|
||||
eRefCliente: TcxDBTextEdit;
|
||||
dxLayoutControl1Item21: TdxLayoutItem;
|
||||
eFechaEnvio: TcxDBDateEdit;
|
||||
dxLayoutControl1Group16: TdxLayoutGroup;
|
||||
dxLayoutControl1Group17: TdxLayoutGroup;
|
||||
frViewTienda1: TfrViewTienda;
|
||||
dxLayoutControl1Item17: TdxLayoutItem;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure actVerPedidoCliExecute(Sender: TObject);
|
||||
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
@ -122,7 +115,6 @@ type
|
||||
procedure eFechaRecepcionPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
|
||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||
procedure actVerPedidoCliUpdate(Sender: TObject);
|
||||
procedure frViewClienteAlbaranButton1Click(Sender: TObject);
|
||||
procedure frViewClienteAlbaranButton2Click(Sender: TObject);
|
||||
@ -134,21 +126,18 @@ type
|
||||
FAlmacenesController : IAlmacenesController;
|
||||
// FPedidoAsociado : IBizPedidoCliente;
|
||||
// FPedidoController : IPedidosClienteController;
|
||||
FViewClienteAlbaran : TfrViewDatosYSeleccionCliente;
|
||||
FViewClienteAlbaran : IViewDatosYSeleccionClienteAlbaran;
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
|
||||
function GetController : IAlbaranesClienteController;
|
||||
procedure SetController (const Value : IAlbaranesClienteController);
|
||||
function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
|
||||
procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
|
||||
function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
|
||||
|
||||
public
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
property Controller : IAlbaranesClienteController read GetController write SetController;
|
||||
property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran;
|
||||
property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -163,68 +152,6 @@ uses
|
||||
uDialogUtils, uFactuGES_App;
|
||||
|
||||
|
||||
procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject);
|
||||
var
|
||||
AClientesController : IClientesController;
|
||||
AAlbaranController : IAlbaranesClienteController;
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
inherited;
|
||||
{
|
||||
try
|
||||
case FFactura.Cliente.Direcciones.RecordCount of
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AClientesController.ElegirDireccion(FFactura.Cliente, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
|
||||
end;
|
||||
|
||||
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FFactura.Edit;
|
||||
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccion(ADireccion, FFactura);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
finally
|
||||
AClientesController := Nil;
|
||||
end;
|
||||
}
|
||||
{
|
||||
AClientesController := TClientesController.Create;
|
||||
AAlbaranController := TAlbaranesClienteController.Create;
|
||||
try
|
||||
ADireccion := AClientesController.ElegirDireccion(FAlbaran.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.');
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran);
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
end;
|
||||
finally
|
||||
AClientesController := NIL;
|
||||
AAlbaranController := NIL;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.actElegirDireccionUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if (Sender as TAction).Enabled then
|
||||
(Sender as TAction).Enabled := (not ReadOnly) and
|
||||
Assigned(FAlbaran) and
|
||||
Assigned(FViewClienteAlbaran) and
|
||||
FAlbaran.DataTable.Active and
|
||||
Assigned(FAlbaran.Cliente) and
|
||||
Assigned(FAlbaran.Cliente) and
|
||||
Assigned(FAlbaran.Cliente.Direcciones) and
|
||||
FAlbaran.Cliente.Direcciones.DataTable.Active and
|
||||
(FAlbaran.Cliente.Direcciones.DataTable.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.actVerPedidoCliExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
@ -274,7 +201,6 @@ begin
|
||||
// FPedidoAsociado := NIL;
|
||||
// FPedidoController := TPedidosClienteController.Create;
|
||||
FViewClienteAlbaran := frViewClienteAlbaran;
|
||||
FViewClienteAlbaran.MsgElegirCliente := 'Elija el cliente al que se le realizará el Albaran.';
|
||||
FAlmacenesController := TAlmacenesController.Create;
|
||||
end;
|
||||
|
||||
@ -387,12 +313,7 @@ begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
function TfrViewAlbaranCliente.GetController: IAlbaranesClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewAlbaranCliente.GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
|
||||
function TfrViewAlbaranCliente.GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran;
|
||||
begin
|
||||
Result := FViewClienteAlbaran;
|
||||
end;
|
||||
@ -404,7 +325,7 @@ begin
|
||||
begin
|
||||
DADataSource.DataTable := FAlbaran.DataTable;
|
||||
frViewTienda1.DataItem := FAlbaran.DataTable;
|
||||
frViewClienteAlbaran.Cliente := FAlbaran.Cliente;
|
||||
FViewClienteAlbaran.Albaran := FAlbaran;
|
||||
|
||||
FFormasPago := FFormasPagoController.BuscarTodos;
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
@ -456,26 +377,11 @@ begin
|
||||
end
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
frViewClienteAlbaran.Cliente := nil;
|
||||
FViewClienteAlbaran.Albaran := nil;
|
||||
// FPedidoAsociado := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
dsAlmacenes.DataTable := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.SetController(const Value: IAlbaranesClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
|
||||
if Assigned(FController)
|
||||
and Assigned(ViewClienteAlbaran) then
|
||||
ViewClienteAlbaran.Controller := FController.ClienteController;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrViewAlbaranCliente.SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
|
||||
begin
|
||||
FViewClienteAlbaran := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -1,91 +1,235 @@
|
||||
inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
ExplicitHeight = 650
|
||||
inherited Label1: TLabel
|
||||
Left = 352
|
||||
Width = 299
|
||||
ExplicitLeft = 352
|
||||
ExplicitWidth = 299
|
||||
end
|
||||
inherited edtFechaAlbaran: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 431
|
||||
Width = 431
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
ExplicitWidth = 515
|
||||
ExplicitHeight = 253
|
||||
Height = 253
|
||||
Width = 515
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 499
|
||||
Width = 499
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 431
|
||||
Width = 431
|
||||
end
|
||||
inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
|
||||
Width = 219
|
||||
ExplicitWidth = 219
|
||||
inherited frViewClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
|
||||
Left = 352
|
||||
Width = 145
|
||||
ExplicitLeft = 352
|
||||
ExplicitWidth = 145
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 219
|
||||
Width = 145
|
||||
ExplicitWidth = 219
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Left = 231
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 231
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
inherited Button3: TBitBtn
|
||||
Left = 249
|
||||
ExplicitLeft = 249
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
inherited edtDireccion: TcxMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 403
|
||||
Width = 403
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 418
|
||||
ExplicitLeft = 418
|
||||
end
|
||||
inherited Button5: TButton
|
||||
Left = 418
|
||||
ExplicitLeft = 418
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 446
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 446
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
Left = 446
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 446
|
||||
ExplicitWidth = 24
|
||||
Width = 24
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 738
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 738
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Left = 446
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 446
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 446
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 446
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 446
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 446
|
||||
ExplicitWidth = 125
|
||||
Width = 125
|
||||
end
|
||||
inherited bElegirDireccion: TBitBtn
|
||||
Left = 631
|
||||
ExplicitLeft = 631
|
||||
end
|
||||
inherited Button1: TButton
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
end
|
||||
inherited eReferenciaPedidoCli: TcxTextEdit
|
||||
ExplicitWidth = 293
|
||||
Width = 293
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 245
|
||||
Width = 245
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 293
|
||||
Width = 293
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 190
|
||||
ExplicitLeft = 190
|
||||
end
|
||||
inherited eFechaRecepcion: TcxDBDateEdit
|
||||
Left = 486
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 486
|
||||
ExplicitWidth = 85
|
||||
Width = 85
|
||||
end
|
||||
inherited cbConAlmacen: TCheckBox
|
||||
Left = 362
|
||||
ExplicitLeft = 362
|
||||
end
|
||||
inherited cbAlmacen: TcxDBLookupComboBox
|
||||
Left = 547
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 547
|
||||
ExplicitWidth = 586
|
||||
Width = 586
|
||||
end
|
||||
inherited eRefFacturaCli: TcxDBTextEdit
|
||||
ExplicitWidth = 431
|
||||
Width = 431
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 381
|
||||
Width = 381
|
||||
end
|
||||
inherited eFechaPrevista: TcxDBDateEdit
|
||||
Left = 486
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 486
|
||||
ExplicitWidth = 85
|
||||
Width = 85
|
||||
end
|
||||
inherited eRefCliente: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 431
|
||||
Width = 431
|
||||
end
|
||||
inherited eFechaEnvio: TcxDBDateEdit
|
||||
Left = 486
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 486
|
||||
ExplicitWidth = 85
|
||||
Width = 85
|
||||
end
|
||||
@ -94,50 +238,31 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
|
||||
ExplicitWidth = 515
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 515
|
||||
ExplicitWidth = 822
|
||||
ExplicitWidth = 515
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 454
|
||||
Width = 454
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group16: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group6: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
Caption = 'Datos de la orden'
|
||||
inherited dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Fecha de orden:'
|
||||
end
|
||||
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group13: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group15: TdxLayoutGroup
|
||||
Visible = False
|
||||
end
|
||||
inherited dxLayoutControl1Item22: TdxLayoutItem
|
||||
Caption = 'Ref. abono:'
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group11: TdxLayoutGroup
|
||||
Caption = 'Almac'#233'n de entrada'
|
||||
inherited dxLayoutControl1Group10: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item19: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group12: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item18: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Group11: TdxLayoutGroup
|
||||
Caption = 'Almac'#233'n de entrada'
|
||||
inherited dxLayoutControl1Group10: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item19: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControl1Item18: TdxLayoutItem
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,7 +8,8 @@ uses
|
||||
dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||
cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
|
||||
uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
|
||||
cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda;
|
||||
cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda,
|
||||
uViewDatosYSeleccionClienteAlbaran;
|
||||
|
||||
type
|
||||
TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)
|
||||
|
||||
@ -0,0 +1,495 @@
|
||||
inherited frViewDatosYSeleccionClienteAlbaran: TfrViewDatosYSeleccionClienteAlbaran
|
||||
Width = 505
|
||||
Height = 196
|
||||
ExplicitWidth = 505
|
||||
ExplicitHeight = 196
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 505
|
||||
Height = 196
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 0
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
505
|
||||
196)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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
|
||||
Height = 21
|
||||
Width = 224
|
||||
end
|
||||
object edtNIFCIF: TcxDBTextEdit
|
||||
Left = 392
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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 = 3
|
||||
Height = 21
|
||||
Width = 103
|
||||
end
|
||||
object Button1: TBitBtn
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 115
|
||||
Height = 25
|
||||
Action = actElegirContacto
|
||||
Caption = 'Elegir un cliente'
|
||||
TabOrder = 0
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object Button2: TBitBtn
|
||||
Left = 131
|
||||
Top = 10
|
||||
Width = 143
|
||||
Height = 25
|
||||
Action = actAnadirContacto
|
||||
Caption = 'Dar de alta un cliente'
|
||||
TabOrder = 1
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||
3100694731006947310069473100694731006947310069473100694731006947
|
||||
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
|
||||
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
|
||||
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
|
||||
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
|
||||
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
|
||||
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
|
||||
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
|
||||
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
|
||||
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
|
||||
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
|
||||
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
|
||||
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
|
||||
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
|
||||
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
|
||||
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
|
||||
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
|
||||
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
|
||||
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
|
||||
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 303
|
||||
Top = 158
|
||||
Width = 192
|
||||
Height = 25
|
||||
Action = actVerContacto
|
||||
Caption = 'Ver ficha completa del cliente...'
|
||||
TabOrder = 8
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||
3100694731006947310069473100694731006947310069473100694731006947
|
||||
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
|
||||
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
|
||||
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
|
||||
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
|
||||
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
|
||||
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
|
||||
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
|
||||
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
|
||||
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
|
||||
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
|
||||
ED00F2ECE800EFE8E300EDE4DF00EAE0DA00B7A2930069473100D5BFB100E9F6
|
||||
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
|
||||
F100F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100F4FA
|
||||
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB00FAF8
|
||||
F600F7F4F100F5F0ED00F2ECE800EFE8E300B7A2930069473100D5BFB100FFFF
|
||||
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF00FDFC
|
||||
FB00F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100FFFF
|
||||
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF00FFFF
|
||||
FF00FEFEFD00FCFAF900F9F6F400F6F2EF00F3EEEA0069473100D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object edtPersonaContacto: TcxDBTextEdit
|
||||
Left = 63
|
||||
Top = 129
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = dsAlbaran
|
||||
ParentFont = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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 = 6
|
||||
Height = 21
|
||||
Width = 283
|
||||
end
|
||||
object edtDireccion: TcxMemo
|
||||
Left = 63
|
||||
Top = 68
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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
|
||||
Height = 53
|
||||
Width = 403
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 472
|
||||
Top = 68
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirDireccion
|
||||
TabOrder = 5
|
||||
end
|
||||
object Button5: TButton
|
||||
Left = 472
|
||||
Top = 127
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirPersonaContacto
|
||||
TabOrder = 7
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Button1'
|
||||
ShowCaption = False
|
||||
Control = Button1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Button2'
|
||||
ShowCaption = False
|
||||
Control = Button2
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Nombre:'
|
||||
Control = edtlNombre
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'NIF/CIF:'
|
||||
Control = edtNIFCIF
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
Caption = 'Direcci'#243'n'
|
||||
CaptionOptions.AlignVert = tavTop
|
||||
Control = edtDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button4'
|
||||
ShowCaption = False
|
||||
Control = Button4
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
Caption = 'Contacto:'
|
||||
Control = edtPersonaContacto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = Button5
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button3'
|
||||
ShowCaption = False
|
||||
Control = Button3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dsCliente: TDADataSource
|
||||
Left = 400
|
||||
Top = 8
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Images = PngImageList
|
||||
Left = 368
|
||||
Top = 8
|
||||
object actElegirContacto: TAction
|
||||
Caption = 'Elegir un cliente'
|
||||
ImageIndex = 1
|
||||
OnExecute = actElegirContactoExecute
|
||||
end
|
||||
object actAnadirContacto: TAction
|
||||
Caption = 'Dar de alta un cliente'
|
||||
ImageIndex = 0
|
||||
OnExecute = actAnadirContactoExecute
|
||||
end
|
||||
object actVerContacto: TAction
|
||||
Caption = 'Ver ficha completa del cliente...'
|
||||
ImageIndex = 2
|
||||
OnExecute = actVerContactoExecute
|
||||
OnUpdate = actVerContactoUpdate
|
||||
end
|
||||
object actElegirDireccion: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirDireccionExecute
|
||||
OnUpdate = actElegirDireccionUpdate
|
||||
end
|
||||
object actElegirPersonaContacto: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirPersonaContactoExecute
|
||||
OnUpdate = actElegirPersonaContactoUpdate
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000002224944415478DA
|
||||
95935D48936114C77FCB36584A6064161515DEA441108B240293E8A682246805
|
||||
DEA45020F40196505D081242DE94512B8C20169937056914D52E726B6083B114
|
||||
D44CD3D51A216BB6656B5FEF677B5FF31D23033DF070CE03CFFFF73F1CCE6362
|
||||
29D1806AD44E4C5A32F5F58FAA8BD5D73DD8465757034D4D4EFA4E8C62000ED7
|
||||
56E997647490DFE131BD2ED9584971D98EB9478D2603D279B39EE6733DC6DD00
|
||||
68E2EF7E07E95F2291688C48629ABDC71DACABD8AD0334E7B420104D24F4A3D5
|
||||
DDD707E60087F66C2234D0CECF2F41643987556566676799C9C4387AD18FF964
|
||||
91E178EA522DF73ADC851D1CA85ECD27D77948995861B552844C2A9962303441
|
||||
DD051FA22473E5095C735B3972DAC6D3DB016EED7BC9FD47CFE601E57CF3B661
|
||||
C966D1E62C880299549A696915B6639D4892A243D6B6AC349C0B00DA0C22EF7B
|
||||
484EBDCA015424512491125036D751B1CBAE8BB5330F12459937EF860A01DEA0
|
||||
8BA0FB0E5B154BAE832C810CACDF594F4DD5C17FC45AF6FA87F3800D95022DFD
|
||||
ADC47E84682CDF8F222A3C9CF1303915E6C3E5495DDC7AE379C14E546F5F9307
|
||||
F8E4C7BC187F4BA6344E49D24C6E8A24AD12E65809A1895102CD6386B3F8B793
|
||||
C0F0C73CC0196927188E2297651096A7D096D4922D6659DCC2E7AF43F8CE8C70
|
||||
F5AEEBFF1D9CF5D889C7230BAE6F696939BDF6D7BAABACA87A567279647C320F
|
||||
A8B16DA1BBD7B3A47FA5850168EB702C596C6CA2AA2EFA332E187F0080F1503E
|
||||
182A98A90000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AC400000AC401666D82D4000002A94944415478DA
|
||||
7D925D48536118C79FF3B5AF36DD66B639CB924243225010BC49BA914004CDE8
|
||||
E32228B482EA4689A22289C8CBA28B32B1061688902912D28D16991F6062B2DC
|
||||
45921FB954669BF39C9D6DE7EC9CF3EEBC9D2D8C2CB7079E9BF779FEBFF7F922
|
||||
30C69034822060D3665F5F3A0B90B8C672FCAEC07AD8E35DF0DFBFE3F64EC05F
|
||||
F647F72FC0DB75AED1E1B43D138438C9B26108B11C0443BC30ECF959D731303F
|
||||
9411D0D35C612C2ADBEF3319F5B992AC402412037F9003A4C8E05F17679BDA3E
|
||||
976BA9D1F4807B95552E877D90222910250556023170E66481D900F0CD17C0AD
|
||||
5DDE63F3CBFC505AC0685B6DE34654762B88009B350B8AF658815011C8521C04
|
||||
518487DD530D9D83BECEB480C98EDA13F9798E5E9A61526F098440D1CA572409
|
||||
24298EEFBA271B7BC756D203FA5A8FE49516EDF3313A5D8AA0AAAAD6BF929A01
|
||||
CFC7505DCBBBAAD590349C710BD3EEFA57D916D3A954920648249255283031B3
|
||||
3A7BE1D164A5F61CCC0878D15C917FA8C43165D6334E558B25DBD80847E51BCF
|
||||
A79B3E7D65DB33AEF1E04D570EE5723DB513C4C966E9006101ED0662043C6697
|
||||
30B7DB3021CE6D5C5EEA58FAB22DE0F0ADBD36D25E38A6E6E2126413E00CAA81
|
||||
FAE27AE85FEB876EF10D30DC0E2083542432F3E3F8E2CBC5F7FF01CA5A8E3E21
|
||||
6CC6AB8A264636110C7A80EADC2AE88B0E004474C0B026A035C76BF2B2A7ED43
|
||||
29E671680BA0FC76B50F5BC902641501658B90304BA0EA11100A05544C0774D8
|
||||
0834A7396B04DFE8C8E9B58FC19EAD80EB358B84852E44D9F1DF62930C9856B5
|
||||
6320801419A0A27AA079430AB4303E722530EE6FDF3A838B15E729B3E50195C3
|
||||
D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6
|
||||
B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E
|
||||
53F70B90E997F07974AFDF0000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001EC4944415478DA
|
||||
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
|
||||
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
|
||||
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
|
||||
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
|
||||
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
|
||||
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
|
||||
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
|
||||
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
|
||||
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
|
||||
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
|
||||
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
|
||||
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
|
||||
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
|
||||
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
|
||||
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
|
||||
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 304
|
||||
Top = 8
|
||||
Bitmap = {}
|
||||
end
|
||||
object dsAlbaran: TDADataSource
|
||||
Left = 336
|
||||
Top = 8
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,418 @@
|
||||
unit uViewDatosYSeleccionClienteAlbaran;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
|
||||
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos,
|
||||
ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit,
|
||||
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
|
||||
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
|
||||
cxMaskEdit, cxButtonEdit, uBizAlbaranesCliente, uBizDireccionesContacto,
|
||||
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons,
|
||||
cxMemo;
|
||||
|
||||
type
|
||||
IViewDatosYSeleccionClienteAlbaran = interface(IViewBase)
|
||||
['{02F0A00C-FAE7-43A4-B959-D2B929FF287A}']
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente);
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
|
||||
function GetCliente: IBizCliente;
|
||||
procedure SetCliente(Value: IBizCliente);
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
|
||||
function GetID_Cliente: integer;
|
||||
procedure SetID_Cliente(const Value: integer);
|
||||
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
|
||||
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
procedure SetOnClienteChanged (const Value : TNotifyEvent);
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
|
||||
write SetOnClienteChanged;
|
||||
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
end;
|
||||
|
||||
TfrViewDatosYSeleccionClienteAlbaran = class(TfrViewBase, IViewDatosYSeleccionClienteAlbaran)
|
||||
dsCliente: TDADataSource;
|
||||
ActionList1: TActionList;
|
||||
actElegirContacto: TAction;
|
||||
actAnadirContacto: TAction;
|
||||
actVerContacto: TAction;
|
||||
PngImageList: TPngImageList;
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
edtlNombre: TcxDBTextEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
edtNIFCIF: TcxDBTextEdit;
|
||||
Button1: TBitBtn;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
Button2: TBitBtn;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
Button3: TBitBtn;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dsAlbaran: TDADataSource;
|
||||
actElegirDireccion: TAction;
|
||||
actElegirPersonaContacto: TAction;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
edtPersonaContacto: TcxDBTextEdit;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
edtDireccion: TcxMemo;
|
||||
Button4: TButton;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
Button5: TButton;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
procedure actElegirContactoExecute(Sender: TObject);
|
||||
procedure actAnadirContactoExecute(Sender: TObject);
|
||||
procedure actVerContactoUpdate(Sender: TObject);
|
||||
procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure edtDireccionPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure actVerContactoExecute(Sender: TObject);
|
||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure actElegirPersonaContactoExecute(Sender: TObject);
|
||||
procedure actElegirPersonaContactoUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FOnClienteChanged : TNotifyEvent;
|
||||
FMsgElegirCliente: String;
|
||||
protected
|
||||
FClientesController : IClientesController;
|
||||
FDireccionesController : IDireccionesContactoController;
|
||||
FAlbaran : IBizAlbaranCliente;
|
||||
FCliente : IBizCliente;
|
||||
FDireccion : IBizDireccionesContacto;
|
||||
function GetCliente: IBizCliente; virtual;
|
||||
procedure SetCliente(Value: IBizCliente); virtual;
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
procedure SetOnClienteChanged (const Value : TNotifyEvent);
|
||||
procedure SetReadOnly(Value: Boolean); override;
|
||||
function GetID_Cliente: integer; virtual;
|
||||
procedure SetID_Cliente(const Value: integer); virtual;
|
||||
function GetAlbaran: IBizAlbaranCliente;
|
||||
procedure SetAlbaran(const Value: IBizAlbaranCliente);
|
||||
procedure EscribirTextoDireccion;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
|
||||
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
|
||||
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirContactoExecute(Sender: TObject);
|
||||
begin
|
||||
ElegirCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirDireccionExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirDireccionUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
|
||||
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirPersonaContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actElegirPersonaContactoUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and
|
||||
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actAnadirContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
AnadirNuevoCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actVerContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
VerFichaCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.actVerContactoUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.AnadirNuevoCliente;
|
||||
var
|
||||
ACliente : IBizCliente;
|
||||
begin
|
||||
inherited;
|
||||
ACliente := (FClientesController.Nuevo as IBizCliente);
|
||||
FClientesController.Ver(ACliente);
|
||||
Self.Cliente := ACliente;
|
||||
end;
|
||||
|
||||
constructor TfrViewDatosYSeleccionClienteAlbaran.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FMsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
||||
FClientesController := TClientesController.Create;
|
||||
FDireccionesController := TDireccionesContactoController.Create;
|
||||
|
||||
edtlNombre.Enabled := False;
|
||||
edtNIFCIF.Enabled := False;
|
||||
edtDireccion.Enabled := False;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
destructor TfrViewDatosYSeleccionClienteAlbaran.Destroy;
|
||||
begin
|
||||
FClientesController := NIL;
|
||||
FDireccionesController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.edtDireccionPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.edtPersonaContactoPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirCliente;
|
||||
var
|
||||
ACliente : IBizCliente;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, FMsgElegirCliente, False) as IBizCliente);
|
||||
|
||||
if Assigned(ACliente) then
|
||||
Self.Cliente := ACliente;
|
||||
ACliente := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirDireccionCliente;
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
inherited;
|
||||
ADireccion := FClientesController.ElegirDireccion(FCliente, ' ');
|
||||
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
FDireccion := ADireccion;
|
||||
FAlbaran.Edit;
|
||||
|
||||
if FDireccion.IDIsNull then // Es la dirección de la razón social
|
||||
begin
|
||||
FAlbaran.ClearField('ID_DIRECCION');
|
||||
FAlbaran.ClearField('IMPORTE_PORTE');
|
||||
end
|
||||
else begin
|
||||
FAlbaran.ID_DIRECCION := FDireccion.ID;
|
||||
FAlbaran.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
FAlbaran.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
|
||||
end;
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.ElegirPersonaContacto;
|
||||
var
|
||||
APersona : IBizContactoPersonal;
|
||||
begin
|
||||
inherited;
|
||||
APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
|
||||
if Assigned(APersona) then
|
||||
begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO := APersona.NOMBRE;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.EscribirTextoDireccion;
|
||||
var
|
||||
ACadena : String;
|
||||
begin
|
||||
ACadena := '';
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClienteAlbaran.GetCliente: IBizCliente;
|
||||
begin
|
||||
Result := FCliente;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClienteAlbaran.GetID_Cliente: integer;
|
||||
begin
|
||||
Result := -1;
|
||||
if Assigned(FCliente) then
|
||||
Result := FCliente.ID;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetCliente(Value: IBizCliente);
|
||||
begin
|
||||
FCliente := Value;
|
||||
if Assigned(FCliente) then
|
||||
begin
|
||||
dsCliente.DataTable := FCliente.DataTable;
|
||||
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
FAlbaran.Edit;
|
||||
FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
if Assigned(FOnClienteChanged) then
|
||||
FOnClienteChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetID_Cliente(const Value: integer);
|
||||
begin
|
||||
Self.Cliente := IBizCliente(FClientesController.Buscar(Value));
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClienteAlbaran.GetOnClienteChanged: TNotifyEvent;
|
||||
begin
|
||||
Result := FOnClienteChanged;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClienteAlbaran.GetAlbaran: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := FAlbaran;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.RefrescarDireccion;
|
||||
begin
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
|
||||
if (not FAlbaran.ID_DIRECCIONIsNull) and
|
||||
(FDireccionesController.Localizar(FCliente.Direcciones, FAlbaran.ID_DIRECCION)) then
|
||||
FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
|
||||
else
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetOnClienteChanged(
|
||||
const Value: TNotifyEvent);
|
||||
begin
|
||||
FOnClienteChanged := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetAlbaran(
|
||||
const Value: IBizAlbaranCliente);
|
||||
begin
|
||||
FAlbaran := Value;
|
||||
if Assigned(FAlbaran) then
|
||||
begin
|
||||
dsAlbaran.DataTable := FAlbaran.DataTable;
|
||||
|
||||
FCliente := FAlbaran.Cliente;
|
||||
dsCliente.DataTable := FCliente.DataTable;
|
||||
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
edtPersonaContacto.Enabled := True;
|
||||
RefrescarDireccion;
|
||||
end
|
||||
else begin
|
||||
dsAlbaran.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteAlbaran.VerFichaCliente;
|
||||
begin
|
||||
if not Assigned(Cliente) then
|
||||
ShowErrorMessage('No se ha indicado un cliente', 'El presupuesto no tiene ningún cliente asociado a mostrar.')
|
||||
else begin
|
||||
FClientesController.Ver(Cliente);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -54,11 +54,11 @@
|
||||
<DelphiCompile Include="Articulos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Articulos_model.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\Familias_controller.dcp" />
|
||||
<DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="uArticulosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorArticulo.pas">
|
||||
<Form>fEditorArticulo</Form>
|
||||
|
||||
@ -2,6 +2,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
Caption = 'Seleccionar art'#237'culos'
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||
@ -53,7 +54,7 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Align = alLeft
|
||||
DockPos = -6
|
||||
ExplicitWidth = 126
|
||||
ExplicitWidth = 269
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -71,12 +72,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 126
|
||||
Left = 269
|
||||
Top = 23
|
||||
Align = alLeft
|
||||
DockPos = 101
|
||||
DockRow = 1
|
||||
ExplicitLeft = 126
|
||||
ExplicitLeft = 269
|
||||
ExplicitTop = 23
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
|
||||
@ -11,7 +11,7 @@ uses
|
||||
|
||||
type
|
||||
IContactosController = interface(IControllerBase)
|
||||
['{43F9A4ED-6563-4F95-9A56-330CF9C66731}']
|
||||
['{E91C24EB-D4D9-4203-809B-0AF90F41B32E}']
|
||||
function Buscar(const ID: Integer): IBizContacto;
|
||||
function BuscarTodos: IBizContacto;
|
||||
procedure Ver(AContacto : IBizContacto);
|
||||
@ -33,6 +33,7 @@ type
|
||||
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
|
||||
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
|
||||
AMensaje: String): IBizContactoPersonal;
|
||||
function DarDireccionSocial(AContacto : IBizContacto): IBizDireccionesContacto;
|
||||
end;
|
||||
|
||||
TContactosController = class(TControllerBase, IContactosController)
|
||||
@ -67,6 +68,7 @@ type
|
||||
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
|
||||
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
|
||||
AMensaje: String): IBizContactoPersonal;
|
||||
function DarDireccionSocial(AContacto : IBizContacto): IBizDireccionesContacto;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -114,6 +116,36 @@ begin
|
||||
FDataModule := NIL;
|
||||
end;
|
||||
|
||||
function TContactosController.DarDireccionSocial(
|
||||
AContacto: IBizContacto): IBizDireccionesContacto;
|
||||
var
|
||||
ADireccionesController : IDireccionesContactoController;
|
||||
begin
|
||||
if not Assigned(AContacto) then
|
||||
raise Exception.Create ('Contacto no asignado');
|
||||
|
||||
ADireccionesController := TDireccionesContactoController.Create;
|
||||
try
|
||||
Result := ADireccionesController.Nuevo;
|
||||
with Result do
|
||||
begin
|
||||
ClearField('ID');
|
||||
NOMBRE := AContacto.NOMBRE;
|
||||
CALLE := AContacto.CALLE;
|
||||
POBLACION := AContacto.POBLACION;
|
||||
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
|
||||
PROVINCIA := AContacto.PROVINCIA;
|
||||
TELEFONO := AContacto.TELEFONO_1;
|
||||
FAX := AContacto.FAX;
|
||||
MOVIL := AContacto.MOVIL_1;
|
||||
EMAIL := AContacto.EMAIL_1;
|
||||
PERSONA_CONTACTO := AContacto.PERSONA_CONTACTO;
|
||||
end;
|
||||
finally
|
||||
ADireccionesController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TContactosController.DescartarCambios(AContacto: IBizContacto);
|
||||
begin
|
||||
if not Assigned(AContacto) then
|
||||
@ -144,7 +176,7 @@ begin
|
||||
JsDialog := TJSDialog.Create(nil);
|
||||
try
|
||||
JsDialog.Content.Add(AMensaje);
|
||||
JsDialog.Instruction.Text := 'Elija una direci'#243'n...';
|
||||
JsDialog.Instruction.Text := 'Elija una direcci'#243'n.';
|
||||
JsDialog.DialogOptions := [doCommandLinks, doModal];
|
||||
JsDialog.ButtonBar.Buttons := [cbOk];
|
||||
JsDialog.Width := 600;
|
||||
@ -176,8 +208,14 @@ begin
|
||||
|
||||
if JsDialog.Execute <> IDCANCEL then
|
||||
if JsDialog.CustomButtonResult > 0 then
|
||||
begin
|
||||
if AContacto.Direcciones.DataTable.Locate(fld_DireccionesContactoID, JsDialog.CustomButtonResult, []) then
|
||||
Result := AContacto.Direcciones;
|
||||
end
|
||||
else begin
|
||||
// Se ha elegido la dirección de la razón social
|
||||
Result := DarDireccionSocial(AContacto)
|
||||
end;
|
||||
|
||||
finally
|
||||
FreeAndNIL(JsDialog);
|
||||
|
||||
@ -10,9 +10,11 @@ uses
|
||||
type
|
||||
IDireccionesContactoController = interface(IControllerBase)
|
||||
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}']
|
||||
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||
procedure CopiarDireccion(ADireccionOrigen: IBizDireccionesContacto; ADireccionDestino: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||
procedure Ver(ADireccion : IBizDireccionesContacto);
|
||||
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
||||
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
||||
function Nuevo : IBizDireccionesContacto;
|
||||
end;
|
||||
|
||||
TDireccionesContactoController = class(TControllerBase, IDireccionesContactoController)
|
||||
@ -20,8 +22,10 @@ type
|
||||
FDataModule : IDataModuleContactos;
|
||||
public
|
||||
procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||
procedure CopiarDireccion(ADireccionOrigen: IBizDireccionesContacto; ADireccionDestino: IBizDireccionesContacto; AAnadir : Boolean = True);
|
||||
procedure Ver(ADireccion : IBizDireccionesContacto);
|
||||
function Localizar(ADirecciones: IBizDireccionesContacto; const ID : Integer): Boolean;
|
||||
function Nuevo : IBizDireccionesContacto;
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
@ -32,9 +36,24 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleContactos, schContactosClient_Intf, uIEditorDireccionContacto,
|
||||
uEditorRegistryUtils, cxControls;
|
||||
uEditorRegistryUtils, cxControls, uDataTableUtils;
|
||||
|
||||
|
||||
procedure TDireccionesContactoController.CopiarDireccion(ADireccionOrigen,
|
||||
ADireccionDestino: IBizDireccionesContacto; AAnadir: Boolean);
|
||||
begin
|
||||
if not Assigned(ADireccionOrigen) then
|
||||
raise Exception.Create ('Dirección de origen no asignada (CopiarDireccion)');
|
||||
|
||||
if not Assigned(ADireccionDestino) then
|
||||
raise Exception.Create ('Dirección de destino no asignada (CopiarDireccion)');
|
||||
|
||||
ADireccionOrigen.Active := True;
|
||||
ADireccionDestino.Active := True;
|
||||
|
||||
DuplicarRegistro(ADireccionOrigen.DataTable, ADireccionDestino.DataTable, True, True, AAnadir);
|
||||
end;
|
||||
|
||||
procedure TDireccionesContactoController.CopiarDireccionFiscal(
|
||||
AContacto: IBizContacto; ADireccion: IBizDireccionesContacto;
|
||||
AAnadir: Boolean);
|
||||
@ -44,7 +63,10 @@ begin
|
||||
|
||||
if not Assigned(ADireccion) then
|
||||
raise Exception.Create ('Dirección no asignada (CopiarDireccionFiscal)');
|
||||
|
||||
|
||||
AContacto.Active := True;
|
||||
ADireccion.Active := True;
|
||||
|
||||
if AAnadir then
|
||||
ADireccion.DataTable.Insert
|
||||
else
|
||||
@ -52,13 +74,16 @@ begin
|
||||
try
|
||||
with ADireccion do
|
||||
begin
|
||||
NOMBRE := 'Dirección de entrega';
|
||||
NOMBRE := AContacto.NOMBRE;
|
||||
CALLE := AContacto.CALLE;
|
||||
POBLACION := AContacto.POBLACION;
|
||||
PROVINCIA := AContacto.PROVINCIA;
|
||||
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
|
||||
TELEFONO := AContacto.TELEFONO_1;
|
||||
FAX := AContacto.FAX;
|
||||
MOVIL := AContacto.MOVIL_1;
|
||||
EMAIL := AContacto.EMAIL_1;
|
||||
PERSONA_CONTACTO := AContacto.PERSONA_CONTACTO;
|
||||
end;
|
||||
finally
|
||||
ADireccion.DataTable.Post;
|
||||
@ -96,6 +121,16 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDireccionesContactoController.Nuevo: IBizDireccionesContacto;
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
ADireccion := FDataModule.NewDireccion;
|
||||
ADireccion.DataTable.Active := True;
|
||||
ADireccion.Insert;
|
||||
Result := ADireccion;
|
||||
end;
|
||||
|
||||
procedure TDireccionesContactoController.Ver(
|
||||
ADireccion: IBizDireccionesContacto);
|
||||
var
|
||||
|
||||
@ -33,6 +33,7 @@ type
|
||||
function _GetDirecciones: IBizDireccionesContacto;
|
||||
function _GetPersonal: IBizContactoPersonal;
|
||||
function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
|
||||
function NewDireccion : IBizDireccionesContacto;
|
||||
|
||||
// Report
|
||||
function GetReport(const AContactosID: String): Binary;
|
||||
@ -64,6 +65,30 @@ begin
|
||||
Result := (RORemoteService as IsrvContactos).GenerateEtiquetasReport(AContactosID);
|
||||
end;
|
||||
|
||||
function TDataModuleContactos.NewDireccion: IBizDireccionesContacto;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self._GetDirecciones;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_DireccionesContactoID), NewConstant(ID_NULO, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModuleContactos._GetDatosBancarios: IBizContactosDatosBancarios;
|
||||
var
|
||||
ADatosBancarios : TDAMemDataTable;
|
||||
|
||||
@ -14,6 +14,7 @@ type
|
||||
function _GetDatosBancarios : IBizContactosDatosBancarios;
|
||||
function _GetDirecciones: IBizDireccionesContacto;
|
||||
function _GetPersonal: IBizContactoPersonal;
|
||||
function NewDireccion : IBizDireccionesContacto;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -49,35 +49,35 @@
|
||||
<DelphiCompile Include="FacturasCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_controller.dcp" />
|
||||
<DCCReference Include="..\Contabilidad_view.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\GestorInformes_controller.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
|
||||
<Form>fEditorElegirArticulosFacturaCliente</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
Binary file not shown.
@ -71,7 +71,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 854
|
||||
Height = 398
|
||||
ActivePage = pagContabilidad
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
@ -103,6 +102,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Height = 370
|
||||
ExplicitWidth = 846
|
||||
ExplicitHeight = 370
|
||||
DesignSize = (
|
||||
846
|
||||
370)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
@ -137,6 +139,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
ExplicitWidth = 78
|
||||
Width = 78
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 289
|
||||
ExplicitLeft = 289
|
||||
end
|
||||
inherited frViewTienda1: TfrViewTienda
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited cbTienda: TcxComboBox
|
||||
@ -150,7 +156,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
inherited frViewClienteFactura1: TfrViewClienteFactura
|
||||
Left = 449
|
||||
Width = 398
|
||||
ExplicitLeft = 449
|
||||
ExplicitWidth = 398
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 398
|
||||
@ -199,16 +207,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 331
|
||||
Left = 283
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 331
|
||||
ExplicitLeft = 283
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 221
|
||||
ExplicitLeft = 221
|
||||
Left = 173
|
||||
ExplicitLeft = 173
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -220,12 +228,24 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
ImageIndex = 1
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
||||
@ -315,7 +315,7 @@ end;
|
||||
|
||||
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
|
||||
var
|
||||
FDetallesController : IDetallesFacturaClienteController;
|
||||
// FDetallesController : IDetallesFacturaClienteController;
|
||||
AClientesController : IClientesController;
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
@ -335,20 +335,21 @@ begin
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
case FFactura.Cliente.Direcciones.RecordCount of
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AClientesController.ElegirDireccion(FFactura.Cliente, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AClientesController.ElegirDireccion(FFactura.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de esta factura.');
|
||||
end;
|
||||
|
||||
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||
// Si hay dirección de envio, copiarla a la factura y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FFactura.Edit;
|
||||
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccion(ADireccion, FFactura);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
if not ADireccion.IDIsNull then
|
||||
try
|
||||
FFactura.Edit;
|
||||
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccion(ADireccion, FFactura);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
finally
|
||||
AClientesController := Nil;
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 869
|
||||
Height = 546
|
||||
Align = alClient
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
@ -9,17 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Width = 869
|
||||
Height = 546
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
869
|
||||
546)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 135
|
||||
Top = 30
|
||||
@ -130,7 +132,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 78
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 313
|
||||
Left = 301
|
||||
Top = 108
|
||||
Width = 132
|
||||
Height = 23
|
||||
@ -171,7 +173,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
end
|
||||
end
|
||||
inline frViewClienteFactura1: TfrViewClienteFactura
|
||||
Left = 473
|
||||
Left = 461
|
||||
Top = 30
|
||||
Width = 398
|
||||
Height = 265
|
||||
@ -183,7 +185,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
ParentFont = False
|
||||
TabOrder = 6
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 473
|
||||
ExplicitLeft = 461
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 398
|
||||
ExplicitHeight = 265
|
||||
@ -233,16 +235,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 192
|
||||
Left = 294
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 192
|
||||
ExplicitLeft = 294
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 82
|
||||
ExplicitLeft = 82
|
||||
Left = 184
|
||||
ExplicitLeft = 184
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
@ -290,6 +292,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
|
||||
@ -48,7 +48,6 @@ type
|
||||
frViewTienda1: TfrViewTienda;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item3: TdxLayoutItem;
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
dxLayoutControl1Item6: TdxLayoutItem;
|
||||
frViewClienteFactura1: TfrViewClienteFactura;
|
||||
dxLayoutControl1Group8: TdxLayoutGroup;
|
||||
|
||||
@ -303,40 +303,40 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitWidth = 57
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 218
|
||||
ExplicitLeft = 218
|
||||
Left = 202
|
||||
ExplicitLeft = 202
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 235
|
||||
ExplicitLeft = 235
|
||||
Left = 219
|
||||
ExplicitLeft = 219
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 243
|
||||
ExplicitLeft = 243
|
||||
Left = 227
|
||||
ExplicitLeft = 227
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 277
|
||||
ExplicitLeft = 277
|
||||
Left = 261
|
||||
ExplicitLeft = 261
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 311
|
||||
ExplicitLeft = 311
|
||||
Left = 295
|
||||
ExplicitLeft = 295
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 345
|
||||
ExplicitLeft = 345
|
||||
Left = 329
|
||||
ExplicitLeft = 329
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 353
|
||||
ExplicitLeft = 353
|
||||
Left = 337
|
||||
ExplicitLeft = 337
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 387
|
||||
ExplicitLeft = 387
|
||||
Left = 371
|
||||
ExplicitLeft = 371
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 421
|
||||
ExplicitLeft = 421
|
||||
Left = 405
|
||||
ExplicitLeft = 405
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
|
||||
@ -313,20 +313,21 @@ begin
|
||||
AProveedoresController := TProveedoresController.Create;
|
||||
try
|
||||
case FFactura.Proveedor.Direcciones.RecordCount of
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AProveedoresController.ElegirDireccion(FFactura.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AProveedoresController.ElegirDireccion(FFactura.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
|
||||
end;
|
||||
|
||||
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FFactura.Edit;
|
||||
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccion(ADireccion, FFactura);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
if not ADireccion.IDIsNull then
|
||||
try
|
||||
FFactura.Edit;
|
||||
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
|
||||
FController.CopiarDireccion(ADireccion, FFactura);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
finally
|
||||
AProveedoresController := Nil;
|
||||
|
||||
@ -1,16 +0,0 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf62.tmp */
|
||||
@ -1,17 +0,0 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
|
||||
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
|
||||
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf60.tmp */
|
||||
@ -66,6 +66,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
DictionaryEntry = 'PresupuestosCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
|
||||
Binary file not shown.
@ -43,8 +43,6 @@
|
||||
<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">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><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -54,20 +52,20 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
|
||||
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="uBizDetallesPresupuestoCliente.pas" />
|
||||
<DCCReference Include="uBizPresupuestosCliente.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -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_PresupuestosCliente = '{5E6BE2D5-2CC1-4C81-AF1C-67642F4B91E3}';
|
||||
RID_PresupuestosCliente_Detalles = '{A6AC5D2F-0ECE-48BB-948B-EE8BA4978216}';
|
||||
RID_PresupuestosCliente = '{C1671A4E-3A6C-4A99-AADB-64DEA03852CC}';
|
||||
RID_PresupuestosCliente_Detalles = '{4810B61F-36F6-42C8-A332-8601F4F7290C}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PresupuestosCliente = 'PresupuestosCliente';
|
||||
@ -23,6 +23,7 @@ const
|
||||
fld_PresupuestosClienteFECHA_DECISION = 'FECHA_DECISION';
|
||||
fld_PresupuestosClienteREFERENCIA = 'REFERENCIA';
|
||||
fld_PresupuestosClienteSITUACION = 'SITUACION';
|
||||
fld_PresupuestosClienteID_DIRECCION = 'ID_DIRECCION';
|
||||
fld_PresupuestosClienteID_CLIENTE = 'ID_CLIENTE';
|
||||
fld_PresupuestosClienteNIF_CIF = 'NIF_CIF';
|
||||
fld_PresupuestosClienteNOMBRE = 'NOMBRE';
|
||||
@ -57,32 +58,33 @@ const
|
||||
idx_PresupuestosClienteFECHA_DECISION = 3;
|
||||
idx_PresupuestosClienteREFERENCIA = 4;
|
||||
idx_PresupuestosClienteSITUACION = 5;
|
||||
idx_PresupuestosClienteID_CLIENTE = 6;
|
||||
idx_PresupuestosClienteNIF_CIF = 7;
|
||||
idx_PresupuestosClienteNOMBRE = 8;
|
||||
idx_PresupuestosClienteREFERENCIA_CLIENTE = 9;
|
||||
idx_PresupuestosClienteCLIENTE_FINAL = 10;
|
||||
idx_PresupuestosClientePORTADA = 11;
|
||||
idx_PresupuestosClienteMEMORIA = 12;
|
||||
idx_PresupuestosClienteOBSERVACIONES = 13;
|
||||
idx_PresupuestosClienteINCIDENCIAS = 14;
|
||||
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 15;
|
||||
idx_PresupuestosClienteFECHA_ALTA = 16;
|
||||
idx_PresupuestosClienteFECHA_MODIFICACION = 17;
|
||||
idx_PresupuestosClienteUSUARIO = 18;
|
||||
idx_PresupuestosClienteIMPORTE_NETO = 19;
|
||||
idx_PresupuestosClienteIMPORTE_PORTE = 20;
|
||||
idx_PresupuestosClienteDESCUENTO = 21;
|
||||
idx_PresupuestosClienteIMPORTE_DESCUENTO = 22;
|
||||
idx_PresupuestosClienteBASE_IMPONIBLE = 23;
|
||||
idx_PresupuestosClienteIVA = 24;
|
||||
idx_PresupuestosClienteIMPORTE_IVA = 25;
|
||||
idx_PresupuestosClienteIMPORTE_TOTAL = 26;
|
||||
idx_PresupuestosClienteID_FORMA_PAGO = 27;
|
||||
idx_PresupuestosClienteID_TIENDA = 28;
|
||||
idx_PresupuestosClienteTIENDA = 29;
|
||||
idx_PresupuestosClienteID_VENDEDOR = 30;
|
||||
idx_PresupuestosClienteVENDEDOR = 31;
|
||||
idx_PresupuestosClienteID_DIRECCION = 6;
|
||||
idx_PresupuestosClienteID_CLIENTE = 7;
|
||||
idx_PresupuestosClienteNIF_CIF = 8;
|
||||
idx_PresupuestosClienteNOMBRE = 9;
|
||||
idx_PresupuestosClienteREFERENCIA_CLIENTE = 10;
|
||||
idx_PresupuestosClienteCLIENTE_FINAL = 11;
|
||||
idx_PresupuestosClientePORTADA = 12;
|
||||
idx_PresupuestosClienteMEMORIA = 13;
|
||||
idx_PresupuestosClienteOBSERVACIONES = 14;
|
||||
idx_PresupuestosClienteINCIDENCIAS = 15;
|
||||
idx_PresupuestosClienteINCIDENCIAS_ACTIVAS = 16;
|
||||
idx_PresupuestosClienteFECHA_ALTA = 17;
|
||||
idx_PresupuestosClienteFECHA_MODIFICACION = 18;
|
||||
idx_PresupuestosClienteUSUARIO = 19;
|
||||
idx_PresupuestosClienteIMPORTE_NETO = 20;
|
||||
idx_PresupuestosClienteIMPORTE_PORTE = 21;
|
||||
idx_PresupuestosClienteDESCUENTO = 22;
|
||||
idx_PresupuestosClienteIMPORTE_DESCUENTO = 23;
|
||||
idx_PresupuestosClienteBASE_IMPONIBLE = 24;
|
||||
idx_PresupuestosClienteIVA = 25;
|
||||
idx_PresupuestosClienteIMPORTE_IVA = 26;
|
||||
idx_PresupuestosClienteIMPORTE_TOTAL = 27;
|
||||
idx_PresupuestosClienteID_FORMA_PAGO = 28;
|
||||
idx_PresupuestosClienteID_TIENDA = 29;
|
||||
idx_PresupuestosClienteTIENDA = 30;
|
||||
idx_PresupuestosClienteID_VENDEDOR = 31;
|
||||
idx_PresupuestosClienteVENDEDOR = 32;
|
||||
|
||||
{ PresupuestosCliente_Detalles fields }
|
||||
fld_PresupuestosCliente_DetallesID = 'ID';
|
||||
@ -119,7 +121,7 @@ const
|
||||
type
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{A0CB5649-1F66-44F0-9873-3A27381A6679}']
|
||||
['{E1294E95-C318-43F1-87E6-1DFF56535D04}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -145,6 +147,10 @@ type
|
||||
procedure SetSITUACIONValue(const aValue: String);
|
||||
function GetSITUACIONIsNull: Boolean;
|
||||
procedure SetSITUACIONIsNull(const aValue: Boolean);
|
||||
function GetID_DIRECCIONValue: Integer;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer);
|
||||
function GetID_DIRECCIONIsNull: Boolean;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
function GetID_CLIENTEValue: Integer;
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer);
|
||||
function GetID_CLIENTEIsNull: Boolean;
|
||||
@ -260,6 +266,8 @@ type
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
||||
@ -351,6 +359,10 @@ type
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
function GetSITUACIONIsNull: Boolean; virtual;
|
||||
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_DIRECCIONValue: Integer; virtual;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CLIENTEValue: Integer; virtual;
|
||||
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_CLIENTEIsNull: Boolean; virtual;
|
||||
@ -465,6 +477,8 @@ type
|
||||
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
|
||||
@ -526,7 +540,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{AB9E3800-3496-46AF-B3F8-740B313D8442}']
|
||||
['{50EE992F-529D-4AEC-80CB-E6F80944A7C6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -894,6 +908,27 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosClienteSITUACION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosClienteID_DIRECCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetID_CLIENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteID_CLIENTE].AsInteger;
|
||||
|
||||
@ -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_PresupuestosClienteDelta = '{69E2C449-3723-4636-AE0D-0312CFB3E6B8}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{D8A7CFD1-F8FD-4F89-8D5E-46BDA7608874}';
|
||||
RID_PresupuestosClienteDelta = '{CB00EA41-597B-408E-8BAE-02F8D52A3F75}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{EB5D912B-547A-4097-B831-9AAB4FE35DF1}';
|
||||
|
||||
type
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{69E2C449-3723-4636-AE0D-0312CFB3E6B8}']
|
||||
['{CB00EA41-597B-408E-8BAE-02F8D52A3F75}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -23,6 +23,7 @@ type
|
||||
function GetOldFECHA_DECISIONValue : DateTime;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldSITUACIONValue : String;
|
||||
function GetOldID_DIRECCIONValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
function GetOldNOMBREValue : String;
|
||||
@ -57,6 +58,7 @@ type
|
||||
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
@ -134,6 +136,12 @@ type
|
||||
function GetOldSITUACIONIsNull: Boolean; virtual;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_DIRECCIONValue: Integer; virtual;
|
||||
function GetID_DIRECCIONIsNull: Boolean; virtual;
|
||||
function GetOldID_DIRECCIONValue: Integer; virtual;
|
||||
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
|
||||
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
|
||||
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CLIENTEValue: Integer; virtual;
|
||||
function GetID_CLIENTEIsNull: Boolean; virtual;
|
||||
function GetOldID_CLIENTEValue: Integer; virtual;
|
||||
@ -312,6 +320,10 @@ type
|
||||
property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull;
|
||||
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
|
||||
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
|
||||
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
|
||||
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
|
||||
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||
@ -425,7 +437,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{D8A7CFD1-F8FD-4F89-8D5E-46BDA7608874}']
|
||||
['{EB5D912B-547A-4097-B831-9AAB4FE35DF1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
@ -853,6 +865,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteSITUACION] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION]);
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_DIRECCION]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_DIRECCION] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_CLIENTE];
|
||||
|
||||
@ -149,6 +149,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
DatasetField = 'VENDEDOR'
|
||||
TableField = 'VENDEDOR'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_DIRECCION'
|
||||
TableField = 'ID_DIRECCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'PresupuestosCliente'
|
||||
@ -188,6 +192,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Size = 255
|
||||
DictionaryEntry = 'PresupuestosCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
@ -490,6 +498,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -612,19 +624,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
SQL =
|
||||
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' +
|
||||
'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' SITUACION, ID_CLIENT' +
|
||||
'E, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTADA, MEMORIA, OBS' +
|
||||
'ERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, ' +
|
||||
'FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' +
|
||||
'DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE' +
|
||||
'_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' ID_TIENDA, ID_VENDEDOR)' +
|
||||
#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_DECI' +
|
||||
'SION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :REFERENCIA_CLI' +
|
||||
'ENTE,'#10' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10 +
|
||||
' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MOD' +
|
||||
'IFICACION, '#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCU' +
|
||||
'ENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_' +
|
||||
'IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :ID_TIENDA, :ID_VENDE' +
|
||||
'DOR)'#10
|
||||
'E, REFERENCIA_CLIENTE, ID_DIRECCION,'#10' CLIENTE_FINAL, PORTADA' +
|
||||
', MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS' +
|
||||
', FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO, I' +
|
||||
'MPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE' +
|
||||
', IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' ID_TIENDA' +
|
||||
', ID_VENDEDOR)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUEST' +
|
||||
'O, :FECHA_DECISION, :REFERENCIA,'#10' :SITUACION, :ID_CLIENTE, :' +
|
||||
'REFERENCIA_CLIENTE, :ID_DIRECCION,'#10' :CLIENTE_FINAL, :PORTADA' +
|
||||
', :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCIAS_ACT' +
|
||||
'IVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :IMPORTE' +
|
||||
'_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BA' +
|
||||
'SE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORM' +
|
||||
'A_PAGO, :ID_TIENDA, :ID_VENDEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -652,6 +664,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
@ -779,19 +795,20 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' +
|
||||
'= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' +
|
||||
' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' +
|
||||
', '#10' SITUACION = :SITUACION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' +
|
||||
' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL =' +
|
||||
' :CLIENTE_FINAL, '#10' PORTADA = :PORTADA, '#10' MEMORIA = :MEMORI' +
|
||||
'A, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCI' +
|
||||
'DENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' F' +
|
||||
'ECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFI' +
|
||||
'CACION, '#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NE' +
|
||||
'TO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCU' +
|
||||
'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMP' +
|
||||
'ONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :I' +
|
||||
'MPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_P' +
|
||||
'AGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_VENDEDO' +
|
||||
'R = :ID_VENDEDOR'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
', '#10' SITUACION = :SITUACION, '#10' ID_DIRECCION = :ID_DIRECCION' +
|
||||
','#10' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA_CLIENTE = :REFER' +
|
||||
'ENCIA_CLIENTE,'#10' CLIENTE_FINAL = :CLIENTE_FINAL, '#10' PORTADA ' +
|
||||
'= :PORTADA, '#10' MEMORIA = :MEMORIA, '#10' OBSERVACIONES = :OBSER' +
|
||||
'VACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTI' +
|
||||
'VAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' ' +
|
||||
'FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARI' +
|
||||
'O, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPO' +
|
||||
'RTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO =' +
|
||||
' :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ' +
|
||||
' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL' +
|
||||
' = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_T' +
|
||||
'IENDA = :ID_TIENDA,'#10' ID_VENDEDOR = :ID_VENDEDOR'#10' WHERE'#10' (' +
|
||||
'ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
Binary file not shown.
@ -1,4 +1,5 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
|
||||
<MainSource>PresupuestosCliente_view.dpk</MainSource>
|
||||
@ -43,6 +44,7 @@
|
||||
<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><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -51,24 +53,14 @@
|
||||
<DelphiCompile Include="PresupuestosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GestorInformes_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="GestorInformes_view.dcp" />
|
||||
<DCCReference Include="GestorInformes_viewcontainsuPresupuestosClienteViewRegisterin.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
|
||||
<Form>fEditorElegirArticulosPresupuestoCliente</Form>
|
||||
<DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
|
||||
@ -90,6 +82,10 @@
|
||||
<DesignClass>TfEditorPedidosClientePreview</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uPresupuestosClienteViewRegister.pas" />
|
||||
<DCCReference Include="uViewDatosYSeleccionClientePresupuesto.pas">
|
||||
<Form>fruViewDatosYSeleccionClientePresupuesto</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewDetallesPresupuestoCliente.pas">
|
||||
<Form>frViewDetallesPresupuestoCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
|
||||
@ -389,10 +389,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited Bevel1: TBevel
|
||||
Left = 93
|
||||
Top = 92
|
||||
Width = 73
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 92
|
||||
ExplicitWidth = 73
|
||||
end
|
||||
inherited Bevel3: TBevel
|
||||
Left = 333
|
||||
@ -415,7 +413,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited ImporteDto: TcxDBCurrencyEdit
|
||||
Left = 164
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 164
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 153
|
||||
@ -424,7 +426,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||
Left = 521
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 521
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 142
|
||||
@ -433,7 +439,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 451
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 451
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 212
|
||||
@ -442,21 +452,33 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited edtDescuento: TcxDBSpinEdit
|
||||
Left = 93
|
||||
Top = 112
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 112
|
||||
end
|
||||
inherited edtIVA: TcxDBSpinEdit
|
||||
Left = 450
|
||||
Top = 38
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 450
|
||||
ExplicitTop = 38
|
||||
end
|
||||
inherited ImporteBase: TcxDBCurrencyEdit
|
||||
Left = 450
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 450
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 213
|
||||
@ -467,7 +489,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 450
|
||||
ExplicitTop = 65
|
||||
end
|
||||
@ -476,7 +502,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 521
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 142
|
||||
@ -485,7 +515,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||
Left = 93
|
||||
Top = 11
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 11
|
||||
ExplicitWidth = 224
|
||||
@ -495,7 +529,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 93
|
||||
Top = 139
|
||||
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 139
|
||||
ExplicitWidth = 224
|
||||
@ -506,6 +544,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Top = 38
|
||||
DataBinding.DataField = ''
|
||||
DataBinding.DataSource = nil
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 38
|
||||
ExplicitWidth = 86
|
||||
@ -521,6 +563,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Left = 93
|
||||
Top = 65
|
||||
DataBinding.DataField = ''
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 93
|
||||
ExplicitTop = 65
|
||||
ExplicitWidth = 224
|
||||
@ -1897,5 +1943,4 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||
end
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
@ -239,16 +239,16 @@ begin
|
||||
end;
|
||||
|
||||
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
|
||||
var
|
||||
AClientesController : IClientesController;
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
//var
|
||||
// AClientesController : IClientesController;
|
||||
// ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
if Assigned(FPresupuesto) then
|
||||
begin
|
||||
FPresupuesto.Cliente := ViewPresupuesto.ViewClientePresupuesto.Cliente;
|
||||
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
//AClientesController := TClientesController.Create;
|
||||
//try
|
||||
// No avisar si el cliente no tiene datos bancarios
|
||||
{if not AClientesController.TieneDatosBancarios(FPresupuesto.Cliente) then
|
||||
MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atención', MB_ICONWARNING or MB_OK);}
|
||||
@ -257,10 +257,9 @@ begin
|
||||
// para los artículos hay que cambiarlos.
|
||||
if (FPresupuesto.Detalles.RecordCount > 0) then
|
||||
FController.DetallesController.ActualizarDetalles(FPresupuesto.Detalles, FPresupuesto.Cliente);
|
||||
|
||||
finally
|
||||
{finally
|
||||
AClientesController := NIL;
|
||||
end;
|
||||
end;}
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -316,8 +315,6 @@ begin
|
||||
|
||||
if Assigned(FController) then
|
||||
begin
|
||||
ViewPresupuesto.Controller := Controller;
|
||||
ViewPresupuesto.ViewClientePresupuesto.Controller := Controller.ClienteController;
|
||||
frViewDetallesPresupuestoCliente1.Controller := Controller.DetallesController;
|
||||
|
||||
//GESTION_DOCUMENTOS
|
||||
@ -334,16 +331,20 @@ begin
|
||||
dsDataTable.DataTable := FPresupuesto.DataTable;
|
||||
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
|
||||
|
||||
if Assigned(FViewPresupuesto) then
|
||||
begin
|
||||
FViewPresupuesto.Presupuesto := FPresupuesto;
|
||||
ViewPresupuesto.ViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
|
||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
|
||||
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
|
||||
frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
|
||||
try
|
||||
FViewPresupuesto.Presupuesto := FPresupuesto;
|
||||
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;
|
||||
frViewDetallesPresupuestoCliente1.Presupuesto := FPresupuesto; //Para poder sacar los descuento del articulos segun el cliente seleccionado
|
||||
|
||||
//GESTION_DOCUMENTOS
|
||||
frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
|
||||
//GESTION_DOCUMENTOS
|
||||
frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
|
||||
finally
|
||||
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -0,0 +1,443 @@
|
||||
inherited frViewDatosYSeleccionClientePresupuesto: TfrViewDatosYSeleccionClientePresupuesto
|
||||
Width = 505
|
||||
Height = 164
|
||||
ExplicitWidth = 505
|
||||
ExplicitHeight = 164
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 505
|
||||
Height = 164
|
||||
Margins.Left = 0
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 0
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 195
|
||||
DesignSize = (
|
||||
505
|
||||
164)
|
||||
object edtlNombre: TcxDBTextEdit
|
||||
Left = 58
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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
|
||||
Height = 21
|
||||
Width = 224
|
||||
end
|
||||
object edtNIFCIF: TcxDBTextEdit
|
||||
Left = 392
|
||||
Top = 41
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = dsCliente
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.UseLeftAlignmentOnEditing = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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 = 3
|
||||
Height = 21
|
||||
Width = 103
|
||||
end
|
||||
object Button1: TBitBtn
|
||||
Left = 10
|
||||
Top = 10
|
||||
Width = 115
|
||||
Height = 25
|
||||
Action = actElegirContacto
|
||||
Caption = 'Elegir un cliente'
|
||||
TabOrder = 0
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object Button2: TBitBtn
|
||||
Left = 131
|
||||
Top = 10
|
||||
Width = 143
|
||||
Height = 25
|
||||
Action = actAnadirContacto
|
||||
Caption = 'Dar de alta un cliente'
|
||||
TabOrder = 1
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||
3100694731006947310069473100694731006947310069473100694731006947
|
||||
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
|
||||
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
|
||||
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
|
||||
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
|
||||
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
|
||||
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
|
||||
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
|
||||
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
|
||||
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
|
||||
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
|
||||
ED00F2ECE800006000000060000000600000B7A2930069473100D5BFB100E9F6
|
||||
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
|
||||
F100F7A073000060000033CB510000600000B7A2930069473100D5BFB100F4FA
|
||||
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB000060
|
||||
0000006000000060000040D86500006000000060000000600000D5BFB100FFFF
|
||||
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF000060
|
||||
000060F898005AF28F004DE57A0040D865003AD25C0000600000D5BFB100FFFF
|
||||
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF000060
|
||||
000000600000006000005AF28F00006000000060000000600000D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||
B100D5BFB1000060000060F8980000600000D5BFB100D5BFB100FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00006000000060000000600000FF00FF00FF00FF00}
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 303
|
||||
Top = 127
|
||||
Width = 192
|
||||
Height = 25
|
||||
Action = actVerContacto
|
||||
Caption = 'Ver ficha completa del cliente...'
|
||||
TabOrder = 6
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00D5BFB1006947
|
||||
3100694731006947310069473100694731006947310069473100694731006947
|
||||
3100694731006947310069473100694731006947310069473100D5BFB100F6F2
|
||||
EF00B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A29300B7A2
|
||||
9300B7A29300B7A29300B7A29300B7A29300B7A2930069473100D5BFB1002A80
|
||||
1E00136F0D00136F0D00136F0D00136F0D00136F0D00136F0D002A801E00E3D5
|
||||
CE00E0D1C900DFCFC600DCCBC100DBC9BF00B7A2930069473100D5BFB10059A8
|
||||
5100448B2F003CA02C0032A4260032A526003D9E2C00438D2E00136F0D00E7DB
|
||||
D500A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB10080BC
|
||||
790042952E0031A62600369B3200369E320032A727003E952C00136F0D00EAE0
|
||||
DA00E7DBD500E4D7D000E2D3CB00DFCFC600B7A2930069473100D5BFB100CFE8
|
||||
CD004CA741002D942F0071AB90006FA68E0030923100136F0D00EFE8E300EDE4
|
||||
DF00A1745C00A1745C00A1745C00A1745C00B7A2930069473100D5BFB100FFFF
|
||||
FF00B9DDC2004F9DA000559BC8004E96C2004E8E8F00A8C2AA00F2ECE800EFE8
|
||||
E300EDE4DF00EAE0DA00E7DBD500E4D7D000B7A2930069473100D5BFB100FFFF
|
||||
FF00A5CDE8005DAADD005CA9DD0057A4D900519ACC00A0BACA00F5F0ED00F2EC
|
||||
E800EFE8E300EDE4DF00EAE0DA00E7DBD500B7A2930069473100D5BFB100ECF6
|
||||
FA006CB9DF0065B2E50065B1E5005FACDF0056A2D700689EBE00F7F4F100F5F0
|
||||
ED00F2ECE800EFE8E300EDE4DF00EAE0DA00B7A2930069473100D5BFB100E9F6
|
||||
FA005BB0D5005CA6D50065AFDF0062AFE20058A4D8003285A700FAF8F600F7F4
|
||||
F100F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100F4FA
|
||||
FC0078C0DD0056A0CD00569DCA00539CCA00448DBB003285A700FDFCFB00FAF8
|
||||
F600F7F4F100F5F0ED00F2ECE800EFE8E300B7A2930069473100D5BFB100FFFF
|
||||
FF00CEEAF40062B5DE005DA7D5004B92BE003285A700C6DCE600FFFFFF00FDFC
|
||||
FB00F7A07300F7A07300F7A07300F7A07300B7A2930069473100D5BFB100FFFF
|
||||
FF00FFFFFF00CEEAF400A5CDE800A5CDE800CEEAF400FFFFFF00FFFFFF00FFFF
|
||||
FF00FEFEFD00FCFAF900F9F6F400F6F2EF00F3EEEA0069473100D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BF
|
||||
B100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100D5BFB100FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object edtDireccion: TcxMemo
|
||||
Left = 58
|
||||
Top = 68
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
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
|
||||
Height = 53
|
||||
Width = 403
|
||||
end
|
||||
object Button4: TButton
|
||||
Left = 472
|
||||
Top = 68
|
||||
Width = 23
|
||||
Height = 25
|
||||
Action = actElegirDireccion
|
||||
TabOrder = 5
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Button1'
|
||||
ShowCaption = False
|
||||
Control = Button1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Button2'
|
||||
ShowCaption = False
|
||||
Control = Button2
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item1: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Nombre:'
|
||||
Control = edtlNombre
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'NIF/CIF:'
|
||||
Control = edtNIFCIF
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
AlignVert = avCenter
|
||||
Caption = 'Direcci'#243'n'
|
||||
CaptionOptions.AlignVert = tavTop
|
||||
Control = edtDireccion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button4'
|
||||
ShowCaption = False
|
||||
Control = Button4
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'Button3'
|
||||
ShowCaption = False
|
||||
Control = Button3
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dsCliente: TDADataSource
|
||||
Left = 400
|
||||
Top = 8
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Images = PngImageList
|
||||
Left = 368
|
||||
Top = 8
|
||||
object actElegirContacto: TAction
|
||||
Caption = 'Elegir un cliente'
|
||||
ImageIndex = 1
|
||||
OnExecute = actElegirContactoExecute
|
||||
end
|
||||
object actAnadirContacto: TAction
|
||||
Caption = 'Dar de alta un cliente'
|
||||
ImageIndex = 0
|
||||
OnExecute = actAnadirContactoExecute
|
||||
end
|
||||
object actVerContacto: TAction
|
||||
Caption = 'Ver ficha completa del cliente...'
|
||||
ImageIndex = 2
|
||||
OnExecute = actVerContactoExecute
|
||||
OnUpdate = actVerContactoUpdate
|
||||
end
|
||||
object actElegirDireccion: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirDireccionExecute
|
||||
OnUpdate = actElegirDireccionUpdate
|
||||
end
|
||||
object actElegirPersonaContacto: TAction
|
||||
Caption = '...'
|
||||
OnExecute = actElegirPersonaContactoExecute
|
||||
OnUpdate = actElegirPersonaContactoUpdate
|
||||
end
|
||||
end
|
||||
object PngImageList: TPngImageList
|
||||
PngImages = <
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000002224944415478DA
|
||||
95935D48936114C77FCB36584A6064161515DEA441108B240293E8A682246805
|
||||
DEA45020F40196505D081242DE94512B8C20169937056914D52E726B6083B114
|
||||
D44CD3D51A216BB6656B5FEF677B5FF31D23033DF070CE03CFFFF73F1CCE6362
|
||||
29D1806AD44E4C5A32F5F58FAA8BD5D73DD8465757034D4D4EFA4E8C62000ED7
|
||||
56E997647490DFE131BD2ED9584971D98EB9478D2603D279B39EE6733DC6DD00
|
||||
68E2EF7E07E95F2291688C48629ABDC71DACABD8AD0334E7B420104D24F4A3D5
|
||||
DDD707E60087F66C2234D0CECF2F41643987556566676799C9C4387AD18FF964
|
||||
91E178EA522DF73ADC851D1CA85ECD27D77948995861B552844C2A9962303441
|
||||
DD051FA22473E5095C735B3972DAC6D3DB016EED7BC9FD47CFE601E57CF3B661
|
||||
C966D1E62C880299549A696915B6639D4892A243D6B6AC349C0B00DA0C22EF7B
|
||||
484EBDCA015424512491125036D751B1CBAE8BB5330F12459937EF860A01DEA0
|
||||
8BA0FB0E5B154BAE832C810CACDF594F4DD5C17FC45AF6FA87F3800D95022DFD
|
||||
ADC47E84682CDF8F222A3C9CF1303915E6C3E5495DDC7AE379C14E546F5F9307
|
||||
F8E4C7BC187F4BA6344E49D24C6E8A24AD12E65809A1895102CD6386B3F8B793
|
||||
C0F0C73CC0196927188E2297651096A7D096D4922D6659DCC2E7AF43F8CE8C70
|
||||
F5AEEBFF1D9CF5D889C7230BAE6F696939BDF6D7BAABACA87A567279647C320F
|
||||
A8B16DA1BBD7B3A47FA5850168EB702C596C6CA2AA2EFA332E187F0080F1503E
|
||||
182A98A90000000049454E44AE426082}
|
||||
Name = 'PngImage0'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AC400000AC401666D82D4000002A94944415478DA
|
||||
7D925D48536118C79FF3B5AF36DD66B639CB924243225010BC49BA914004CDE8
|
||||
E32228B482EA4689A22289C8CBA28B32B1061688902912D28D16991F6062B2DC
|
||||
45921FB954669BF39C9D6DE7EC9CF3EEBC9D2D8C2CB7079E9BF779FEBFF7F922
|
||||
30C69034822060D3665F5F3A0B90B8C672FCAEC07AD8E35DF0DFBFE3F64EC05F
|
||||
F647F72FC0DB75AED1E1B43D138438C9B26108B11C0443BC30ECF959D731303F
|
||||
9411D0D35C612C2ADBEF3319F5B992AC402412037F9003A4C8E05F17679BDA3E
|
||||
976BA9D1F4807B95552E877D90222910250556023170E66481D900F0CD17C0AD
|
||||
5DDE63F3CBFC505AC0685B6DE34654762B88009B350B8AF658815011C8521C04
|
||||
518487DD530D9D83BECEB480C98EDA13F9798E5E9A61526F098440D1CA572409
|
||||
24298EEFBA271B7BC756D203FA5A8FE49516EDF3313A5D8AA0AAAAD6BF929A01
|
||||
CFC7505DCBBBAAD590349C710BD3EEFA57D916D3A954920648249255283031B3
|
||||
3A7BE1D164A5F61CCC0878D15C917FA8C43165D6334E558B25DBD80847E51BCF
|
||||
A79B3E7D65DB33AEF1E04D570EE5723DB513C4C966E9006101ED0662043C6697
|
||||
30B7DB3021CE6D5C5EEA58FAB22DE0F0ADBD36D25E38A6E6E2126413E00CAA81
|
||||
FAE27AE85FEB876EF10D30DC0E2083542432F3E3F8E2CBC5F7FF01CA5A8E3E21
|
||||
6CC6AB8A264636110C7A80EADC2AE88B0E004474C0B026A035C76BF2B2A7ED43
|
||||
29E671680BA0FC76B50F5BC902641501658B90304BA0EA11100A05544C0774D8
|
||||
0834A7396B04DFE8C8E9B58FC19EAD80EB358B84852E44D9F1DF62930C9856B5
|
||||
6320801419A0A27AA079430AB4303E722530EE6FDF3A838B15E729B3E50195C3
|
||||
D855B34A247F074A8BA91A40A2808C91803955E6E70233F36F3D0D58C6DEEDD6
|
||||
B8D35040179B9DA602305266AC028925A4A0B822A090C20BAB09BF96F35D736E
|
||||
53F70B90E997F07974AFDF0000000049454E44AE426082}
|
||||
Name = 'PngImage1'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
610000000970485973000017120000171201679FD252000001EC4944415478DA
|
||||
A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
|
||||
A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
|
||||
5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
|
||||
3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
|
||||
9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
|
||||
44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
|
||||
43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
|
||||
3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
|
||||
28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
|
||||
9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
|
||||
BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
|
||||
4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
|
||||
22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
|
||||
5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
|
||||
0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
|
||||
C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 304
|
||||
Top = 8
|
||||
Bitmap = {}
|
||||
end
|
||||
object dsPresupuesto: TDADataSource
|
||||
Left = 336
|
||||
Top = 8
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,413 @@
|
||||
unit uViewDatosYSeleccionClientePresupuesto;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit, cxLabel,
|
||||
cxDBLabel, ExtCtrls, DB, uDADataTable, uBizContactos,
|
||||
ComCtrls, ToolWin, ActnList, ImgList, PngImageList, cxTextEdit, cxDBEdit,
|
||||
pngimage, JvExControls, JvComponent, JvButton, JvTransparentButton, Mask,
|
||||
DBCtrls, uClientesController, dxLayoutControl, Buttons, uDAInterfaces,
|
||||
cxMaskEdit, cxButtonEdit, uBizPresupuestosCliente, uBizDireccionesContacto,
|
||||
uDireccionesContactoController, Menus, cxLookAndFeelPainters, cxButtons,
|
||||
cxMemo;
|
||||
|
||||
type
|
||||
IViewDatosYSeleccionClientePresupuesto = interface(IViewBase)
|
||||
['{0BD8B1D7-A992-448A-A9EE-ECE8CBA30A24}']
|
||||
function GetPresupuesto: IBizPresupuestoCliente;
|
||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||
|
||||
function GetCliente: IBizCliente;
|
||||
procedure SetCliente(Value: IBizCliente);
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
|
||||
function GetID_Cliente: integer;
|
||||
procedure SetID_Cliente(const Value: integer);
|
||||
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
|
||||
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
procedure SetOnClienteChanged (const Value : TNotifyEvent);
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged
|
||||
write SetOnClienteChanged;
|
||||
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
end;
|
||||
|
||||
TfrViewDatosYSeleccionClientePresupuesto = class(TfrViewBase, IViewDatosYSeleccionClientePresupuesto)
|
||||
dsCliente: TDADataSource;
|
||||
ActionList1: TActionList;
|
||||
actElegirContacto: TAction;
|
||||
actAnadirContacto: TAction;
|
||||
actVerContacto: TAction;
|
||||
PngImageList: TPngImageList;
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
edtlNombre: TcxDBTextEdit;
|
||||
dxLayoutControl1Item2: TdxLayoutItem;
|
||||
edtNIFCIF: TcxDBTextEdit;
|
||||
Button1: TBitBtn;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
Button2: TBitBtn;
|
||||
dxLayoutControl1Item8: TdxLayoutItem;
|
||||
Button3: TBitBtn;
|
||||
dxLayoutControl1Item9: TdxLayoutItem;
|
||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||
dsPresupuesto: TDADataSource;
|
||||
actElegirDireccion: TAction;
|
||||
actElegirPersonaContacto: TAction;
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
edtDireccion: TcxMemo;
|
||||
Button4: TButton;
|
||||
dxLayoutControl1Item5: TdxLayoutItem;
|
||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||
procedure actElegirContactoExecute(Sender: TObject);
|
||||
procedure actAnadirContactoExecute(Sender: TObject);
|
||||
procedure actVerContactoUpdate(Sender: TObject);
|
||||
procedure edtPersonaContactoPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure edtDireccionPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
procedure actVerContactoExecute(Sender: TObject);
|
||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure actElegirPersonaContactoExecute(Sender: TObject);
|
||||
procedure actElegirPersonaContactoUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
FOnClienteChanged : TNotifyEvent;
|
||||
FMsgElegirCliente: String;
|
||||
protected
|
||||
FClientesController : IClientesController;
|
||||
FDireccionesController : IDireccionesContactoController;
|
||||
FPresupuesto : IBizPresupuestoCliente;
|
||||
FCliente : IBizCliente;
|
||||
FDireccion : IBizDireccionesContacto;
|
||||
function GetCliente: IBizCliente; virtual;
|
||||
procedure SetCliente(Value: IBizCliente); virtual;
|
||||
function GetOnClienteChanged : TNotifyEvent;
|
||||
procedure SetOnClienteChanged (const Value : TNotifyEvent);
|
||||
procedure SetReadOnly(Value: Boolean); override;
|
||||
function GetID_Cliente: integer; virtual;
|
||||
procedure SetID_Cliente(const Value: integer); virtual;
|
||||
function GetPresupuesto: IBizPresupuestoCliente;
|
||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||
procedure EscribirTextoDireccion;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure ElegirPersonaContacto;
|
||||
procedure ElegirDireccionCliente;
|
||||
procedure ElegirCliente;
|
||||
procedure VerFichaCliente;
|
||||
procedure AnadirNuevoCliente;
|
||||
procedure RefrescarDireccion;
|
||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||
property Cliente: IBizCliente read GetCliente write SetCliente;
|
||||
property OnClienteChanged : TNotifyEvent read GetOnClienteChanged write SetOnClienteChanged;
|
||||
property ID_Cliente: integer read GetID_Cliente write SetID_Cliente;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
|
||||
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirContactoExecute(Sender: TObject);
|
||||
begin
|
||||
ElegirCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirDireccionExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirDireccionUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Direcciones) and
|
||||
(FCliente.Direcciones.Active) and (FCliente.Direcciones.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirPersonaContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actElegirPersonaContactoUpdate(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := Assigned(FCliente.Personal) and
|
||||
(FCliente.Personal.Active) and (FCliente.Personal.RecordCount > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actAnadirContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
AnadirNuevoCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actVerContactoExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
VerFichaCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.actVerContactoUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := (Length(edtlNombre.Text) > 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.AnadirNuevoCliente;
|
||||
var
|
||||
ACliente : IBizCliente;
|
||||
begin
|
||||
inherited;
|
||||
ACliente := (FClientesController.Nuevo as IBizCliente);
|
||||
FClientesController.Ver(ACliente);
|
||||
Self.Cliente := ACliente;
|
||||
end;
|
||||
|
||||
constructor TfrViewDatosYSeleccionClientePresupuesto.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited;
|
||||
FMsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
||||
FClientesController := TClientesController.Create;
|
||||
FDireccionesController := TDireccionesContactoController.Create;
|
||||
|
||||
edtlNombre.Enabled := False;
|
||||
edtNIFCIF.Enabled := False;
|
||||
edtDireccion.Enabled := False;
|
||||
//edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
destructor TfrViewDatosYSeleccionClientePresupuesto.Destroy;
|
||||
begin
|
||||
FClientesController := NIL;
|
||||
FDireccionesController := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.edtDireccionPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirDireccionCliente;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.edtPersonaContactoPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
inherited;
|
||||
ElegirPersonaContacto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.ElegirCliente;
|
||||
var
|
||||
ACliente : IBizCliente;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, FMsgElegirCliente, False) as IBizCliente);
|
||||
|
||||
if Assigned(ACliente) then
|
||||
Self.Cliente := ACliente;
|
||||
ACliente := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.ElegirDireccionCliente;
|
||||
var
|
||||
ADireccion : IBizDireccionesContacto;
|
||||
begin
|
||||
inherited;
|
||||
ADireccion := FClientesController.ElegirDireccion(FCliente, ' ');
|
||||
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
FDireccion := ADireccion;
|
||||
FPresupuesto.Edit;
|
||||
|
||||
if FDireccion.IDIsNull then
|
||||
begin
|
||||
FPresupuesto.ClearField('ID_DIRECCION');
|
||||
FPresupuesto.ClearField('IMPORTE_PORTE');
|
||||
end
|
||||
else begin
|
||||
FPresupuesto.ID_DIRECCION := FDireccion.ID;
|
||||
FPresupuesto.IMPORTE_PORTE := FDireccion.PORTE;
|
||||
//FPresupuesto.PERSONA_CONTACTO := FDireccion.PERSONA_CONTACTO;
|
||||
end;
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.ElegirPersonaContacto;
|
||||
var
|
||||
APersona : IBizContactoPersonal;
|
||||
begin
|
||||
inherited;
|
||||
APersona := FClientesController.ElegirPersonaContacto(FCliente.Personal, 'El cliente dispone de personas de contacto dadas de alta en su ficha. Seleccione la que quiere utilizar.');
|
||||
{if Assigned(APersona) then
|
||||
begin
|
||||
FPresupuesto.Edit;
|
||||
FPresupuesto.PERSONA_CONTACTO := APersona.NOMBRE;
|
||||
end;}
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.EscribirTextoDireccion;
|
||||
var
|
||||
ACadena : String;
|
||||
begin
|
||||
ACadena := '';
|
||||
|
||||
if Assigned(FDireccion) then
|
||||
ACadena := Format('%s %s %s %s',
|
||||
[FDireccion.CALLE, FDireccion.POBLACION,
|
||||
FDireccion.CODIGO_POSTAL, FDireccion.PROVINCIA]);
|
||||
|
||||
edtDireccion.Text := ACadena;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClientePresupuesto.GetCliente: IBizCliente;
|
||||
begin
|
||||
Result := FCliente;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClientePresupuesto.GetID_Cliente: integer;
|
||||
begin
|
||||
Result := -1;
|
||||
if Assigned(FCliente) then
|
||||
Result := FCliente.ID;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.SetCliente(Value: IBizCliente);
|
||||
begin
|
||||
FCliente := Value;
|
||||
if Assigned(FCliente) then
|
||||
begin
|
||||
dsCliente.DataTable := FCliente.DataTable;
|
||||
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
//edtPersonaContacto.Enabled := True;
|
||||
|
||||
if FCliente.Direcciones.RecordCount > 0 then
|
||||
ElegirDireccionCliente
|
||||
else begin
|
||||
//FPresupuesto.Edit;
|
||||
//FPresupuesto.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
|
||||
RefrescarDireccion;
|
||||
end;
|
||||
end
|
||||
else begin
|
||||
dsCliente.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
//edtPersonaContacto.Enabled := False;
|
||||
end;
|
||||
|
||||
if Assigned(FOnClienteChanged) then
|
||||
FOnClienteChanged(Self);
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.SetID_Cliente(const Value: integer);
|
||||
begin
|
||||
Self.Cliente := IBizCliente(FClientesController.Buscar(Value));
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClientePresupuesto.GetOnClienteChanged: TNotifyEvent;
|
||||
begin
|
||||
Result := FOnClienteChanged;
|
||||
end;
|
||||
|
||||
function TfrViewDatosYSeleccionClientePresupuesto.GetPresupuesto: IBizPresupuestoCliente;
|
||||
begin
|
||||
Result := FPresupuesto;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.RefrescarDireccion;
|
||||
begin
|
||||
FDireccion := FDireccionesController.Nuevo;
|
||||
|
||||
if (not FPresupuesto.ID_DIRECCIONIsNull) and
|
||||
(FDireccionesController.Localizar(FCliente.Direcciones, FPresupuesto.ID_DIRECCION)) then
|
||||
FDireccionesController.CopiarDireccion(FCliente.Direcciones, FDireccion)
|
||||
else
|
||||
FDireccionesController.CopiarDireccionFiscal(FCliente, FDireccion);
|
||||
|
||||
EscribirTextoDireccion;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.SetOnClienteChanged(
|
||||
const Value: TNotifyEvent);
|
||||
begin
|
||||
FOnClienteChanged := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.SetPresupuesto(
|
||||
const Value: IBizPresupuestoCliente);
|
||||
begin
|
||||
FPresupuesto := Value;
|
||||
if Assigned(FPresupuesto) then
|
||||
begin
|
||||
dsPresupuesto.DataTable := FPresupuesto.DataTable;
|
||||
|
||||
FCliente := FPresupuesto.Cliente;
|
||||
dsCliente.DataTable := FCliente.DataTable;
|
||||
|
||||
if not FCliente.DataTable.Active then
|
||||
FCliente.DataTable.Active := True;
|
||||
|
||||
//edtPersonaContacto.Enabled := True;
|
||||
RefrescarDireccion;
|
||||
end
|
||||
else begin
|
||||
dsPresupuesto.DataTable := NIL;
|
||||
FCliente := NIL;
|
||||
FDireccion := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.VerFichaCliente;
|
||||
begin
|
||||
if not Assigned(Cliente) then
|
||||
ShowErrorMessage('No se ha indicado un cliente', 'El presupuesto no tiene ningún cliente asociado a mostrar.')
|
||||
else begin
|
||||
FClientesController.Ver(Cliente);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,22 +1,24 @@
|
||||
inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Width = 787
|
||||
Height = 473
|
||||
Height = 411
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 787
|
||||
ExplicitHeight = 473
|
||||
ExplicitHeight = 411
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 787
|
||||
Height = 473
|
||||
Height = 411
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitHeight = 473
|
||||
DesignSize = (
|
||||
787
|
||||
473)
|
||||
411)
|
||||
object edtFechaPresupuesto: TcxDBDateEdit
|
||||
Left = 123
|
||||
Top = 109
|
||||
@ -30,19 +32,23 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
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 = 119
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 344
|
||||
Left = 396
|
||||
Top = 228
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -51,12 +57,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
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 = 11
|
||||
Height = 100
|
||||
Width = 941
|
||||
Height = 206
|
||||
Width = 104
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 123
|
||||
@ -73,22 +83,26 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
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 = 143
|
||||
end
|
||||
inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
|
||||
Left = 477
|
||||
inline frViewClientePresupuesto: TfrViewDatosYSeleccionClientePresupuesto
|
||||
Left = 396
|
||||
Top = 28
|
||||
Width = 350
|
||||
Height = 212
|
||||
Width = 549
|
||||
Height = 164
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -97,46 +111,44 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 477
|
||||
ExplicitLeft = 396
|
||||
ExplicitTop = 28
|
||||
ExplicitWidth = 549
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 549
|
||||
ExplicitHeight = 164
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 196
|
||||
ExplicitLeft = 196
|
||||
Left = 256
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 256
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 86
|
||||
ExplicitLeft = 86
|
||||
Left = 167
|
||||
ExplicitLeft = 167
|
||||
end
|
||||
inherited edtDireccion: TcxMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 146
|
||||
Width = 146
|
||||
end
|
||||
inherited Button4: TButton
|
||||
Left = 336
|
||||
ExplicitLeft = 336
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
Top = 72
|
||||
end
|
||||
inherited ActionList1: TActionList
|
||||
Top = 72
|
||||
end
|
||||
inherited PngImageList: TPngImageList
|
||||
Top = 72
|
||||
end
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
@ -159,19 +171,23 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 7
|
||||
Width = 101
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 315
|
||||
Left = 234
|
||||
Top = 217
|
||||
Width = 132
|
||||
Height = 21
|
||||
@ -191,13 +207,17 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Style.Color = clWindow
|
||||
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 = 4
|
||||
Width = 216
|
||||
end
|
||||
@ -215,14 +235,18 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
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 = 216
|
||||
end
|
||||
@ -240,14 +264,18 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
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 = 2
|
||||
Width = 227
|
||||
end
|
||||
@ -270,11 +298,18 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Description = 'ANULADO'
|
||||
Value = 'ANULADO'
|
||||
end>
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
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 = 5
|
||||
Width = 412
|
||||
end
|
||||
@ -303,6 +338,10 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Margins.Top = 0
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 0
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 62
|
||||
Width = 62
|
||||
end
|
||||
@ -318,108 +357,117 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.Sorted = True
|
||||
Properties.OnValidate = cbVendedorPropertiesValidate
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
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 = 121
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group4: TdxLayoutGroup
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos del presupuesto'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
Caption = 'Ref. cliente:'
|
||||
Control = eRefCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Cliente final:'
|
||||
Control = edtClienteFinal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Fecha presupuesto:'
|
||||
Control = edtFechaPresupuesto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Fecha decisi'#243'n:'
|
||||
Control = edtFechaDecision
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
Caption = 'Situaci'#243'n:'
|
||||
Control = cbSituacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
Caption = 'Vendedor:'
|
||||
Control = cbVendedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Forma de pago'
|
||||
Control = cbFormaPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = bFormasPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
Caption = 'Datos del presupuesto'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
Caption = 'El presupuesto pertenece a la tienda'
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Tienda:'
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
Caption = 'Ref. cliente:'
|
||||
Control = eRefCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item8: TdxLayoutItem
|
||||
Caption = 'Cliente final:'
|
||||
Control = edtClienteFinal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Fecha presupuesto:'
|
||||
Control = edtFechaPresupuesto
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item7: TdxLayoutItem
|
||||
Caption = 'Fecha decisi'#243'n:'
|
||||
Control = edtFechaDecision
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item10: TdxLayoutItem
|
||||
Caption = 'Situaci'#243'n:'
|
||||
Control = cbSituacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item11: TdxLayoutItem
|
||||
Caption = 'Vendedor:'
|
||||
Control = cbVendedor
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Group5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Item4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Forma de pago'
|
||||
Control = cbFormaPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
ShowCaption = False
|
||||
Control = frViewTienda1
|
||||
ControlOptions.AutoColor = True
|
||||
Control = bFormasPago
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
Caption = 'El presupuesto pertenece a la tienda'
|
||||
object dxLayoutControl1Item9: TdxLayoutItem
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Tienda:'
|
||||
ShowCaption = False
|
||||
Control = frViewTienda1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group6: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||
AutoAligns = []
|
||||
AlignHorz = ahClient
|
||||
@ -430,16 +478,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group7: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Observaciones'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
object dxLayoutControl1Group7: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Control = memObservaciones
|
||||
ControlOptions.ShowBorder = False
|
||||
Caption = 'Observaciones'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Control = memObservaciones
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -12,22 +12,18 @@ uses
|
||||
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
|
||||
uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
|
||||
uBizFormasPago, uViewTienda, uPresupuestosClienteController, uVendedoresController;
|
||||
uBizFormasPago, uViewTienda, uPresupuestosClienteController, uVendedoresController,
|
||||
uViewDatosYSeleccionClientePresupuesto;
|
||||
|
||||
type
|
||||
IViewPresupuestoCliente = interface(IViewBase)
|
||||
['{C5385699-C1A4-4AEB-B3D0-EE3BDB322FE2}']
|
||||
function GetController : IPresupuestosClienteController;
|
||||
procedure SetController (const Value : IPresupuestosClienteController);
|
||||
property Controller : IPresupuestosClienteController read GetController write SetController;
|
||||
|
||||
function GetPresupuesto: IBizPresupuestoCliente;
|
||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||
|
||||
function GetViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
||||
procedure SetViewClientePresupuesto(const Value: TfrViewDatosYSeleccionCliente);
|
||||
property ViewClientePresupuesto: TfrViewDatosYSeleccionCliente read GetViewClientePresupuesto write SetViewClientePresupuesto;
|
||||
function GetViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto;
|
||||
property ViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto read GetViewClientePresupuesto;
|
||||
end;
|
||||
|
||||
TfrViewPresupuestoCliente = class(TfrViewBase, IViewPresupuestoCliente)
|
||||
@ -44,7 +40,7 @@ type
|
||||
eReferencia: TcxDBTextEdit;
|
||||
dxLayoutControl1Group7: TdxLayoutGroup;
|
||||
dxLayoutControl1Item1: TdxLayoutItem;
|
||||
frViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
||||
frViewClientePresupuesto: TfrViewDatosYSeleccionClientePresupuesto;
|
||||
ActionList1: TActionList;
|
||||
actElegirDireccion: TAction;
|
||||
dxLayoutControl1Item4: TdxLayoutItem;
|
||||
@ -53,7 +49,6 @@ type
|
||||
bFormasPago: TButton;
|
||||
dxLayoutControl1Group5: TdxLayoutGroup;
|
||||
dsFormaPago: TDADataSource;
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
edtFechaDecision: TcxDBDateEdit;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
@ -68,6 +63,7 @@ type
|
||||
dxLayoutControl1Group4: TdxLayoutGroup;
|
||||
cbVendedor: TcxDBComboBox;
|
||||
dxLayoutControl1Item11: TdxLayoutItem;
|
||||
dxLayoutControl1Group6: TdxLayoutGroup;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
@ -81,19 +77,15 @@ type
|
||||
FFormasPago : IBizFormaPago;
|
||||
FFormasPagoController : IFormasPagoController;
|
||||
FListaVendedores : TStringList;
|
||||
FViewClientePresupuesto : TfrViewDatosYSeleccionCliente;
|
||||
FViewClientePresupuesto : IViewDatosYSeleccionClientePresupuesto;
|
||||
|
||||
function GetPresupuesto: IBizPresupuestoCliente;
|
||||
procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual;
|
||||
function GetController : IPresupuestosClienteController;
|
||||
procedure SetController (const Value : IPresupuestosClienteController);
|
||||
|
||||
function GetViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
||||
procedure SetViewClientePresupuesto(const Value: TfrViewDatosYSeleccionCliente);
|
||||
function GetViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto;
|
||||
public
|
||||
property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
|
||||
property Controller : IPresupuestosClienteController read GetController write SetController;
|
||||
property ViewClientePresupuesto: TfrViewDatosYSeleccionCliente read GetViewClientePresupuesto;
|
||||
property ViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto read GetViewClientePresupuesto;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -141,7 +133,6 @@ begin
|
||||
FFormasPagoController := TFormasPagoController.Create;
|
||||
|
||||
FViewClientePresupuesto := frViewClientePresupuesto;
|
||||
FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
|
||||
|
||||
with TVendedoresController.Create do
|
||||
begin
|
||||
@ -195,34 +186,26 @@ begin
|
||||
frViewClientePresupuesto.actAnadirContacto.Execute;
|
||||
end;
|
||||
|
||||
function TfrViewPresupuestoCliente.GetController: IPresupuestosClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
end;
|
||||
|
||||
function TfrViewPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
|
||||
begin
|
||||
Result := FPresupuesto;
|
||||
end;
|
||||
|
||||
function TfrViewPresupuestoCliente.GetViewClientePresupuesto: TfrViewDatosYSeleccionCliente;
|
||||
function TfrViewPresupuestoCliente.GetViewClientePresupuesto: IViewDatosYSeleccionClientePresupuesto;
|
||||
begin
|
||||
Result := FViewClientePresupuesto;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestoCliente.SetController(const Value: IPresupuestosClienteController);
|
||||
begin
|
||||
FController := Value;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestoCliente.SetPresupuesto(const Value: IBizPresupuestoCliente);
|
||||
var
|
||||
i : integer;
|
||||
begin
|
||||
FPresupuesto := Value;
|
||||
|
||||
if Assigned(FPresupuesto) then
|
||||
begin
|
||||
DADataSource.DataTable := FPresupuesto.DataTable;
|
||||
|
||||
cbVendedor.Text := '';
|
||||
for i := 0 to FListaVendedores.Count-1 do
|
||||
begin
|
||||
@ -237,19 +220,15 @@ begin
|
||||
dsFormaPago.DataTable := FFormasPago.DataTable;
|
||||
dsFormaPago.DataTable.Active := True;
|
||||
|
||||
frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
|
||||
frViewTienda1.DataItem := FPresupuesto.DataTable;
|
||||
FViewClientePresupuesto.Presupuesto := FPresupuesto;
|
||||
frViewTienda1.DataItem := FPresupuesto.DataTable;
|
||||
end
|
||||
else begin
|
||||
DADataSource.DataTable := NIL;
|
||||
dsFormaPago.DataTable := NIL;
|
||||
frViewClientePresupuesto.Cliente := nil;
|
||||
FViewClientePresupuesto.Presupuesto := Nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestoCliente.SetViewClientePresupuesto(const Value: TfrViewDatosYSeleccionCliente);
|
||||
begin
|
||||
FViewClientePresupuesto := Value;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -10,7 +10,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 885
|
||||
Caption = 'Recibo de cliente'
|
||||
ExplicitWidth = 742
|
||||
ExplicitWidth = 885
|
||||
inherited Image1: TImage
|
||||
Left = 858
|
||||
Picture.Data = {
|
||||
@ -40,7 +40,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 885
|
||||
ExplicitWidth = 742
|
||||
ExplicitWidth = 885
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 425
|
||||
end
|
||||
@ -51,16 +51,15 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 879
|
||||
Height = 361
|
||||
ActivePage = pagCompensados
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 736
|
||||
ExplicitWidth = 879
|
||||
ExplicitHeight = 361
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 728
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
inline frViewReciboCliente1: TfrViewReciboCliente
|
||||
Left = 0
|
||||
@ -76,83 +75,123 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 728
|
||||
ExplicitHeight = 335
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 871
|
||||
Height = 333
|
||||
ExplicitWidth = 728
|
||||
ExplicitHeight = 335
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
DesignSize = (
|
||||
871
|
||||
333)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 201
|
||||
Width = 201
|
||||
end
|
||||
inherited eSituacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 201
|
||||
Width = 201
|
||||
end
|
||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||
Left = 305
|
||||
ExplicitLeft = 305
|
||||
Left = 264
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 264
|
||||
ExplicitWidth = 67
|
||||
Width = 67
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 277
|
||||
ExplicitHeight = 44
|
||||
Height = 44
|
||||
Width = 277
|
||||
end
|
||||
inherited eFechaEmision: TcxDBTextEdit
|
||||
Left = 546
|
||||
Top = 378
|
||||
ExplicitLeft = 546
|
||||
ExplicitTop = 378
|
||||
Left = 466
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 546
|
||||
Top = 459
|
||||
Left = 466
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
ExplicitLeft = 546
|
||||
ExplicitTop = 459
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eNombreCliente: TcxDBTextEdit
|
||||
Left = 546
|
||||
Top = 432
|
||||
ExplicitLeft = 546
|
||||
ExplicitTop = 432
|
||||
Left = 466
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eNifCif: TcxDBTextEdit
|
||||
Left = 546
|
||||
Top = 405
|
||||
ExplicitLeft = 546
|
||||
ExplicitTop = 405
|
||||
Left = 466
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitWidth = 286
|
||||
Width = 286
|
||||
end
|
||||
inherited eRemesa: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 201
|
||||
Width = 201
|
||||
end
|
||||
inherited edtFechaEmision: TcxDBDateEdit
|
||||
DataBinding.DataField = 'FECHA_EMISION'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 62
|
||||
Width = 62
|
||||
end
|
||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 201
|
||||
Width = 201
|
||||
end
|
||||
inherited eDescripcion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 201
|
||||
Width = 201
|
||||
end
|
||||
@ -161,55 +200,92 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ExplicitWidth = 201
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 201
|
||||
ExplicitWidth = 201
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 181
|
||||
Width = 181
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewClienteRecibo1: TfrViewClienteRecibo
|
||||
Left = 470
|
||||
Left = 390
|
||||
Width = 362
|
||||
ExplicitLeft = 470
|
||||
ExplicitLeft = 390
|
||||
ExplicitWidth = 362
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 362
|
||||
ExplicitWidth = 350
|
||||
ExplicitWidth = 362
|
||||
inherited Bevel1: TBevel
|
||||
Width = 266
|
||||
ExplicitWidth = 266
|
||||
end
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 271
|
||||
Width = 271
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 271
|
||||
Width = 271
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 271
|
||||
Width = 271
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 153
|
||||
Width = 153
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 271
|
||||
Width = 271
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 270
|
||||
Left = 350
|
||||
DataBinding.DataSource = frViewReciboCliente1.DADataSource
|
||||
ExplicitLeft = 270
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 350
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 160
|
||||
ExplicitLeft = 160
|
||||
Left = 240
|
||||
ExplicitLeft = 240
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 271
|
||||
Width = 271
|
||||
end
|
||||
@ -221,7 +297,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
object pagPagos: TTabSheet
|
||||
Caption = 'Pagos'
|
||||
ImageIndex = 2
|
||||
ExplicitWidth = 728
|
||||
inline frViewPagosCliente1: TfrViewPagosCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -236,18 +311,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 728
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 871
|
||||
Height = 333
|
||||
ExplicitWidth = 728
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
end
|
||||
inherited dxLayoutControl2: TdxLayoutControl
|
||||
Width = 871
|
||||
Height = 333
|
||||
ExplicitWidth = 728
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 684
|
||||
@ -284,7 +359,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
object pagCompensados: TTabSheet
|
||||
Caption = 'Recibos compensados'
|
||||
ImageIndex = 1
|
||||
ExplicitWidth = 728
|
||||
inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados
|
||||
Left = 0
|
||||
Top = 0
|
||||
@ -299,7 +373,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 728
|
||||
ExplicitWidth = 871
|
||||
ExplicitHeight = 333
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 871
|
||||
@ -319,6 +393,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 871
|
||||
ExplicitWidth = 871
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton3: TToolButton
|
||||
ExplicitWidth = 98
|
||||
end
|
||||
@ -337,7 +423,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
Width = 200
|
||||
end>
|
||||
ExplicitTop = 543
|
||||
ExplicitWidth = 742
|
||||
ExplicitWidth = 885
|
||||
end
|
||||
inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4]
|
||||
Left = 0
|
||||
@ -354,18 +440,30 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
ExplicitTop = 443
|
||||
ExplicitWidth = 742
|
||||
ExplicitWidth = 885
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 885
|
||||
ExplicitWidth = 742
|
||||
ExplicitWidth = 885
|
||||
inherited eImporte: TcxDBCurrencyEdit
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
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 = 366
|
||||
Width = 366
|
||||
end
|
||||
|
||||
@ -371,19 +371,20 @@ begin
|
||||
AClientesController := TClientesController.Create;
|
||||
try
|
||||
case FRecibo.Cliente.Direcciones.RecordCount of
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AClientesController.ElegirDireccion(FRecibo.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este recibo.');
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AClientesController.ElegirDireccion(FRecibo.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este recibo.');
|
||||
end;
|
||||
|
||||
// Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FRecibo.Edit;
|
||||
FController.CopiarDireccion(ADireccion, FRecibo);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
if not ADireccion.IDIsNull then
|
||||
try
|
||||
FRecibo.Edit;
|
||||
FController.CopiarDireccion(ADireccion, FRecibo);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
finally
|
||||
AClientesController := Nil;
|
||||
|
||||
@ -1,12 +1,12 @@
|
||||
inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
Width = 854
|
||||
Width = 925
|
||||
Height = 509
|
||||
ExplicitWidth = 854
|
||||
ExplicitWidth = 925
|
||||
ExplicitHeight = 509
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 854
|
||||
Width = 925
|
||||
Height = 509
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
@ -14,8 +14,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitWidth = 854
|
||||
DesignSize = (
|
||||
854
|
||||
925
|
||||
509)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 98
|
||||
@ -32,14 +33,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 = 327
|
||||
end
|
||||
@ -58,19 +63,23 @@ 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 = 327
|
||||
end
|
||||
object edtFechaVencimiento: TcxDBDateEdit
|
||||
Left = 306
|
||||
Left = 299
|
||||
Top = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_VENCIMIENTO'
|
||||
@ -81,13 +90,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 = 327
|
||||
end
|
||||
@ -102,16 +115,20 @@ 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 = 8
|
||||
Height = 49
|
||||
Width = 425
|
||||
end
|
||||
object eFechaEmision: TcxDBTextEdit
|
||||
Left = 551
|
||||
Top = 391
|
||||
Left = 536
|
||||
Top = 335
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -124,20 +141,24 @@ 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 = 10
|
||||
Width = 281
|
||||
end
|
||||
object eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 551
|
||||
Top = 472
|
||||
Left = 536
|
||||
Top = 416
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -157,19 +178,23 @@ 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 = 13
|
||||
Height = 21
|
||||
Width = 281
|
||||
end
|
||||
object eNombreCliente: TcxDBTextEdit
|
||||
Left = 551
|
||||
Top = 445
|
||||
Left = 536
|
||||
Top = 389
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -182,20 +207,24 @@ 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 = 281
|
||||
end
|
||||
object eNifCif: TcxDBTextEdit
|
||||
Left = 551
|
||||
Top = 418
|
||||
Left = 536
|
||||
Top = 362
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -208,14 +237,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 = 281
|
||||
end
|
||||
@ -234,14 +267,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 = 327
|
||||
end
|
||||
@ -257,15 +294,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 = 327
|
||||
end
|
||||
@ -284,14 +325,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 = 327
|
||||
end
|
||||
@ -310,14 +355,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 = 349
|
||||
end
|
||||
@ -339,8 +388,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
ExplicitWidth = 327
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 327
|
||||
ExplicitWidth = 327
|
||||
inherited cbTienda: TcxComboBox
|
||||
Left = 10
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 10
|
||||
ExplicitWidth = 307
|
||||
Width = 307
|
||||
@ -353,10 +407,10 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
end
|
||||
inline frViewClienteRecibo1: TfrViewClienteRecibo
|
||||
Left = 475
|
||||
Left = 460
|
||||
Top = 30
|
||||
Width = 357
|
||||
Height = 318
|
||||
Width = 863
|
||||
Height = 275
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -365,26 +419,78 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 475
|
||||
ExplicitLeft = 460
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 863
|
||||
ExplicitHeight = 275
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 863
|
||||
Height = 275
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 224
|
||||
Width = 224
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 562
|
||||
Width = 562
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 327
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 351
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 351
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 241
|
||||
ExplicitLeft = 241
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -481,12 +587,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group8: TdxLayoutGroup
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'New Group'
|
||||
ShowCaption = False
|
||||
ShowBorder = False
|
||||
object dxLayoutControlClienteModif: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Datos del cliente'
|
||||
object dxLayoutControl1Item6: TdxLayoutItem
|
||||
Control = frViewClienteRecibo1
|
||||
|
||||
@ -85,20 +85,36 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
677
|
||||
325)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eSituacion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||
Left = 228
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 228
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 226
|
||||
ExplicitHeight = 169
|
||||
Height = 169
|
||||
@ -106,42 +122,74 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
end
|
||||
inherited eFechaEmision: TcxDBTextEdit
|
||||
Left = 384
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 384
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
end
|
||||
inherited eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 384
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.IsFontAssigned = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 384
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
end
|
||||
inherited eNombreCliente: TcxDBTextEdit
|
||||
Left = 384
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 384
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
end
|
||||
inherited eRemesa: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited edtFechaEmision: TcxDBDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited rReferenciaFacturaProv: TcxDBTextEdit
|
||||
Left = 384
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 384
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
end
|
||||
inherited rRefReciboCompensado: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
@ -152,17 +200,29 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
Width = 112
|
||||
ExplicitWidth = 112
|
||||
inherited cbTienda: TcxComboBox
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited eDescripcion: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eNifCif: TcxDBTextEdit
|
||||
Left = 384
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 384
|
||||
ExplicitWidth = 255
|
||||
Width = 255
|
||||
@ -175,40 +235,76 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 374
|
||||
ExplicitWidth = 374
|
||||
inherited Bevel1: TBevel
|
||||
Width = 266
|
||||
ExplicitWidth = 266
|
||||
end
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 282
|
||||
DataBinding.DataSource = frViewReciboProveedor1.DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 282
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 166
|
||||
ExplicitLeft = 166
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 283
|
||||
Width = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -368,11 +464,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 = 315
|
||||
Width = 315
|
||||
end
|
||||
|
||||
@ -348,19 +348,20 @@ begin
|
||||
AProveedoresController := TProveedoresController.Create;
|
||||
try
|
||||
case FRecibo.Proveedor.Direcciones.RecordCount of
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AProveedoresController.ElegirDireccion(FRecibo.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de este recibo.');
|
||||
0 : //No hay direcciones secundarias asociadas
|
||||
else ADireccion := AProveedoresController.ElegirDireccion(FRecibo.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de este recibo.');
|
||||
end;
|
||||
|
||||
// Si hay dirección seleccionada, copiarla al albarán y poner el coste del porte
|
||||
if Assigned(ADireccion) then
|
||||
begin
|
||||
try
|
||||
FRecibo.Edit;
|
||||
FController.CopiarDireccion(ADireccion, FRecibo);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
if not ADireccion.IDIsNull then
|
||||
try
|
||||
FRecibo.Edit;
|
||||
FController.CopiarDireccion(ADireccion, FRecibo);
|
||||
finally
|
||||
ADireccion := NIL;
|
||||
end;
|
||||
end
|
||||
finally
|
||||
AProveedoresController := Nil;
|
||||
|
||||
@ -32,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 = 268
|
||||
end
|
||||
@ -58,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 = 268
|
||||
end
|
||||
@ -81,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 = 268
|
||||
end
|
||||
@ -102,16 +114,20 @@ 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 = 9
|
||||
Height = 49
|
||||
Width = 382
|
||||
end
|
||||
object eFechaEmision: TcxDBTextEdit
|
||||
Left = 518
|
||||
Top = 400
|
||||
Top = 360
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -124,20 +140,24 @@ 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 = 260
|
||||
end
|
||||
object eImporteTotal: TcxDBCurrencyEdit
|
||||
Left = 518
|
||||
Top = 481
|
||||
Top = 441
|
||||
AutoSize = False
|
||||
DataBinding.DataField = 'IMPORTE_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -157,19 +177,23 @@ 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 = 15
|
||||
Height = 21
|
||||
Width = 260
|
||||
end
|
||||
object eNombreCliente: TcxDBTextEdit
|
||||
Left = 518
|
||||
Top = 454
|
||||
Top = 414
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -182,14 +206,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 = 260
|
||||
end
|
||||
@ -207,14 +235,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 = 268
|
||||
end
|
||||
@ -230,15 +262,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 = 268
|
||||
end
|
||||
@ -256,20 +292,24 @@ 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 = 268
|
||||
end
|
||||
object rReferenciaFacturaProv: TcxDBTextEdit
|
||||
Left = 518
|
||||
Top = 373
|
||||
Top = 333
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -282,14 +322,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 = 11
|
||||
Width = 260
|
||||
end
|
||||
@ -308,14 +352,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 = 7
|
||||
Width = 268
|
||||
end
|
||||
@ -337,8 +385,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
ExplicitWidth = 268
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 268
|
||||
ExplicitWidth = 246
|
||||
inherited cbTienda: TcxComboBox
|
||||
Left = 10
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 10
|
||||
ExplicitWidth = 248
|
||||
Width = 248
|
||||
@ -365,20 +418,24 @@ 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 = 268
|
||||
end
|
||||
object eNifCif: TcxDBTextEdit
|
||||
Left = 518
|
||||
Top = 427
|
||||
Top = 387
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -391,22 +448,26 @@ 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 = 260
|
||||
end
|
||||
inline frViewProveedorRecibo1: TfrViewProveedorRecibo
|
||||
Left = 410
|
||||
Top = 30
|
||||
Width = 357
|
||||
Height = 318
|
||||
Width = 379
|
||||
Height = 278
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -417,31 +478,73 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 410
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 379
|
||||
ExplicitHeight = 278
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 379
|
||||
ExplicitWidth = 379
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 287
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 287
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 171
|
||||
ExplicitLeft = 171
|
||||
end
|
||||
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
end
|
||||
end
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
|
||||
Binary file not shown.
@ -1,284 +1,284 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">6</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">2.2.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 10 de diciembre de 2008 12:35</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">6</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">2.2.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 10 de diciembre de 2008 12:35</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
|
||||
<Form>srvEjercicios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones</Form>
|
||||
<DesignClass>TRORemoteDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Model\uBizAsientosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
|
||||
<Form>srvContabilidad</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizVendedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -16,7 +16,6 @@ BEGIN
|
||||
VALUE "FileVersion", "2.2.6.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.2.6.0\0"
|
||||
VALUE "CompileDate", "miércoles, 17 de diciembre de 2008 18:10\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user