Tercer repaso de relaciones
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@404 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
3e197c1e0d
commit
749bebc375
@ -14771,12 +14771,12 @@ Comments=
|
||||
<Property name="BuildAll" type="WordBool">True</Property>
|
||||
<Property name="BuildVersion" type="Integer">0</Property>
|
||||
<Property name="CodePage" type="Integer">1252</Property>
|
||||
<Property name="CompilerVersion" type="Integer">11</Property>
|
||||
<Property name="CompilerVersion" type="Integer">12</Property>
|
||||
<Property MultiValue="0" name="ConfigName" type="string">Release</Property>
|
||||
<Property name="DebugVersionNumbers" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dpk]]>
|
||||
</Property>
|
||||
<Property name="Enabled" type="WordBool">False</Property>
|
||||
<Property name="Enabled" type="WordBool">True</Property>
|
||||
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
|
||||
<Property MultiValue="0" name="ExtraCommandline" type="WideString"></Property>
|
||||
<Property name="HintsAsError" type="Boolean">False</Property>
|
||||
@ -14815,7 +14815,7 @@ Comments=
|
||||
<Property name="UpdateDofFile" type="Boolean">False</Property>
|
||||
<Property name="UpdatePackageSource" type="Boolean">False</Property>
|
||||
<Property name="UseEurekaLogCompiler" type="Boolean">False</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[]</Property>
|
||||
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
|
||||
<Property name="UsePropertySet" type="Boolean">False</Property>
|
||||
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
|
||||
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
|
||||
@ -14834,7 +14834,7 @@ Comments=
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{DB993CA9-A0DF-4F01-BE25-C0D1075C2B3B}"><Property name="AlwaysUseConditionalsFromDOF" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">True</Property>
|
||||
<Property name="AlwaysUseDelphiLibraryPath" type="WordBool">False</Property>
|
||||
<Property name="AlwaysUseDOFSearchPath" type="WordBool">True</Property>
|
||||
<Property name="Assertions" type="WordBool">True</Property>
|
||||
<Property name="AssignableConst" type="WordBool">False</Property>
|
||||
@ -14862,8 +14862,7 @@ Comments=
|
||||
<Property name="IncludeRemoteSymbols" type="WordBool">False</Property>
|
||||
<Property name="IncludeTD32" type="WordBool">False</Property>
|
||||
<Property name="IOChecking" type="WordBool">True</Property>
|
||||
<Property MultiValue="1" name="LibraryPath" type="WideString"><![CDATA[%library_path%;t:\codigo (luis leon)\modulos\tienda web\model]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="LibraryPath" type="WideString">%library_path%</Property>
|
||||
<Property name="LinkerOutput" type="Integer">0</Property>
|
||||
<Property name="LocalSymbols" type="WordBool">True</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
|
||||
@ -12,6 +12,7 @@
|
||||
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
|
||||
<Projects Include="Controller\AlbaranesCliente_controller.dproj" />
|
||||
<Projects Include="Data\AlbaranesCliente_data.dproj" />
|
||||
<Projects Include="Model\AlbaranesCliente_model.dproj" />
|
||||
@ -141,14 +142,23 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
Binary file not shown.
@ -42,7 +42,11 @@
|
||||
<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\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>
|
||||
@ -54,25 +58,31 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="Almacenes_controller.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="frx11.dcp" />
|
||||
<DCCReference Include="frxe11.dcp" />
|
||||
<DCCReference Include="fs11.dcp" />
|
||||
<DCCReference Include="Jcl.dcp" />
|
||||
<DCCReference Include="JclVcl.dcp" />
|
||||
<DCCReference Include="JvCoreD11R.dcp" />
|
||||
<DCCReference Include="JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="JvSystemD11R.dcp" />
|
||||
<DCCReference Include="PngComponentsD10.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="tb2k_d10.dcp" />
|
||||
<DCCReference Include="tbx_d10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\frx11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\frxe11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\fs11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Jcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JclVcl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PNG_D10.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\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Lib\vclx.dcp" />
|
||||
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAlbaranCliente.pas">
|
||||
<Form>fEditorAlbaranCliente</Form>
|
||||
@ -130,11 +140,6 @@
|
||||
<Form>frViewElegirArticulosAlbaranesCliente</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
@ -2,7 +2,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
Caption = 'Lista de albaranes de cliente'
|
||||
ClientWidth = 583
|
||||
ExplicitWidth = 591
|
||||
ExplicitHeight = 471
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -134,7 +133,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Visible = True
|
||||
ExplicitWidth = 129
|
||||
ExplicitWidth = 117
|
||||
object TBXItem42: TTBXItem
|
||||
Action = actEnviar
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -180,7 +179,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
|
||||
end
|
||||
object actGenerarFactura: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar factura...'
|
||||
Caption = 'Generar factura'
|
||||
ImageIndex = 23
|
||||
OnExecute = actGenerarFacturaExecute
|
||||
OnUpdate = actGenerarFacturaUpdate
|
||||
|
||||
@ -82,10 +82,11 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
|
||||
//En tecsitel no estaran habilitados los pedidos
|
||||
uGenerarFacturasCliAlbCliUtils,
|
||||
//En tecsitel no estaran habilitados los pedidos
|
||||
// uPedidosClienteController, uBizPedidosCliente,
|
||||
uDialogUtils, schAlbaranesClienteClient_Intf,
|
||||
// uFacturasClienteController, uBizFacturasCliente, uGenerarFacturasCliAlbCliUtils,
|
||||
// uFacturasClienteController, uBizFacturasCliente,
|
||||
// uInventarioController, uGenerarAlbaranesCliUtils,
|
||||
uEditorBase,
|
||||
cxCustomData, uGridStatusUtils, uDBSelectionListUtils;
|
||||
@ -184,9 +185,8 @@ end;
|
||||
|
||||
procedure TfEditorAlbaranesCliente.actGenerarFacturaExecute(Sender: TObject);
|
||||
begin
|
||||
AppFactuGES.ShowCapado;
|
||||
{GenerarFacturaCli(Albaranes.ID);
|
||||
actRefrescar.Execute;}
|
||||
GenerarFacturaCli(Albaranes.ID);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorAlbaranesCliente.actGenerarFacturaUpdate(Sender: TObject);
|
||||
|
||||
@ -27,7 +27,7 @@ type
|
||||
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
|
||||
function Anadir(AFactura : IBizFacturaCliente) : Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
// function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
|
||||
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
@ -85,7 +85,7 @@ type
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
function Anadir(AFactura : IBizFacturaCliente): Boolean; overload;
|
||||
function AnadirAbono(AFactura : IBizFacturaCliente) : Boolean;
|
||||
function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
// function Anadir(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; overload;
|
||||
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente;
|
||||
@ -172,56 +172,6 @@ begin
|
||||
end;}
|
||||
|
||||
|
||||
procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente;
|
||||
ADestino : IBizDetallesFacturaCliente);
|
||||
var
|
||||
i : integer;
|
||||
ADetallesController : IDetallesFacturaClienteController;
|
||||
begin
|
||||
if not Assigned(AOrigen) then
|
||||
raise Exception.Create ('Origen no asignado (CopiarArticulosAlbaran)');
|
||||
|
||||
if not Assigned(ADestino) then
|
||||
raise Exception.Create ('Destino no asignado (CopiarArticulosAlbaran)');
|
||||
|
||||
if not AOrigen.DataTable.Active then
|
||||
AOrigen.DataTable.Active := True;
|
||||
|
||||
if not ADestino.DataTable.Active then
|
||||
ADestino.DataTable.Active := True;
|
||||
|
||||
ADetallesController := TDetallesFacturaClienteController.Create;
|
||||
try
|
||||
//OJO IMPORTANTE
|
||||
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
|
||||
//obligarle siempre a recalcular los detalles una sola vez
|
||||
ADetallesController.BeginUpdate(ADestino);
|
||||
|
||||
AOrigen.DataTable.First;
|
||||
for i := 0 to AOrigen.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
|
||||
ADestino.Edit;
|
||||
// ADestino.REFERENCIA := AOrigen.REFERENCIA;
|
||||
if AOrigen.ID_ARTICULO > 0 then
|
||||
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
|
||||
ADestino.CONCEPTO := AOrigen.CONCEPTO;
|
||||
ADestino.CANTIDAD := AOrigen.CANTIDAD;
|
||||
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
|
||||
ADestino.IMPORTE_TOTAL := AOrigen.IMPORTE_TOTAL;
|
||||
ADestino.DESCUENTO := AOrigen.DESCUENTO;
|
||||
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
|
||||
ADestino.VISIBLE := AOrigen.VISIBLE;
|
||||
// ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
|
||||
ADestino.Post;
|
||||
AOrigen.Next;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADestino);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{ TFacturasClienteController }
|
||||
|
||||
@ -240,6 +190,7 @@ begin
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
{
|
||||
function TFacturasClienteController.Anadir(AFacturas: IBizFacturaCliente;
|
||||
AListaAlbaranes: IBizAlbaranCliente): Boolean;
|
||||
var
|
||||
@ -363,6 +314,7 @@ begin
|
||||
HideHourglassCursor
|
||||
end;
|
||||
end;
|
||||
}
|
||||
|
||||
{function TFacturasClienteController.Anadir(AFactura: IBizFacturaCliente;
|
||||
const IDPedido: Integer): Boolean;
|
||||
|
||||
@ -9,10 +9,12 @@
|
||||
<Projects Include="..\..\Cliente\FactuGES.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
|
||||
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
|
||||
<Projects Include="Controller\FacturasCliente_controller.dproj" />
|
||||
<Projects Include="Data\FacturasCliente_data.dproj" />
|
||||
<Projects Include="Model\FacturasCliente_model.dproj" />
|
||||
@ -151,14 +153,32 @@
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view:Clean">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesCliente_view:Make">
|
||||
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation;AlbaranesCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -25,22 +25,10 @@ package AlbCli_FacCli_relation;
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
Base,
|
||||
ControllerBase,
|
||||
Contactos_model,
|
||||
Contactos_controller,
|
||||
PNG_D10,
|
||||
vcl,
|
||||
JSDialog100,
|
||||
vclx,
|
||||
vclactnband,
|
||||
xmlrtl,
|
||||
designide,
|
||||
FacturasCliente_model,
|
||||
AlbaranesCliente_controller,
|
||||
AlbaranesCliente_model,
|
||||
FacturasCliente_controller,
|
||||
FacturasCliente_model;
|
||||
FacturasCliente_controller;
|
||||
|
||||
contains
|
||||
uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCli},
|
||||
|
||||
@ -0,0 +1,766 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
|
||||
<MainSource>AlbCli_FacCli_relation.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\AlbCli_FacCli_relation.bpl</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_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <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\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcldbxcds100.bpl">Borland SimpleDataset Component (DBX)</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\BPL_D10\dcldxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dclcxSchedulerD10.bpl">ExpressScheduler 2 by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dclcxVerticalGridD10.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\dcldxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvBandsD10D.bpl">JVCL Band Objects</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvCmpD10D.bpl">JVCL Non-Visual Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvCryptD10D.bpl">JVCL Encryption and Compression Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvDlgsD10D.bpl">JVCL Dialog Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvDockingD10D.bpl">JVCL Docking Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvDotNetCtrlsD10D.bpl">JVCL DotNet Controls</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvEDID10D.bpl">JVCL EDI Components Designtime Package</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvHMID10D.bpl">JVCL HMI Controls design time unit</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvInterpreterD10D.bpl">JVCL Interpreter Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvJansD10D.bpl">JVCL Jans Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvManagedThreadsD10D.bpl">JVCL Managed Threads</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvMMD10D.bpl">JVCL Multimedia and Image Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvNetD10D.bpl">JVCL Network Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvPageCompsD10D.bpl">JVCL Page Style Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvPluginD10D.bpl">JVCL Plugin Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvPrintPreviewD10D.bpl">JVCL Print Preview Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvRuntimeDesignD10D.bpl">JVCL Runtime Design Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvTimeFrameworkD10D.bpl">JVCL Time Framework</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvUIBD10D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\JvValidatorsD10D.bpl">JVCL Validators and Error Provider Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
||||
<Excluded_Packages Name="T:\Bpl_D10\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</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 Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">Internet Explorer Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">AlbCli_FacCli_relation.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="AlbCli_FacCli_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="uGenerarAlbaranesCliFacCliUtils.pas">
|
||||
<Form>dmGenerarAlbaranesCli</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uGenerarFacturasCliAlbCliUtils.pas">
|
||||
<Form>dmGenerarFacturasCli</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happened (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -3,7 +3,7 @@ unit uGenerarFacturasCliAlbCliUtils;
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Classes, uBizAlbaranesCliente, pngimage, JSDialog;
|
||||
Windows, SysUtils, Classes, uBizAlbaranesCliente, uBizFacturasCliente, pngimage, JSDialog;
|
||||
|
||||
type
|
||||
TdmGenerarFacturasCli = class(TDataModule)
|
||||
@ -14,24 +14,26 @@ type
|
||||
function GenerarFacturaCli(AAlbaran : IBizAlbaranCliente) : Boolean; overload;
|
||||
function GenerarFacturaCli : Boolean; overload;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDialogUtils,
|
||||
uBizFacturasCliente,
|
||||
uBizDetallesFacturaCliente,
|
||||
DB, uDialogUtils, uDADataTable, uControllerDetallesBase,
|
||||
|
||||
uBizDetallesFacturaCliente, uBizDetallesAlbaranCliente,
|
||||
uAlbaranesClienteController, uDetallesFacturaClienteController,
|
||||
uFacturasClienteController;
|
||||
uFacturasClienteController, schFacturasClienteClient_Intf, schAlbaranesClienteClient_Intf;
|
||||
|
||||
// ,
|
||||
// , uProveedoresController,
|
||||
// , uControllerDetallesBase,
|
||||
|
||||
|
||||
// , uBizContactos, schPedidosClienteClient_Intf,
|
||||
// schAlbaranesClienteClient_Intf;
|
||||
// , uBizContactos, ,
|
||||
// ;
|
||||
|
||||
var
|
||||
dmGenerarFacturasCli: TdmGenerarFacturasCli;
|
||||
@ -134,6 +136,56 @@ begin
|
||||
end;
|
||||
end; }
|
||||
|
||||
procedure CopiarArticulosAlbaran(AOrigen: IBizDetallesAlbaranCliente;
|
||||
ADestino : IBizDetallesFacturaCliente);
|
||||
var
|
||||
i : integer;
|
||||
ADetallesController : IDetallesFacturaClienteController;
|
||||
begin
|
||||
if not Assigned(AOrigen) then
|
||||
raise Exception.Create ('Origen no asignado (CopiarArticulosAlbaran)');
|
||||
|
||||
if not Assigned(ADestino) then
|
||||
raise Exception.Create ('Destino no asignado (CopiarArticulosAlbaran)');
|
||||
|
||||
if not AOrigen.DataTable.Active then
|
||||
AOrigen.DataTable.Active := True;
|
||||
|
||||
if not ADestino.DataTable.Active then
|
||||
ADestino.DataTable.Active := True;
|
||||
|
||||
ADetallesController := TDetallesFacturaClienteController.Create;
|
||||
try
|
||||
//OJO IMPORTANTE
|
||||
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
|
||||
//obligarle siempre a recalcular los detalles una sola vez
|
||||
ADetallesController.BeginUpdate(ADestino);
|
||||
|
||||
AOrigen.DataTable.First;
|
||||
for i := 0 to AOrigen.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO);
|
||||
ADestino.Edit;
|
||||
// ADestino.REFERENCIA := AOrigen.REFERENCIA;
|
||||
if AOrigen.ID_ARTICULO > 0 then
|
||||
ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO;
|
||||
ADestino.CONCEPTO := AOrigen.CONCEPTO;
|
||||
ADestino.CANTIDAD := AOrigen.CANTIDAD;
|
||||
ADestino.IMPORTE_UNIDAD := AOrigen.IMPORTE_UNIDAD;
|
||||
ADestino.IMPORTE_TOTAL := AOrigen.IMPORTE_TOTAL;
|
||||
ADestino.DESCUENTO := AOrigen.DESCUENTO;
|
||||
ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE;
|
||||
ADestino.VISIBLE := AOrigen.VISIBLE;
|
||||
// ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR;
|
||||
ADestino.Post;
|
||||
AOrigen.Next;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADestino);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure Inicializar;
|
||||
begin
|
||||
dmGenerarFacturasCli := TdmGenerarFacturasCli.Create(nil);
|
||||
@ -184,18 +236,18 @@ var
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AAlbaranesClienteController) then
|
||||
Inicializar;
|
||||
|
||||
if not Assigned(AAlbaran) then
|
||||
raise Exception.Create('Albarán de proveedor no asignado (GenerarFacturaCli)');
|
||||
|
||||
if not AAlbaran.DataTable.Active then
|
||||
AAlbaran.DataTable.Active := True;
|
||||
|
||||
if not Assigned(AAlbaranesClienteController) then
|
||||
Inicializar;
|
||||
|
||||
try
|
||||
AFacturasNuevas := AFacturasClienteController.Nuevo(False);
|
||||
if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then
|
||||
if GenerarFacturas(AFacturasNuevas, AAlbaran) then
|
||||
begin
|
||||
if AFacturasNuevas.DataTable.RecordCount = 1 then
|
||||
begin
|
||||
@ -220,11 +272,10 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
if Assigned(AAlbaranesClienteController) then
|
||||
Finalizar;
|
||||
|
||||
finally
|
||||
AFacturasNuevas := NIL;
|
||||
if Assigned(AAlbaranesClienteController) then
|
||||
Finalizar;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -251,4 +302,127 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean;
|
||||
var
|
||||
AFacturaActual : IBizFacturaCliente;
|
||||
AAlbaranesController : IAlbaranesClienteController;
|
||||
I: Integer;
|
||||
bEnEdicion : Boolean;
|
||||
begin
|
||||
// ATENCIÓN!!! AFacturas tiene que estar vacio para no pisar facturas
|
||||
// ya generadas.
|
||||
if not Assigned(AFacturas) then
|
||||
raise Exception.Create ('Factura no asignada (Anadir)');
|
||||
|
||||
if not Assigned(AListaAlbaranes) then
|
||||
raise Exception.Create ('Albaranes no asignados (Anadir)');
|
||||
|
||||
if not AFacturas.DataTable.Active then
|
||||
AFacturas.DataTable.Active := True;
|
||||
|
||||
if not AListaAlbaranes.DataTable.Active then
|
||||
AListaAlbaranes.DataTable.Active := True;
|
||||
|
||||
// ShowHourglassCursor;
|
||||
// Application.ProcessMessages;
|
||||
|
||||
AAlbaranesController := TAlbaranesClienteController.Create;
|
||||
try
|
||||
// Ordenar por fecha de albaran
|
||||
AListaAlbaranes.DataTable.Sort([fld_AlbaranesClienteFECHA_ALBARAN], [uDADataTable.sdAscending]);
|
||||
AListaAlbaranes.First;
|
||||
for I := 0 to AListaAlbaranes.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
AListaAlbaranes._Cliente := NIL;
|
||||
AFacturaActual := NIL;
|
||||
|
||||
// Busco si hay alguna factura ya hecha de ese cliente
|
||||
AFacturas.DataTable.First;
|
||||
if AFacturas.DataTable.Locate(fld_FacturasClienteID_CLIENTE, AListaAlbaranes.ID_CLIENTE, []) then
|
||||
begin
|
||||
AFacturaActual := AFacturas;
|
||||
AFacturasClienteController.RecuperarCliente(AFacturaActual);
|
||||
AFacturaActual.Cliente.DataTable.Active := True;
|
||||
end
|
||||
else begin
|
||||
// No hay factura de ese cliente. Creo una nueva
|
||||
AFacturasClienteController.Anadir(AFacturas);
|
||||
AAlbaranesController.RecuperarCliente(AListaAlbaranes);
|
||||
AListaAlbaranes.Cliente.DataTable.Active := True;
|
||||
AFacturas.Cliente := AListaAlbaranes.Cliente;
|
||||
|
||||
//Si el albaran es de tipo devolución hacemos la factura de tipo abono
|
||||
if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
||||
begin
|
||||
bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AFacturas.Edit;
|
||||
AFacturas.TIPO := CTE_TIPO_ABONO;
|
||||
AFacturas.Post;
|
||||
if bEnEdicion then
|
||||
AFacturas.Edit;
|
||||
end;
|
||||
|
||||
AFacturaActual := AFacturas;
|
||||
end;
|
||||
|
||||
// Ya tengo la factura. Le añado los conceptos del albarán
|
||||
AFacturaActual.Detalles.DataTable.Last;
|
||||
// Añado el título
|
||||
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
|
||||
Post;
|
||||
end;
|
||||
// Añado el contenido del albarán
|
||||
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
|
||||
|
||||
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Porte del albarán';
|
||||
CANTIDAD := 1;
|
||||
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
|
||||
Post;
|
||||
end;
|
||||
|
||||
// Añado el resumen
|
||||
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
|
||||
Post;
|
||||
end;
|
||||
|
||||
// Añado una línea en blanco
|
||||
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := '';
|
||||
Post;
|
||||
end;
|
||||
|
||||
// Guardo la factura que acabo de generar o editar
|
||||
AFacturaActual.CalcularImporteTotal;
|
||||
AFacturasClienteController.Guardar(AFacturaActual);
|
||||
// Asocio la factura con el albarán
|
||||
AListaAlbaranes.Edit;
|
||||
AListaAlbaranes.ID_FACTURA := AFacturaActual.ID;
|
||||
AListaAlbaranes.Post;
|
||||
AAlbaranesController.Guardar(AListaAlbaranes);
|
||||
|
||||
AListaAlbaranes.Next;
|
||||
end;
|
||||
Result := True;
|
||||
finally
|
||||
AAlbaranesController := NIL;
|
||||
// HideHourglassCursor
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -247,15 +247,15 @@ var
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AAlbaranesProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
if not Assigned(AAlbaran) then
|
||||
raise Exception.Create('Albarán de proveedor no asignado (GenerarFacturaProv)');
|
||||
|
||||
if not AAlbaran.DataTable.Active then
|
||||
AAlbaran.DataTable.Active := True;
|
||||
|
||||
if not Assigned(AAlbaranesProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
try
|
||||
AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
|
||||
if GenerarFacturas(AFacturasNuevas, AAlbaran) then
|
||||
@ -285,6 +285,8 @@ begin
|
||||
|
||||
finally
|
||||
AFacturasNuevas := NIL;
|
||||
if Assigned(AAlbaranesClienteController) then
|
||||
Finalizar;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -413,7 +413,7 @@ begin
|
||||
// Self.Guardar(AFacturaActual);
|
||||
// Asocio la factura con el presupuesto
|
||||
AListaPresupuestos.Edit;
|
||||
// AListaPresupuestos.ID_FACTURA := AFacturaActual.ID;
|
||||
AListaPresupuestos.ID_FACTURA := AFacturaActual.ID;
|
||||
AListaPresupuestos.Post;
|
||||
APresupuestosController.Guardar(AListaPresupuestos);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user