Cambios en pedidos y albaranes de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@60 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
7bb66df4e3
commit
ab2c1977e0
Binary file not shown.
Binary file not shown.
@ -884,6 +884,7 @@ CREATE VIEW V_ALBARANES_CLIENTE(
|
||||
NOMBRE,
|
||||
FECHA_ALBARAN,
|
||||
REFERENCIA,
|
||||
REFERENCIA_CLIENTE,
|
||||
TIPO,
|
||||
SITUACION,
|
||||
ID_ALMACEN,
|
||||
@ -924,6 +925,7 @@ SELECT
|
||||
V_CLIENTES.NOMBRE,
|
||||
ALBARANES_CLIENTE.FECHA_ALBARAN,
|
||||
ALBARANES_CLIENTE.REFERENCIA,
|
||||
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
|
||||
CASE WHEN (ALBARANES_CLIENTE.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO,
|
||||
V_ALB_CLI_SITUACION.SITUACION,
|
||||
ALBARANES_CLIENTE.ID_ALMACEN,
|
||||
@ -1433,6 +1435,7 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
ID_CLIENTE,
|
||||
NOMBRE,
|
||||
REFERENCIA,
|
||||
REFERENCIA_CLIENTE,
|
||||
SITUACION,
|
||||
FECHA_PEDIDO,
|
||||
CALLE,
|
||||
@ -1465,6 +1468,7 @@ SELECT
|
||||
PEDIDOS_CLIENTE.ID_CLIENTE,
|
||||
V_CLIENTES.NOMBRE,
|
||||
PEDIDOS_CLIENTE.REFERENCIA,
|
||||
PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,
|
||||
V_PED_CLI_SITUACION.SITUACION,
|
||||
PEDIDOS_CLIENTE.FECHA_PEDIDO,
|
||||
PEDIDOS_CLIENTE.CALLE,
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39251,7004982176" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := <frxDBCabecera."PERSONA_CONTACTO">; if (<frxDBCabecera."TELEFONO"> <> '') then ACadena := ACadena + ' (tlf: ' + <frxDBCabecera."TELEFONO"> + ' )'; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(ACadena); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); end; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin Memo5.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo5.Lines.Add('Nº orden:') end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin Memo9.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo9.Lines.Add('Fecha orden:') end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39255,58431875" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; if (<frxDBCabecera."TELEFONO"> <> '') then ACadena := ACadena + ' (tlf: ' + <frxDBCabecera."TELEFONO"> + ' )'; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(ACadena); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); end; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE CLIENTE') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo9OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo9.Lines.Clear; Memo9.Lines.Add('Fecha orden:'); end; end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="404,40971" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
||||
@ -7,21 +7,21 @@
|
||||
<TfrxMemoView Name="MemoCampo2" Left="78" Top="1,5" Width="56,03148874" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."CANTIDAD"]"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="72,87953" Left="0" Top="487,55937" Width="718,1107">
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,944650000000024" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="323,14968685" Left="0" Top="18,89765" Width="718,1107">
|
||||
<TfrxShapeView Name="Shape2" Left="0" Top="90,67718" Width="717,73228346" Height="77,7953"/>
|
||||
<TfrxMemoView Name="Memo2" Left="267,65337" Top="37,35436" Width="442,42548" Height="38,89765" OnBeforePrint="Memo2OnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-29" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="NombreEmpresa" Left="0" Top="22,67718" Width="414,07885" Height="26,89765" OnBeforePrint="NombreEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-19" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo7" Left="3,55906" Top="94,48825" Width="68,69295" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo12" Left="83,5906" Top="94,48825" Width="78,26778" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[<Page#>] / [<TotalPages#>]"/>
|
||||
<TfrxMemoView Name="Memo12" Left="113,82684" Top="94,48825" Width="70,70872" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[<Page#>] / [<TotalPages#>]"/>
|
||||
<TfrxShapeView Name="Shape1" Left="0" Top="168,18897638" Width="717,73228346" Height="119,18109016" Color="16250871"/>
|
||||
<TfrxMemoView Name="Memo10" Left="3,68491" Top="174,04731" Width="349,29159" Height="17,60637" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="DIRECCIÓN DESTINO:"/>
|
||||
<TfrxMemoView Name="DatosEmpresa" Left="0" Top="54,67718" Width="414,07885" Height="26,89765" OnBeforePrint="DatosEmpresaOnBeforePrint" Font.Charset="1" Font.Color="8421504" Font.Height="-16" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo5" Left="166,07885" Top="93,35436" Width="72,47248" Height="18,67718" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="68,69295" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Cliente:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="83,5906" Top="119,11812" Width="630,61441" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="242,33086" Top="93,57483" Width="90,14162" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="Memo5" Left="188,75603" Top="93,35436" Width="72,47248" Height="18,67718" OnBeforePrint="Memo5OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nº albarán:"/>
|
||||
<TfrxMemoView Name="Memo4" Left="3,55906" Top="119,11812" Width="106,48825" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nombre de cliente:"/>
|
||||
<TfrxMemoView Name="Memo11" Left="113,82684" Top="119,11812" Width="630,61441" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."NOMBRE"]"/>
|
||||
<TfrxMemoView Name="Memo3" Left="265,00804" Top="93,57483" Width="90,14162" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."REFERENCIA"]"/>
|
||||
<TfrxMemoView Name="DireccionEnvio" Left="87,37013" Top="197,82684" Width="619,37044" Height="80,06624" OnBeforePrint="DireccionEnvioOnBeforePrint" StretchMode="smActualHeight" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text=""/>
|
||||
<TfrxMemoView Name="Memo23" Left="134,72047" Top="297,20872" Width="583,7" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Concepto"/>
|
||||
<TfrxMemoView Name="Memo8" Left="76" Top="297,20872" Width="59,71653543" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Cantidad"/>
|
||||
@ -30,10 +30,10 @@
|
||||
<TfrxMemoView Name="Memo13" Left="0" Top="297,20872" Width="76,2" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Referencia"/>
|
||||
<TfrxLineView Name="Line3" Left="76,2" Top="296,69299638" Width="0" Height="676,53543063" Frame.Typ="1"/>
|
||||
<TfrxLineView Name="Line5" Left="136,44094488" Top="295,93700787" Width="0" Height="680,31495819" Frame.Typ="1"/>
|
||||
<TfrxMemoView Name="Memo1" Left="3,77953" Top="143,1812" Width="72,47248" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Cliente final:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="83,14966" Top="143,1812" Width="630,61441" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."NOMBRE_COMERCIAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="340,1577" Top="93,73228346" Width="83,81107" Height="18,67718" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha albarán:"/>
|
||||
<TfrxMemoView Name="Memo15" Left="431,52783" Top="93,73228346" Width="256,44094" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
<TfrxMemoView Name="Memo1" Left="3,77953" Top="143,1812" Width="110,26778" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Nombre comercial:"/>
|
||||
<TfrxMemoView Name="Memo6" Left="113,3859" Top="143,1812" Width="630,61441" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."NOMBRE_COMERCIAL"]"/>
|
||||
<TfrxMemoView Name="Memo9" Left="351,49629" Top="93,73228346" Width="83,81107" Height="18,67718" OnBeforePrint="Memo9OnBeforePrint" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha albarán:"/>
|
||||
<TfrxMemoView Name="Memo15" Left="442,86642" Top="93,73228346" Width="256,44094" Height="18,67718" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera."FECHA_ALBARAN"]"/>
|
||||
</TfrxPageHeader>
|
||||
</TfrxReportPage>
|
||||
</TfrxReport>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39251,734224537" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := <frxDBCabecera."PERSONA_CONTACTO">; if (<frxDBCabecera."TELEFONO"> <> '') then ACadena := ACadena + ' (tlf: ' + <frxDBCabecera."TELEFONO"> + ' )'; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(ACadena); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); end; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE PROVEEDOR') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin Memo5.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo5.Lines.Add('Nº orden:'); end; procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin Memo1.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo1.Lines.Add('Fecha orden:'); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39255,572024919" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := <frxDBCabecera."PERSONA_CONTACTO">; if (<frxDBCabecera."TELEFONO"> <> '') then ACadena := ACadena + ' (tlf: ' + <frxDBCabecera."TELEFONO"> + ' )'; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(ACadena); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); end; procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Lines.Clear; if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then Memo2.Lines.Add('ORDEN DE DEVOLUCIÓN') else Memo2.Lines.Add('ALBARÁN DE PROVEEDOR') end; procedure Memo5OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo5.Lines.Clear; Memo5.Lines.Add('Nº orden:'); end; end; procedure Memo1OnBeforePrint(Sender: TfrxComponent); begin if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then begin Memo1.Lines.Clear; Memo1.Lines.Add('Fecha orden:'); end; end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="404,40971" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39251,7300417708" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PERSONA_CONTACTO">); DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39255,5902902546" ScriptLanguage="PascalScript" ScriptText.Text=" procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent); var Cadena: String; begin DatosEmpresa.Lines.Clear; if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '') then Cadena := 'TLF: ' + <frxDBCabecera."TELEFONO_1_EMPRESA">; if (<frxDBCabecera."FAX_EMPRESA"> <> '') then Cadena := Cadena + ' FAX: ' + <frxDBCabecera."FAX_EMPRESA">; DatosEmpresa.Lines.Add(Cadena); end; procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent); begin NombreEmpresa.Lines.Clear; NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">); end; procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent); var ACadena : String; begin ACadena := ''; DireccionEnvio.Lines.Clear; if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '') then ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">; if (<frxDBCabecera."PERSONA_CONTACTO"> <> '') then ACadena := ACadena + ' ' + <frxDBCabecera."PERSONA_CONTACTO">; DireccionEnvio.Lines.Add(ACadena); ACadena := ''; DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGO_POSTAL"> <> '') then ACadena := <frxDBCabecera."CODIGO_POSTAL"> + ' '; if (<frxDBCabecera."POBLACION"> <> '') then ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">; if (ACadena <> '') then DireccionEnvio.Lines.Add(ACadena); if (<frxDBCabecera."PROVINCIA"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">); if (<frxDBCabecera."TELEFONO"> <> '') then DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">); end; begin end." ShowProgress="False" StoreInDFM="False" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C650100">
|
||||
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxMasterData Name="MasterData1" Height="24" Left="0" Top="283,46475" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
|
||||
<TfrxMemoView Name="Memo14" Left="1" Top="1,5" Width="75" Height="18" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#0 " DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Style="Concepto normal" Text="[frxDBDetalles."REFERENCIA_PROVEEDOR"] "/>
|
||||
@ -7,7 +7,7 @@
|
||||
<TfrxRichView Name="MemoCampo12" ShiftMode="smWhenOverlapped" Left="137,5" Top="1,5" Width="580,5436" Height="18" StretchMode="smMaxHeight" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" GapX="2" GapY="3" Wysiwyg="False" PropData="0852696368456469740A6C0000007B5C727466315C616E73695C616E7369637067313235325C64656666305C6465666C616E67333038327B5C666F6E7474626C7B5C66305C666E696C205461686F6D613B7D7D0D0A5C766965776B696E64345C7563315C706172645C66305C667331365C7061720D0A7D0D0A00"/>
|
||||
</TfrxMasterData>
|
||||
<TfrxPageFooter Name="PageFooter1" Height="69,1" Left="0" Top="366,61441" Width="718,1107">
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,94465" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
<TfrxLineView Name="Line4" Align="baCenter" Left="-0,944650000000024" Top="0" Width="720" Height="0" Frame.Typ="4"/>
|
||||
</TfrxPageFooter>
|
||||
<TfrxPageHeader Name="PageHeader1" Height="202,20472441" Left="0" Top="18,89765" Width="718,1107">
|
||||
<TfrxShapeView Name="Shape2" Left="357,60637" Top="76" Width="360,69295" Height="96,5"/>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,0,6,0
|
||||
PRODUCTVERSION 2,0,6,0
|
||||
FILEVERSION 2,0,7,0
|
||||
PRODUCTVERSION 2,0,7,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,7 +13,7 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "2.0.6.0\0"
|
||||
VALUE "FileVersion", "2.0.7.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.0.6\0"
|
||||
|
||||
@ -152,6 +152,20 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
|
||||
@ -9,11 +9,11 @@ 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_DarReferencia = '{590A1246-5E78-48C9-B8AD-032D7A61111D}';
|
||||
RID_AlbaranesCliente = '{0EA92BE8-055B-4966-89A1-FCEB192DA37F}';
|
||||
RID_AlbaranesCliente_Detalles = '{5184DDF5-9E5A-4260-9622-2E34053ECF9E}';
|
||||
RID_AlbaranesCliente_Detalles_Refresh = '{34915424-0535-4F25-9E25-99DDB0399852}';
|
||||
RID_AlbaranesCliente_Refresh = '{B5BBE37C-F1CB-46BD-8496-99260FF7EDE3}';
|
||||
RID_DarReferencia = '{8FF21D79-2A38-49A1-9920-59BF9D1A3761}';
|
||||
RID_AlbaranesCliente = '{286BA8B4-1D1A-4A28-92AD-EE389E49F82F}';
|
||||
RID_AlbaranesCliente_Detalles = '{204AB55B-DFB6-4C06-97FE-ACE0073003D9}';
|
||||
RID_AlbaranesCliente_Detalles_Refresh = '{DD2DF7C8-E7A8-4460-8124-A68A24FA8708}';
|
||||
RID_AlbaranesCliente_Refresh = '{613B4A25-BE5C-4641-920A-A2928969F49C}';
|
||||
|
||||
{ Data table names }
|
||||
nme_DarReferencia = 'DarReferencia';
|
||||
@ -35,6 +35,7 @@ const
|
||||
fld_AlbaranesClienteREFERENCIA = 'REFERENCIA';
|
||||
fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN';
|
||||
fld_AlbaranesClienteID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_AlbaranesClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_AlbaranesClienteTIPO = 'TIPO';
|
||||
fld_AlbaranesClienteSITUACION = 'SITUACION';
|
||||
fld_AlbaranesClienteID_ALMACEN = 'ID_ALMACEN';
|
||||
@ -75,38 +76,39 @@ const
|
||||
idx_AlbaranesClienteREFERENCIA = 3;
|
||||
idx_AlbaranesClienteFECHA_ALBARAN = 4;
|
||||
idx_AlbaranesClienteID_PEDIDO = 5;
|
||||
idx_AlbaranesClienteTIPO = 6;
|
||||
idx_AlbaranesClienteSITUACION = 7;
|
||||
idx_AlbaranesClienteID_ALMACEN = 8;
|
||||
idx_AlbaranesClienteNOMBRE_ALMACEN = 9;
|
||||
idx_AlbaranesClienteID_FACTURA = 10;
|
||||
idx_AlbaranesClienteREF_PEDIDO = 11;
|
||||
idx_AlbaranesClienteCALLE = 12;
|
||||
idx_AlbaranesClienteREF_FACTURA = 13;
|
||||
idx_AlbaranesClienteCODIGO_POSTAL = 14;
|
||||
idx_AlbaranesClientePOBLACION = 15;
|
||||
idx_AlbaranesClientePROVINCIA = 16;
|
||||
idx_AlbaranesClientePERSONA_CONTACTO = 17;
|
||||
idx_AlbaranesClienteTELEFONO = 18;
|
||||
idx_AlbaranesClienteBASE_IMPONIBLE = 19;
|
||||
idx_AlbaranesClienteIMPORTE_NETO = 20;
|
||||
idx_AlbaranesClienteIMPORTE_PORTE = 21;
|
||||
idx_AlbaranesClienteDESCUENTO = 22;
|
||||
idx_AlbaranesClienteIMPORTE_DESCUENTO = 23;
|
||||
idx_AlbaranesClienteIVA = 24;
|
||||
idx_AlbaranesClienteIMPORTE_IVA = 25;
|
||||
idx_AlbaranesClienteIMPORTE_TOTAL = 26;
|
||||
idx_AlbaranesClienteOBSERVACIONES = 27;
|
||||
idx_AlbaranesClienteINCIDENCIAS = 28;
|
||||
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 29;
|
||||
idx_AlbaranesClienteFECHA_ALTA = 30;
|
||||
idx_AlbaranesClienteFECHA_MODIFICACION = 31;
|
||||
idx_AlbaranesClienteUSUARIO = 32;
|
||||
idx_AlbaranesClienteNOMBRE = 33;
|
||||
idx_AlbaranesClienteID_FORMA_PAGO = 34;
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 35;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 36;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 37;
|
||||
idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
|
||||
idx_AlbaranesClienteTIPO = 7;
|
||||
idx_AlbaranesClienteSITUACION = 8;
|
||||
idx_AlbaranesClienteID_ALMACEN = 9;
|
||||
idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
|
||||
idx_AlbaranesClienteID_FACTURA = 11;
|
||||
idx_AlbaranesClienteREF_PEDIDO = 12;
|
||||
idx_AlbaranesClienteCALLE = 13;
|
||||
idx_AlbaranesClienteREF_FACTURA = 14;
|
||||
idx_AlbaranesClienteCODIGO_POSTAL = 15;
|
||||
idx_AlbaranesClientePOBLACION = 16;
|
||||
idx_AlbaranesClientePROVINCIA = 17;
|
||||
idx_AlbaranesClientePERSONA_CONTACTO = 18;
|
||||
idx_AlbaranesClienteTELEFONO = 19;
|
||||
idx_AlbaranesClienteBASE_IMPONIBLE = 20;
|
||||
idx_AlbaranesClienteIMPORTE_NETO = 21;
|
||||
idx_AlbaranesClienteIMPORTE_PORTE = 22;
|
||||
idx_AlbaranesClienteDESCUENTO = 23;
|
||||
idx_AlbaranesClienteIMPORTE_DESCUENTO = 24;
|
||||
idx_AlbaranesClienteIVA = 25;
|
||||
idx_AlbaranesClienteIMPORTE_IVA = 26;
|
||||
idx_AlbaranesClienteIMPORTE_TOTAL = 27;
|
||||
idx_AlbaranesClienteOBSERVACIONES = 28;
|
||||
idx_AlbaranesClienteINCIDENCIAS = 29;
|
||||
idx_AlbaranesClienteINCIDENCIAS_ACTIVAS = 30;
|
||||
idx_AlbaranesClienteFECHA_ALTA = 31;
|
||||
idx_AlbaranesClienteFECHA_MODIFICACION = 32;
|
||||
idx_AlbaranesClienteUSUARIO = 33;
|
||||
idx_AlbaranesClienteNOMBRE = 34;
|
||||
idx_AlbaranesClienteID_FORMA_PAGO = 35;
|
||||
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 36;
|
||||
idx_AlbaranesClienteFECHA_ENVIO = 37;
|
||||
idx_AlbaranesClienteFECHA_RECEPCION = 38;
|
||||
|
||||
{ AlbaranesCliente_Detalles fields }
|
||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||
@ -179,6 +181,7 @@ const
|
||||
fld_AlbaranesCliente_RefreshREFERENCIA = 'REFERENCIA';
|
||||
fld_AlbaranesCliente_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN';
|
||||
fld_AlbaranesCliente_RefreshID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_AlbaranesCliente_RefreshTIPO = 'TIPO';
|
||||
fld_AlbaranesCliente_RefreshSITUACION = 'SITUACION';
|
||||
fld_AlbaranesCliente_RefreshID_ALMACEN = 'ID_ALMACEN';
|
||||
@ -219,43 +222,44 @@ const
|
||||
idx_AlbaranesCliente_RefreshREFERENCIA = 3;
|
||||
idx_AlbaranesCliente_RefreshFECHA_ALBARAN = 4;
|
||||
idx_AlbaranesCliente_RefreshID_PEDIDO = 5;
|
||||
idx_AlbaranesCliente_RefreshTIPO = 6;
|
||||
idx_AlbaranesCliente_RefreshSITUACION = 7;
|
||||
idx_AlbaranesCliente_RefreshID_ALMACEN = 8;
|
||||
idx_AlbaranesCliente_RefreshNOMBRE_ALMACEN = 9;
|
||||
idx_AlbaranesCliente_RefreshID_FACTURA = 10;
|
||||
idx_AlbaranesCliente_RefreshREF_PEDIDO = 11;
|
||||
idx_AlbaranesCliente_RefreshCALLE = 12;
|
||||
idx_AlbaranesCliente_RefreshREF_FACTURA = 13;
|
||||
idx_AlbaranesCliente_RefreshCODIGO_POSTAL = 14;
|
||||
idx_AlbaranesCliente_RefreshPOBLACION = 15;
|
||||
idx_AlbaranesCliente_RefreshPROVINCIA = 16;
|
||||
idx_AlbaranesCliente_RefreshPERSONA_CONTACTO = 17;
|
||||
idx_AlbaranesCliente_RefreshTELEFONO = 18;
|
||||
idx_AlbaranesCliente_RefreshBASE_IMPONIBLE = 19;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_NETO = 20;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_PORTE = 21;
|
||||
idx_AlbaranesCliente_RefreshDESCUENTO = 22;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_DESCUENTO = 23;
|
||||
idx_AlbaranesCliente_RefreshIVA = 24;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_IVA = 25;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_TOTAL = 26;
|
||||
idx_AlbaranesCliente_RefreshOBSERVACIONES = 27;
|
||||
idx_AlbaranesCliente_RefreshINCIDENCIAS = 28;
|
||||
idx_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS = 29;
|
||||
idx_AlbaranesCliente_RefreshFECHA_ALTA = 30;
|
||||
idx_AlbaranesCliente_RefreshFECHA_MODIFICACION = 31;
|
||||
idx_AlbaranesCliente_RefreshUSUARIO = 32;
|
||||
idx_AlbaranesCliente_RefreshNOMBRE = 33;
|
||||
idx_AlbaranesCliente_RefreshID_FORMA_PAGO = 34;
|
||||
idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 35;
|
||||
idx_AlbaranesCliente_RefreshFECHA_ENVIO = 36;
|
||||
idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 37;
|
||||
idx_AlbaranesCliente_RefreshREFERENCIA_CLIENTE = 6;
|
||||
idx_AlbaranesCliente_RefreshTIPO = 7;
|
||||
idx_AlbaranesCliente_RefreshSITUACION = 8;
|
||||
idx_AlbaranesCliente_RefreshID_ALMACEN = 9;
|
||||
idx_AlbaranesCliente_RefreshNOMBRE_ALMACEN = 10;
|
||||
idx_AlbaranesCliente_RefreshID_FACTURA = 11;
|
||||
idx_AlbaranesCliente_RefreshREF_PEDIDO = 12;
|
||||
idx_AlbaranesCliente_RefreshCALLE = 13;
|
||||
idx_AlbaranesCliente_RefreshREF_FACTURA = 14;
|
||||
idx_AlbaranesCliente_RefreshCODIGO_POSTAL = 15;
|
||||
idx_AlbaranesCliente_RefreshPOBLACION = 16;
|
||||
idx_AlbaranesCliente_RefreshPROVINCIA = 17;
|
||||
idx_AlbaranesCliente_RefreshPERSONA_CONTACTO = 18;
|
||||
idx_AlbaranesCliente_RefreshTELEFONO = 19;
|
||||
idx_AlbaranesCliente_RefreshBASE_IMPONIBLE = 20;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_NETO = 21;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_PORTE = 22;
|
||||
idx_AlbaranesCliente_RefreshDESCUENTO = 23;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_DESCUENTO = 24;
|
||||
idx_AlbaranesCliente_RefreshIVA = 25;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_IVA = 26;
|
||||
idx_AlbaranesCliente_RefreshIMPORTE_TOTAL = 27;
|
||||
idx_AlbaranesCliente_RefreshOBSERVACIONES = 28;
|
||||
idx_AlbaranesCliente_RefreshINCIDENCIAS = 29;
|
||||
idx_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS = 30;
|
||||
idx_AlbaranesCliente_RefreshFECHA_ALTA = 31;
|
||||
idx_AlbaranesCliente_RefreshFECHA_MODIFICACION = 32;
|
||||
idx_AlbaranesCliente_RefreshUSUARIO = 33;
|
||||
idx_AlbaranesCliente_RefreshNOMBRE = 34;
|
||||
idx_AlbaranesCliente_RefreshID_FORMA_PAGO = 35;
|
||||
idx_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO = 36;
|
||||
idx_AlbaranesCliente_RefreshFECHA_ENVIO = 37;
|
||||
idx_AlbaranesCliente_RefreshFECHA_RECEPCION = 38;
|
||||
|
||||
type
|
||||
{ IDarReferencia }
|
||||
IDarReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{D4EFE1A1-72D1-4902-A125-742D749115A9}']
|
||||
['{C690B03E-DC7C-40EA-AD23-A11C074ED29D}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -284,7 +288,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente }
|
||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{C88E52AA-F397-4FE2-A28C-6DAA7A6DE98B}']
|
||||
['{FE25F44D-23C6-4BBB-8352-80D4C8666E2B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -298,6 +302,8 @@ type
|
||||
procedure SetFECHA_ALBARANValue(const aValue: DateTime);
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
function GetREFERENCIA_CLIENTEValue: String;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetSITUACIONValue: String;
|
||||
@ -371,6 +377,7 @@ type
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
|
||||
@ -422,6 +429,8 @@ type
|
||||
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
|
||||
function GetID_PEDIDOValue: Integer; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetSITUACIONValue: String; virtual;
|
||||
@ -494,6 +503,7 @@ type
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
|
||||
@ -535,7 +545,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles }
|
||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{DC0799E6-7893-45C8-8554-55D2B78A451A}']
|
||||
['{E58F6EA5-0A62-40F4-9E09-6F6D91F8A46D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -642,7 +652,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles_Refresh }
|
||||
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{AA29A021-C937-4FE8-B6C1-3A4CACD4A7E8}']
|
||||
['{A088060C-CE4F-486A-9311-0DCDCE6216CE}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -749,7 +759,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Refresh }
|
||||
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{1D148A3E-FF60-47FB-9781-8E5D0A365697}']
|
||||
['{BF8BA7D7-C0A1-47D8-9D69-65EC70584C39}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -763,6 +773,8 @@ type
|
||||
procedure SetFECHA_ALBARANValue(const aValue: DateTime);
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
function GetREFERENCIA_CLIENTEValue: String;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetSITUACIONValue: String;
|
||||
@ -836,6 +848,7 @@ type
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
|
||||
@ -887,6 +900,8 @@ type
|
||||
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
|
||||
function GetID_PEDIDOValue: Integer; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetSITUACIONValue: String; virtual;
|
||||
@ -959,6 +974,7 @@ type
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
|
||||
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
|
||||
@ -1095,6 +1111,16 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesClienteID_PEDIDO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteREFERENCIA_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesClienteREFERENCIA_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesClienteTIPO].AsString;
|
||||
@ -1793,6 +1819,16 @@ begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshID_PEDIDO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AlbaranesCliente_RefreshTIPO].AsString;
|
||||
|
||||
@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{9B703BFE-242D-4740-9A37-03C081F04EFD}';
|
||||
RID_AlbaranesClienteDelta = '{32F0DEA0-BCFD-411D-BDEF-A299146842C0}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{3671C82E-7B99-4933-A18A-D11907979114}';
|
||||
RID_AlbaranesCliente_Detalles_RefreshDelta = '{514E893B-716C-45E1-8064-49DA981DC228}';
|
||||
RID_AlbaranesCliente_RefreshDelta = '{41EE8ACF-4199-47CA-A562-705466E472D6}';
|
||||
RID_DarReferenciaDelta = '{D519E3C7-849C-4730-A2B7-6319C0AD5448}';
|
||||
RID_AlbaranesClienteDelta = '{303FA8ED-65F6-4DCB-8037-55544878855F}';
|
||||
RID_AlbaranesCliente_DetallesDelta = '{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}';
|
||||
RID_AlbaranesCliente_Detalles_RefreshDelta = '{2CFAF206-0220-4452-A453-B1B90592A487}';
|
||||
RID_AlbaranesCliente_RefreshDelta = '{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}';
|
||||
|
||||
type
|
||||
{ IDarReferenciaDelta }
|
||||
IDarReferenciaDelta = interface(IDarReferencia)
|
||||
['{9B703BFE-242D-4740-9A37-03C081F04EFD}']
|
||||
['{D519E3C7-849C-4730-A2B7-6319C0AD5448}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -47,7 +47,7 @@ type
|
||||
|
||||
{ IAlbaranesClienteDelta }
|
||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||
['{32F0DEA0-BCFD-411D-BDEF-A299146842C0}']
|
||||
['{303FA8ED-65F6-4DCB-8037-55544878855F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -55,6 +55,7 @@ type
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldFECHA_ALBARANValue : DateTime;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldSITUACIONValue : String;
|
||||
function GetOldID_ALMACENValue : Integer;
|
||||
@ -95,6 +96,7 @@ type
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
|
||||
@ -152,6 +154,9 @@ type
|
||||
function GetID_PEDIDOValue: Integer; virtual;
|
||||
function GetOldID_PEDIDOValue: Integer; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
@ -262,6 +267,8 @@ type
|
||||
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
|
||||
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
@ -335,7 +342,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_DetallesDelta }
|
||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||
['{3671C82E-7B99-4933-A18A-D11907979114}']
|
||||
['{DE5A91E2-3F7F-4EED-88C0-5E42F395A6EC}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -455,7 +462,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_Detalles_RefreshDelta }
|
||||
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
|
||||
['{514E893B-716C-45E1-8064-49DA981DC228}']
|
||||
['{2CFAF206-0220-4452-A453-B1B90592A487}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_ALBARANValue : Integer;
|
||||
@ -575,7 +582,7 @@ type
|
||||
|
||||
{ IAlbaranesCliente_RefreshDelta }
|
||||
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
|
||||
['{41EE8ACF-4199-47CA-A562-705466E472D6}']
|
||||
['{BCDCFE41-5279-4F6C-9BD5-B5D8915184D5}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -583,6 +590,7 @@ type
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldFECHA_ALBARANValue : DateTime;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldSITUACIONValue : String;
|
||||
function GetOldID_ALMACENValue : Integer;
|
||||
@ -623,6 +631,7 @@ type
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
|
||||
@ -680,6 +689,9 @@ type
|
||||
function GetID_PEDIDOValue: Integer; virtual;
|
||||
function GetOldID_PEDIDOValue: Integer; virtual;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
@ -790,6 +802,8 @@ type
|
||||
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
|
||||
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
@ -994,6 +1008,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_PEDIDO] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesClienteBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIPO];
|
||||
@ -2024,6 +2053,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_PEDIDO] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshTIPO];
|
||||
|
||||
@ -104,21 +104,22 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
'SELECT'#10' V_ALBARANES_CLIENTE.ID,'#10' V_ALBARANES_CLIENTE.ID_EMPRES' +
|
||||
'A,'#10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.NOMBR' +
|
||||
'E,'#10' V_CLIENTES.NOMBRE_COMERCIAL,'#10' V_ALBARANES_CLIENTE.FECHA_AL' +
|
||||
'BARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.I' +
|
||||
'D_PEDIDO,'#10' V_ALBARANES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENT' +
|
||||
'E.CODIGO_POSTAL,'#10' V_ALBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_' +
|
||||
'CLIENTE.PROVINCIA,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_A' +
|
||||
'LBARANES_CLIENTE.TELEFONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBA' +
|
||||
'RANES_CLIENTE.OBSERVACIONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL' +
|
||||
','#10' EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NO' +
|
||||
'MBRE_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' ' +
|
||||
' EMPRESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FA' +
|
||||
'X_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMA' +
|
||||
'IL_1 AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMP' +
|
||||
'RESA'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES O' +
|
||||
'N (V_CLIENTES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER ' +
|
||||
'JOIN EMPRESAS ON (EMPRESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10 +
|
||||
'WHERE V_ALBARANES_CLIENTE.ID = :ID'
|
||||
'BARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.R' +
|
||||
'EFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARANE' +
|
||||
'S_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.CODIGO_POSTAL,'#10' V_A' +
|
||||
'LBARANES_CLIENTE.POBLACION,'#10' V_ALBARANES_CLIENTE.PROVINCIA,'#10' V' +
|
||||
'_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' V_ALBARANES_CLIENTE.TELEF' +
|
||||
'ONO,'#10' V_ALBARANES_CLIENTE.CALLE,'#10' V_ALBARANES_CLIENTE.OBSERVAC' +
|
||||
'IONES,'#10' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' EMPRESAS.NIF_CIF A' +
|
||||
'S NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRES' +
|
||||
'AS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 A' +
|
||||
'S TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.' +
|
||||
'MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRES' +
|
||||
'A,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_ALBARA' +
|
||||
'NES_CLIENTE'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_A' +
|
||||
'LBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPR' +
|
||||
'ESAS.ID = V_ALBARANES_CLIENTE.ID_EMPRESA)'#10'WHERE V_ALBARANES_CLIE' +
|
||||
'NTE.ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -220,6 +221,10 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_CLIENTE'
|
||||
TableField = 'REFERENCIA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -303,6 +308,18 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
@ -1024,136 +1041,93 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
EngineOptions.DoublePass = True
|
||||
IniFile = '\Software\Fast Reports'
|
||||
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
|
||||
PreviewOptions.OutlineWidth = 180
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Default'
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.LastChange = 39251.761203159720000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
ReportOptions.VersionRelease = '1'
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39255.584318750000000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' DatosCliente.Lines.Clear;'
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
''
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
|
||||
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||
|
||||
' DatosCliente.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + '#39' ' +
|
||||
#39' + <frxDBCabecera."POBLACION">);'
|
||||
'end;'
|
||||
''
|
||||
'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' BandaDetalles.StartNewPage := False;'
|
||||
' BandaDetalles.Visible := True;'
|
||||
' MemPrecio.Style := '#39'Concepto normal'#39';'
|
||||
' MemCantidad.Style := '#39'Concepto normal'#39';'
|
||||
' MemImpTotal.Style := '#39'Concepto normal'#39';'
|
||||
' RichConcepto.Visible := True;'
|
||||
''
|
||||
' case <frxDBDetalles."TIPO_DETALLE"> of'
|
||||
' '#39'Salto'#39': begin'
|
||||
' BandaDetalles.StartNewPage := True;'
|
||||
' RichConcepto.Visible := False;'
|
||||
' end;'
|
||||
' '#39'Titulo'#39': begin'
|
||||
' MemPrecio.Style := '#39'Concepto titulo'#39';'
|
||||
' MemCantidad.Style := '#39'Concepto titulo'#39';'
|
||||
' MemImpTotal.Style := '#39'Concepto titulo'#39';'
|
||||
' end;'
|
||||
' '#39'Concepto'#39': begin'
|
||||
' MemPrecio.Style := '#39'Concepto normal'#39';'
|
||||
' MemCantidad.Style := '#39'Concepto normal'#39';'
|
||||
' MemImpTotal.Style := '#39'Concepto normal'#39';'
|
||||
' end;'
|
||||
' '#39'Subtotal'#39': begin'
|
||||
' MemPrecio.Style := '#39'Concepto subtotal'#39';'
|
||||
' MemCantidad.Style := '#39'Concepto subtotal'#39';'
|
||||
' MemImpTotal.Style := '#39'Concepto subtotal'#39';'
|
||||
' end;'
|
||||
' '#39'Descuento'#39': begin'
|
||||
' BandaDetalles.Visible := False;'
|
||||
' RichConcepto.Color := clNone;'
|
||||
' end;'
|
||||
' end;'
|
||||
''
|
||||
' RichConcepto.Color := MemImpTotal.Color;'
|
||||
' RichConcepto.Frame := MemImpTotal.Frame;'
|
||||
'end;'
|
||||
''
|
||||
'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
|
||||
' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' +
|
||||
'.Height - 1;'
|
||||
'end;'
|
||||
''
|
||||
'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena: String;'
|
||||
'begin'
|
||||
' DatosEmpresa.Lines.Clear;'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."RAZON_SOCIAL">);'
|
||||
' DatosEmpresa.Lines.Add(<frxDBCabecera."CALLE_EMPRESA">);'
|
||||
''
|
||||
' Cadena := '#39#39';'
|
||||
' if (<frxDBCabecera."TELEFONO_1"> <> '#39#39') then'
|
||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1">;'
|
||||
' if (<frxDBCabecera."FAX"> <> '#39#39') then'
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
''
|
||||
' Cadena := '#39#39';'
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL_EMPRESA"> <> '#39#39') then'
|
||||
' Cadena := <frxDBCabecera."CODIGO_POSTAL_EMPRESA">;'
|
||||
' if (<frxDBCabecera."POBLACION_EMPRESA"> <> '#39#39') then'
|
||||
' if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
|
||||
' Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
|
||||
' if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
|
||||
|
||||
' Cadena := Cadena + '#39' '#39' + <frxDBCabecera."POBLACION_EMPRES' +
|
||||
'A">;'
|
||||
' if (<frxDBCabecera."PROVINCIA_EMPRESA"> <> '#39#39') then'
|
||||
|
||||
' Cadena := Cadena + '#39' - '#39' + <frxDBCabecera."PROVINCIA_EMPR' +
|
||||
'ESA">;'
|
||||
' Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
|
||||
'">;'
|
||||
' DatosEmpresa.Lines.Add(Cadena);'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo15OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' Memo15.Lines.Clear;'
|
||||
' if (StrToFloat(<frxDBCabecera."BASE_IMPONIBLE">) < 0) then'
|
||||
' Memo15.Lines.Add('#39'ABONO'#39')'
|
||||
' else'
|
||||
' Memo15.Lines.Add('#39'FACTURA'#39')'
|
||||
' NombreEmpresa.Lines.Clear;'
|
||||
' NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
|
||||
' begin'
|
||||
' Memo20.Lines.Clear;'
|
||||
' Memo28.Lines.Clear;'
|
||||
' Memo21.Lines.Clear;'
|
||||
' Memo29.Lines.Clear;'
|
||||
' end;'
|
||||
''
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
|
||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' Cadena : String;'
|
||||
' ACadena : String;'
|
||||
'begin'
|
||||
' if (<frxDBCabecera."TITULAR"> <> '#39#39') then'
|
||||
' ACadena := '#39#39';'
|
||||
' DireccionEnvio.Lines.Clear;'
|
||||
''
|
||||
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
|
||||
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
|
||||
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
|
||||
|
||||
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
|
||||
'O">;'
|
||||
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
|
||||
|
||||
' ACadena := ACadena + '#39' (tlf: '#39' + <frxDBCabecera."TELEFONO">' +
|
||||
' + '#39' )'#39';'
|
||||
''
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
' ACadena := '#39#39';'
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
''
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
|
||||
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
|
||||
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
|
||||
''
|
||||
' if (ACadena <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
''
|
||||
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo2OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' Memo2.Lines.Clear;'
|
||||
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
|
||||
' Memo2.Lines.Add('#39'ORDEN DE DEVOLUCI'#211'N'#39')'
|
||||
' else'
|
||||
' Memo2.Lines.Add('#39'ALBAR'#193'N DE CLIENTE'#39')'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo5OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
|
||||
' begin'
|
||||
' Cadena := Memo11.Lines.Text;'
|
||||
' Memo11.Lines.Clear;'
|
||||
' Memo11.Lines.Add(<frxDBCabecera."TITULAR">);'
|
||||
' Memo11.Lines.Add(Cadena);'
|
||||
' end'
|
||||
' Memo5.Lines.Clear;'
|
||||
' Memo5.Lines.Add('#39'N'#186' orden:'#39');'
|
||||
' end;'
|
||||
'end;'
|
||||
''
|
||||
'procedure Memo9OnBeforePrint(Sender: TfrxComponent);'
|
||||
'begin'
|
||||
' if (StrToFloat(<frxDBCabecera."IMPORTE_TOTAL">) < 0) then'
|
||||
' begin'
|
||||
' Memo9.Lines.Clear;'
|
||||
' Memo9.Lines.Add('#39'Fecha orden:'#39');'
|
||||
' end;'
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
@ -1171,49 +1145,9 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
|
||||
item
|
||||
DataSet = frxDBDetalles
|
||||
DataSetName = 'frxDBDetalles'
|
||||
end
|
||||
item
|
||||
DataSetName = 'frxDBVencimientos'
|
||||
end>
|
||||
Variables = <>
|
||||
Style = <
|
||||
item
|
||||
Name = 'Concepto normal'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
end
|
||||
item
|
||||
Name = 'Concepto subtotal'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end
|
||||
item
|
||||
Name = 'Cabecera de columna'
|
||||
Color = 15790320
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
|
||||
end
|
||||
item
|
||||
Name = 'Concepto titulo'
|
||||
Color = clNone
|
||||
Font.Charset = ANSI_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
end>
|
||||
Style = <>
|
||||
end
|
||||
object frxDBCabecera: TfrxDBDataset
|
||||
UserName = 'frxDBCabecera'
|
||||
|
||||
@ -25,9 +25,9 @@ type
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
frxReport: TfrxReport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxReport: TfrxReport;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
|
||||
@ -71,14 +71,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
TargetTable = 'ALBARANES_CLIENTE'
|
||||
SQL =
|
||||
'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 +
|
||||
' REFERENCIA, TIPO, SITUACION, ID_ALMACEN, NOMBRE_ALMACEN,'#10' ' +
|
||||
' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACTURA,'#10' CALLE, CODI' +
|
||||
'GO_POSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO' +
|
||||
', IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' ' +
|
||||
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES' +
|
||||
', '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' FECHA_M' +
|
||||
'ODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
|
||||
'_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALBARANES_CLIENTE'
|
||||
' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' +
|
||||
' NOMBRE_ALMACEN,'#10' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACT' +
|
||||
'URA,'#10' CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA, PERSONA_CON' +
|
||||
'TACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IM' +
|
||||
'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' +
|
||||
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
|
||||
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
|
||||
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' +
|
||||
'ARANES_CLIENTE'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -232,6 +233,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_CLIENTE'
|
||||
TableField = 'REFERENCIA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente'
|
||||
@ -297,6 +302,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
@ -1124,15 +1140,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
TargetTable = 'ALBARANES_CLIENTE'
|
||||
SQL =
|
||||
'SELECT '#10' ID, ID_EMPRESA, ID_CLIENTE, NOMBRE, FECHA_ALBARAN, '#10 +
|
||||
' REFERENCIA, TIPO, SITUACION, ID_ALMACEN, NOMBRE_ALMACEN,'#10' ' +
|
||||
' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACTURA,'#10' CALLE, CODI' +
|
||||
'GO_POSTAL, POBLACION, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO' +
|
||||
', IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' ' +
|
||||
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES' +
|
||||
', '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA,'#10' FECHA_M' +
|
||||
'ODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
|
||||
'_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHE' +
|
||||
'RE V_ALBARANES_CLIENTE.ID = :ID'
|
||||
' REFERENCIA, REFERENCIA_CLIENTE, TIPO, SITUACION, ID_ALMACEN,' +
|
||||
' NOMBRE_ALMACEN,'#10' ID_PEDIDO, REF_PEDIDO, ID_FACTURA, REF_FACT' +
|
||||
'URA,'#10' CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA, PERSONA_CON' +
|
||||
'TACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO, IM' +
|
||||
'PORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_' +
|
||||
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
|
||||
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
|
||||
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION'#10' FROM'#10' V_ALB' +
|
||||
'ARANES_CLIENTE'#10' WHERE V_ALBARANES_CLIENTE.ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -1286,6 +1302,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_CLIENTE'
|
||||
TableField = 'REFERENCIA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'AlbaranesCliente_Refresh'
|
||||
@ -1353,6 +1373,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
@ -2031,6 +2063,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
@ -2240,21 +2280,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
TargetTable = 'ALBARANES_CLIENTE'
|
||||
SQL =
|
||||
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
|
||||
' REFERENCIA, FECHA_ALBARAN,'#10' ID_PEDIDO, ID_ALMACEN, ID_FACTU' +
|
||||
'RA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PROVINCIA, PERSONA_CON' +
|
||||
'TACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPORTE_NETO, IMPORTE_POR' +
|
||||
'TE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA, IMPORTE_IVA, IMPORT' +
|
||||
'E_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, ' +
|
||||
'FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO,'#10' ' +
|
||||
' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_RECEPCION)'#10' VALUES'#10 +
|
||||
' (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFERENCIA, :FECHA_ALBARAN,' +
|
||||
#10' :ID_PEDIDO, :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO' +
|
||||
'_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEF' +
|
||||
'ONO, :BASE_IMPONIBLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESC' +
|
||||
'UENTO, :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TO' +
|
||||
'TAL, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :' +
|
||||
'FECHA_ALTA, :FECHA_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, ' +
|
||||
':FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)'
|
||||
' REFERENCIA, REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN, ID_PEDIDO, ' +
|
||||
'ID_ALMACEN, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' +
|
||||
'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, BASE_IMPONIBLE, IMPOR' +
|
||||
'TE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, IVA,' +
|
||||
' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' +
|
||||
'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' +
|
||||
'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' +
|
||||
'RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :REFEREN' +
|
||||
'CIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO, :ID_A' +
|
||||
'LMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :P' +
|
||||
'ROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONIBLE, :' +
|
||||
'IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_DESCUEN' +
|
||||
'TO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :I' +
|
||||
'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECHA_MODI' +
|
||||
'FICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, ' +
|
||||
':FECHA_ENVIO, :FECHA_RECEPCION)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2284,6 +2325,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALBARAN'
|
||||
DataType = datDateTime
|
||||
@ -2501,22 +2550,23 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
SQL =
|
||||
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ' +
|
||||
' ID_CLIENTE = :ID_CLIENTE, '#10' REFERENCIA = :REFERENCIA, '#10' ' +
|
||||
' FECHA_ALBARAN = :FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ' +
|
||||
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
|
||||
'CALLE = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLAC' +
|
||||
'ION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONT' +
|
||||
'ACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_I' +
|
||||
'MPONIBLE = :BASE_IMPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 +
|
||||
' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' +
|
||||
' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10 +
|
||||
' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TO' +
|
||||
'TAL, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :IN' +
|
||||
'CIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ' +
|
||||
' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODI' +
|
||||
'FICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORM' +
|
||||
'A_PAGO,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FE' +
|
||||
'CHA_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCIO' +
|
||||
'N'#10' WHERE'#10' (ID = :OLD_ID)'
|
||||
' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_ALBARAN = :' +
|
||||
'FECHA_ALBARAN, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ALMACEN = :I' +
|
||||
'D_ALMACEN,'#10' ID_FACTURA = :ID_FACTURA, '#10' CALLE = :CALLE, '#10' ' +
|
||||
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :POBLACION, ' +
|
||||
#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CO' +
|
||||
'NTACTO, '#10' TELEFONO = :TELEFONO, '#10' BASE_IMPONIBLE = :BASE_I' +
|
||||
'MPONIBLE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' +
|
||||
'= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' +
|
||||
'UENTO = :IMPORTE_DESCUENTO, '#10' IVA = :IVA, '#10' IMPORTE_IVA = ' +
|
||||
':IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' OBSERVAC' +
|
||||
'IONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IN' +
|
||||
'CIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_ALTA = :FEC' +
|
||||
'HA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USU' +
|
||||
'ARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' FECHA_' +
|
||||
'PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_ENVIO = :FECHA' +
|
||||
'_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' WHERE'#10' (ID ' +
|
||||
'= :OLD_ID)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3083,6 +3133,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Tipo'
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
end>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -19,7 +19,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
486)
|
||||
object Label1: TLabel
|
||||
Left = 22
|
||||
Top = 423
|
||||
Top = 450
|
||||
Width = 299
|
||||
Height = 26
|
||||
Caption =
|
||||
@ -29,7 +29,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object edtFechaAlbaran: TcxDBDateEdit
|
||||
Left = 116
|
||||
Top = 55
|
||||
Top = 82
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ALBARAN'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -50,11 +50,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
TabOrder = 2
|
||||
Width = 119
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 430
|
||||
Left = 432
|
||||
Top = 414
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
@ -67,7 +67,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 21
|
||||
TabOrder = 22
|
||||
Height = 253
|
||||
Width = 186
|
||||
end
|
||||
@ -98,7 +98,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 143
|
||||
end
|
||||
inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
|
||||
Left = 430
|
||||
Left = 432
|
||||
Top = 28
|
||||
Width = 350
|
||||
Height = 212
|
||||
@ -110,9 +110,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 16
|
||||
TabOrder = 17
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 430
|
||||
ExplicitLeft = 432
|
||||
ExplicitTop = 28
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Align = alTop
|
||||
@ -137,12 +137,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 278
|
||||
ExplicitLeft = 278
|
||||
Left = 259
|
||||
ExplicitLeft = 259
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 168
|
||||
ExplicitLeft = 168
|
||||
Left = 149
|
||||
ExplicitLeft = 149
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
@ -164,7 +164,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 197
|
||||
Top = 224
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -178,12 +178,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 263
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 224
|
||||
Top = 251
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -197,12 +197,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Width = 162
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 335
|
||||
Top = 224
|
||||
Left = 337
|
||||
Top = 251
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -216,12 +216,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Width = 65
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 251
|
||||
Top = 278
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -235,12 +235,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 263
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 278
|
||||
Top = 305
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -255,12 +255,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
Width = 84
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 305
|
||||
Top = 332
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -274,29 +274,29 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
Width = 122
|
||||
end
|
||||
object bElegirDireccion: TBitBtn
|
||||
Left = 228
|
||||
Top = 332
|
||||
Left = 230
|
||||
Top = 359
|
||||
Width = 172
|
||||
Height = 23
|
||||
Action = actElegirDireccion
|
||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 268
|
||||
Top = 111
|
||||
Left = 270
|
||||
Top = 138
|
||||
Width = 132
|
||||
Height = 23
|
||||
Action = actVerPedidoCli
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
end
|
||||
object eReferenciaPedidoCli: TcxTextEdit
|
||||
Left = 116
|
||||
Top = 111
|
||||
Top = 138
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Enabled = False
|
||||
Properties.ReadOnly = False
|
||||
@ -314,12 +314,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
Width = 16
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 116
|
||||
Top = 82
|
||||
Top = 109
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -343,20 +343,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
Width = 32
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 268
|
||||
Top = 82
|
||||
Left = 270
|
||||
Top = 109
|
||||
Width = 132
|
||||
Height = 23
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object eFechaRecepcion: TcxDBDateEdit
|
||||
Left = 581
|
||||
Left = 583
|
||||
Top = 357
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_RECEPCION'
|
||||
@ -375,11 +375,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 20
|
||||
TabOrder = 21
|
||||
Width = 123
|
||||
end
|
||||
object eFechaEnvio: TcxDBTextEdit
|
||||
Left = 581
|
||||
Left = 583
|
||||
Top = 303
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_ENVIO'
|
||||
@ -400,21 +400,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 18
|
||||
TabOrder = 19
|
||||
Width = 122
|
||||
end
|
||||
object cbConAlmacen: TCheckBox
|
||||
Left = 32
|
||||
Top = 391
|
||||
Top = 418
|
||||
Width = 179
|
||||
Height = 21
|
||||
Caption = 'Asociar este albar'#225'n al almac'#233'n:'
|
||||
TabOrder = 14
|
||||
TabOrder = 15
|
||||
OnClick = cbConAlmacenClick
|
||||
end
|
||||
object cbAlmacen: TcxDBLookupComboBox
|
||||
Left = 217
|
||||
Top = 391
|
||||
Top = 418
|
||||
DataBinding.DataField = 'ID_ALMACEN'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -438,21 +438,21 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 15
|
||||
TabOrder = 16
|
||||
Width = 69
|
||||
end
|
||||
object cbFechaRecepcion: TCheckBox
|
||||
Left = 440
|
||||
Left = 442
|
||||
Top = 330
|
||||
Width = 340
|
||||
Height = 21
|
||||
Caption = 'El cliente ha recibido y firmado este albar'#225'n el d'#237'a:'
|
||||
TabOrder = 19
|
||||
TabOrder = 20
|
||||
OnClick = cbFechaRecepcionClick
|
||||
end
|
||||
object eRefFacturaCli: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 140
|
||||
Top = 167
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REF_FACTURA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -473,11 +473,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Width = 207
|
||||
end
|
||||
object eFechaPrevista: TcxDBDateEdit
|
||||
Left = 581
|
||||
Left = 583
|
||||
Top = 276
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
||||
@ -499,9 +499,34 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 17
|
||||
TabOrder = 18
|
||||
Width = 122
|
||||
end
|
||||
object eRefCliente: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 55
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ReadOnly = False
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 284
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -518,10 +543,15 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos del albar'#225'n'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
Caption = 'Ref. albar'#225'n:'
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item23: TdxLayoutItem
|
||||
Caption = 'Ref. cliente:'
|
||||
Control = eRefCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Fecha del albar'#225'n:'
|
||||
Control = edtFechaAlbaran
|
||||
|
||||
@ -96,6 +96,8 @@ type
|
||||
dxLayoutControl1Group15: TdxLayoutGroup;
|
||||
dxLayoutControl1Item24: TdxLayoutItem;
|
||||
eFechaPrevista: TcxDBDateEdit;
|
||||
dxLayoutControl1Item23: TdxLayoutItem;
|
||||
eRefCliente: TcxDBTextEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
|
||||
@ -135,7 +135,21 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PedidosCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -149,7 +163,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PedidosCliente_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -449,6 +463,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -459,7 +474,7 @@ object DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
DataType = datDateTime
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha prevista de env'#237'o'
|
||||
DisplayLabel = 'Fecha de entrega prevista'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
|
||||
InPrimaryKey = False
|
||||
|
||||
@ -9,13 +9,13 @@ 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_PedidoCliente_ArticulosPendientesPedirAProv = '{6F84DC2B-AB56-42E0-B384-7B800C7702EB}';
|
||||
RID_DarReferencia = '{B5B33AC2-9A3C-4F5F-B7BC-CDBA0AF7B050}';
|
||||
RID_PedidosCliente = '{29043AA6-18D0-41F5-964C-369ADF23DB9D}';
|
||||
RID_PedidosCliente_Detalles = '{409919C4-F7F2-4C11-8EBE-1F6358C7731B}';
|
||||
RID_PedidosCliente_Refresh = '{C9324676-85BA-4A02-934C-8C2DC79EA157}';
|
||||
RID_PedidosCliente_Detalles_Refresh = '{8BA724CB-130C-4C3A-A1C1-D2F952A32DDD}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{F83BD5DE-AD34-406A-8510-7C0AE4C15091}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{C1999334-468B-4FBC-BBF4-C42B5EDD082A}';
|
||||
RID_DarReferencia = '{49BABE0B-7F00-4B69-BDF2-1EEB55541733}';
|
||||
RID_PedidosCliente = '{AA507B71-8CC4-44D0-A83A-598C0F731BB0}';
|
||||
RID_PedidosCliente_Detalles = '{245CC401-9C4E-471E-B814-187C95EF45F1}';
|
||||
RID_PedidosCliente_Refresh = '{16964D63-320B-460C-93B5-1ACD6A05C101}';
|
||||
RID_PedidosCliente_Detalles_Refresh = '{DD5D0403-B1AB-45D9-8B59-D1F8F035B22F}';
|
||||
RID_PedidoCliente_Articulos_Pendientes = '{445F176E-9207-4925-8CE6-CBB4A66C4861}';
|
||||
|
||||
{ Data table names }
|
||||
nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv';
|
||||
@ -54,6 +54,7 @@ const
|
||||
fld_PedidosClienteID_CLIENTE = 'ID_CLIENTE';
|
||||
fld_PedidosClienteNOMBRE = 'NOMBRE';
|
||||
fld_PedidosClienteREFERENCIA = 'REFERENCIA';
|
||||
fld_PedidosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_PedidosClienteSITUACION = 'SITUACION';
|
||||
fld_PedidosClienteFECHA_PEDIDO = 'FECHA_PEDIDO';
|
||||
fld_PedidosClienteCALLE = 'CALLE';
|
||||
@ -86,31 +87,32 @@ const
|
||||
idx_PedidosClienteID_CLIENTE = 2;
|
||||
idx_PedidosClienteNOMBRE = 3;
|
||||
idx_PedidosClienteREFERENCIA = 4;
|
||||
idx_PedidosClienteSITUACION = 5;
|
||||
idx_PedidosClienteFECHA_PEDIDO = 6;
|
||||
idx_PedidosClienteCALLE = 7;
|
||||
idx_PedidosClienteCODIGO_POSTAL = 8;
|
||||
idx_PedidosClientePOBLACION = 9;
|
||||
idx_PedidosClientePROVINCIA = 10;
|
||||
idx_PedidosClientePERSONA_CONTACTO = 11;
|
||||
idx_PedidosClienteTELEFONO = 12;
|
||||
idx_PedidosClienteOBSERVACIONES = 13;
|
||||
idx_PedidosClienteINCIDENCIAS = 14;
|
||||
idx_PedidosClienteINCIDENCIAS_ACTIVAS = 15;
|
||||
idx_PedidosClienteFECHA_ALTA = 16;
|
||||
idx_PedidosClienteFECHA_MODIFICACION = 17;
|
||||
idx_PedidosClienteUSUARIO = 18;
|
||||
idx_PedidosClienteIMPORTE_NETO = 19;
|
||||
idx_PedidosClienteIMPORTE_PORTE = 20;
|
||||
idx_PedidosClienteDESCUENTO = 21;
|
||||
idx_PedidosClienteIMPORTE_DESCUENTO = 22;
|
||||
idx_PedidosClienteBASE_IMPONIBLE = 23;
|
||||
idx_PedidosClienteIVA = 24;
|
||||
idx_PedidosClienteIMPORTE_IVA = 25;
|
||||
idx_PedidosClienteIMPORTE_TOTAL = 26;
|
||||
idx_PedidosClienteID_FORMA_PAGO = 27;
|
||||
idx_PedidosClienteREF_TIENDA_WEB = 28;
|
||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 29;
|
||||
idx_PedidosClienteREFERENCIA_CLIENTE = 5;
|
||||
idx_PedidosClienteSITUACION = 6;
|
||||
idx_PedidosClienteFECHA_PEDIDO = 7;
|
||||
idx_PedidosClienteCALLE = 8;
|
||||
idx_PedidosClienteCODIGO_POSTAL = 9;
|
||||
idx_PedidosClientePOBLACION = 10;
|
||||
idx_PedidosClientePROVINCIA = 11;
|
||||
idx_PedidosClientePERSONA_CONTACTO = 12;
|
||||
idx_PedidosClienteTELEFONO = 13;
|
||||
idx_PedidosClienteOBSERVACIONES = 14;
|
||||
idx_PedidosClienteINCIDENCIAS = 15;
|
||||
idx_PedidosClienteINCIDENCIAS_ACTIVAS = 16;
|
||||
idx_PedidosClienteFECHA_ALTA = 17;
|
||||
idx_PedidosClienteFECHA_MODIFICACION = 18;
|
||||
idx_PedidosClienteUSUARIO = 19;
|
||||
idx_PedidosClienteIMPORTE_NETO = 20;
|
||||
idx_PedidosClienteIMPORTE_PORTE = 21;
|
||||
idx_PedidosClienteDESCUENTO = 22;
|
||||
idx_PedidosClienteIMPORTE_DESCUENTO = 23;
|
||||
idx_PedidosClienteBASE_IMPONIBLE = 24;
|
||||
idx_PedidosClienteIVA = 25;
|
||||
idx_PedidosClienteIMPORTE_IVA = 26;
|
||||
idx_PedidosClienteIMPORTE_TOTAL = 27;
|
||||
idx_PedidosClienteID_FORMA_PAGO = 28;
|
||||
idx_PedidosClienteREF_TIENDA_WEB = 29;
|
||||
idx_PedidosClienteFECHA_PREVISTA_ENVIO = 30;
|
||||
|
||||
{ PedidosCliente_Detalles fields }
|
||||
fld_PedidosCliente_DetallesID = 'ID';
|
||||
@ -150,6 +152,7 @@ const
|
||||
fld_PedidosCliente_RefreshID_CLIENTE = 'ID_CLIENTE';
|
||||
fld_PedidosCliente_RefreshNOMBRE = 'NOMBRE';
|
||||
fld_PedidosCliente_RefreshREFERENCIA = 'REFERENCIA';
|
||||
fld_PedidosCliente_RefreshREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE';
|
||||
fld_PedidosCliente_RefreshSITUACION = 'SITUACION';
|
||||
fld_PedidosCliente_RefreshFECHA_PEDIDO = 'FECHA_PEDIDO';
|
||||
fld_PedidosCliente_RefreshCALLE = 'CALLE';
|
||||
@ -182,31 +185,32 @@ const
|
||||
idx_PedidosCliente_RefreshID_CLIENTE = 2;
|
||||
idx_PedidosCliente_RefreshNOMBRE = 3;
|
||||
idx_PedidosCliente_RefreshREFERENCIA = 4;
|
||||
idx_PedidosCliente_RefreshSITUACION = 5;
|
||||
idx_PedidosCliente_RefreshFECHA_PEDIDO = 6;
|
||||
idx_PedidosCliente_RefreshCALLE = 7;
|
||||
idx_PedidosCliente_RefreshCODIGO_POSTAL = 8;
|
||||
idx_PedidosCliente_RefreshPOBLACION = 9;
|
||||
idx_PedidosCliente_RefreshPROVINCIA = 10;
|
||||
idx_PedidosCliente_RefreshPERSONA_CONTACTO = 11;
|
||||
idx_PedidosCliente_RefreshTELEFONO = 12;
|
||||
idx_PedidosCliente_RefreshOBSERVACIONES = 13;
|
||||
idx_PedidosCliente_RefreshINCIDENCIAS = 14;
|
||||
idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 15;
|
||||
idx_PedidosCliente_RefreshFECHA_ALTA = 16;
|
||||
idx_PedidosCliente_RefreshFECHA_MODIFICACION = 17;
|
||||
idx_PedidosCliente_RefreshUSUARIO = 18;
|
||||
idx_PedidosCliente_RefreshIMPORTE_NETO = 19;
|
||||
idx_PedidosCliente_RefreshIMPORTE_PORTE = 20;
|
||||
idx_PedidosCliente_RefreshDESCUENTO = 21;
|
||||
idx_PedidosCliente_RefreshIMPORTE_DESCUENTO = 22;
|
||||
idx_PedidosCliente_RefreshBASE_IMPONIBLE = 23;
|
||||
idx_PedidosCliente_RefreshIVA = 24;
|
||||
idx_PedidosCliente_RefreshIMPORTE_IVA = 25;
|
||||
idx_PedidosCliente_RefreshIMPORTE_TOTAL = 26;
|
||||
idx_PedidosCliente_RefreshID_FORMA_PAGO = 27;
|
||||
idx_PedidosCliente_RefreshREF_TIENDA_WEB = 28;
|
||||
idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 29;
|
||||
idx_PedidosCliente_RefreshREFERENCIA_CLIENTE = 5;
|
||||
idx_PedidosCliente_RefreshSITUACION = 6;
|
||||
idx_PedidosCliente_RefreshFECHA_PEDIDO = 7;
|
||||
idx_PedidosCliente_RefreshCALLE = 8;
|
||||
idx_PedidosCliente_RefreshCODIGO_POSTAL = 9;
|
||||
idx_PedidosCliente_RefreshPOBLACION = 10;
|
||||
idx_PedidosCliente_RefreshPROVINCIA = 11;
|
||||
idx_PedidosCliente_RefreshPERSONA_CONTACTO = 12;
|
||||
idx_PedidosCliente_RefreshTELEFONO = 13;
|
||||
idx_PedidosCliente_RefreshOBSERVACIONES = 14;
|
||||
idx_PedidosCliente_RefreshINCIDENCIAS = 15;
|
||||
idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 16;
|
||||
idx_PedidosCliente_RefreshFECHA_ALTA = 17;
|
||||
idx_PedidosCliente_RefreshFECHA_MODIFICACION = 18;
|
||||
idx_PedidosCliente_RefreshUSUARIO = 19;
|
||||
idx_PedidosCliente_RefreshIMPORTE_NETO = 20;
|
||||
idx_PedidosCliente_RefreshIMPORTE_PORTE = 21;
|
||||
idx_PedidosCliente_RefreshDESCUENTO = 22;
|
||||
idx_PedidosCliente_RefreshIMPORTE_DESCUENTO = 23;
|
||||
idx_PedidosCliente_RefreshBASE_IMPONIBLE = 24;
|
||||
idx_PedidosCliente_RefreshIVA = 25;
|
||||
idx_PedidosCliente_RefreshIMPORTE_IVA = 26;
|
||||
idx_PedidosCliente_RefreshIMPORTE_TOTAL = 27;
|
||||
idx_PedidosCliente_RefreshID_FORMA_PAGO = 28;
|
||||
idx_PedidosCliente_RefreshREF_TIENDA_WEB = 29;
|
||||
idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 30;
|
||||
|
||||
{ PedidosCliente_Detalles_Refresh fields }
|
||||
fld_PedidosCliente_Detalles_RefreshID = 'ID';
|
||||
@ -255,7 +259,7 @@ const
|
||||
type
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
||||
['{6FE1A049-F3FB-4A90-8AFC-65B1CFE8A79F}']
|
||||
['{972D4859-B3C6-4A05-90D5-B81E5B0221BF}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -314,7 +318,7 @@ type
|
||||
|
||||
{ IDarReferencia }
|
||||
IDarReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{54166B3A-781F-47CC-A3BD-DD4DEA5045D4}']
|
||||
['{653123F4-C264-46AF-BEFE-CD2CF048FBEA}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -343,7 +347,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{942279DC-C378-4D7C-939C-A5F3D0BF0501}']
|
||||
['{05AC916D-59B2-4E42-AD09-1A0B413BFA1B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -355,6 +359,8 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetREFERENCIA_CLIENTEValue: String;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
function GetSITUACIONValue: String;
|
||||
procedure SetSITUACIONValue(const aValue: String);
|
||||
function GetFECHA_PEDIDOValue: DateTime;
|
||||
@ -413,6 +419,7 @@ type
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
|
||||
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||
@ -455,6 +462,8 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetSITUACIONValue: String; virtual;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
function GetFECHA_PEDIDOValue: DateTime; virtual;
|
||||
@ -512,6 +521,7 @@ type
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
|
||||
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||
@ -546,7 +556,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{08D6C93B-AF10-4FF2-B990-6450BF6AC6DE}']
|
||||
['{B9BEFE7C-50C5-41A4-9C1E-69F82E33B239}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -653,7 +663,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Refresh }
|
||||
IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{5497A314-3CE4-4383-B0E3-5459EFE32BAB}']
|
||||
['{B791EB7F-8133-4E13-8E65-9D728AEF936C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -665,6 +675,8 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetREFERENCIA_CLIENTEValue: String;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
function GetSITUACIONValue: String;
|
||||
procedure SetSITUACIONValue(const aValue: String);
|
||||
function GetFECHA_PEDIDOValue: DateTime;
|
||||
@ -723,6 +735,7 @@ type
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
|
||||
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||
@ -765,6 +778,8 @@ type
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetSITUACIONValue: String; virtual;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
function GetFECHA_PEDIDOValue: DateTime; virtual;
|
||||
@ -822,6 +837,7 @@ type
|
||||
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
|
||||
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||
@ -856,7 +872,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles_Refresh }
|
||||
IPedidosCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{AF5168D8-3EEC-4C73-A548-8E63FA84179B}']
|
||||
['{3FA4269B-0776-41DE-9F4A-78033659716B}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -963,7 +979,7 @@ type
|
||||
|
||||
{ IPedidoCliente_Articulos_Pendientes }
|
||||
IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{739C33F2-D35D-427A-AAF8-2BE577A00D6C}']
|
||||
['{64E773A4-B774-4521-801B-50E465070510}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -1167,6 +1183,16 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteREFERENCIA_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosClienteREFERENCIA_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetSITUACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteSITUACION].AsString;
|
||||
@ -1633,6 +1659,16 @@ begin
|
||||
DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosCliente_RefreshDataTableRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA_CLIENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TPedidosCliente_RefreshDataTableRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA_CLIENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosCliente_RefreshDataTableRules.GetSITUACIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsString;
|
||||
|
||||
@ -9,18 +9,18 @@ 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_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{8CAA1451-5418-4A49-8092-77D662FCFEBB}';
|
||||
RID_DarReferenciaDelta = '{3195925E-F00F-40F9-85C6-6E9AA20FF8D3}';
|
||||
RID_PedidosClienteDelta = '{F2845970-3ECE-403D-A2B5-8514282DB50B}';
|
||||
RID_PedidosCliente_DetallesDelta = '{7191CDD7-4BC8-4B02-B9AE-35A8A30B4AAD}';
|
||||
RID_PedidosCliente_RefreshDelta = '{D92463E8-0736-4F66-A1E4-46F944A8D16C}';
|
||||
RID_PedidosCliente_Detalles_RefreshDelta = '{9EAD80F8-F99D-4B79-9B4C-D9050CF9EF8B}';
|
||||
RID_PedidoCliente_Articulos_PendientesDelta = '{63091BDF-3A9C-41C0-A8AD-FD6485B695BE}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{EE8CBDDC-104A-4492-8D5C-08135D131450}';
|
||||
RID_DarReferenciaDelta = '{7E08AFA3-C994-4B1E-B289-148BCA112E05}';
|
||||
RID_PedidosClienteDelta = '{20C24610-4E5A-4CFE-8564-8D56B08C897A}';
|
||||
RID_PedidosCliente_DetallesDelta = '{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}';
|
||||
RID_PedidosCliente_RefreshDelta = '{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}';
|
||||
RID_PedidosCliente_Detalles_RefreshDelta = '{33C8CC54-33ED-45F4-BD3F-60676CD997BF}';
|
||||
RID_PedidoCliente_Articulos_PendientesDelta = '{E0181E92-9467-4BCF-8C06-53C4F301B7E6}';
|
||||
|
||||
type
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
['{8CAA1451-5418-4A49-8092-77D662FCFEBB}']
|
||||
['{EE8CBDDC-104A-4492-8D5C-08135D131450}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
@ -84,7 +84,7 @@ type
|
||||
|
||||
{ IDarReferenciaDelta }
|
||||
IDarReferenciaDelta = interface(IDarReferencia)
|
||||
['{3195925E-F00F-40F9-85C6-6E9AA20FF8D3}']
|
||||
['{7E08AFA3-C994-4B1E-B289-148BCA112E05}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -113,13 +113,14 @@ type
|
||||
|
||||
{ IPedidosClienteDelta }
|
||||
IPedidosClienteDelta = interface(IPedidosCliente)
|
||||
['{F2845970-3ECE-403D-A2B5-8514282DB50B}']
|
||||
['{20C24610-4E5A-4CFE-8564-8D56B08C897A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldSITUACIONValue : String;
|
||||
function GetOldFECHA_PEDIDOValue : DateTime;
|
||||
function GetOldCALLEValue : String;
|
||||
@ -152,6 +153,7 @@ type
|
||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -199,6 +201,9 @@ type
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetSITUACIONValue: String; virtual;
|
||||
function GetOldSITUACIONValue: String; virtual;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
@ -286,6 +291,8 @@ type
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
|
||||
@ -345,7 +352,7 @@ type
|
||||
|
||||
{ IPedidosCliente_DetallesDelta }
|
||||
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
|
||||
['{7191CDD7-4BC8-4B02-B9AE-35A8A30B4AAD}']
|
||||
['{2CDB083D-9BB7-4FEA-90E8-D79AA05F09F7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
@ -465,13 +472,14 @@ type
|
||||
|
||||
{ IPedidosCliente_RefreshDelta }
|
||||
IPedidosCliente_RefreshDelta = interface(IPedidosCliente_Refresh)
|
||||
['{D92463E8-0736-4F66-A1E4-46F944A8D16C}']
|
||||
['{FBBE0466-22C9-4989-90F2-E91D7BDA1D07}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldREFERENCIA_CLIENTEValue : String;
|
||||
function GetOldSITUACIONValue : String;
|
||||
function GetOldFECHA_PEDIDOValue : DateTime;
|
||||
function GetOldCALLEValue : String;
|
||||
@ -504,6 +512,7 @@ type
|
||||
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue;
|
||||
property OldCALLE : String read GetOldCALLEValue;
|
||||
@ -551,6 +560,9 @@ type
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_CLIENTEValue: String; virtual;
|
||||
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
|
||||
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetSITUACIONValue: String; virtual;
|
||||
function GetOldSITUACIONValue: String; virtual;
|
||||
procedure SetSITUACIONValue(const aValue: String); virtual;
|
||||
@ -638,6 +650,8 @@ type
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
|
||||
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
|
||||
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
|
||||
property OldSITUACION : String read GetOldSITUACIONValue;
|
||||
property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue;
|
||||
@ -697,7 +711,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles_RefreshDelta }
|
||||
IPedidosCliente_Detalles_RefreshDelta = interface(IPedidosCliente_Detalles_Refresh)
|
||||
['{9EAD80F8-F99D-4B79-9B4C-D9050CF9EF8B}']
|
||||
['{33C8CC54-33ED-45F4-BD3F-60676CD997BF}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
@ -817,7 +831,7 @@ type
|
||||
|
||||
{ IPedidoCliente_Articulos_PendientesDelta }
|
||||
IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes)
|
||||
['{63091BDF-3A9C-41C0-A8AD-FD6485B695BE}']
|
||||
['{E0181E92-9467-4BCF-8C06-53C4F301B7E6}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
function GetOldCANTIDAD_PEDValue : Integer;
|
||||
@ -1085,6 +1099,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetSITUACIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION];
|
||||
@ -1773,6 +1802,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE];
|
||||
end;
|
||||
|
||||
procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE] := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshSITUACION];
|
||||
|
||||
@ -104,24 +104,24 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
'SELECT'#10' V_PEDIDOS_CLIENTE.ID,'#10' V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' +
|
||||
' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10' V_PEDIDOS_CLIENTE.NOMBRE,'#10' V_C' +
|
||||
'LIENTES.NOMBRE_COMERCIAL,'#10' V_PEDIDOS_CLIENTE.REFERENCIA,'#10' V_PE' +
|
||||
'DIDOS_CLIENTE.SITUACION,'#10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_P' +
|
||||
'EDIDOS_CLIENTE.CALLE,'#10' V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10' V_PED' +
|
||||
'IDOS_CLIENTE.POBLACION,'#10' V_PEDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDID' +
|
||||
'OS_CLIENTE.PERSONA_CONTACTO,'#10' V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_P' +
|
||||
'EDIDOS_CLIENTE.OBSERVACIONES,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' ' +
|
||||
' V_PEDIDOS_CLIENTE.INCIDENCIAS_ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECH' +
|
||||
'A_ALTA,'#10' V_PEDIDOS_CLIENTE.FECHA_MODIFICACION,'#10' V_PEDIDOS_CLIE' +
|
||||
'NTE.USUARIO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLIEN' +
|
||||
'TE.IMPORTE_PORTE,'#10' V_PEDIDOS_CLIENTE.DESCUENTO,'#10' V_PEDIDOS_CLI' +
|
||||
'ENTE.IMPORTE_DESCUENTO,'#10' V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_' +
|
||||
'PEDIDOS_CLIENTE.IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDO' +
|
||||
'S_CLIENTE.IMPORTE_TOTAL,'#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EM' +
|
||||
'PRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFO' +
|
||||
'NO_1_EMPRESA,'#10' EMPRESAS.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLI' +
|
||||
'ENTE'#10' LEFT OUTER JOIN EMPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA' +
|
||||
' = EMPRESAS.ID)'#10' LEFT OUTER JOIN V_CLIENTES ON (V_CLIENTES.ID =' +
|
||||
' V_PEDIDOS_CLIENTE.ID_CLIENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :I' +
|
||||
'D'
|
||||
'DIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' V_PEDIDOS_CLIENTE.SITUACION,' +
|
||||
#10' V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' V_PEDIDOS_CLIENTE.CALLE,'#10' ' +
|
||||
'V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10' V_PEDIDOS_CLIENTE.POBLACION,'#10 +
|
||||
' V_PEDIDOS_CLIENTE.PROVINCIA,'#10' V_PEDIDOS_CLIENTE.PERSONA_CONTA' +
|
||||
'CTO,'#10' V_PEDIDOS_CLIENTE.TELEFONO,'#10' V_PEDIDOS_CLIENTE.OBSERVACI' +
|
||||
'ONES,'#10' V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10' V_PEDIDOS_CLIENTE.INCID' +
|
||||
'ENCIAS_ACTIVAS,'#10' V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10' V_PEDIDOS_CLIE' +
|
||||
'NTE.FECHA_MODIFICACION,'#10' V_PEDIDOS_CLIENTE.USUARIO,'#10' V_PEDIDOS' +
|
||||
'_CLIENTE.IMPORTE_NETO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10' V_PE' +
|
||||
'DIDOS_CLIENTE.DESCUENTO,'#10' V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10 +
|
||||
' V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10' V_PEDIDOS_CLIENTE.IVA,'#10' V' +
|
||||
'_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10' V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
|
||||
#10' V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10' EMPRESAS.NOMBRE AS NOMBRE_' +
|
||||
'EMPRESA,'#10' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10' EMPRESAS' +
|
||||
'.FAX as FAX_EMPRESA'#10'FROM'#10' V_PEDIDOS_CLIENTE'#10' LEFT OUTER JOIN E' +
|
||||
'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10' LEFT O' +
|
||||
'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' +
|
||||
'IENTE)'#10'WHERE'#10' V_PEDIDOS_CLIENTE.ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -251,6 +251,10 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_CLIENTE'
|
||||
TableField = 'REFERENCIA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'Informe_Cabecera'
|
||||
@ -323,6 +327,18 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
@ -844,7 +860,7 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
PreviewOptions.Zoom = 1.000000000000000000
|
||||
PrintOptions.Printer = 'Por defecto'
|
||||
ReportOptions.CreateDate = 39065.872423495400000000
|
||||
ReportOptions.LastChange = 39226.524119641200000000
|
||||
ReportOptions.LastChange = 39255.590290254630000000
|
||||
ScriptLanguage = 'PascalScript'
|
||||
ScriptText.Strings = (
|
||||
''
|
||||
@ -869,20 +885,35 @@ object RptPedidosCliente: TRptPedidosCliente
|
||||
'end;'
|
||||
''
|
||||
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
|
||||
'var'
|
||||
' ACadena : String;'
|
||||
'begin'
|
||||
' ACadena := '#39#39';'
|
||||
' DireccionEnvio.Lines.Clear;'
|
||||
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
|
||||
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
|
||||
''
|
||||
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
|
||||
|
||||
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
|
||||
'O">;'
|
||||
''
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
' ACadena := '#39#39';'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
|
||||
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
|
||||
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
|
||||
''
|
||||
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39')'
|
||||
' or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
|
||||
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."CODIGO_POSTAL"> + ' +
|
||||
'<frxDBCabecera."POBLACION">);'
|
||||
' if (ACadena <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(ACadena);'
|
||||
''
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||
|
||||
'// DireccionEnvio.Lines.Add(<frxDBCabecera."PERSONA_CONTACTO"> ' +
|
||||
'+ '#39' '#39' + <frxDBCabecera."TELEFONO">);'
|
||||
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
|
||||
''
|
||||
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
|
||||
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
|
||||
'end;'
|
||||
''
|
||||
'begin'
|
||||
|
||||
@ -178,15 +178,16 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
TargetTable = 'PEDIDOS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT ID,'#10' ID_EMPRESA,'#10' ID_CLIENTE,'#10' NOMBRE,'#10 +
|
||||
' REFERENCIA,'#10' SITUACION,'#10' FECHA_PEDIDO,'#10' ' +
|
||||
' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA' +
|
||||
','#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' OBSERVACIONES' +
|
||||
','#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FECHA_A' +
|
||||
'LTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' IMPORTE_N' +
|
||||
'ETO,'#10' IMPORTE_PORTE,'#10' DESCUENTO,'#10' IMPORTE_DESC' +
|
||||
'UENTO,'#10' BASE_IMPONIBLE,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
|
||||
' IMPORTE_TOTAL,'#10' ID_FORMA_PAGO,'#10' REF_TIENDA_WEB,' +
|
||||
#10' FECHA_PREVISTA_ENVIO'#10'FROM V_PEDIDOS_CLIENTE'
|
||||
' REFERENCIA,'#10' REFERENCIA_CLIENTE,'#10' SITUACION,'#10 +
|
||||
' FECHA_PEDIDO,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' ' +
|
||||
'POBLACION,'#10' PROVINCIA,'#10' PERSONA_CONTACTO,'#10' TEL' +
|
||||
'EFONO,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENC' +
|
||||
'IAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' +
|
||||
' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' +
|
||||
'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' +
|
||||
'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' +
|
||||
'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO'#10'FROM V_P' +
|
||||
'EDIDOS_CLIENTE'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -308,6 +309,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
DatasetField = 'FECHA_PREVISTA_ENVIO'
|
||||
TableField = 'FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_CLIENTE'
|
||||
TableField = 'REFERENCIA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosCliente'
|
||||
@ -358,10 +363,18 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PedidosCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -372,10 +385,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'PedidosCliente_SITUACION'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -612,8 +622,7 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -882,16 +891,16 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
TargetTable = 'PEDIDOS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT ID,'#10' ID_EMPRESA,'#10' ID_CLIENTE,'#10' NOMBRE,'#10 +
|
||||
' REFERENCIA,'#10' SITUACION,'#10' FECHA_PEDIDO,'#10' ' +
|
||||
' CALLE,'#10' CODIGO_POSTAL,'#10' POBLACION,'#10' PROVINCIA' +
|
||||
','#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' OBSERVACIONES' +
|
||||
','#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FECHA_A' +
|
||||
'LTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' IMPORTE_N' +
|
||||
'ETO,'#10' IMPORTE_PORTE,'#10' DESCUENTO,'#10' IMPORTE_DESC' +
|
||||
'UENTO,'#10' BASE_IMPONIBLE,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
|
||||
' IMPORTE_TOTAL,'#10' ID_FORMA_PAGO,'#10' REF_TIENDA_WEB,' +
|
||||
#10' FECHA_PREVISTA_ENVIO'#10'FROM V_PEDIDOS_CLIENTE'#10'WHERE'#10' I' +
|
||||
'D = :ID'
|
||||
' REFERENCIA,'#10' REFERENCIA_CLIENTE,'#10' SITUACION,'#10 +
|
||||
' FECHA_PEDIDO,'#10' CALLE,'#10' CODIGO_POSTAL,'#10' ' +
|
||||
'POBLACION,'#10' PROVINCIA,'#10' PERSONA_CONTACTO,'#10' TEL' +
|
||||
'EFONO,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENC' +
|
||||
'IAS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' +
|
||||
' USUARIO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DES' +
|
||||
'CUENTO,'#10' IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE,'#10' ' +
|
||||
'IVA,'#10' IMPORTE_IVA,'#10' IMPORTE_TOTAL,'#10' ID_FORMA_P' +
|
||||
'AGO,'#10' REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO'#10'FROM V_P' +
|
||||
'EDIDOS_CLIENTE'#10'WHERE'#10' ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -1013,6 +1022,10 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
DatasetField = 'FECHA_PREVISTA_ENVIO'
|
||||
TableField = 'FECHA_PREVISTA_ENVIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_CLIENTE'
|
||||
TableField = 'REFERENCIA_CLIENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosCliente_Refresh'
|
||||
@ -1071,6 +1084,18 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
@ -2030,6 +2055,14 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
@ -2149,19 +2182,19 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
SQL =
|
||||
'INSERT'#10' INTO PEDIDOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, U' +
|
||||
'SUARIO, FECHA_PEDIDO, '#10' CALLE, CODIGO_POSTAL, POBLACION, PRO' +
|
||||
'VINCIA, PERSONA_CONTACTO, '#10' TELEFONO, REFERENCIA, IMPORTE_TO' +
|
||||
'TAL, INCIDENCIAS, INCIDENCIAS_ACTIVAS, '#10' OBSERVACIONES, FECH' +
|
||||
'A_ALTA, FECHA_MODIFICACION,'#10' IMPORTE_NETO, IMPORTE_PORTE, DE' +
|
||||
'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
|
||||
'A, '#10' ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA_PREVISTA_ENVIO)'#10' ' +
|
||||
'VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :USUARIO, :FECHA_PEDI' +
|
||||
'DO, '#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSO' +
|
||||
'NA_CONTACTO, '#10' :TELEFONO, :REFERENCIA, :IMPORTE_TOTAL, :INCI' +
|
||||
'DENCIAS, '#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA' +
|
||||
','#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' ' +
|
||||
':DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, '#10' :IM' +
|
||||
'PORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_ENVI' +
|
||||
'O)'
|
||||
'VINCIA, PERSONA_CONTACTO, '#10' TELEFONO, REFERENCIA, REFERENCIA' +
|
||||
'_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS, ' +
|
||||
'OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' IMPORTE_NETO' +
|
||||
', IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIB' +
|
||||
'LE, IVA, IMPORTE_IVA, '#10' ID_FORMA_PAGO, REF_TIENDA_WEB, FECHA' +
|
||||
'_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :U' +
|
||||
'SUARIO, :FECHA_PEDIDO, '#10' :CALLE, :CODIGO_POSTAL, :POBLACION,' +
|
||||
' :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :REFERENCIA, :R' +
|
||||
'EFERENCIA_CLIENTE, :IMPORTE_TOTAL, :INCIDENCIAS,'#10' :INCIDENCI' +
|
||||
'AS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA,'#10' :FECHA_MODIFICACIO' +
|
||||
'N, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESC' +
|
||||
'UENTO, :BASE_IMPONIBLE, :IVA, '#10' :IMPORTE_IVA, :ID_FORMA_PAGO' +
|
||||
', :REF_TIENDA_WEB, :FECHA_PREVISTA_ENVIO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2273,6 +2306,14 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
@ -2402,17 +2443,18 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
'DIDO = :FECHA_PEDIDO, '#10' CALLE = :CALLE, '#10' CODIGO_POSTAL = ' +
|
||||
':CODIGO_POSTAL, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :P' +
|
||||
'ROVINCIA, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFO' +
|
||||
'NO = :TELEFONO, '#10' REFERENCIA = :REFERENCIA, '#10' IMPORTE_TOTA' +
|
||||
'L = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDE' +
|
||||
'NCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSERVACIONES = :OBSE' +
|
||||
'RVACIONES, '#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION' +
|
||||
' = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IM' +
|
||||
'PORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ' +
|
||||
'IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :B' +
|
||||
'ASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA,' +
|
||||
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_' +
|
||||
'TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO'#10' W' +
|
||||
'HERE'#10' (ID = :OLD_ID)'
|
||||
'NO = :TELEFONO, '#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_C' +
|
||||
'LIENTE = :REFERENCIA_CLIENTE,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL' +
|
||||
', '#10' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :I' +
|
||||
'NCIDENCIAS_ACTIVAS, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' FE' +
|
||||
'CHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICA' +
|
||||
'CION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMP' +
|
||||
'ORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO ' +
|
||||
'= :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' ' +
|
||||
' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAG' +
|
||||
'O = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIENDA_WEB,'#10' FE' +
|
||||
'CHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO'#10' WHERE'#10' (ID = :OL' +
|
||||
'D_ID)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -2923,6 +2965,42 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Fecha de entrega prevista'
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Referencia'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_REFERENCIA_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'PedidosCliente_REF_TIENDA_WEB'
|
||||
DataType = datInteger
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'REF_TIENDA_WEB'
|
||||
Alignment = taLeftJustify
|
||||
end>
|
||||
Left = 48
|
||||
Top = 152
|
||||
|
||||
@ -19,7 +19,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
407)
|
||||
object edtFechaPedido: TcxDBDateEdit
|
||||
Left = 116
|
||||
Top = 55
|
||||
Top = 82
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_PEDIDO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -37,12 +37,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
TabOrder = 2
|
||||
Width = 119
|
||||
end
|
||||
object memObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 362
|
||||
Top = 389
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -54,7 +54,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 13
|
||||
TabOrder = 14
|
||||
Height = 253
|
||||
Width = 186
|
||||
end
|
||||
@ -85,7 +85,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Width = 143
|
||||
end
|
||||
inline frViewClientePedido: TfrViewDatosYSeleccionCliente
|
||||
Left = 362
|
||||
Left = 353
|
||||
Top = 28
|
||||
Width = 350
|
||||
Height = 212
|
||||
@ -95,9 +95,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 12
|
||||
TabOrder = 13
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 362
|
||||
ExplicitLeft = 353
|
||||
ExplicitTop = 28
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
@ -121,12 +121,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Width = 327
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 212
|
||||
ExplicitLeft = 212
|
||||
Left = 204
|
||||
ExplicitLeft = 204
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 102
|
||||
ExplicitLeft = 102
|
||||
Left = 94
|
||||
ExplicitLeft = 94
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
@ -141,7 +141,7 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 166
|
||||
Top = 193
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -155,12 +155,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
Width = 263
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 193
|
||||
Top = 220
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -174,12 +174,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
TabOrder = 7
|
||||
Width = 162
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 267
|
||||
Top = 193
|
||||
Left = 258
|
||||
Top = 220
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -193,12 +193,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
TabOrder = 8
|
||||
Width = 65
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 220
|
||||
Top = 247
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -212,12 +212,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
TabOrder = 9
|
||||
Width = 263
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 247
|
||||
Top = 274
|
||||
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -232,12 +232,12 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 9
|
||||
TabOrder = 10
|
||||
Width = 84
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 274
|
||||
Top = 301
|
||||
DataBinding.DataField = 'TELEFONO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -251,21 +251,21 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 10
|
||||
TabOrder = 11
|
||||
Width = 122
|
||||
end
|
||||
object bElegirDireccion: TBitBtn
|
||||
Left = 160
|
||||
Top = 301
|
||||
Left = 151
|
||||
Top = 328
|
||||
Width = 172
|
||||
Height = 25
|
||||
Action = actElegirDireccion
|
||||
Caption = 'Elegir una direcci'#243'n de env'#237'o...'
|
||||
TabOrder = 11
|
||||
TabOrder = 12
|
||||
end
|
||||
object cbFormaPago: TcxDBLookupComboBox
|
||||
Left = 116
|
||||
Top = 109
|
||||
Top = 136
|
||||
DataBinding.DataField = 'ID_FORMA_PAGO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.KeyFieldNames = 'ID'
|
||||
@ -289,21 +289,21 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Width = 101
|
||||
end
|
||||
object bFormasPago: TButton
|
||||
Left = 200
|
||||
Top = 109
|
||||
Left = 191
|
||||
Top = 136
|
||||
Width = 132
|
||||
Height = 21
|
||||
Caption = 'Ver las formas de pago...'
|
||||
TabOrder = 4
|
||||
TabOrder = 5
|
||||
OnClick = bFormasPagoClick
|
||||
end
|
||||
object edtFechaPrevistaEnvio: TcxDBDateEdit
|
||||
Left = 116
|
||||
Top = 82
|
||||
Top = 109
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -320,7 +320,32 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
TabOrder = 3
|
||||
Width = 216
|
||||
end
|
||||
object eRefCliente: TcxDBTextEdit
|
||||
Left = 116
|
||||
Top = 55
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DataBinding.DataField = 'REFERENCIA_CLIENTE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ReadOnly = False
|
||||
Properties.ValidateOnEnter = True
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Color = clInfoBk
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.Color = clMenuBar
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 216
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
@ -343,10 +368,15 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Datos del pedido'
|
||||
object dxLayoutControl1Item3: TdxLayoutItem
|
||||
Caption = 'C'#243'digo:'
|
||||
Caption = 'Referencia:'
|
||||
Control = eReferencia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item15: TdxLayoutItem
|
||||
Caption = 'Ref. cliente:'
|
||||
Control = eRefCliente
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Fecha del pedido:'
|
||||
Control = edtFechaPedido
|
||||
|
||||
@ -69,6 +69,8 @@ type
|
||||
dxLayoutControl1Group10: TdxLayoutGroup;
|
||||
dxLayoutControl1Item7: TdxLayoutItem;
|
||||
edtFechaPrevistaEnvio: TcxDBDateEdit;
|
||||
dxLayoutControl1Item15: TdxLayoutItem;
|
||||
eRefCliente: TcxDBTextEdit;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
|
||||
0
Source/Modulos/Referencias/Data/Referencias_data.rc
Normal file
0
Source/Modulos/Referencias/Data/Referencias_data.rc
Normal file
@ -54,8 +54,6 @@ uses
|
||||
srvAlbaranesCliente_Impl in '..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas' {srvAlbaranesCliente: TDARemoteService},
|
||||
srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDARemoteService},
|
||||
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas' {RptAlbaranesCliente: TDataModule},
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas' {srvFormasPago: TDARemoteService},
|
||||
srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDARemoteService},
|
||||
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
|
||||
@ -104,8 +102,6 @@ uses
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
|
||||
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
|
||||
@ -120,7 +116,11 @@ uses
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||||
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
|
||||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
|
||||
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas';
|
||||
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
|
||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,0,6,0
|
||||
PRODUCTVERSION 2,0,6,0
|
||||
FILEVERSION 2,0,7,0
|
||||
PRODUCTVERSION 2,0,7,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -12,9 +12,9 @@ BEGIN
|
||||
BEGIN
|
||||
BLOCK "0C0904E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "2.0.6.0\0"
|
||||
VALUE "ProductVersion", "2.0.6.0\0"
|
||||
VALUE "CompileDate", "martes, 19 de junio de 2007 17:52\0"
|
||||
VALUE "FileVersion", "2.0.7.0\0"
|
||||
VALUE "ProductVersion", "2.0.7.0\0"
|
||||
VALUE "CompileDate", "viernes, 22 de junio de 2007 14:16\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user