Se adapta la parte de proveedores para poder hacer facturas a partir de pedidos de proveedor o albaranes
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@521 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
7b5a20b771
commit
1649babde6
@ -15249,7 +15249,7 @@ Comments=
|
||||
</Object>
|
||||
</Object>
|
||||
<Object Class="TDelphiCompilerAction" XMLID="{BAC47DF2-22F7-40DD-99D5-030611032770}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dpk]]>
|
||||
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Compile Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dpk]]>
|
||||
</Property>
|
||||
<Property name="ActionTextColor" type="Cardinal">0</Property>
|
||||
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
|
||||
@ -15260,12 +15260,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 proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dpk]]>
|
||||
<Property MultiValue="1" name="Description" type="string"><![CDATA[Compile Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_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>
|
||||
@ -15273,7 +15273,7 @@ Comments=
|
||||
<Property name="IgnoreFailure" type="WordBool">False</Property>
|
||||
<Property name="IncludeCompileDate" type="WordBool">False</Property>
|
||||
<Property name="IncludeManifest" type="Boolean">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">False</Property>
|
||||
<Property name="IncludeVerInfo" type="WordBool">True</Property>
|
||||
<Property name="IsAction" type="Boolean">True</Property>
|
||||
<Property name="IsBreakPoint" type="WordBool">False</Property>
|
||||
<Property name="IsDebug" type="WordBool">False</Property>
|
||||
@ -15283,15 +15283,15 @@ Comments=
|
||||
<Property name="IsSpecial" type="WordBool">False</Property>
|
||||
<Property name="KeepCFG" type="Boolean">False</Property>
|
||||
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
|
||||
<Property name="Locale" type="Integer">3081</Property>
|
||||
<Property name="Locale" type="Integer">3082</Property>
|
||||
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
|
||||
<Property name="MajorVersion" type="Integer">0</Property>
|
||||
<Property name="MajorVersion" type="Integer">1</Property>
|
||||
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
|
||||
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
|
||||
<Property name="MinorVersion" type="Integer">0</Property>
|
||||
<Property name="NodeCollapsed" type="Boolean">False</Property>
|
||||
<Property name="PauseInterval" type="Cardinal">0</Property>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dpk]]>
|
||||
<Property MultiValue="1" name="ProjectFile" type="WideString"><![CDATA[%source_path%\Modulos\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dpk]]>
|
||||
</Property>
|
||||
<Property name="RegenerateResource" type="WordBool">True</Property>
|
||||
<Property name="ReleaseVersion" type="Integer">0</Property>
|
||||
@ -15304,18 +15304,18 @@ 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=
|
||||
FileDescription=
|
||||
FileVersion=0.0.0.0
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=0.0.0.0
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
]]>
|
||||
</Property>
|
||||
@ -15323,23 +15323,20 @@ Comments=
|
||||
<Property name="WarningsAsError" type="Boolean">False</Property>
|
||||
<Property name="WorkAroundD5Bug" type="WordBool">False</Property>
|
||||
<Object Class="TDelphiCompilerOptions" XMLID="{904E00F1-0CEA-4131-BC41-F1BDFB689152}"><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>
|
||||
<Property name="BoolEval" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="BPLOutputDir" type="WideString">%package_path%</Property>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[-w-UNSAFE_TYPE=0
|
||||
-w-UNSAFE_CODE=0
|
||||
-w-UNSAFE_CAST=0
|
||||
]]>
|
||||
<Property name="CompilerWarnings" type="TStrings"><![CDATA[]]>
|
||||
</Property>
|
||||
<Property MultiValue="0" name="Conditionals" type="WideString"></Property>
|
||||
<Property name="ConsoleApp" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DCPOutputDir" type="WideString">%modules_dcp_path%</Property>
|
||||
<Property name="DebugInfo" type="WordBool">True</Property>
|
||||
<Property name="DebugInfo" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="DefaultNamespace" type="string"></Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">True</Property>
|
||||
<Property name="DefinitionsOnly" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="ExeDescription" type="WideString"></Property>
|
||||
<Property name="ExportAllSymbols" type="WordBool">False</Property>
|
||||
<Property name="ExtendedSyntax" type="WordBool">True</Property>
|
||||
@ -15353,7 +15350,7 @@ Comments=
|
||||
<Property name="IOChecking" type="WordBool">True</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="LocalSymbols" type="WordBool">False</Property>
|
||||
<Property name="Mapfile" type="Integer">0</Property>
|
||||
<Property name="MaxStackSize" type="Cardinal">1048576</Property>
|
||||
<Property name="MinStackSize" type="Cardinal">16384</Property>
|
||||
@ -15365,7 +15362,7 @@ Comments=
|
||||
<Property MultiValue="0" name="Packages" type="WideString"></Property>
|
||||
<Property name="RangeChecking" type="WordBool">False</Property>
|
||||
<Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">True</Property>
|
||||
<Property name="ReferenceInfo" type="WordBool">False</Property>
|
||||
<Property name="SafeDivide" type="WordBool">False</Property>
|
||||
<Property MultiValue="0" name="SearchPath" type="WideString"></Property>
|
||||
<Property name="ShowHints" type="WordBool">True</Property>
|
||||
|
||||
@ -3105,6 +3105,7 @@ ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT FK_EMPRESAS_CONTACTOS FOREIGN KEY
|
||||
ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT FK_EMPRESAS_DATOS_BANCO FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
|
||||
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT FK_FACTURAS_CLIENTE_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
|
||||
ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT FK_FACTURAS_PROVEEDOR_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
|
||||
ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT FK_PEDIDOS_PROVEEDOR_1 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_PROVEEDOR (ID) ON DELETE SET NULL ON UPDATE CASCADE;
|
||||
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS FOREIGN KEY (ID_ARTICULO) REFERENCES ARTICULOS (ID);
|
||||
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT FK_MOVIMIENTOS2 FOREIGN KEY (ID_ALMACEN) REFERENCES ALMACENES (ID);
|
||||
ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT FK_PAGOS_CLIENTE FOREIGN KEY (ID_RECIBO) REFERENCES RECIBOS_CLIENTE (ID);
|
||||
|
||||
@ -53,57 +53,57 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Controller\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -2,6 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
|
||||
Caption = 'Lista de albaranes de proveedor'
|
||||
ClientWidth = 606
|
||||
ExplicitWidth = 614
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -80,7 +80,7 @@ end;
|
||||
procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
GenerarFacturaProv(Albaranes.ID);
|
||||
GenerarFacturaProvAlbProv(Albaranes.ID);
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
|
||||
|
||||
@ -41,21 +41,21 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FacturasProveedor_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\FacturasProveedor_data.dcp" />
|
||||
<DCCReference Include="..\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\RecibosProveedor_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasProveedor_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosProveedor_controller.dcp" />
|
||||
<DCCReference Include="uArticulosFacturaProveedorController.pas" />
|
||||
<DCCReference Include="uDetallesFacturaProveedorController.pas" />
|
||||
<DCCReference Include="uFacturasProveedorController.pas" />
|
||||
@ -68,7 +68,7 @@
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
Binary file not shown.
@ -137,7 +137,7 @@ begin
|
||||
with TBizFacturaProveedor(AFactura.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
Pedidos := _GetPedidos;
|
||||
// Pedidos := _GetPedidos;
|
||||
end;
|
||||
|
||||
Result := (AFactura as IBizFacturaProveedor);
|
||||
|
||||
@ -14,10 +14,14 @@
|
||||
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
|
||||
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
|
||||
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
|
||||
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" />
|
||||
<Projects Include="Controller\FacturasProveedor_controller.dproj" />
|
||||
<Projects Include="Data\FacturasProveedor_data.dproj" />
|
||||
<Projects Include="Model\FacturasProveedor_model.dproj" />
|
||||
@ -201,14 +205,50 @@
|
||||
<Target Name="Articulos_controller:Make">
|
||||
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.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="FacturasCliente_view">
|
||||
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_view:Clean">
|
||||
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasCliente_view:Make">
|
||||
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PreCli_FacCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PreCli_FacCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PreCli_FacCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -9,9 +9,9 @@ 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_FacturasProveedor = '{668D34B1-893D-4529-86AA-ADAE4EA41B3D}';
|
||||
RID_FacturasProveedor_Detalles = '{214E2F2C-3EFA-4E9B-9961-0741C288B080}';
|
||||
RID_FacturasProveedor_Pedidos = '{B0578036-330F-4C44-8BB1-857BAE16CCFF}';
|
||||
RID_FacturasProveedor = '{BE8C0C93-24E0-4676-9B2E-55D49ED616CE}';
|
||||
RID_FacturasProveedor_Detalles = '{49E3130F-6728-4F2D-9060-4521AE8B08D9}';
|
||||
RID_FacturasProveedor_Pedidos = '{8E4DF052-40F0-4756-896A-F90E6E5A054A}';
|
||||
|
||||
{ Data table names }
|
||||
nme_FacturasProveedor = 'FacturasProveedor';
|
||||
@ -139,7 +139,7 @@ const
|
||||
type
|
||||
{ IFacturasProveedor }
|
||||
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{EF92220E-B532-4BFA-9C3E-87E5C05BA7BB}']
|
||||
['{0A8CF376-7853-4F50-9ED5-3F4513480499}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -534,7 +534,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Detalles }
|
||||
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{EA98DA5E-BBB7-4000-9097-305553C42E6C}']
|
||||
['{980CACEA-3D1C-44CD-B272-610BF86F3CE9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -737,7 +737,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_Pedidos }
|
||||
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{8D8CD7B6-E0DF-48AD-924E-FB7C28A1553A}']
|
||||
['{D295F776-AA85-42C6-B773-FA6E4CEDE53D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,14 +9,14 @@ 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_FacturasProveedorDelta = '{609D016A-A645-4D5C-A002-F68E937C37BF}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{43388866-5A44-43D9-BFCF-77961F55F28E}';
|
||||
RID_FacturasProveedor_PedidosDelta = '{3F25A4A3-D3D3-4581-B0DB-1A0C1B1305FB}';
|
||||
RID_FacturasProveedorDelta = '{C752FE92-FDB7-47D1-8B23-543B90839542}';
|
||||
RID_FacturasProveedor_DetallesDelta = '{04A500AC-1499-4078-9D99-1FFDD24D8126}';
|
||||
RID_FacturasProveedor_PedidosDelta = '{E3F38771-DBED-4161-B017-DB4C017D75D6}';
|
||||
|
||||
type
|
||||
{ IFacturasProveedorDelta }
|
||||
IFacturasProveedorDelta = interface(IFacturasProveedor)
|
||||
['{609D016A-A645-4D5C-A002-F68E937C37BF}']
|
||||
['{C752FE92-FDB7-47D1-8B23-543B90839542}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -411,7 +411,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_DetallesDelta }
|
||||
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
|
||||
['{43388866-5A44-43D9-BFCF-77961F55F28E}']
|
||||
['{04A500AC-1499-4078-9D99-1FFDD24D8126}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
@ -613,7 +613,7 @@ type
|
||||
|
||||
{ IFacturasProveedor_PedidosDelta }
|
||||
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
|
||||
['{3F25A4A3-D3D3-4581-B0DB-1A0C1B1305FB}']
|
||||
['{E3F38771-DBED-4161-B017-DB4C017D75D6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
|
||||
Binary file not shown.
@ -41,11 +41,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><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
@ -54,50 +49,56 @@
|
||||
<DelphiCompile Include="FacturasProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxExportD11.dcp" />
|
||||
<DCCReference Include="cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="cxGridD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="cxPageControlD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="dxSkinscxPCPainterD11.dcp" />
|
||||
<DCCReference Include="dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="FacturasProveedor_model.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="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinscxPCPainterD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_FacProv_relation.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="uEditorElegirArticulosFacturaProveedor.pas">
|
||||
<Form>fEditorElegirArticulosFacturaProveedor</Form>
|
||||
<DesignClass>TfEditorElegirArticulosFacturaProveedor</DesignClass>
|
||||
@ -135,11 +136,6 @@
|
||||
<Form>frViewPedidosFacturaProveedor</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
|
||||
|
||||
@ -71,6 +71,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 813
|
||||
Height = 369
|
||||
ActivePage = pagContenido
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 813
|
||||
ExplicitHeight = 369
|
||||
@ -200,27 +201,36 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
Height = 51
|
||||
ExplicitWidth = 805
|
||||
ExplicitHeight = 51
|
||||
inherited ToolButton14: TToolButton
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
inherited ToolButton4: TToolButton [3]
|
||||
Left = 278
|
||||
Top = 0
|
||||
ExplicitLeft = 278
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton14: TToolButton [4]
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontName: TJvFontComboBox [5]
|
||||
Left = 399
|
||||
Top = 0
|
||||
ExplicitLeft = 399
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited FontSize: TEdit
|
||||
inherited FontSize: TEdit [6]
|
||||
Left = 544
|
||||
Top = 0
|
||||
Width = 88
|
||||
Width = 104
|
||||
ExplicitLeft = 544
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 88
|
||||
ExplicitWidth = 104
|
||||
end
|
||||
inherited ToolButton13: TToolButton [7]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Wrap = True
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitHeight = 27
|
||||
@ -231,11 +241,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
Left = 17
|
||||
Top = 27
|
||||
ExplicitLeft = 17
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 83
|
||||
@ -243,27 +251,23 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||
ExplicitLeft = 83
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
Left = 150
|
||||
Top = 27
|
||||
ExplicitLeft = 150
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
Left = 233
|
||||
Top = 27
|
||||
Wrap = False
|
||||
ExplicitLeft = 233
|
||||
ExplicitTop = 27
|
||||
ExplicitHeight = 22
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
Left = 241
|
||||
Top = 27
|
||||
ExplicitLeft = 241
|
||||
ExplicitTop = 27
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
Left = 386
|
||||
Top = 27
|
||||
ExplicitLeft = 386
|
||||
|
||||
@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
|
||||
Width = 849
|
||||
ExplicitWidth = 849
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 632
|
||||
ExplicitWidth = 775
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -131,8 +131,8 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
|
||||
Width = 849
|
||||
ExplicitWidth = 849
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 752
|
||||
Width = 752
|
||||
ExplicitWidth = 809
|
||||
Width = 809
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 282
|
||||
@ -144,6 +144,10 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
|
||||
ExplicitWidth = 453
|
||||
Width = 453
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 876
|
||||
ExplicitLeft = 876
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 849
|
||||
@ -1848,8 +1852,16 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
|
||||
Default = True
|
||||
end
|
||||
item
|
||||
Caption = 'Utilizar uno o m'#225's albaranes de proveedor.'
|
||||
Caption = 'Utilizar uno o m'#225's pedidos de proveedor'
|
||||
Value = 200
|
||||
Info.Strings = (
|
||||
|
||||
'Puede utilizar uno o m'#225's albaranes existentes para dar de alta l' +
|
||||
'a factura nueva')
|
||||
end
|
||||
item
|
||||
Caption = 'Utilizar uno o m'#225's albaranes de proveedor.'
|
||||
Value = 300
|
||||
Info.Strings = (
|
||||
|
||||
'Puede utilizar uno o m'#225's albaranes existentes para dar de alta l' +
|
||||
|
||||
@ -65,7 +65,7 @@ uses
|
||||
uDataModuleFacturasProveedor, uDataModuleUsuarios,
|
||||
uGridStatusUtils, uDBSelectionListUtils, uFactuGES_App,
|
||||
uAlbaranesProveedorController, uBizAlbaranesProveedor,
|
||||
uEditorBase, uGenerarFacturasProvAlbProvUtils;
|
||||
uEditorBase, uGenerarFacturasProvAlbProvUtils, uGenerarFacturasProvPedUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -287,41 +287,25 @@ var
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if FController.Anadir(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
|
||||
{
|
||||
Respuesta := JsNuevaFacturaDialog.Execute;
|
||||
|
||||
if Respuesta <> IDCANCEL then
|
||||
begin
|
||||
case JsNuevaFacturaDialog.CustomButtonResult of
|
||||
300 : begin // Utilizar un pedido
|
||||
{ FPedidosProveedorController := TPedidosProveedorController.Create;
|
||||
try
|
||||
APedido := FPedidosProveedorController.ElegirPedidos(FPedidosProveedorController.BuscarPendientes,
|
||||
'Elija el pedido de proveedor que desea utilizar para dar de alta la factura.'
|
||||
+ #10#13 + 'Tenga en cuenta que sólo se podrán utilizar pedidos que no tengan ningún albarán ya asociado.', False);
|
||||
if Assigned(APedido) then
|
||||
begin
|
||||
if FController.Anadir(Facturas, APedido) then
|
||||
FController.Ver(Facturas);
|
||||
end;
|
||||
finally
|
||||
FPedidosClienteController := NIL;
|
||||
end;}
|
||||
{ end;
|
||||
200 : begin // Utilizar albaranes
|
||||
GenerarFacturaProv;
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
100 : begin // Factura nuevo vacio
|
||||
if FController.Anadir(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
end;
|
||||
200 : begin // Utilizar pedidos
|
||||
GenerarFacturaProvPed;
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
300 : begin // Utilizar albaranes
|
||||
GenerarFacturaProvAlbProv;
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
end;
|
||||
|
||||
procedure TfEditorFacturasProveedor.PonerTitulos(const ATitulo: string);
|
||||
|
||||
@ -22,6 +22,7 @@ type
|
||||
function Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor;
|
||||
function BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
function BuscarSinFacturar : IBizPedidoProveedor;
|
||||
procedure Ver(APedido : IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor);
|
||||
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
|
||||
@ -91,6 +92,7 @@ type
|
||||
function Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor;
|
||||
function BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
function BuscarSinFacturar : IBizPedidoProveedor;
|
||||
function Nuevo : IBizPedidoProveedor;
|
||||
procedure Ver(APedido : IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor);
|
||||
@ -164,6 +166,30 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.BuscarSinFacturar: IBizPedidoProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID_FACTURA = NULL)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorID_FACTURA), NewNull(), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.BuscarTodos: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
@ -314,10 +340,8 @@ begin
|
||||
if (APedido.Detalles.DataTable.State in dsEditModes) then
|
||||
APedido.Detalles.DataTable.Post;
|
||||
|
||||
if (APedido.ID_PROVEEDOR < 0) or
|
||||
(not Assigned(APedido.Proveedor)) or
|
||||
(APedido.Proveedor.IsEmpty) then
|
||||
raise Exception.Create('Debe indicar el proveedor de esta pedido');
|
||||
if (APedido.ID_PROVEEDOR < 0) or (APedido.ID_PROVEEDOR = 0) then
|
||||
raise Exception.Create('Debe indicar el proveedor de este pedido');
|
||||
|
||||
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
|
||||
raise Exception.Create('Debe indicar la fecha de este pedido');
|
||||
|
||||
@ -275,6 +275,15 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,9 +9,9 @@ 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_PedidosProveedor = '{599AF7BA-7502-49F5-B736-1B5F681C521B}';
|
||||
RID_PedidosProveedor_Detalles = '{F98729C4-7CD8-4B99-9C6E-337A04485DC8}';
|
||||
RID_PedidosProveedor_Articulos_Pendientes = '{146C079F-89AF-4606-B3A8-D99D14CB3A80}';
|
||||
RID_PedidosProveedor = '{8C7AFC57-4E9B-41B1-B1CE-118FA2D7F3FB}';
|
||||
RID_PedidosProveedor_Detalles = '{4B38181F-5E28-4B75-B25B-8BC05C23F91F}';
|
||||
RID_PedidosProveedor_Articulos_Pendientes = '{82C98F5E-B55B-48E6-9C40-EC793DB43206}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PedidosProveedor = 'PedidosProveedor';
|
||||
@ -57,6 +57,8 @@ const
|
||||
fld_PedidosProveedorIVA = 'IVA';
|
||||
fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
|
||||
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
|
||||
fld_PedidosProveedorID_FACTURA = 'ID_FACTURA';
|
||||
fld_PedidosProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV';
|
||||
|
||||
{ PedidosProveedor field indexes }
|
||||
idx_PedidosProveedorID = 0;
|
||||
@ -97,6 +99,8 @@ const
|
||||
idx_PedidosProveedorIVA = 35;
|
||||
idx_PedidosProveedorIMPORTE_IVA = 36;
|
||||
idx_PedidosProveedorID_FORMA_PAGO = 37;
|
||||
idx_PedidosProveedorID_FACTURA = 38;
|
||||
idx_PedidosProveedorREF_FACTURA_PROV = 39;
|
||||
|
||||
{ PedidosProveedor_Detalles fields }
|
||||
fld_PedidosProveedor_DetallesID = 'ID';
|
||||
@ -153,7 +157,7 @@ const
|
||||
type
|
||||
{ IPedidosProveedor }
|
||||
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{D72E5C27-F27B-4AD2-AE47-2D27ED1F51D6}']
|
||||
['{1E1C751D-BCCB-4D25-879A-BB0F0F023104}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -305,6 +309,14 @@ type
|
||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
|
||||
function GetID_FORMA_PAGOIsNull: Boolean;
|
||||
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
||||
function GetID_FACTURAValue: Integer;
|
||||
procedure SetID_FACTURAValue(const aValue: Integer);
|
||||
function GetID_FACTURAIsNull: Boolean;
|
||||
procedure SetID_FACTURAIsNull(const aValue: Boolean);
|
||||
function GetREF_FACTURA_PROVValue: String;
|
||||
procedure SetREF_FACTURA_PROVValue(const aValue: String);
|
||||
function GetREF_FACTURA_PROVIsNull: Boolean;
|
||||
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -384,6 +396,10 @@ type
|
||||
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
|
||||
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
||||
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
|
||||
property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
|
||||
end;
|
||||
|
||||
{ TPedidosProveedorDataTableRules }
|
||||
@ -545,6 +561,14 @@ type
|
||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
|
||||
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
|
||||
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_FACTURAValue: Integer; virtual;
|
||||
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
||||
function GetID_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_FACTURA_PROVValue: String; virtual;
|
||||
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
|
||||
function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
|
||||
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -623,6 +647,10 @@ type
|
||||
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
|
||||
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
|
||||
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
||||
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
|
||||
property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -632,7 +660,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_Detalles }
|
||||
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{20E26A43-B9D9-44F5-85B4-D11AC9EA78BE}']
|
||||
['{988BCD06-417B-46FC-8622-59B50138FFCB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -847,7 +875,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_Articulos_Pendientes }
|
||||
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{6C7587FF-FB34-477D-84C9-8382A0705353}']
|
||||
['{31F1F705-E8AB-4569-8AEC-C57A05BC3507}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -1765,6 +1793,48 @@ begin
|
||||
DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetID_FACTURAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorDataTableRules.SetID_FACTURAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetID_FACTURAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorID_FACTURA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetREF_FACTURA_PROVValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsString;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorDataTableRules.GetREF_FACTURA_PROVIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorDataTableRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPedidosProveedor_DetallesDataTableRules }
|
||||
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,14 +9,14 @@ 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_PedidosProveedorDelta = '{B7B1B554-12BE-4C48-A002-61F716BE5D31}';
|
||||
RID_PedidosProveedor_DetallesDelta = '{C27A7AED-50CA-47C7-879D-F6B74CA059E0}';
|
||||
RID_PedidosProveedor_Articulos_PendientesDelta = '{8C3B4D6F-607A-4665-942C-A4CEEC17ED74}';
|
||||
RID_PedidosProveedorDelta = '{9FBBD63F-B676-4988-808C-958F184692D7}';
|
||||
RID_PedidosProveedor_DetallesDelta = '{FAC4BAF7-A40E-4569-95E0-F0DED9DE3BFC}';
|
||||
RID_PedidosProveedor_Articulos_PendientesDelta = '{A7CF42B4-398C-4C58-B11C-4FC1E691EEC1}';
|
||||
|
||||
type
|
||||
{ IPedidosProveedorDelta }
|
||||
IPedidosProveedorDelta = interface(IPedidosProveedor)
|
||||
['{B7B1B554-12BE-4C48-A002-61F716BE5D31}']
|
||||
['{9FBBD63F-B676-4988-808C-958F184692D7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -56,6 +56,8 @@ type
|
||||
function GetOldIVAValue : Float;
|
||||
function GetOldIMPORTE_IVAValue : Currency;
|
||||
function GetOldID_FORMA_PAGOValue : Integer;
|
||||
function GetOldID_FACTURAValue : Integer;
|
||||
function GetOldREF_FACTURA_PROVValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -96,6 +98,8 @@ type
|
||||
property OldIVA : Float read GetOldIVAValue;
|
||||
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
|
||||
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
|
||||
end;
|
||||
|
||||
{ TPedidosProveedorBusinessProcessorRules }
|
||||
@ -333,6 +337,18 @@ type
|
||||
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
|
||||
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
|
||||
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_FACTURAValue: Integer; virtual;
|
||||
function GetID_FACTURAIsNull: Boolean; virtual;
|
||||
function GetOldID_FACTURAValue: Integer; virtual;
|
||||
function GetOldID_FACTURAIsNull: Boolean; virtual;
|
||||
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
||||
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_FACTURA_PROVValue: String; virtual;
|
||||
function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
|
||||
function GetOldREF_FACTURA_PROVValue: String; virtual;
|
||||
function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual;
|
||||
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
|
||||
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -487,6 +503,14 @@ type
|
||||
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
|
||||
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
||||
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
|
||||
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
||||
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
|
||||
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
||||
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
|
||||
property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
|
||||
property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
|
||||
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
|
||||
property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -496,7 +520,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_DetallesDelta }
|
||||
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
|
||||
['{C27A7AED-50CA-47C7-879D-F6B74CA059E0}']
|
||||
['{FAC4BAF7-A40E-4569-95E0-F0DED9DE3BFC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
@ -710,7 +734,7 @@ type
|
||||
|
||||
{ IPedidosProveedor_Articulos_PendientesDelta }
|
||||
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
|
||||
['{8C3B4D6F-607A-4665-942C-A4CEEC17ED74}']
|
||||
['{A7CF42B4-398C-4C58-B11C-4FC1E691EEC1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -2010,6 +2034,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA];
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA]);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FACTURA];
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FACTURA]);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA] := Null;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetREF_FACTURA_PROVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV];
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetREF_FACTURA_PROVIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV]);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_FACTURA_PROV];
|
||||
end;
|
||||
|
||||
function TPedidosProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_FACTURA_PROV]);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorBusinessProcessorRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPedidosProveedor_DetallesBusinessProcessorRules }
|
||||
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -19,9 +19,12 @@
|
||||
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
|
||||
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
|
||||
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
|
||||
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
|
||||
<Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
|
||||
<Projects Include="..\Inventario\Views\Inventario_view.dproj" />
|
||||
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
|
||||
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
|
||||
<Projects Include="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" />
|
||||
<Projects Include="Controller\PedidosProveedor_controller.dproj" />
|
||||
<Projects Include="Data\PedidosProveedor_data.dproj" />
|
||||
<Projects Include="Model\PedidosProveedor_model.dproj" />
|
||||
@ -151,15 +154,6 @@
|
||||
<Target Name="PedidosProveedor_plugin:Make">
|
||||
<MSBuild Projects="Plugin\PedidosProveedor_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedProv_AlbProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedProv_AlbProv_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedProv_AlbProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_controller">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -178,6 +172,33 @@
|
||||
<Target Name="Inventario_controller:Make">
|
||||
<MSBuild Projects="..\Inventario\Controller\Inventario_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedProv_AlbProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedProv_AlbProv_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedProv_AlbProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Clean">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller:Make">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedProv_FacProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="AlbaranesProveedor_data">
|
||||
<MSBuild Projects="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -241,14 +262,23 @@
|
||||
<Target Name="Inventario_view:Make">
|
||||
<MSBuild Projects="..\Inventario\Views\Inventario_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PresupuestosCliente_view">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PresupuestosCliente_view:Clean">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;PedProv_AlbProv_relation;AlbaranesProveedor_controller;Inventario_controller;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbaranesProveedor_model;Inventario_view" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbaranesProveedor_model;Inventario_view;PresupuestosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;PedProv_AlbProv_relation:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_model:Clean;Inventario_view:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_model:Clean;Inventario_view:Clean;PresupuestosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;PedProv_AlbProv_relation:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_model:Make;Inventario_view:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_model:Make;Inventario_view:Make;PresupuestosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -65,6 +65,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
DatasetField = 'ID_ALMACEN'
|
||||
TableField = 'ID_ALMACEN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_ALMACEN'
|
||||
TableField = 'TIPO_ALMACEN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE_ALMACEN'
|
||||
TableField = 'NOMBRE_ALMACEN'
|
||||
@ -170,8 +174,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
TableField = 'ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO_ALMACEN'
|
||||
TableField = 'TIPO_ALMACEN'
|
||||
DatasetField = 'ID_FACTURA'
|
||||
TableField = 'ID_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_FACTURA_PROV'
|
||||
TableField = 'REF_FACTURA_PROV'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosProveedor'
|
||||
@ -387,6 +395,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REF_FACTURA_PROV'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -804,6 +821,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -817,15 +838,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
' PERSONA_CONTACTO, TELEFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NET' +
|
||||
'O, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONI' +
|
||||
'BLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_' +
|
||||
'ENVIO, USUARIO, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_' +
|
||||
'PROVEEDOR, :REFERENCIA, :FECHA_PEDIDO,'#10' :FECHA_CONFIRMACION,' +
|
||||
' :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' :OBSERVACIONES, :IN' +
|
||||
'CIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CALLE, :CODIGO_POSTAL, :P' +
|
||||
'OBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :ID_PED' +
|
||||
'IDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IM' +
|
||||
'PORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :IMPO' +
|
||||
'RTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' :USUARIO, CURRENT_' +
|
||||
'TIMESTAMP)'#10
|
||||
'ENVIO, USUARIO, FECHA_ALTA, ID_FACTURA)'#10' VALUES'#10' (:ID, :ID_E' +
|
||||
'MPRESA, :ID_PROVEEDOR, :REFERENCIA, :FECHA_PEDIDO,'#10' :FECHA_C' +
|
||||
'ONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' :OBSERV' +
|
||||
'ACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CALLE, :CODIG' +
|
||||
'O_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEF' +
|
||||
'ONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DE' +
|
||||
'SCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORT' +
|
||||
'E_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' :USUAR' +
|
||||
'IO, CURRENT_TIMESTAMP, :ID_FACTURA)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -955,6 +976,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
Name = 'USUARIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_FACTURA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
@ -980,8 +1005,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
|
||||
' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE ' +
|
||||
'= :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_' +
|
||||
'IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' USUARIO = :USUARIO' +
|
||||
','#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :' +
|
||||
'OLD_ID)'#10
|
||||
','#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' ID_FACTURA = :' +
|
||||
'ID_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -81,7 +81,8 @@ requires
|
||||
dxSkinSilverD11,
|
||||
dxSkinStardustD11,
|
||||
dxSkinValentineD11,
|
||||
dxSkinXmas2008BlueD11;
|
||||
dxSkinXmas2008BlueD11,
|
||||
PedProv_FacProv_relation;
|
||||
|
||||
contains
|
||||
uPedidosProveedorViewRegister in 'uPedidosProveedorViewRegister.pas',
|
||||
|
||||
@ -49,57 +49,64 @@
|
||||
<DelphiCompile Include="PedidosProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Almacenes_controller.dcp" />
|
||||
<DCCReference Include="Almacenes_model.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.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="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="dxSkinsdxLCPainterD11.dcp" />
|
||||
<DCCReference Include="dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Obras_controller.dcp" />
|
||||
<DCCReference Include="Obras_model.dcp" />
|
||||
<DCCReference Include="PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.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\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinBlackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinBlueD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinCaramelD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinCoffeeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinGlassOceansD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkiniMaginaryD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinLilianD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinLondonLiquidSkyD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinMcSkinD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinMoneyTwinsD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007BlackD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007BlueD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007GreenD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007PinkD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinOffice2007SilverD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinsCoreD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinsdxLCPainterD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinSilverD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinStardustD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinValentineD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxSkinXmas2008BlueD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Obras_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Obras_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedProv_FacProv_relation.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="..\..\Lib\xmlrtl.dcp" />
|
||||
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
|
||||
<Form>fEditorDireccionEntregaPedidoProveedor </Form>
|
||||
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
|
||||
@ -146,7 +153,7 @@
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewObraReserva.pas">
|
||||
<Form>frViewObraReserv</Form>
|
||||
<Form>frViewObraReserva</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewPedidoProveedor.pas">
|
||||
@ -161,12 +168,6 @@
|
||||
<Form>frViewProveedorPedido</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" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -44,18 +44,22 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 632
|
||||
ExplicitWidth = 700
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 700
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Visible = True
|
||||
ExplicitWidth = 119
|
||||
ExplicitWidth = 223
|
||||
object TBXItem39: TTBXItem
|
||||
Action = actRecibirPedido
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
object TBXItem38: TTBXItem
|
||||
Action = actFacturarPedido
|
||||
DisplayMode = nbdmImageAndText
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
@ -66,7 +70,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
Left = 0
|
||||
Top = 102
|
||||
Width = 700
|
||||
Height = 323
|
||||
Height = 383
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -78,12 +82,12 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
ReadOnly = False
|
||||
ExplicitTop = 102
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 323
|
||||
ExplicitHeight = 383
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 700
|
||||
Height = 195
|
||||
Height = 255
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 195
|
||||
ExplicitHeight = 255
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
@ -114,31 +118,23 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 603
|
||||
Width = 603
|
||||
ExplicitWidth = 660
|
||||
Width = 660
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 267
|
||||
Width = 267
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 371
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 371
|
||||
ExplicitWidth = 319
|
||||
Width = 319
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 727
|
||||
ExplicitLeft = 727
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 700
|
||||
@ -154,8 +150,8 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 297
|
||||
ExplicitTop = 297
|
||||
Top = 357
|
||||
ExplicitTop = 357
|
||||
ExplicitWidth = 700
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 700
|
||||
@ -202,6 +198,13 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
|
||||
OnExecute = actRecibirPedidoExecute
|
||||
OnUpdate = actRecibirPedidoUpdate
|
||||
end
|
||||
object actFacturarPedido: TAction
|
||||
Category = 'Acciones'
|
||||
Caption = 'Generar factura'
|
||||
ImageIndex = 23
|
||||
OnExecute = actFacturarPedidoExecute
|
||||
OnUpdate = actFacturarPedidoUpdate
|
||||
end
|
||||
end
|
||||
inherited SmallImages: TPngImageList [5]
|
||||
PngImages = <
|
||||
|
||||
@ -25,11 +25,15 @@ type
|
||||
JsImprimirDialog: TJSDialog;
|
||||
TBXItem39: TTBXItem;
|
||||
JsListaPedidosNoEliminados: TJSDialog;
|
||||
actFacturarPedido: TAction;
|
||||
TBXItem38: TTBXItem;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure actCambiarSituacionExecute(Sender: TObject);
|
||||
procedure actRecibirPedidoUpdate(Sender: TObject);
|
||||
procedure actRecibirPedidoExecute(Sender: TObject);
|
||||
procedure actEliminarUpdate(Sender: TObject);
|
||||
procedure actFacturarPedidoExecute(Sender: TObject);
|
||||
procedure actFacturarPedidoUpdate(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPedidos: IBizPedidoProveedor;
|
||||
@ -59,7 +63,7 @@ implementation
|
||||
|
||||
uses
|
||||
uDataModulePedidosProveedor, uDataModuleUsuarios, uFactuGES_App, uEditorDBBase,
|
||||
uGenerarAlbaranesProvUtils,
|
||||
uGenerarAlbaranesProvUtils, uGenerarFacturasProvPedUtils,
|
||||
// uInventarioController, uBizInventario,
|
||||
uDialogUtils, uGridStatusUtils, uDBSelectionListUtils;
|
||||
// uAlbaranesProveedorController, uBizAlbaranesProveedor,
|
||||
@ -86,6 +90,27 @@ begin
|
||||
(Sender as TAction).Enabled := (FPedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE);
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidosProveedor.actFacturarPedidoExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del pedido %s a la factura?', [Pedidos.REFERENCIA])) = IDYES) then
|
||||
GenerarFacturaProvPed(Pedidos.ID)
|
||||
else
|
||||
GenerarFacturaProvPed(Pedidos.ID, False);
|
||||
|
||||
actRefrescar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidosProveedor.actFacturarPedidoUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Enabled := HayDatos
|
||||
and not (ViewGrid.NumSeleccionados > 1)
|
||||
and (FPedidos.REF_FACTURA_PROV = '')
|
||||
and ViewGrid.esSeleccionCeldaDatos;
|
||||
end;
|
||||
|
||||
procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -152,6 +152,10 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
|
||||
Visible = False
|
||||
VisibleForCustomization = False
|
||||
end
|
||||
object cxGridViewREF_FACTURA_PROV: TcxGridDBColumn
|
||||
Caption = 'Ref. factura'
|
||||
DataBinding.FieldName = 'REF_FACTURA_PROV'
|
||||
end
|
||||
end
|
||||
object cxGridDBTableView1: TcxGridDBTableView [1]
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
|
||||
@ -60,6 +60,7 @@ type
|
||||
TBXItem3: TTBXItem;
|
||||
TBXSeparatorItem2: TTBXSeparatorItem;
|
||||
cxGridViewINCIDENCIAS: TcxGridDBColumn;
|
||||
cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
|
||||
@ -31,7 +31,7 @@ requires
|
||||
FacturasCliente_controller;
|
||||
|
||||
contains
|
||||
uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCliAlb},
|
||||
uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCliAlbCli},
|
||||
uGenerarAlbaranesCliFacCliUtils in 'uGenerarAlbaranesCliFacCliUtils.pas' {dmGenerarAlbaranesCli};
|
||||
|
||||
end.
|
||||
|
||||
@ -83,15 +83,15 @@
|
||||
<DelphiCompile Include="AlbCli_FacCli_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de cliente\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="uGenerarAlbaranesCliFacCliUtils.pas">
|
||||
<Form>dmGenerarAlbaranesCli</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uGenerarFacturasCliAlbCliUtils.pas">
|
||||
<Form>dmGenerarFacturasCliAlb</Form>
|
||||
<Form>dmGenerarFacturasCliAlbCli</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
object dmGenerarFacturasCliAlb: TdmGenerarFacturasCliAlb
|
||||
object dmGenerarFacturasCliAlbCli: TdmGenerarFacturasCliAlbCli
|
||||
OldCreateOrder = False
|
||||
Height = 176
|
||||
Width = 254
|
||||
|
||||
@ -6,7 +6,7 @@ uses
|
||||
Windows, SysUtils, Classes, uBizAlbaranesCliente, uBizFacturasCliente, pngimage, JSDialog;
|
||||
|
||||
type
|
||||
TdmGenerarFacturasCliAlb = class(TDataModule)
|
||||
TdmGenerarFacturasCliAlbCli = class(TDataModule)
|
||||
JsListaFacturasGeneradas: TJSDialog;
|
||||
end;
|
||||
|
||||
@ -36,7 +36,7 @@ uses
|
||||
// ;
|
||||
|
||||
var
|
||||
dmGenerarFacturasCliAlb: TdmGenerarFacturasCliAlb;
|
||||
dmGenerarFacturasCliAlbCli: TdmGenerarFacturasCliAlbCli;
|
||||
AFacturasClienteController : IFacturasClienteController;
|
||||
AAlbaranesClienteController : IAlbaranesClienteController;
|
||||
ADetallesAlbaranesClienteController : IDetallesFacturaClienteController;
|
||||
@ -188,7 +188,7 @@ end;
|
||||
|
||||
procedure Inicializar;
|
||||
begin
|
||||
dmGenerarFacturasCliAlb := TdmGenerarFacturasCliAlb.Create(nil);
|
||||
dmGenerarFacturasCliAlbCli := TdmGenerarFacturasCliAlbCli.Create(nil);
|
||||
AFacturasClienteController := TFacturasClienteController.Create;
|
||||
AAlbaranesClienteController := TAlbaranesClienteController.Create;
|
||||
ADetallesAlbaranesClienteController := TDetallesFacturaClienteController.Create;
|
||||
@ -197,7 +197,7 @@ end;
|
||||
|
||||
procedure Finalizar;
|
||||
begin
|
||||
FreeAndNIL(dmGenerarFacturasCliAlb);
|
||||
FreeAndNIL(dmGenerarFacturasCliAlbCli);
|
||||
AFacturasClienteController := nil;
|
||||
AAlbaranesClienteController := nil;
|
||||
ADetallesAlbaranesClienteController := nil;
|
||||
@ -257,7 +257,7 @@ begin
|
||||
ShowInfoMessage('El abono se ha dado de alta con el código ' + AFacturasNuevas.REFERENCIA);
|
||||
end
|
||||
else begin
|
||||
with dmGenerarFacturasCliAlb.JsListaFacturasGeneradas.Content do
|
||||
with dmGenerarFacturasCliAlbCli.JsListaFacturasGeneradas.Content do
|
||||
begin
|
||||
Clear;
|
||||
AFacturasNuevas.DataTable.Last;
|
||||
@ -268,7 +268,7 @@ begin
|
||||
AFacturasNuevas.DataTable.Prior;
|
||||
end;
|
||||
end;
|
||||
dmGenerarFacturasCliAlb.JsListaFacturasGeneradas.Execute;
|
||||
dmGenerarFacturasCliAlbCli.JsListaFacturasGeneradas.Execute;
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
|
||||
@ -33,7 +33,7 @@ requires
|
||||
Contactos_model;
|
||||
|
||||
contains
|
||||
uGenerarFacturasProvAlbProvUtils in 'uGenerarFacturasProvAlbProvUtils.pas' {dmGenerarFacturasProv},
|
||||
uGenerarFacturasProvAlbProvUtils in 'uGenerarFacturasProvAlbProvUtils.pas' {dmGenerarFacturasProvAlbProv},
|
||||
uGenerarAlbaranesProvFacProvUtils in 'uGenerarAlbaranesProvFacProvUtils.pas' {dmGenerarAlbaranesProv};
|
||||
|
||||
end.
|
||||
|
||||
@ -41,42 +41,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\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>
|
||||
@ -120,21 +84,20 @@
|
||||
<DelphiCompile Include="AlbProv_FacProv_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\Albaranes de cliente - Facturas de cliente\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\Albaranes de cliente - Facturas de cliente\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\Albaranes de cliente - Facturas de cliente\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Albaranes de cliente - Facturas de cliente\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Albaranes de cliente - Facturas de cliente\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\Albaranes de cliente - Facturas de cliente\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="uGenerarAlbaranesProvFacProvUtils.pas">
|
||||
<Form>dmGenerarAlbaranesProv</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uGenerarFacturasProvAlbProvUtils.pas">
|
||||
<Form>dmGenerarFacturasProv</Form>
|
||||
<Form>dmGenerarFacturasProvAlbProv</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
object dmGenerarFacturasProv: TdmGenerarFacturasProv
|
||||
object dmGenerarFacturasProvAlbProv: TdmGenerarFacturasProvAlbProv
|
||||
OldCreateOrder = False
|
||||
Height = 176
|
||||
Width = 254
|
||||
|
||||
@ -9,14 +9,13 @@ uses
|
||||
pngimage, JSDialog;
|
||||
|
||||
type
|
||||
TdmGenerarFacturasProv = class(TDataModule)
|
||||
TdmGenerarFacturasProvAlbProv = class(TDataModule)
|
||||
JsListaFacturasGeneradas: TJSDialog;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProv(const IDAlbaran : Integer) : Boolean; overload;
|
||||
function GenerarFacturaProv(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
function GenerarFacturaProv : Boolean; overload;
|
||||
|
||||
function GenerarFacturaProvAlbProv(const IDAlbaran : Integer) : Boolean; overload;
|
||||
function GenerarFacturaProvAlbProv(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
function GenerarFacturaProvAlbProv : Boolean; overload;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaProveedor; AListaAlbaranes : IBizAlbaranProveedor): Boolean;
|
||||
|
||||
@ -45,7 +44,7 @@ uses
|
||||
// schAlbaranesProveedorClient_Intf;
|
||||
|
||||
var
|
||||
dmGenerarFacturasProv: TdmGenerarFacturasProv;
|
||||
dmGenerarFacturasProv: TdmGenerarFacturasProvAlbProv;
|
||||
AFacturasProveedorController : IFacturasProveedorController;
|
||||
AAlbaranesProveedorController : IAlbaranesProveedorController;
|
||||
ADetallesAlbaranesProveedorController : IDetallesFacturaProveedorController;
|
||||
@ -199,7 +198,7 @@ end;
|
||||
|
||||
procedure Inicializar;
|
||||
begin
|
||||
dmGenerarFacturasProv := TdmGenerarFacturasProv.Create(nil);
|
||||
dmGenerarFacturasProv := TdmGenerarFacturasProvAlbProv.Create(nil);
|
||||
AFacturasProveedorController := TFacturasProveedorController.Create;
|
||||
AAlbaranesProveedorController := TAlbaranesProveedorController.Create;
|
||||
ADetallesAlbaranesProveedorController := TDetallesFacturaProveedorController.Create;
|
||||
@ -216,7 +215,7 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function GenerarFacturaProv(const IDAlbaran : Integer) : Boolean; overload;
|
||||
function GenerarFacturaProvAlbProv(const IDAlbaran : Integer) : Boolean; overload;
|
||||
var
|
||||
AAlbaran : IBizAlbaranProveedor;
|
||||
begin
|
||||
@ -230,7 +229,7 @@ begin
|
||||
AAlbaran := AAlbaranesProveedorController.Buscar(IDAlbaran);
|
||||
|
||||
if Assigned(AAlbaran) then
|
||||
Result := GenerarFacturaProv(AAlbaran);
|
||||
Result := GenerarFacturaProvAlbProv(AAlbaran);
|
||||
|
||||
if Assigned(AAlbaranesProveedorController) then
|
||||
Finalizar;
|
||||
@ -240,7 +239,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProv(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
function GenerarFacturaProvAlbProv(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
|
||||
var
|
||||
AFacturasNuevas : IBizFacturaProveedor;
|
||||
i: Integer;
|
||||
@ -248,7 +247,7 @@ begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(AAlbaran) then
|
||||
raise Exception.Create('Albarán de proveedor no asignado (GenerarFacturaProv)');
|
||||
raise Exception.Create('Albarán de proveedor no asignado (GenerarFacturaProvAlbProv)');
|
||||
|
||||
if not AAlbaran.DataTable.Active then
|
||||
AAlbaran.DataTable.Active := True;
|
||||
@ -290,7 +289,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProv : Boolean; overload;
|
||||
function GenerarFacturaProvAlbProv : Boolean; overload;
|
||||
var
|
||||
AAlbaranes : IBizAlbaranProveedor;
|
||||
begin
|
||||
@ -304,7 +303,7 @@ begin
|
||||
+ #10#13 + 'Si elige albaranes de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
|
||||
|
||||
if Assigned(AAlbaranes) then
|
||||
Result := GenerarFacturaProv(AAlbaranes);
|
||||
Result := GenerarFacturaProvAlbProv(AAlbaranes);
|
||||
|
||||
if Assigned(AAlbaranesProveedorController) then
|
||||
Finalizar;
|
||||
@ -321,7 +320,6 @@ var
|
||||
I: Integer;
|
||||
bEnEdicion : Boolean;
|
||||
begin
|
||||
|
||||
// ATENCIÓN!!! AFacturas tiene que estar vacio para no pisar facturas
|
||||
// ya generadas.
|
||||
if not Assigned(AFacturas) then
|
||||
@ -330,16 +328,14 @@ begin
|
||||
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;
|
||||
// ShowHourglassCursor;
|
||||
// Application.ProcessMessages;
|
||||
|
||||
AAlbaranesController := TAlbaranesProveedorController.Create;
|
||||
try
|
||||
@ -353,7 +349,7 @@ begin
|
||||
|
||||
// Busco si hay alguna factura ya hecha de ese Proveedor
|
||||
AFacturas.DataTable.First;
|
||||
if AFacturas.DataTable.Locate(fld_FacturasProveedorID_Proveedor, AListaAlbaranes.ID_Proveedor, []) then
|
||||
if AFacturas.DataTable.Locate(fld_FacturasProveedorID_PROVEEDOR, AListaAlbaranes.ID_PROVEEDOR, []) then
|
||||
begin
|
||||
AFacturaActual := AFacturas;
|
||||
AFacturasProveedorController.RecuperarProveedor(AFacturaActual);
|
||||
@ -363,16 +359,17 @@ begin
|
||||
// No hay factura de ese Proveedor. Creo una nueva
|
||||
AFacturasProveedorController.Anadir(AFacturas);
|
||||
AAlbaranesController.RecuperarProveedor(AListaAlbaranes);
|
||||
AListaAlbaranes.Proveedor.DataTable.Active := True;
|
||||
AFacturas.Proveedor := AListaAlbaranes.Proveedor;
|
||||
|
||||
//Siempre asignaremos por defecto la referencia de factura de proveedor que tenga el primer albaran del proveedor
|
||||
bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
AFacturas.Edit;
|
||||
AFacturas.REFERENCIA_PROVEEDOR := AListaAlbaranes.REF_FACTURA_PROV;
|
||||
AFacturas.Post;
|
||||
if bEnEdicion then
|
||||
AFacturas.Edit;
|
||||
// bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
|
||||
// if not bEnEdicion then
|
||||
// AFacturas.Edit;
|
||||
// AFacturas.REFERENCIA_PROVEEDOR := AListaAlbaranes.REF_FACTURA_PROV;
|
||||
// AFacturas.Post;
|
||||
// if bEnEdicion then
|
||||
// AFacturas.Edit;
|
||||
|
||||
//Si el albaran es de tipo devolución hacemos la factura de tipo abono
|
||||
if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
||||
@ -393,7 +390,6 @@ begin
|
||||
AFacturaActual.Detalles.DataTable.Last;
|
||||
// Añado el título
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
|
||||
// Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
@ -417,7 +413,6 @@ begin
|
||||
|
||||
// Añado el resumen
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
|
||||
//Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
@ -427,7 +422,6 @@ begin
|
||||
|
||||
// Añado una línea en blanco
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
// Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
@ -438,7 +432,6 @@ begin
|
||||
// Guardo la factura que acabo de generar o editar
|
||||
AFacturaActual.CalcularImporteTotal;
|
||||
AFacturasProveedorController.Guardar(AFacturaActual);
|
||||
// Self.Guardar(AFacturaActual);
|
||||
// Asocio la factura con el albarán
|
||||
AListaAlbaranes.Edit;
|
||||
AListaAlbaranes.ID_FACTURA := AFacturaActual.ID;
|
||||
|
||||
@ -25,24 +25,12 @@ package PedProv_FacProv_relation;
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
Base,
|
||||
ControllerBase,
|
||||
Contactos_model,
|
||||
Contactos_controller,
|
||||
PNG_D10,
|
||||
vcl,
|
||||
JSDialog100,
|
||||
vclx,
|
||||
vclactnband,
|
||||
xmlrtl,
|
||||
designide,
|
||||
FacturasProveedor_model,
|
||||
FacturasProveedor_controller,
|
||||
PedidosProveedor_controller,
|
||||
PedidosProveedor_model;
|
||||
FacturasProveedor_model;
|
||||
|
||||
contains
|
||||
uGenerarFacturasProvPedProvUtils in 'uGenerarFacturasProvPedProvUtils.pas';
|
||||
uGenerarFacturasProvPedUtils in 'uGenerarFacturasProvPedUtils.pas' {dmGenerarFacturasProvPed};
|
||||
|
||||
end.
|
||||
|
||||
@ -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>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
|
||||
<MainSource>PedProv_FacProv_relation.dpk</MainSource>
|
||||
@ -34,50 +35,120 @@
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</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>
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -186,34 +257,502 @@
|
||||
<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">PedProv_FacProv_relation.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PedProv_FacProv_relation.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PedProv_FacProv_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Facturas de proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\ControllerBase.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\designide.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Facturas de proveedor\xmlrtl.dcp" />
|
||||
<DCCReference Include="uGenerarFacturasProvPedProvUtils.pas" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="uGenerarFacturasProvPedUtils.pas">
|
||||
<Form>dmGenerarFacturasProvPed</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</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 -->
|
||||
|
||||
@ -0,0 +1,22 @@
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,0,0
|
||||
PRODUCTVERSION 1,0,0,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
FILETYPE 0x1L
|
||||
FILESUBTYPE 0x0L
|
||||
BEGIN
|
||||
BLOCK "StringFileInfo"
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
BEGIN
|
||||
VALUE "Translation", 0x0C0A, 1252
|
||||
END
|
||||
END
|
||||
Binary file not shown.
@ -1,234 +0,0 @@
|
||||
unit uGenerarFacturasProvPedProvUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Classes, uBizPedidosProveedor, pngimage, JSDialog;
|
||||
|
||||
type
|
||||
TdmGenerarFacturasProv = class(TDataModule)
|
||||
JsListaFacturasGeneradas: TJSDialog;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProv(const IDPedido : Integer) : Boolean; overload;
|
||||
function GenerarFacturaProv(APedidos : IBizPedidoProveedor) : Boolean; overload;
|
||||
function GenerarFacturaProv : Boolean; overload;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDialogUtils,
|
||||
uBizDetallesPedidoProveedor,
|
||||
uPedidosProveedorController, uDetallesPedidoProveedorController,
|
||||
uFacturasProveedorController, uBizFacturasProveedor, uBizDetallesFacturaProveedor;
|
||||
|
||||
// ,
|
||||
// , uProveedoresController,
|
||||
// , uControllerDetallesBase,
|
||||
|
||||
|
||||
// , uBizContactos, schPedidosClienteClient_Intf,
|
||||
// schPedidosProveedorClient_Intf;
|
||||
|
||||
var
|
||||
dmGenerarFacturasProv: TdmGenerarFacturasProv;
|
||||
APedidosProveedorController : IPedidosProveedorController;
|
||||
ADetallesPedidosProveedorController : IDetallesPedidoProveedorController;
|
||||
AFacturasProveedorController : IFacturasProveedorController;
|
||||
// AProveedoresController : IProveedoresController;
|
||||
|
||||
{ Métodos auxiliares }
|
||||
{procedure CopiarPedidoAPedido(APedido: IBizPedidoCliente;
|
||||
APedido : IBizFacturaProveedor);
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Albarán no asignado (CopiarPedidoAPedido)');
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado (CopiarPedidoAPedido)');
|
||||
|
||||
if not APedido.DataTable.Active then
|
||||
APedido.DataTable.Active := True;
|
||||
|
||||
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
|
||||
APedido.ID_CLIENTE := APedido.ID_CLIENTE;
|
||||
APedido.ID_PEDIDO := APedido.ID;
|
||||
APedido.CALLE := APedido.CALLE;
|
||||
APedido.CODIGO_POSTAL := APedido.CODIGO_POSTAL;
|
||||
APedido.POBLACION := APedido.POBLACION;
|
||||
APedido.PROVINCIA := APedido.PROVINCIA;
|
||||
APedido.PERSONA_CONTACTO := APedido.PERSONA_CONTACTO;
|
||||
APedido.TELEFONO := APedido.TELEFONO;
|
||||
APedido.IMPORTE_NETO := APedido.IMPORTE_NETO;
|
||||
APedido.IMPORTE_PORTE := APedido.IMPORTE_PORTE;
|
||||
APedido.DESCUENTO := APedido.DESCUENTO;
|
||||
APedido.IMPORTE_DESCUENTO := APedido.IMPORTE_DESCUENTO;
|
||||
APedido.BASE_IMPONIBLE := APedido.BASE_IMPONIBLE;
|
||||
APedido.IVA := APedido.IVA;
|
||||
APedido.IMPORTE_IVA := APedido.IMPORTE_IVA;
|
||||
APedido.IMPORTE_TOTAL := APedido.IMPORTE_TOTAL;
|
||||
APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant := APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant;
|
||||
APedido.ID_FORMA_PAGO := APedido.ID_FORMA_PAGO;
|
||||
end;
|
||||
|
||||
procedure CopiarArticulosPendAPedido(
|
||||
APedido: IBizPedidoCliente;
|
||||
APedido: IBizFacturaProveedor;
|
||||
AArticulosPendientes: IBizPedidoClienteArticulosPend);
|
||||
var
|
||||
i : integer;
|
||||
ADetalles : IBizDetallesFacturaProveedor;
|
||||
ADetallesController : IDetallesFacturaProveedorController;
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Albarán no asignado (CopiarArticulosPendAPedido)');
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado (CopiarArticulosPendAPedido)');
|
||||
|
||||
if not Assigned(AArticulosPendientes) then
|
||||
raise Exception.Create ('Artículos pendientes no asignado (CopiarArticulosPendAPedido)');
|
||||
|
||||
if not AArticulosPendientes.DataTable.Active then
|
||||
AArticulosPendientes.DataTable.Active := True;
|
||||
|
||||
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
|
||||
|
||||
ADetalles := APedido.Detalles;
|
||||
ADetallesController := TDetallesFacturaProveedorController.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(ADetalles);
|
||||
|
||||
AArticulosPendientes.DataTable.First;
|
||||
for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
APedido.Detalles.First;
|
||||
if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
|
||||
if (AArticulosPendientes.CANTIDAD_PENDIENTE > 0) then
|
||||
begin
|
||||
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
|
||||
ADetalles.Edit;
|
||||
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
|
||||
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
|
||||
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;
|
||||
ADetalles.CANTIDAD := AArticulosPendientes.CANTIDAD_PENDIENTE;
|
||||
ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
|
||||
ADetalles.IMPORTE_TOTAL := APedido.Detalles.IMPORTE_TOTAL;
|
||||
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
|
||||
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
|
||||
ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
|
||||
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
|
||||
ADetalles.Post;
|
||||
AArticulosPendientes.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADetalles);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end; }
|
||||
|
||||
procedure Inicializar;
|
||||
begin
|
||||
dmGenerarFacturasProv := TdmGenerarFacturasProv.Create(nil);
|
||||
APedidosProveedorController := TPedidosProveedorController.Create;
|
||||
ADetallesPedidosProveedorController := TDetallesPedidoProveedorController.Create;
|
||||
AFacturasProveedorController := TFacturasProveedorController.Create;
|
||||
// AProveedoresController := TProveedoresController.Create;
|
||||
end;
|
||||
|
||||
procedure Finalizar;
|
||||
begin
|
||||
FreeAndNIL(dmGenerarFacturasProv);
|
||||
APedidosProveedorController := nil;
|
||||
ADetallesPedidosProveedorController := nil;
|
||||
AFacturasProveedorController := nil;
|
||||
// AProveedoresController := nil;
|
||||
end;
|
||||
|
||||
|
||||
function GenerarFacturaProv(const IDPedido : Integer) : Boolean; overload;
|
||||
var
|
||||
APedido : IBizPedidoProveedor;
|
||||
begin
|
||||
Result := False;
|
||||
if not Assigned(APedidosProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
APedido := APedidosProveedorController.Buscar(IDPedido);
|
||||
Result := GenerarFacturaProv(APedido);
|
||||
|
||||
if Assigned(APedidosProveedorController) then
|
||||
Finalizar;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProv(APedidos : IBizPedidoProveedor) : Boolean; overload;
|
||||
var
|
||||
ARespuesta : Integer;
|
||||
AFacturasNuevas : IBizFacturaProveedor;
|
||||
// AArticulos: IBizPedidoClienteArticulosPend;
|
||||
i: Integer;
|
||||
begin
|
||||
Result := False;
|
||||
if not Assigned(APedidosProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
if not Assigned(APedidos) then
|
||||
raise Exception.Create('Albarán de proveedor no asignado (GenerarFacturaProv)');
|
||||
|
||||
if not APedidos.DataTable.Active then
|
||||
APedidos.DataTable.Active := True;
|
||||
|
||||
try
|
||||
AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
|
||||
if AFacturasProveedorController.Anadir(AFacturasNuevas, APedidos.ID) then
|
||||
begin
|
||||
if AFacturasNuevas.DataTable.RecordCount = 1 then
|
||||
AFacturasProveedorController.Ver(AFacturasNuevas)
|
||||
else begin
|
||||
with dmGenerarFacturasProv.JsListaFacturasGeneradas.Content do
|
||||
begin
|
||||
Clear;
|
||||
AFacturasNuevas.DataTable.Last;
|
||||
for i := 0 to AFacturasNuevas.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
if Length(AFacturasNuevas.REFERENCIA) > 0 then
|
||||
Add(AFacturasNuevas.REFERENCIA + ': ' + AFacturasNuevas.NOMBRE);
|
||||
AFacturasNuevas.DataTable.Prior;
|
||||
end;
|
||||
end;
|
||||
dmGenerarFacturasProv.JsListaFacturasGeneradas.Execute;
|
||||
end;
|
||||
// actRefrescar.Execute;
|
||||
end;
|
||||
finally
|
||||
AFacturasNuevas := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProv : Boolean; overload;
|
||||
var
|
||||
APedidos : IBizPedidoProveedor;
|
||||
begin
|
||||
{
|
||||
Result := False;
|
||||
if not Assigned(APedidosProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarSinFacturar,
|
||||
'Elija el albarán o Pedidos de proveedor que desea utilizar para dar de alta la factura.'
|
||||
+ #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
|
||||
|
||||
Result := GenerarFacturaProv(APedidos);
|
||||
|
||||
if Assigned(APedidosProveedorController) then
|
||||
Finalizar;
|
||||
}
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -1,4 +1,4 @@
|
||||
object dmGenerarFacturasProv: TdmGenerarFacturasProv
|
||||
object dmGenerarFacturasProvPed: TdmGenerarFacturasProvPed
|
||||
OldCreateOrder = False
|
||||
Height = 176
|
||||
Width = 254
|
||||
@ -0,0 +1,436 @@
|
||||
unit uGenerarFacturasProvPedUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Classes, uBizPedidosProveedor, uBizFacturasProveedor, pngimage, JSDialog;
|
||||
|
||||
type
|
||||
TdmGenerarFacturasProvPed = class(TDataModule)
|
||||
JsListaFacturasGeneradas: TJSDialog;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProvPed(const IDPedido : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
function GenerarFacturaProvPed(APedidos : IBizPedidoProveedor; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
function GenerarFacturaProvPed : Boolean; overload;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaProveedor; AListaPedidos : IBizPedidoProveedor; const CopiarDetalles: Boolean = True): Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uDialogUtils, uDADataTable,
|
||||
uBizDetallesPedidoProveedor,
|
||||
uPedidosProveedorController, uDetallesPedidoProveedorController,
|
||||
uFacturasProveedorController, uControllerDetallesBase,
|
||||
schPedidosProveedorClient_Intf, schFacturasProveedorClient_Intf,
|
||||
uBizDetallesFacturaProveedor, uDetallesFacturaProveedorController;
|
||||
|
||||
// ,
|
||||
// , uProveedoresController,
|
||||
// ,
|
||||
|
||||
|
||||
// , uBizContactos,
|
||||
// schPedidosProveedorClient_Intf;
|
||||
|
||||
var
|
||||
dmGenerarFacturasProvPed: TdmGenerarFacturasProvPed;
|
||||
APedidosProveedorController : IPedidosProveedorController;
|
||||
ADetallesPedidosProveedorController : IDetallesPedidoProveedorController;
|
||||
AFacturasProveedorController : IFacturasProveedorController;
|
||||
// AProveedoresController : IProveedoresController;
|
||||
|
||||
{ Métodos auxiliares }
|
||||
{procedure CopiarPedidoAPedido(APedido: IBizPedidoCliente;
|
||||
APedido : IBizFacturaProveedor);
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Albarán no asignado (CopiarPedidoAPedido)');
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado (CopiarPedidoAPedido)');
|
||||
|
||||
if not APedido.DataTable.Active then
|
||||
APedido.DataTable.Active := True;
|
||||
|
||||
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
|
||||
APedido.ID_CLIENTE := APedido.ID_CLIENTE;
|
||||
APedido.ID_PEDIDO := APedido.ID;
|
||||
APedido.CALLE := APedido.CALLE;
|
||||
APedido.CODIGO_POSTAL := APedido.CODIGO_POSTAL;
|
||||
APedido.POBLACION := APedido.POBLACION;
|
||||
APedido.PROVINCIA := APedido.PROVINCIA;
|
||||
APedido.PERSONA_CONTACTO := APedido.PERSONA_CONTACTO;
|
||||
APedido.TELEFONO := APedido.TELEFONO;
|
||||
APedido.IMPORTE_NETO := APedido.IMPORTE_NETO;
|
||||
APedido.IMPORTE_PORTE := APedido.IMPORTE_PORTE;
|
||||
APedido.DESCUENTO := APedido.DESCUENTO;
|
||||
APedido.IMPORTE_DESCUENTO := APedido.IMPORTE_DESCUENTO;
|
||||
APedido.BASE_IMPONIBLE := APedido.BASE_IMPONIBLE;
|
||||
APedido.IVA := APedido.IVA;
|
||||
APedido.IMPORTE_IVA := APedido.IMPORTE_IVA;
|
||||
APedido.IMPORTE_TOTAL := APedido.IMPORTE_TOTAL;
|
||||
APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant := APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant;
|
||||
APedido.ID_FORMA_PAGO := APedido.ID_FORMA_PAGO;
|
||||
end;
|
||||
|
||||
procedure CopiarArticulosPendAPedido(
|
||||
APedido: IBizPedidoCliente;
|
||||
APedido: IBizFacturaProveedor;
|
||||
AArticulosPendientes: IBizPedidoClienteArticulosPend);
|
||||
var
|
||||
i : integer;
|
||||
ADetalles : IBizDetallesFacturaProveedor;
|
||||
ADetallesController : IDetallesFacturaProveedorController;
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Albarán no asignado (CopiarArticulosPendAPedido)');
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado (CopiarArticulosPendAPedido)');
|
||||
|
||||
if not Assigned(AArticulosPendientes) then
|
||||
raise Exception.Create ('Artículos pendientes no asignado (CopiarArticulosPendAPedido)');
|
||||
|
||||
if not AArticulosPendientes.DataTable.Active then
|
||||
AArticulosPendientes.DataTable.Active := True;
|
||||
|
||||
// El albarán tiene que venir ya abierto y posicionado donde hay que copiar
|
||||
|
||||
ADetalles := APedido.Detalles;
|
||||
ADetallesController := TDetallesFacturaProveedorController.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(ADetalles);
|
||||
|
||||
AArticulosPendientes.DataTable.First;
|
||||
for i := 0 to AArticulosPendientes.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
APedido.Detalles.First;
|
||||
if (APedido.Detalles.Locate('ID_ARTICULO', AArticulosPendientes.ID_ARTICULO, [])) then
|
||||
if (AArticulosPendientes.CANTIDAD_PENDIENTE > 0) then
|
||||
begin
|
||||
ADetallesController.Add(ADetalles, TIPO_DETALLE_CONCEPTO);
|
||||
ADetalles.Edit;
|
||||
ADetalles.REFERENCIA := APedido.Detalles.REFERENCIA;
|
||||
ADetalles.ID_ARTICULO := APedido.Detalles.ID_ARTICULO;
|
||||
ADetalles.CONCEPTO := APedido.Detalles.CONCEPTO;
|
||||
ADetalles.CANTIDAD := AArticulosPendientes.CANTIDAD_PENDIENTE;
|
||||
ADetalles.IMPORTE_UNIDAD := APedido.Detalles.IMPORTE_UNIDAD;
|
||||
ADetalles.IMPORTE_TOTAL := APedido.Detalles.IMPORTE_TOTAL;
|
||||
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
|
||||
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
|
||||
ADetalles.VISIBLE := APedido.Detalles.VISIBLE;
|
||||
ADetalles.REFERENCIA_PROVEEDOR := APedido.Detalles.REFERENCIA_PROVEEDOR;
|
||||
ADetalles.Post;
|
||||
AArticulosPendientes.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
ADetallesController.EndUpdate(ADetalles);
|
||||
ADetallesController := NIL;
|
||||
end;
|
||||
end; }
|
||||
|
||||
procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoProveedor;
|
||||
ADestino : IBizDetallesFacturaProveedor);
|
||||
var
|
||||
i : integer;
|
||||
ADetallesController : IDetallesFacturaProveedorController;
|
||||
begin
|
||||
if not Assigned(AOrigen) then
|
||||
raise Exception.Create ('Origen no asignado (CopiarArticulosPedido)');
|
||||
|
||||
if not Assigned(ADestino) then
|
||||
raise Exception.Create ('Destino no asignado (CopiarArticulosPedido)');
|
||||
|
||||
if not AOrigen.DataTable.Active then
|
||||
AOrigen.DataTable.Active := True;
|
||||
|
||||
if not ADestino.DataTable.Active then
|
||||
ADestino.DataTable.Active := True;
|
||||
|
||||
ADetallesController := TDetallesFacturaProveedorController.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
|
||||
dmGenerarFacturasProvPed := TdmGenerarFacturasProvPed.Create(nil);
|
||||
APedidosProveedorController := TPedidosProveedorController.Create;
|
||||
ADetallesPedidosProveedorController := TDetallesPedidoProveedorController.Create;
|
||||
AFacturasProveedorController := TFacturasProveedorController.Create;
|
||||
end;
|
||||
|
||||
procedure Finalizar;
|
||||
begin
|
||||
FreeAndNIL(dmGenerarFacturasProvPed);
|
||||
APedidosProveedorController := nil;
|
||||
ADetallesPedidosProveedorController := nil;
|
||||
AFacturasProveedorController := nil;
|
||||
end;
|
||||
|
||||
|
||||
function GenerarFacturaProvPed(const IDPedido : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
var
|
||||
APedido : IBizPedidoProveedor;
|
||||
begin
|
||||
Result := False;
|
||||
if not Assigned(APedidosProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
APedido := APedidosProveedorController.Buscar(IDPedido);
|
||||
Result := GenerarFacturaProvPed(APedido, CopiarDetalles);
|
||||
|
||||
if Assigned(APedidosProveedorController) then
|
||||
Finalizar;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProvPed(APedidos : IBizPedidoProveedor; const CopiarDetalles: Boolean = True) : Boolean; overload;
|
||||
var
|
||||
ARespuesta : Integer;
|
||||
AFacturasNuevas : IBizFacturaProveedor;
|
||||
i: Integer;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(APedidos) then
|
||||
raise Exception.Create('Pedido de proveedor no asignado (GenerarFacturaProvPed)');
|
||||
|
||||
if not APedidos.DataTable.Active then
|
||||
APedidos.DataTable.Active := True;
|
||||
|
||||
if not Assigned(APedidosProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
try
|
||||
AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
|
||||
if GenerarFacturas(AFacturasNuevas, APedidos, CopiarDetalles) then
|
||||
begin
|
||||
if AFacturasNuevas.DataTable.RecordCount = 1 then
|
||||
begin
|
||||
if AFacturasNuevas.TIPO = CTE_TIPO_FACTURA then
|
||||
ShowInfoMessage('La factura se ha dado de alta con el código ' + AFacturasNuevas.REFERENCIA)
|
||||
else
|
||||
ShowInfoMessage('El abono se ha dado de alta con el código ' + AFacturasNuevas.REFERENCIA);
|
||||
end
|
||||
else begin
|
||||
with dmGenerarFacturasProvPed.JsListaFacturasGeneradas.Content do
|
||||
begin
|
||||
Clear;
|
||||
AFacturasNuevas.DataTable.Last;
|
||||
for i := 0 to AFacturasNuevas.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
if Length(AFacturasNuevas.REFERENCIA) > 0 then
|
||||
Add(AFacturasNuevas.REFERENCIA + ': ' + AFacturasNuevas.NOMBRE);
|
||||
AFacturasNuevas.DataTable.Prior;
|
||||
end;
|
||||
end;
|
||||
dmGenerarFacturasProvPed.JsListaFacturasGeneradas.Execute;
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
finally
|
||||
AFacturasNuevas := NIL;
|
||||
if Assigned(APedidosProveedorController) then
|
||||
Finalizar;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GenerarFacturaProvPed : Boolean; overload;
|
||||
var
|
||||
APedidos : IBizPedidoProveedor;
|
||||
begin
|
||||
Result := False;
|
||||
if not Assigned(APedidosProveedorController) then
|
||||
Inicializar;
|
||||
|
||||
APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarSinFacturar,
|
||||
'Elija el pedido o pedidos de proveedor que desea utilizar para dar de alta la factura.'
|
||||
+ #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
|
||||
|
||||
Result := GenerarFacturaProvPed(APedidos);
|
||||
|
||||
if Assigned(APedidosProveedorController) then
|
||||
Finalizar;
|
||||
end;
|
||||
|
||||
function GenerarFacturas(AFacturas : IBizFacturaProveedor; AListaPedidos : IBizPedidoProveedor; const CopiarDetalles: Boolean = True): Boolean;
|
||||
var
|
||||
AFacturaActual : IBizFacturaProveedor;
|
||||
APedidosController : IPedidosProveedorController;
|
||||
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 asignado (Anadir)');
|
||||
|
||||
if not Assigned(AListaPedidos) then
|
||||
raise Exception.Create ('Pedidos no asignados (Anadir)');
|
||||
|
||||
if not AFacturas.DataTable.Active then
|
||||
AFacturas.DataTable.Active := True;
|
||||
|
||||
if not AListaPedidos.DataTable.Active then
|
||||
AListaPedidos.DataTable.Active := True;
|
||||
|
||||
APedidosController := TPedidosProveedorController.Create;
|
||||
try
|
||||
// Ordenar por fecha de albaran
|
||||
AListaPedidos.DataTable.Sort([fld_PedidosProveedorFECHA_PEDIDO], [uDADataTable.sdAscending]);
|
||||
AListaPedidos.First;
|
||||
for I := 0 to AListaPedidos.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
AListaPedidos._Proveedor := NIL;
|
||||
AFacturaActual := NIL;
|
||||
|
||||
// Busco si hay alguna factura ya hecha de ese Proveedor
|
||||
AFacturas.DataTable.First;
|
||||
if AFacturas.DataTable.Locate(fld_FacturasProveedorID_PROVEEDOR, AListaPedidos.ID_PROVEEDOR, []) then
|
||||
begin
|
||||
AFacturaActual := AFacturas;
|
||||
AFacturasProveedorController.RecuperarProveedor(AFacturaActual);
|
||||
AFacturaActual.Proveedor.DataTable.Active := True;
|
||||
end
|
||||
else begin
|
||||
// No hay factura de ese Proveedor. Creo una nueva
|
||||
AFacturasProveedorController.Anadir(AFacturas);
|
||||
APedidosController.RecuperarProveedor(AListaPedidos);
|
||||
AFacturas.Proveedor := AListaPedidos.Proveedor;
|
||||
AFacturaActual := AFacturas;
|
||||
end;
|
||||
|
||||
// Ya tengo la factura. Le añado los conceptos del pedido
|
||||
AFacturaActual.Detalles.DataTable.Last;
|
||||
|
||||
//Se pone la referencia del pedido y el total y nos olvidamos de los detalles
|
||||
if not CopiarDetalles then
|
||||
begin
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA;
|
||||
CANTIDAD := 1;
|
||||
IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
|
||||
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
|
||||
Post;
|
||||
end;
|
||||
end
|
||||
//Se copian los detalles del pedido a la factura
|
||||
else
|
||||
begin
|
||||
// Añado el título
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA + ' del ' + DateToStr(AListaPedidos.FECHA_PEDIDO);
|
||||
Post;
|
||||
end;
|
||||
// Añado el contenido del presupuesto
|
||||
CopiarArticulosPedido(AListaPedidos.Detalles, AFacturaActual.Detalles);
|
||||
|
||||
//En el caso de tener porte el presupuesto se añade una fila con el importe
|
||||
if (AListaPedidos.IMPORTE_PORTE > 0) then
|
||||
begin
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Porte del pedido';
|
||||
CANTIDAD := 1;
|
||||
IMPORTE_UNIDAD := AListaPedidos.IMPORTE_PORTE;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
//En el caso de tener descuento (bonificación) el presupuesto se añade una fila con el importe
|
||||
{ if (AListaPresupuestos.IMPORTE_DESCUENTO > 0) then
|
||||
begin
|
||||
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Bonificación ' + FloatToStr(AListaPresupuestos.DESCUENTO) + '%';
|
||||
CANTIDAD := -1;
|
||||
IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_DESCUENTO;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
}
|
||||
// Añado el resumen
|
||||
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
|
||||
with AFacturaActual.Detalles do
|
||||
begin
|
||||
Edit;
|
||||
CONCEPTO := 'Total del pedido ' + AListaPedidos.REFERENCIA;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Añado una línea en blanco
|
||||
AFacturasProveedorController.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;
|
||||
AFacturasProveedorController.Guardar(AFacturaActual);
|
||||
// Asocio la factura con el presupuesto
|
||||
AListaPedidos.Edit;
|
||||
AListaPedidos.ID_FACTURA := AFacturaActual.ID;
|
||||
AListaPedidos.Post;
|
||||
APedidosController.Guardar(AListaPedidos);
|
||||
|
||||
AListaPedidos.Next;
|
||||
end;
|
||||
Result := True;
|
||||
finally
|
||||
APedidosController := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
@ -185,7 +185,6 @@ begin
|
||||
APresupuestosClienteController := TPresupuestosClienteController.Create;
|
||||
ADetallesPresupuestosClienteController := TDetallesPresupuestoClienteController.Create;
|
||||
AFacturasClienteController := TFacturasClienteController.Create;
|
||||
// AProveedoresController := TProveedoresController.Create;
|
||||
end;
|
||||
|
||||
procedure Finalizar;
|
||||
@ -194,7 +193,6 @@ begin
|
||||
APresupuestosClienteController := nil;
|
||||
ADetallesPresupuestosClienteController := nil;
|
||||
AFacturasClienteController := nil;
|
||||
// AProveedoresController := nil;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
@ -117,18 +117,18 @@ uses
|
||||
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
|
||||
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
|
||||
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.2.3.0\0"
|
||||
VALUE "ProductVersion", "1.2.3.0\0"
|
||||
VALUE "CompileDate", "miércoles, 20 de agosto de 2008 16:35\0"
|
||||
VALUE "CompileDate", "jueves, 21 de agosto de 2008 13:44\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user