diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc index ecc3ec37..655d6d7a 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc +++ b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC1.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf170.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu index 05cf20f3..4204b0ba 100644 Binary files a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu and b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.dcu differ diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj index 3d3ace9d..787e5aae 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.dproj @@ -49,7 +49,7 @@ MainSource - +
DataModulePresupuestosCliente
 @@ -537,4 +537,4 @@ mtException_AntiFreeze0="The application seems to be frozen." Count mtInvalidEmailMsg=1 mtInvalidEmailMsg0="Invalid email." TextsCollection=English -EurekaLog Last Line --> +EurekaLog Last Line --> \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc index 7ace33b1..6cb4f2cc 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc +++ b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBF.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16E.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm index 9e1fb54e..b4181ba4 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm @@ -30,116 +30,131 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' - DictionaryEntry = 'PedidosCliente_ID' + ServerAutoRefresh = True + DictionaryEntry = 'PresupuestosCliente_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger - DictionaryEntry = 'PedidosCliente_ID_EMPRESA' + DictionaryEntry = 'PresupuestosCliente_ID_EMPRESA' end item Name = 'FECHA_PRESUPUESTO' DataType = datDateTime + DisplayLabel = 'PresupuestosCliente_FECHA_PRESUPUESTO' + DictionaryEntry = 'PresupuestosCliente_FECHA_PRESUPUESTO' end item Name = 'FECHA_DECISION' DataType = datDateTime + DisplayLabel = 'PresupuestosCliente_FECHA_DECISION' + DictionaryEntry = 'PresupuestosCliente_FECHA_DECISION' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' - DictionaryEntry = 'PedidosCliente_REFERENCIA' + DictionaryEntry = 'PresupuestosCliente_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' - DictionaryEntry = 'PedidosCliente_SITUACION' + DictionaryEntry = 'PresupuestosCliente_SITUACION' end item Name = 'ID_CLIENTE' DataType = datInteger - DictionaryEntry = 'PedidosCliente_ID_CLIENTE' + DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 + DisplayLabel = 'PresupuestosCliente_NIF_CIF' + DictionaryEntry = 'PresupuestosCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_NOMBRE' + DictionaryEntry = 'PresupuestosCliente_NOMBRE' end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE' - DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE' + DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE' end item Name = 'CLIENTE_FINAL' DataType = datString Size = 255 + DisplayLabel = 'PresupuestosCliente_CLIENTE_FINAL' + DictionaryEntry = 'PresupuestosCliente_CLIENTE_FINAL' end item Name = 'PORTADA' DataType = datMemo + DisplayLabel = 'PresupuestosCliente_PORTADA' + DictionaryEntry = 'PresupuestosCliente_PORTADA' end item Name = 'MEMORIA' DataType = datMemo + DisplayLabel = 'PresupuestosCliente_MEMORIA' + DictionaryEntry = 'PresupuestosCliente_MEMORIA' end item Name = 'OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' - DictionaryEntry = 'PedidosCliente_OBSERVACIONES' + DictionaryEntry = 'PresupuestosCliente_OBSERVACIONES' end item Name = 'INCIDENCIAS' DataType = datMemo - DictionaryEntry = 'PedidosCliente_INCIDENCIAS' + DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS' end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger - DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS' + DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS_ACTIVAS' end item Name = 'FECHA_ALTA' DataType = datDateTime - DictionaryEntry = 'PedidosCliente_FECHA_ALTA' + DictionaryEntry = 'PresupuestosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime - DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION' + DictionaryEntry = 'PresupuestosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 - DictionaryEntry = 'PedidosCliente_USUARIO' + DictionaryEntry = 'PresupuestosCliente_USUARIO' end item Name = 'IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_IMPORTE_NETO' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_PORTE' end item Name = 'DESCUENTO' @@ -147,47 +162,47 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_DESCUENTO' + DictionaryEntry = 'PresupuestosCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_DESCUENTO' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE' + DictionaryEntry = 'PresupuestosCliente_BASE_IMPONIBLE' end item Name = 'IVA' DataType = datFloat DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_IVA' + DictionaryEntry = 'PresupuestosCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_IMPORTE_IVA' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_IVA' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_TOTAL' end item Name = 'ID_FORMA_PAGO' DataType = datInteger - DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO' + DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] @@ -195,6 +210,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PresupuestosCliente' + IndexDefs = <> Left = 232 Top = 104 end @@ -212,48 +228,63 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID' Required = True - DictionaryEntry = 'PedidosCliente_Detalles_ID' + ServerAutoRefresh = True + DictionaryEntry = 'PresupuestosCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_PRESUPUESTO' DataType = datInteger Required = True + DisplayLabel = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO' + DictionaryEntry = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO' end item Name = 'POSICION' DataType = datInteger - DictionaryEntry = 'POSICIONCONCEPTO' + DictionaryEntry = 'PresupuestosCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 - DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE' - end - item - Name = 'ID_ARTICULO' - DataType = datInteger - DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO' + DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 - DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO' + DictionaryEntry = 'PresupuestosCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datInteger Alignment = taRightJustify - DictionaryEntry = 'CANTIDAD' + DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD' + DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL' + end + item + Name = 'VISIBLE' + DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_Detalles_VISIBLE' + end + item + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_Detalles_ID_ARTICULO' end item Name = 'DESCUENTO' @@ -261,34 +292,24 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO' + DictionaryEntry = 'PresupuestosCliente_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe porte' Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE' + DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_PORTE' end item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - DisplayLabel = 'Importe total' - Alignment = taRightJustify - DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL' + Name = 'REFERENCIA' + DataType = datString + Size = 255 end item - Name = 'VISIBLE' - DataType = datInteger - DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 end> Params = <> MasterMappingMode = mmWhere @@ -300,6 +321,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PresupuestosCliente_Detalles' + IndexDefs = <> Left = 440 Top = 96 end diff --git a/Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosCliente_model.prjconfig b/Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosCliente_model.prjconfig deleted file mode 100644 index c8f28340..00000000 --- a/Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosCliente_model.prjconfig +++ /dev/null @@ -1,2 +0,0 @@ - - \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosProveedor_model.prjconfig b/Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosProveedor_model.prjconfig deleted file mode 100644 index c8f28340..00000000 --- a/Source/Modulos/Presupuestos de cliente/Model/ModelSupport_PresupuestosCliente_model/PedidosProveedor_model.prjconfig +++ /dev/null @@ -1,2 +0,0 @@ - - \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc index a22012b3..ad34dcdb 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc +++ b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBD.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf16C.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daConnections b/Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daConnections deleted file mode 100644 index 6b58eeff..00000000 --- a/Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daConnections +++ /dev/null @@ -1 +0,0 @@ -IBX?Server=LOCALHOST;Database=E:\Codigo\BD\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8859_1;TrueIBX010pbWaitTrue6001 diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daSchema b/Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daSchema deleted file mode 100644 index 7ea17eb2..00000000 --- a/Source/Modulos/Presupuestos de cliente/Model/schPedidosCliente.daSchema +++ /dev/null @@ -1,70 +0,0 @@ -Insert_PedidosClientedabtUnknowndatStringUSUARIOdaptInput20dabtUnknowndatMemoOBSERVACIONESdaptInput0dabtUnknowndatStringREFERENCIAdaptInput255dabtUnknowndatIntegerIDdaptInput0dabtUnknowndatIntegerID_EMPRESAdaptInput0dabtUnknowndatStringSITUACIONdaptInput255dabtUnknowndatDateTimeFECHA_ALTAdaptInput0dabtUnknowndatDateTimeFECHA_MODIFICACIONdaptInput0dabtUnknowndatDateTimeFECHA_PEDIDOdaptInput0dabtUnknowndatDateTimeFECHA_CONFIRMACIONdaptInput0dabtUnknowndatDateTimeFECHA_ENTREGAdaptInput0dabtUnknowndatMemoINCIDENCIASdaptInput0dabtUnknowndatFloatIMPORTE_TOTALdaptInput0dabtUnknowndatIntegerINCIDENCIAS_ACTIVASdaptInput0dabtUnknowndatIntegerID_CLIENTEdaptInput0dabtUnknowndatStringCALLEdaptInput255dabtUnknowndatStringCODIGO_POSTALdaptInput10dabtUnknowndatStringPOBLACIONdaptInput255dabtUnknowndatStringPROVINCIAdaptInput255dabtUnknowndatStringPERSONA_CONTACTOdaptInput255dabtUnknowndatStringTELEFONOdaptInput25IBXINSERT - INTO PEDIDOS_CLIENTE - (USUARIO, OBSERVACIONES, REFERENCIA, ID, ID_EMPRESA, - SITUACION, FECHA_ALTA, FECHA_MODIFICACION, FECHA_PEDIDO, - FECHA_CONFIRMACION, FECHA_ENTREGA, INCIDENCIAS, IMPORTE_TOTAL, - INCIDENCIAS_ACTIVAS, ID_CLIENTE, CALLE, CODIGO_POSTAL, - POBLACION, PROVINCIA, PERSONA_CONTACTO, TELEFONO) - VALUES - (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID, - :ID_EMPRESA, :SITUACION, :FECHA_ALTA, :FECHA_MODIFICACION, - :FECHA_PEDIDO, :FECHA_CONFIRMACION, :FECHA_ENTREGA, - :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, - :ID_CLIENTE, :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, - :PERSONA_CONTACTO, :TELEFONO)stSQLPEDIDOS_CLIENTEDelete_PedidosClientedabtUnknowndatIntegerOLD_IDdaptInput0IBXDELETE - FROM - PEDIDOS_CLIENTE - WHERE - (ID = :OLD_ID)stSQLPEDIDOS_CLIENTEUpdate_PedidosClientedabtUnknowndatStringUSUARIOdaptInput20dabtUnknowndatMemoOBSERVACIONESdaptInput0dabtUnknowndatStringREFERENCIAdaptInput255dabtUnknowndatIntegerIDdaptInput0dabtUnknowndatIntegerID_EMPRESAdaptInput0dabtUnknowndatStringSITUACIONdaptInput255dabtUnknowndatDateTimeFECHA_ALTAdaptInput0dabtUnknowndatDateTimeFECHA_MODIFICACIONdaptInput0dabtUnknowndatDateTimeFECHA_PEDIDOdaptInput0dabtUnknowndatDateTimeFECHA_CONFIRMACIONdaptInput0dabtUnknowndatDateTimeFECHA_ENTREGAdaptInput0dabtUnknowndatMemoINCIDENCIASdaptInput0dabtUnknowndatFloatIMPORTE_TOTALdaptInput0dabtUnknowndatIntegerINCIDENCIAS_ACTIVASdaptInput0dabtUnknowndatIntegerID_CLIENTEdaptInput0dabtUnknowndatStringCALLEdaptInput255dabtUnknowndatStringCODIGO_POSTALdaptInput10dabtUnknowndatStringPOBLACIONdaptInput255dabtUnknowndatStringPROVINCIAdaptInput255dabtUnknowndatStringPERSONA_CONTACTOdaptInput255dabtUnknowndatStringTELEFONOdaptInput25dabtUnknowndatIntegerOLD_IDdaptInput0IBXUPDATE PEDIDOS_CLIENTE - SET - USUARIO = :USUARIO, - OBSERVACIONES = :OBSERVACIONES, - REFERENCIA = :REFERENCIA, - ID = :ID, - ID_EMPRESA = :ID_EMPRESA, - SITUACION = :SITUACION, - FECHA_ALTA = :FECHA_ALTA, - FECHA_MODIFICACION = :FECHA_MODIFICACION, - FECHA_PEDIDO = :FECHA_PEDIDO, - FECHA_CONFIRMACION = :FECHA_CONFIRMACION, - FECHA_ENTREGA = :FECHA_ENTREGA, - INCIDENCIAS = :INCIDENCIAS, - IMPORTE_TOTAL = :IMPORTE_TOTAL, - INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, - ID_CLIENTE = :ID_CLIENTE, - CALLE = :CALLE, - CODIGO_POSTAL = :CODIGO_POSTAL, - POBLACION = :POBLACION, - PROVINCIA = :PROVINCIA, - PERSONA_CONTACTO = :PERSONA_CONTACTO, - TELEFONO = :TELEFONO - WHERE - (ID = :OLD_ID)stSQLPEDIDOS_CLIENTETrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_IDID0TrueTrueFalseFalseIDFalseTrueFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_ID_EMPRESAID_EMPRESA0FalseTrueFalseFalseID_EMPRESAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_ID_CLIENTEID_CLIENTE0FalseTrueFalseFalseID_CLIENTEFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUSUARIOUSUARIO0FalseTrueFalseFalseUSUARIOFalseFalseFalse100TruetaLeftJustifydabtUnknownFalsedatDateTimePedidosCliente_FECHA_PEDIDOFECHA_PEDIDO0FalseTrueFalseFalseFECHA_PEDIDOFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimePedidosCliente_FECHA_CONFIRMACIONFECHA_CONFIRMACION0FalseTrueFalseFalseFECHA_CONFIRMACIONFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimePedidosCliente_FECHA_ENTREGAFECHA_ENTREGA0FalseTrueFalseFalseFECHA_ENTREGAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_SITUACIONSITUACION0FalseTrueFalseFalseSITUACIONFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_CALLECALLE0FalseTrueFalseFalseCALLEFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_CODIGO_POSTALCODIGO_POSTAL0FalseTrueFalseFalseCODIGO_POSTALFalseFalseFalse10TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_POBLACIONPOBLACION0FalseTrueFalseFalsePOBLACIONFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_PROVINCIAPROVINCIA0FalseTrueFalseFalsePROVINCIAFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_PERSONA_CONTACTOPERSONA_CONTACTO0FalseTrueFalseFalsePERSONA_CONTACTOFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_TELEFONOTELEFONO0FalseTrueFalseFalseTELEFONOFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_Detalles_REFERENCIAREFERENCIA0FalseTrueFalseFalseREFERENCIAFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatFloatPedidosCliente_IMPORTE_TOTALIMPORTE_TOTAL0FalseTrueFalseFalseIMPORTE_TOTALFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatMemoPedidosCliente_INCIDENCIASINCIDENCIAS0FalseTrueFalseFalseINCIDENCIASFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_INCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVAS0FalseTrueFalseFalseINCIDENCIAS_ACTIVASFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatMemoOBSERVACIONESOBSERVACIONES0FalseTrueFalseFalseOBSERVACIONESFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringNOMBRENOMBRE0FalseTrueFalseFalseNOMBREFalseFalseFalse100TruetaLeftJustifydabtUnknownFalsedatDateTimePedidosCliente_FECHA_ALTAFECHA_ALTA0FalseTrueFalseFalseFECHA_ALTAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimePedidosCliente_FECHA_MODIFICACIONFECHA_MODIFICACION0FalseTrueFalseFalseFECHA_MODIFICACIONFalseFalseFalse0TruePedidosClienteIDIDIDID_EMPRESAID_EMPRESAID_EMPRESAID_CLIENTEID_CLIENTEID_CLIENTEUSUARIOUSUARIOUSUARIOFECHA_PEDIDOFECHA_PEDIDOFECHA_PEDIDOFECHA_CONFIRMACIONFECHA_CONFIRMACIONFECHA_CONFIRMACIONFECHA_ENTREGAFECHA_ENTREGAFECHA_ENTREGASITUACIONSITUACIONSITUACIONCALLECALLECALLECODIGO_POSTALCODIGO_POSTALCODIGO_POSTALPOBLACIONPOBLACIONPOBLACIONPROVINCIAPROVINCIAPROVINCIAPERSONA_CONTACTOPERSONA_CONTACTOPERSONA_CONTACTOTELEFONOTELEFONOTELEFONOREFERENCIAREFERENCIAREFERENCIAIMPORTE_TOTALIMPORTE_TOTALIMPORTE_TOTALINCIDENCIASINCIDENCIASINCIDENCIASINCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVASOBSERVACIONESOBSERVACIONESOBSERVACIONESNOMBRENOMBRENOMBREFECHA_ALTAFECHA_ALTAFECHA_ALTAFECHA_MODIFICACIONFECHA_MODIFICACIONFECHA_MODIFICACIONIBXSELECT - PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA, PEDIDOS_CLIENTE.ID_CLIENTE, - PEDIDOS_CLIENTE.REFERENCIA, PEDIDOS_CLIENTE.FECHA_PEDIDO, PEDIDOS_CLIENTE.FECHA_CONFIRMACION, - PEDIDOS_CLIENTE.FECHA_ENTREGA, PEDIDOS_CLIENTE.SITUACION, PEDIDOS_CLIENTE.CALLE, - PEDIDOS_CLIENTE.CODIGO_POSTAL, PEDIDOS_CLIENTE.POBLACION, PEDIDOS_CLIENTE.PROVINCIA, - PEDIDOS_CLIENTE.PERSONA_CONTACTO, PEDIDOS_CLIENTE.TELEFONO, PEDIDOS_CLIENTE.OBSERVACIONES, - PEDIDOS_CLIENTE.IMPORTE_TOTAL, PEDIDOS_CLIENTE.INCIDENCIAS, PEDIDOS_CLIENTE.INCIDENCIAS_ACTIVAS, - PEDIDOS_CLIENTE.FECHA_ALTA, PEDIDOS_CLIENTE.FECHA_MODIFICACION, PEDIDOS_CLIENTE.USUARIO, - CONTACTOS.NOMBRE - -FROM PEDIDOS_CLIENTE -LEFT JOIN CONTACTOS ON PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.IDstSQLPEDIDOS_CLIENTETrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_Detalles_IDID0TrueTrueFalseFalseIDFalseTrueFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_Detalles_ID_PEDIDOID_PEDIDO0FalseTrueFalseFalseID_PEDIDOFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerPOSICIONCONCEPTOPOSICION0FalseTrueFalseFalsePOSICIONFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_Detalles_TIPO_DETALLETIPO_DETALLE0FalseTrueFalseFalseTIPO_DETALLEFalseFalseFalse10TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_Detalles_REFERENCIAREFERENCIA0FalseTrueFalseFalseREFERENCIAFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_Detalles_ID_ARTICULOID_ARTICULO0FalseTrueFalseFalseID_ARTICULOFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_Detalles_CONCEPTOCONCEPTO0FalseTrueFalseFalseCONCEPTOFalseFalseFalse2000TruetaLeftJustifydabtUnknownFalsedatIntegerCANTIDADCANTIDAD0FalseTrueFalseFalseCANTIDADFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPedidosCliente_Detalles_IMPORTE_UNIDADIMPORTE_UNIDAD0FalseTrueFalseFalseIMPORTE_UNIDADFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloatPedidosCliente_Detalles_IMPORTE_TOTALIMPORTE_TOTAL0FalseTrueFalseFalseIMPORTE_TOTALFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerPedidosCliente_Detalles_VISIBLEVISIBLE0FalseTrueFalseFalseVISIBLEFalseFalseFalse0TruePedidosCliente_DetallesdabtUnknowndatIntegerID_PEDIDOdaptInput0CANTIDADCANTIDADCANTIDADPOSICIONPOSICIONPOSICIONIDIDIDTIPO_DETALLETIPO_DETALLETIPO_DETALLECONCEPTOCONCEPTOCONCEPTOIMPORTE_UNIDADIMPORTE_UNIDADIMPORTE_UNIDADIMPORTE_TOTALIMPORTE_TOTALIMPORTE_TOTALVISIBLEVISIBLEVISIBLEID_PEDIDOID_PEDIDOID_PEDIDOREFERENCIAREFERENCIAREFERENCIAID_ARTICULOID_ARTICULOID_ARTICULOIBXSELECT - ID, ID_PEDIDO, POSICION, TIPO_DETALLE, REFERENCIA, ID_ARTICULO, CONCEPTO, - CANTIDAD, IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE -FROM PEDIDOS_CLIENTE_DETALLES -WHERE ID_PEDIDO = :ID_PEDIDO -ORDER BY POSICION;stSQLPEDIDOS_CLIENTE_DETALLESTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatIntegerID0TrueTrueFalseFalseIDFalseTrueFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerID_EMPRESA0FalseTrueFalseFalseID_EMPRESAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerID_CLIENTE0FalseTrueFalseFalseID_CLIENTEFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringUSUARIOUSUARIO0FalseTrueFalseFalseUSUARIOFalseFalseFalse100TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHA_PEDIDO0FalseTrueFalseFalseFECHA_PEDIDOFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHA_CONFIRMACION0FalseTrueFalseFalseFECHA_CONFIRMACIONFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHA_ENTREGA0FalseTrueFalseFalseFECHA_ENTREGAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringSITUACION0FalseTrueFalseFalseSITUACIONFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringCALLE0FalseTrueFalseFalseCALLEFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringCODIGO_POSTAL0FalseTrueFalseFalseCODIGO_POSTALFalseFalseFalse10TruetaLeftJustifydabtUnknownFalsedatStringPOBLACION0FalseTrueFalseFalsePOBLACIONFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPROVINCIA0FalseTrueFalseFalsePROVINCIAFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringPERSONA_CONTACTO0FalseTrueFalseFalsePERSONA_CONTACTOFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatStringTELEFONO0FalseTrueFalseFalseTELEFONOFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatStringPedidosCliente_Detalles_REFERENCIAREFERENCIA0FalseTrueFalseFalseREFERENCIAFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatFloatIMPORTE_TOTAL0FalseTrueFalseFalseIMPORTE_TOTALFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatMemoINCIDENCIAS0FalseTrueFalseFalseINCIDENCIASFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatIntegerINCIDENCIAS_ACTIVAS0FalseTrueFalseFalseINCIDENCIAS_ACTIVASFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatMemoOBSERVACIONESOBSERVACIONES0FalseTrueFalseFalseOBSERVACIONESFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatStringNOMBRENOMBRE0FalseTrueFalseFalseNOMBREFalseFalseFalse100TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHA_ALTA0FalseTrueFalseFalseFECHA_ALTAFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTimeFECHA_MODIFICACION0FalseTrueFalseFalseFECHA_MODIFICACIONFalseFalseFalse0TruePedidosCliente_Refresh41dabtUnknowndatIntegerIDdaptInput041USUARIOUSUARIOUSUARIOOBSERVACIONESOBSERVACIONESOBSERVACIONESNOMBRENOMBRENOMBREREFERENCIAREFERENCIAREFERENCIAIDIDIDID_EMPRESAID_EMPRESAID_EMPRESASITUACIONSITUACIONSITUACIONFECHA_ALTAFECHA_ALTAFECHA_ALTAFECHA_MODIFICACIONFECHA_MODIFICACIONFECHA_MODIFICACIONFECHA_PEDIDOFECHA_PEDIDOFECHA_PEDIDOFECHA_CONFIRMACIONFECHA_CONFIRMACIONFECHA_CONFIRMACIONFECHA_ENTREGAFECHA_ENTREGAFECHA_ENTREGAINCIDENCIASINCIDENCIASINCIDENCIASIMPORTE_TOTALIMPORTE_TOTALIMPORTE_TOTALINCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVASID_CLIENTEID_CLIENTEID_CLIENTECALLECALLECALLECODIGO_POSTALCODIGO_POSTALCODIGO_POSTALPOBLACIONPOBLACIONPOBLACIONPROVINCIAPROVINCIAPROVINCIAPERSONA_CONTACTOPERSONA_CONTACTOPERSONA_CONTACTOTELEFONOTELEFONOTELEFONOIBXSELECT - PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA, PEDIDOS_CLIENTE.ID_CLIENTE, - PEDIDOS_CLIENTE.REFERENCIA, PEDIDOS_CLIENTE.FECHA_PEDIDO, PEDIDOS_CLIENTE.FECHA_CONFIRMACION, - PEDIDOS_CLIENTE.FECHA_ENTREGA, PEDIDOS_CLIENTE.SITUACION, PEDIDOS_CLIENTE.CALLE, - PEDIDOS_CLIENTE.CODIGO_POSTAL, PEDIDOS_CLIENTE.POBLACION, PEDIDOS_CLIENTE.PROVINCIA, - PEDIDOS_CLIENTE.PERSONA_CONTACTO, PEDIDOS_CLIENTE.TELEFONO, PEDIDOS_CLIENTE.OBSERVACIONES, - PEDIDOS_CLIENTE.IMPORTE_TOTAL, PEDIDOS_CLIENTE.INCIDENCIAS, PEDIDOS_CLIENTE.INCIDENCIAS_ACTIVAS, - PEDIDOS_CLIENTE.FECHA_ALTA, PEDIDOS_CLIENTE.FECHA_MODIFICACION, PEDIDOS_CLIENTE.USUARIO, - CONTACTOS.NOMBRE - -FROM PEDIDOS_CLIENTE -LEFT JOIN CONTACTOS ON PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID -WHERE PEDIDOS_CLIENTE.ID = :IDstSQLPEDIDOS_CLIENTE0FacturasClienteFalseTrueFalsefbRaiseExceptionInsert FacturasClienteFacturasClienteFalseFalseTruefbRaiseExceptionUpdate FacturasClienteDetallesFacturasClienteTrueFalseFalsefbRaiseExceptionDelete DetallesFacturasClienteDetallesFacturasClienteFalseTrueFalsefbRaiseExceptionInsert DetallesFacturasClienteDetallesFacturasClienteFalseFalseTruefbRaiseExceptionUpdate DetallesFacturasClienteFacturasClienteTrueFalseFalsefbRaiseExceptionDelete FacturasCliente diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPedidosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPedidosClienteClient_Intf.pas deleted file mode 100644 index eb585287..00000000 --- a/Source/Modulos/Presupuestos de cliente/Model/schPedidosClienteClient_Intf.pas +++ /dev/null @@ -1,3875 +0,0 @@ -unit schPedidosClienteClient_Intf; - -interface - -uses - Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; - -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 = '{12249033-3C61-413E-B53B-C4B8783D4C67}'; - RID_DarReferencia = '{8085C724-CD94-49BB-BCC0-3987A885FC59}'; - RID_PedidosCliente = '{6537017A-6C73-4A19-BBEA-5E2D6053BCFD}'; - RID_PedidosCliente_Detalles = '{A20F8E0F-6971-40EC-BDE9-5D2EFBFB74E4}'; - RID_PedidosCliente_Refresh = '{12BAA824-6FE4-4A01-A199-BCDBFC28BBF5}'; - RID_PedidosCliente_Detalles_Refresh = '{7E1FB748-E7C1-47A7-86D7-B3F42EA58391}'; - RID_PedidoCliente_Articulos_Pendientes = '{DEF11911-2DB8-4AE6-87CF-6757D8F0B036}'; - - { Data table names } - nme_PedidoCliente_ArticulosPendientesPedirAProv = 'PedidoCliente_ArticulosPendientesPedirAProv'; - nme_DarReferencia = 'DarReferencia'; - nme_PedidosCliente = 'PedidosCliente'; - nme_PedidosCliente_Detalles = 'PedidosCliente_Detalles'; - nme_PedidosCliente_Refresh = 'PedidosCliente_Refresh'; - nme_PedidosCliente_Detalles_Refresh = 'PedidosCliente_Detalles_Refresh'; - nme_PedidoCliente_Articulos_Pendientes = 'PedidoCliente_Articulos_Pendientes'; - - { PedidoCliente_ArticulosPendientesPedirAProv fields } - fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 'ID_PEDIDO'; - fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 'ID_ARTICULO'; - fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 'CANT_PEDIDA_CLIENTE'; - fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 'ID_PROVEEDOR'; - fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 'CANT_PEDIDA_PROVEEDOR'; - fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 'CANT_PENDIENTE_PEDIR'; - - { PedidoCliente_ArticulosPendientesPedirAProv field indexes } - idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO = 0; - idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO = 1; - idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE = 2; - idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR = 3; - idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR = 4; - idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR = 5; - - { DarReferencia fields } - fld_DarReferenciaVALOR = 'VALOR'; - - { DarReferencia field indexes } - idx_DarReferenciaVALOR = 0; - - { PedidosCliente fields } - fld_PedidosClienteID = 'ID'; - fld_PedidosClienteID_EMPRESA = 'ID_EMPRESA'; - 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'; - fld_PedidosClienteCODIGO_POSTAL = 'CODIGO_POSTAL'; - fld_PedidosClientePOBLACION = 'POBLACION'; - fld_PedidosClientePROVINCIA = 'PROVINCIA'; - fld_PedidosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; - fld_PedidosClienteTELEFONO = 'TELEFONO'; - fld_PedidosClienteOBSERVACIONES = 'OBSERVACIONES'; - fld_PedidosClienteINCIDENCIAS = 'INCIDENCIAS'; - fld_PedidosClienteINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS'; - fld_PedidosClienteFECHA_ALTA = 'FECHA_ALTA'; - fld_PedidosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_PedidosClienteUSUARIO = 'USUARIO'; - fld_PedidosClienteIMPORTE_NETO = 'IMPORTE_NETO'; - fld_PedidosClienteIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_PedidosClienteDESCUENTO = 'DESCUENTO'; - fld_PedidosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; - fld_PedidosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE'; - fld_PedidosClienteIVA = 'IVA'; - fld_PedidosClienteIMPORTE_IVA = 'IMPORTE_IVA'; - fld_PedidosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_PedidosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO'; - fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB'; - fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; - - { PedidosCliente field indexes } - idx_PedidosClienteID = 0; - idx_PedidosClienteID_EMPRESA = 1; - idx_PedidosClienteID_CLIENTE = 2; - idx_PedidosClienteNOMBRE = 3; - idx_PedidosClienteREFERENCIA = 4; - 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'; - fld_PedidosCliente_DetallesID_PEDIDO = 'ID_PEDIDO'; - fld_PedidosCliente_DetallesPOSICION = 'POSICION'; - fld_PedidosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; - fld_PedidosCliente_DetallesREFERENCIA = 'REFERENCIA'; - fld_PedidosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; - fld_PedidosCliente_DetallesCONCEPTO = 'CONCEPTO'; - fld_PedidosCliente_DetallesCANTIDAD = 'CANTIDAD'; - fld_PedidosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; - fld_PedidosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_PedidosCliente_DetallesDESCUENTO = 'DESCUENTO'; - fld_PedidosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_PedidosCliente_DetallesVISIBLE = 'VISIBLE'; - fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; - - { PedidosCliente_Detalles field indexes } - idx_PedidosCliente_DetallesID = 0; - idx_PedidosCliente_DetallesID_PEDIDO = 1; - idx_PedidosCliente_DetallesPOSICION = 2; - idx_PedidosCliente_DetallesTIPO_DETALLE = 3; - idx_PedidosCliente_DetallesREFERENCIA = 4; - idx_PedidosCliente_DetallesID_ARTICULO = 5; - idx_PedidosCliente_DetallesCONCEPTO = 6; - idx_PedidosCliente_DetallesCANTIDAD = 7; - idx_PedidosCliente_DetallesIMPORTE_UNIDAD = 8; - idx_PedidosCliente_DetallesIMPORTE_TOTAL = 9; - idx_PedidosCliente_DetallesDESCUENTO = 10; - idx_PedidosCliente_DetallesIMPORTE_PORTE = 11; - idx_PedidosCliente_DetallesVISIBLE = 12; - idx_PedidosCliente_DetallesREFERENCIA_PROVEEDOR = 13; - - { PedidosCliente_Refresh fields } - fld_PedidosCliente_RefreshID = 'ID'; - fld_PedidosCliente_RefreshID_EMPRESA = 'ID_EMPRESA'; - 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'; - fld_PedidosCliente_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL'; - fld_PedidosCliente_RefreshPOBLACION = 'POBLACION'; - fld_PedidosCliente_RefreshPROVINCIA = 'PROVINCIA'; - fld_PedidosCliente_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO'; - fld_PedidosCliente_RefreshTELEFONO = 'TELEFONO'; - fld_PedidosCliente_RefreshOBSERVACIONES = 'OBSERVACIONES'; - fld_PedidosCliente_RefreshINCIDENCIAS = 'INCIDENCIAS'; - fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS'; - fld_PedidosCliente_RefreshFECHA_ALTA = 'FECHA_ALTA'; - fld_PedidosCliente_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION'; - fld_PedidosCliente_RefreshUSUARIO = 'USUARIO'; - fld_PedidosCliente_RefreshIMPORTE_NETO = 'IMPORTE_NETO'; - fld_PedidosCliente_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_PedidosCliente_RefreshDESCUENTO = 'DESCUENTO'; - fld_PedidosCliente_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; - fld_PedidosCliente_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE'; - fld_PedidosCliente_RefreshIVA = 'IVA'; - fld_PedidosCliente_RefreshIMPORTE_IVA = 'IMPORTE_IVA'; - fld_PedidosCliente_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_PedidosCliente_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO'; - fld_PedidosCliente_RefreshREF_TIENDA_WEB = 'REF_TIENDA_WEB'; - fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; - - { PedidosCliente_Refresh field indexes } - idx_PedidosCliente_RefreshID = 0; - idx_PedidosCliente_RefreshID_EMPRESA = 1; - idx_PedidosCliente_RefreshID_CLIENTE = 2; - idx_PedidosCliente_RefreshNOMBRE = 3; - idx_PedidosCliente_RefreshREFERENCIA = 4; - 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'; - fld_PedidosCliente_Detalles_RefreshID_PEDIDO = 'ID_PEDIDO'; - fld_PedidosCliente_Detalles_RefreshPOSICION = 'POSICION'; - fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE = 'TIPO_DETALLE'; - fld_PedidosCliente_Detalles_RefreshREFERENCIA = 'REFERENCIA'; - fld_PedidosCliente_Detalles_RefreshID_ARTICULO = 'ID_ARTICULO'; - fld_PedidosCliente_Detalles_RefreshCONCEPTO = 'CONCEPTO'; - fld_PedidosCliente_Detalles_RefreshCANTIDAD = 'CANTIDAD'; - fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; - fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL'; - fld_PedidosCliente_Detalles_RefreshDESCUENTO = 'DESCUENTO'; - fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE'; - fld_PedidosCliente_Detalles_RefreshVISIBLE = 'VISIBLE'; - fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; - - { PedidosCliente_Detalles_Refresh field indexes } - idx_PedidosCliente_Detalles_RefreshID = 0; - idx_PedidosCliente_Detalles_RefreshID_PEDIDO = 1; - idx_PedidosCliente_Detalles_RefreshPOSICION = 2; - idx_PedidosCliente_Detalles_RefreshTIPO_DETALLE = 3; - idx_PedidosCliente_Detalles_RefreshREFERENCIA = 4; - idx_PedidosCliente_Detalles_RefreshID_ARTICULO = 5; - idx_PedidosCliente_Detalles_RefreshCONCEPTO = 6; - idx_PedidosCliente_Detalles_RefreshCANTIDAD = 7; - idx_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD = 8; - idx_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL = 9; - idx_PedidosCliente_Detalles_RefreshDESCUENTO = 10; - idx_PedidosCliente_Detalles_RefreshIMPORTE_PORTE = 11; - idx_PedidosCliente_Detalles_RefreshVISIBLE = 12; - idx_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR = 13; - - { PedidoCliente_Articulos_Pendientes fields } - fld_PedidoCliente_Articulos_PendientesID_ARTICULO = 'ID_ARTICULO'; - fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED = 'CANTIDAD_PED'; - fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB = 'CANTIDAD_ALB'; - fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE = 'CANTIDAD_PENDIENTE'; - - { PedidoCliente_Articulos_Pendientes field indexes } - idx_PedidoCliente_Articulos_PendientesID_ARTICULO = 0; - idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED = 1; - idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB = 2; - idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE = 3; - -type - { IPedidoCliente_ArticulosPendientesPedirAProv } - IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable) - ['{064BDEF0-26EC-4877-A5F4-64B215751C76}'] - { Property getters and setters } - function GetID_PEDIDOValue: Integer; - procedure SetID_PEDIDOValue(const aValue: Integer); - function GetID_PEDIDOIsNull: Boolean; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); - function GetCANT_PEDIDA_CLIENTEValue: Integer; - procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); - function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; - procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); - function GetID_PROVEEDORValue: Integer; - procedure SetID_PROVEEDORValue(const aValue: Integer); - function GetID_PROVEEDORIsNull: Boolean; - procedure SetID_PROVEEDORIsNull(const aValue: Boolean); - function GetCANT_PEDIDA_PROVEEDORValue: Integer; - procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); - function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; - procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); - function GetCANT_PENDIENTE_PEDIRValue: Integer; - procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); - function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; - procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); - - - { Properties } - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; - property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; - property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; - property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; - property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; - property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; - property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; - end; - - { TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } - TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_ArticulosPendientesPedirAProv) - private - protected - { Property getters and setters } - function GetID_PEDIDOValue: Integer; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCANT_PEDIDA_CLIENTEValue: Integer; virtual; - procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); virtual; - function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual; - procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetID_PROVEEDORValue: Integer; virtual; - procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; - function GetID_PROVEEDORIsNull: Boolean; virtual; - procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCANT_PEDIDA_PROVEEDORValue: Integer; virtual; - procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); virtual; - function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual; - procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCANT_PENDIENTE_PEDIRValue: Integer; virtual; - procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); virtual; - function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual; - procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CANT_PEDIDA_CLIENTE: Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; - property CANT_PEDIDA_CLIENTEIsNull: Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; - property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; - property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property CANT_PEDIDA_PROVEEDOR: Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; - property CANT_PEDIDA_PROVEEDORIsNull: Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; - property CANT_PENDIENTE_PEDIR: Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; - property CANT_PENDIENTE_PEDIRIsNull: Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IDarReferencia } - IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{36B069E3-E657-4F84-9705-E7FA237ADCFE}'] - { Property getters and setters } - function GetVALORValue: String; - procedure SetVALORValue(const aValue: String); - function GetVALORIsNull: Boolean; - procedure SetVALORIsNull(const aValue: Boolean); - - - { Properties } - property VALOR: String read GetVALORValue write SetVALORValue; - property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; - end; - - { TDarReferenciaDataTableRules } - TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia) - private - protected - { Property getters and setters } - function GetVALORValue: String; virtual; - procedure SetVALORValue(const aValue: String); virtual; - function GetVALORIsNull: Boolean; virtual; - procedure SetVALORIsNull(const aValue: Boolean); virtual; - - { Properties } - property VALOR: String read GetVALORValue write SetVALORValue; - property VALORIsNull: Boolean read GetVALORIsNull write SetVALORIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPedidosCliente } - IPedidosCliente = interface(IDAStronglyTypedDataTable) - ['{660989E3-0DF3-487B-A693-E933E797131F}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetID_EMPRESAIsNull: Boolean; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); - function GetID_CLIENTEValue: Integer; - procedure SetID_CLIENTEValue(const aValue: Integer); - function GetID_CLIENTEIsNull: Boolean; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetNOMBREIsNull: Boolean; - procedure SetNOMBREIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetREFERENCIA_CLIENTEValue: String; - procedure SetREFERENCIA_CLIENTEValue(const aValue: String); - function GetREFERENCIA_CLIENTEIsNull: Boolean; - procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); - function GetSITUACIONValue: String; - procedure SetSITUACIONValue(const aValue: String); - function GetSITUACIONIsNull: Boolean; - procedure SetSITUACIONIsNull(const aValue: Boolean); - function GetFECHA_PEDIDOValue: DateTime; - procedure SetFECHA_PEDIDOValue(const aValue: DateTime); - function GetFECHA_PEDIDOIsNull: Boolean; - procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); - function GetCALLEValue: String; - procedure SetCALLEValue(const aValue: String); - function GetCALLEIsNull: Boolean; - procedure SetCALLEIsNull(const aValue: Boolean); - function GetCODIGO_POSTALValue: String; - procedure SetCODIGO_POSTALValue(const aValue: String); - function GetCODIGO_POSTALIsNull: Boolean; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); - function GetPOBLACIONValue: String; - procedure SetPOBLACIONValue(const aValue: String); - function GetPOBLACIONIsNull: Boolean; - procedure SetPOBLACIONIsNull(const aValue: Boolean); - function GetPROVINCIAValue: String; - procedure SetPROVINCIAValue(const aValue: String); - function GetPROVINCIAIsNull: Boolean; - procedure SetPROVINCIAIsNull(const aValue: Boolean); - function GetPERSONA_CONTACTOValue: String; - procedure SetPERSONA_CONTACTOValue(const aValue: String); - function GetPERSONA_CONTACTOIsNull: Boolean; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); - function GetTELEFONOValue: String; - procedure SetTELEFONOValue(const aValue: String); - function GetTELEFONOIsNull: Boolean; - procedure SetTELEFONOIsNull(const aValue: Boolean); - function GetOBSERVACIONESValue: IROStrings; - function GetOBSERVACIONESIsNull: Boolean; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); - function GetINCIDENCIASValue: IROStrings; - function GetINCIDENCIASIsNull: Boolean; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); - function GetINCIDENCIAS_ACTIVASValue: Integer; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_ALTAIsNull: Boolean; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONIsNull: Boolean; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); - function GetUSUARIOIsNull: Boolean; - procedure SetUSUARIOIsNull(const aValue: Boolean); - function GetIMPORTE_NETOValue: Currency; - procedure SetIMPORTE_NETOValue(const aValue: Currency); - function GetIMPORTE_NETOIsNull: Boolean; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Currency; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_DESCUENTOValue: Currency; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); - function GetIMPORTE_DESCUENTOIsNull: Boolean; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); - function GetBASE_IMPONIBLEValue: Currency; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); - function GetBASE_IMPONIBLEIsNull: Boolean; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); - function GetIVAValue: Float; - procedure SetIVAValue(const aValue: Float); - function GetIVAIsNull: Boolean; - procedure SetIVAIsNull(const aValue: Boolean); - function GetIMPORTE_IVAValue: Currency; - procedure SetIMPORTE_IVAValue(const aValue: Currency); - function GetIMPORTE_IVAIsNull: Boolean; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetID_FORMA_PAGOValue: Integer; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); - function GetID_FORMA_PAGOIsNull: Boolean; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); - function GetREF_TIENDA_WEBValue: Integer; - procedure SetREF_TIENDA_WEBValue(const aValue: Integer); - function GetREF_TIENDA_WEBIsNull: Boolean; - procedure SetREF_TIENDA_WEBIsNull(const aValue: Boolean); - function GetFECHA_PREVISTA_ENVIOValue: DateTime; - procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); - function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; - procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; - property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; - property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; - property FECHA_PEDIDOIsNull: Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; - property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull; - property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; - property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; - end; - - { TPedidosClienteDataTableRules } - TPedidosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente) - private - f_OBSERVACIONES: IROStrings; - f_INCIDENCIAS: IROStrings; - procedure OBSERVACIONES_OnChange(Sender: TObject); - procedure INCIDENCIAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetIDIsNull: Boolean; virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetID_CLIENTEValue: Integer; virtual; - procedure SetID_CLIENTEValue(const aValue: Integer); virtual; - function GetID_CLIENTEIsNull: Boolean; virtual; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_CLIENTEValue: String; virtual; - procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; - function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; - procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetSITUACIONValue: String; virtual; - procedure SetSITUACIONValue(const aValue: String); virtual; - function GetSITUACIONIsNull: Boolean; virtual; - procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; - function GetFECHA_PEDIDOValue: DateTime; virtual; - procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; - function GetFECHA_PEDIDOIsNull: Boolean; virtual; - procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - function GetCALLEIsNull: Boolean; virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetPERSONA_CONTACTOValue: String; virtual; - procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; - function GetPERSONA_CONTACTOIsNull: Boolean; virtual; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; - function GetTELEFONOValue: String; virtual; - procedure SetTELEFONOValue(const aValue: String); virtual; - function GetTELEFONOIsNull: Boolean; virtual; - procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: IROStrings; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIASValue: IROStrings; virtual; - function GetINCIDENCIASIsNull: Boolean; virtual; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - function GetUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_NETOValue: Currency; virtual; - procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; - function GetIMPORTE_NETOIsNull: Boolean; virtual; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_DESCUENTOValue: Currency; virtual; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; - function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; - function GetBASE_IMPONIBLEValue: Currency; virtual; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; - function GetBASE_IMPONIBLEIsNull: Boolean; virtual; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - function GetIVAIsNull: Boolean; virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_IVAValue: Currency; virtual; - procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; - function GetIMPORTE_IVAIsNull: Boolean; virtual; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetID_FORMA_PAGOValue: Integer; virtual; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; - function GetID_FORMA_PAGOIsNull: Boolean; virtual; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetREF_TIENDA_WEBValue: Integer; virtual; - procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual; - function GetREF_TIENDA_WEBIsNull: Boolean; virtual; - procedure SetREF_TIENDA_WEBIsNull(const aValue: Boolean); virtual; - function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; - procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; - function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual; - procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; - property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; - property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; - property FECHA_PEDIDOIsNull: Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; - property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull; - property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; - property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPedidosCliente_Detalles } - IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{B053F6D8-E46C-4796-9FBB-60CDB2C89A79}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_PEDIDOValue: Integer; - procedure SetID_PEDIDOValue(const aValue: Integer); - function GetID_PEDIDOIsNull: Boolean; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); - function GetPOSICIONValue: Integer; - procedure SetPOSICIONValue(const aValue: Integer); - function GetPOSICIONIsNull: Boolean; - procedure SetPOSICIONIsNull(const aValue: Boolean); - function GetTIPO_DETALLEValue: String; - procedure SetTIPO_DETALLEValue(const aValue: String); - function GetTIPO_DETALLEIsNull: Boolean; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); - function GetCONCEPTOValue: String; - procedure SetCONCEPTOValue(const aValue: String); - function GetCONCEPTOIsNull: Boolean; - procedure SetCONCEPTOIsNull(const aValue: Boolean); - function GetCANTIDADValue: Integer; - procedure SetCANTIDADValue(const aValue: Integer); - function GetCANTIDADIsNull: Boolean; - procedure SetCANTIDADIsNull(const aValue: Boolean); - function GetIMPORTE_UNIDADValue: Currency; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); - function GetIMPORTE_UNIDADIsNull: Boolean; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Currency; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetVISIBLEValue: Integer; - procedure SetVISIBLEValue(const aValue: Integer); - function GetVISIBLEIsNull: Boolean; - procedure SetVISIBLEIsNull(const aValue: Boolean); - function GetREFERENCIA_PROVEEDORValue: String; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); - function GetREFERENCIA_PROVEEDORIsNull: Boolean; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - end; - - { TPedidosCliente_DetallesDataTableRules } - TPedidosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetIDIsNull: Boolean; virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_PEDIDOValue: Integer; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetPOSICIONValue: Integer; virtual; - procedure SetPOSICIONValue(const aValue: Integer); virtual; - function GetPOSICIONIsNull: Boolean; virtual; - procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; - function GetTIPO_DETALLEValue: String; virtual; - procedure SetTIPO_DETALLEValue(const aValue: String); virtual; - function GetTIPO_DETALLEIsNull: Boolean; virtual; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetCANTIDADValue: Integer; virtual; - procedure SetCANTIDADValue(const aValue: Integer); virtual; - function GetCANTIDADIsNull: Boolean; virtual; - procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_UNIDADValue: Currency; virtual; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; - function GetIMPORTE_UNIDADIsNull: Boolean; virtual; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; - function GetVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPedidosCliente_Refresh } - IPedidosCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{0228E95A-F978-48BD-8D80-4574C7696690}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_EMPRESAValue: Integer; - procedure SetID_EMPRESAValue(const aValue: Integer); - function GetID_EMPRESAIsNull: Boolean; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); - function GetID_CLIENTEValue: Integer; - procedure SetID_CLIENTEValue(const aValue: Integer); - function GetID_CLIENTEIsNull: Boolean; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); - function GetNOMBREValue: String; - procedure SetNOMBREValue(const aValue: String); - function GetNOMBREIsNull: Boolean; - procedure SetNOMBREIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetREFERENCIA_CLIENTEValue: String; - procedure SetREFERENCIA_CLIENTEValue(const aValue: String); - function GetREFERENCIA_CLIENTEIsNull: Boolean; - procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); - function GetSITUACIONValue: String; - procedure SetSITUACIONValue(const aValue: String); - function GetSITUACIONIsNull: Boolean; - procedure SetSITUACIONIsNull(const aValue: Boolean); - function GetFECHA_PEDIDOValue: DateTime; - procedure SetFECHA_PEDIDOValue(const aValue: DateTime); - function GetFECHA_PEDIDOIsNull: Boolean; - procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); - function GetCALLEValue: String; - procedure SetCALLEValue(const aValue: String); - function GetCALLEIsNull: Boolean; - procedure SetCALLEIsNull(const aValue: Boolean); - function GetCODIGO_POSTALValue: String; - procedure SetCODIGO_POSTALValue(const aValue: String); - function GetCODIGO_POSTALIsNull: Boolean; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); - function GetPOBLACIONValue: String; - procedure SetPOBLACIONValue(const aValue: String); - function GetPOBLACIONIsNull: Boolean; - procedure SetPOBLACIONIsNull(const aValue: Boolean); - function GetPROVINCIAValue: String; - procedure SetPROVINCIAValue(const aValue: String); - function GetPROVINCIAIsNull: Boolean; - procedure SetPROVINCIAIsNull(const aValue: Boolean); - function GetPERSONA_CONTACTOValue: String; - procedure SetPERSONA_CONTACTOValue(const aValue: String); - function GetPERSONA_CONTACTOIsNull: Boolean; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); - function GetTELEFONOValue: String; - procedure SetTELEFONOValue(const aValue: String); - function GetTELEFONOIsNull: Boolean; - procedure SetTELEFONOIsNull(const aValue: Boolean); - function GetOBSERVACIONESValue: IROStrings; - function GetOBSERVACIONESIsNull: Boolean; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); - function GetINCIDENCIASValue: IROStrings; - function GetINCIDENCIASIsNull: Boolean; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); - function GetINCIDENCIAS_ACTIVASValue: Integer; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_ALTAIsNull: Boolean; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONIsNull: Boolean; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); - function GetUSUARIOValue: String; - procedure SetUSUARIOValue(const aValue: String); - function GetUSUARIOIsNull: Boolean; - procedure SetUSUARIOIsNull(const aValue: Boolean); - function GetIMPORTE_NETOValue: Currency; - procedure SetIMPORTE_NETOValue(const aValue: Currency); - function GetIMPORTE_NETOIsNull: Boolean; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Currency; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_DESCUENTOValue: Currency; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); - function GetIMPORTE_DESCUENTOIsNull: Boolean; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); - function GetBASE_IMPONIBLEValue: Currency; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); - function GetBASE_IMPONIBLEIsNull: Boolean; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); - function GetIVAValue: Float; - procedure SetIVAValue(const aValue: Float); - function GetIVAIsNull: Boolean; - procedure SetIVAIsNull(const aValue: Boolean); - function GetIMPORTE_IVAValue: Currency; - procedure SetIMPORTE_IVAValue(const aValue: Currency); - function GetIMPORTE_IVAIsNull: Boolean; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetID_FORMA_PAGOValue: Integer; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); - function GetID_FORMA_PAGOIsNull: Boolean; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); - function GetREF_TIENDA_WEBValue: Integer; - procedure SetREF_TIENDA_WEBValue(const aValue: Integer); - function GetREF_TIENDA_WEBIsNull: Boolean; - procedure SetREF_TIENDA_WEBIsNull(const aValue: Boolean); - function GetFECHA_PREVISTA_ENVIOValue: DateTime; - procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); - function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; - procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; - property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; - property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; - property FECHA_PEDIDOIsNull: Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; - property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull; - property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; - property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; - end; - - { TPedidosCliente_RefreshDataTableRules } - TPedidosCliente_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Refresh) - private - f_OBSERVACIONES: IROStrings; - f_INCIDENCIAS: IROStrings; - procedure OBSERVACIONES_OnChange(Sender: TObject); - procedure INCIDENCIAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetIDIsNull: Boolean; virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetID_CLIENTEValue: Integer; virtual; - procedure SetID_CLIENTEValue(const aValue: Integer); virtual; - function GetID_CLIENTEIsNull: Boolean; virtual; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - function GetNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_CLIENTEValue: String; virtual; - procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; - function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; - procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetSITUACIONValue: String; virtual; - procedure SetSITUACIONValue(const aValue: String); virtual; - function GetSITUACIONIsNull: Boolean; virtual; - procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; - function GetFECHA_PEDIDOValue: DateTime; virtual; - procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; - function GetFECHA_PEDIDOIsNull: Boolean; virtual; - procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - function GetCALLEIsNull: Boolean; virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetPERSONA_CONTACTOValue: String; virtual; - procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; - function GetPERSONA_CONTACTOIsNull: Boolean; virtual; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; - function GetTELEFONOValue: String; virtual; - procedure SetTELEFONOValue(const aValue: String); virtual; - function GetTELEFONOIsNull: Boolean; virtual; - procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: IROStrings; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIASValue: IROStrings; virtual; - function GetINCIDENCIASIsNull: Boolean; virtual; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - function GetUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_NETOValue: Currency; virtual; - procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; - function GetIMPORTE_NETOIsNull: Boolean; virtual; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_DESCUENTOValue: Currency; virtual; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; - function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; - function GetBASE_IMPONIBLEValue: Currency; virtual; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; - function GetBASE_IMPONIBLEIsNull: Boolean; virtual; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - function GetIVAIsNull: Boolean; virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_IVAValue: Currency; virtual; - procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; - function GetIMPORTE_IVAIsNull: Boolean; virtual; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetID_FORMA_PAGOValue: Integer; virtual; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; - function GetID_FORMA_PAGOIsNull: Boolean; virtual; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetREF_TIENDA_WEBValue: Integer; virtual; - procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual; - function GetREF_TIENDA_WEBIsNull: Boolean; virtual; - procedure SetREF_TIENDA_WEBIsNull(const aValue: Boolean); virtual; - function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; - procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; - function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual; - procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property REFERENCIA_CLIENTE: String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; - property REFERENCIA_CLIENTEIsNull: Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; - property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property FECHA_PEDIDO: DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; - property FECHA_PEDIDOIsNull: Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; - property CALLE: String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; - property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property INCIDENCIAS: IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property IVA: Float read GetIVAValue write SetIVAValue; - property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; - property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property REF_TIENDA_WEB: Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; - property REF_TIENDA_WEBIsNull: Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull; - property FECHA_PREVISTA_ENVIO: DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; - property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPedidosCliente_Detalles_Refresh } - IPedidosCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable) - ['{1D9DEA21-42AD-44C3-9F01-74291279DB09}'] - { Property getters and setters } - function GetIDValue: Integer; - procedure SetIDValue(const aValue: Integer); - function GetIDIsNull: Boolean; - procedure SetIDIsNull(const aValue: Boolean); - function GetID_PEDIDOValue: Integer; - procedure SetID_PEDIDOValue(const aValue: Integer); - function GetID_PEDIDOIsNull: Boolean; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); - function GetPOSICIONValue: Integer; - procedure SetPOSICIONValue(const aValue: Integer); - function GetPOSICIONIsNull: Boolean; - procedure SetPOSICIONIsNull(const aValue: Boolean); - function GetTIPO_DETALLEValue: String; - procedure SetTIPO_DETALLEValue(const aValue: String); - function GetTIPO_DETALLEIsNull: Boolean; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); - function GetREFERENCIAValue: String; - procedure SetREFERENCIAValue(const aValue: String); - function GetREFERENCIAIsNull: Boolean; - procedure SetREFERENCIAIsNull(const aValue: Boolean); - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); - function GetCONCEPTOValue: String; - procedure SetCONCEPTOValue(const aValue: String); - function GetCONCEPTOIsNull: Boolean; - procedure SetCONCEPTOIsNull(const aValue: Boolean); - function GetCANTIDADValue: Integer; - procedure SetCANTIDADValue(const aValue: Integer); - function GetCANTIDADIsNull: Boolean; - procedure SetCANTIDADIsNull(const aValue: Boolean); - function GetIMPORTE_UNIDADValue: Currency; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); - function GetIMPORTE_UNIDADIsNull: Boolean; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); - function GetIMPORTE_TOTALIsNull: Boolean; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Currency; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); - function GetVISIBLEValue: Integer; - procedure SetVISIBLEValue(const aValue: Integer); - function GetVISIBLEIsNull: Boolean; - procedure SetVISIBLEIsNull(const aValue: Boolean); - function GetREFERENCIA_PROVEEDORValue: String; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); - function GetREFERENCIA_PROVEEDORIsNull: Boolean; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); - - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - end; - - { TPedidosCliente_Detalles_RefreshDataTableRules } - TPedidosCliente_Detalles_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IPedidosCliente_Detalles_Refresh) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - function GetIDIsNull: Boolean; virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_PEDIDOValue: Integer; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetPOSICIONValue: Integer; virtual; - procedure SetPOSICIONValue(const aValue: Integer); virtual; - function GetPOSICIONIsNull: Boolean; virtual; - procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; - function GetTIPO_DETALLEValue: String; virtual; - procedure SetTIPO_DETALLEValue(const aValue: String); virtual; - function GetTIPO_DETALLEIsNull: Boolean; virtual; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetCANTIDADValue: Integer; virtual; - procedure SetCANTIDADValue(const aValue: Integer); virtual; - function GetCANTIDADIsNull: Boolean; virtual; - procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_UNIDADValue: Currency; virtual; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; - function GetIMPORTE_UNIDADIsNull: Boolean; virtual; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; - function GetVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID: Integer read GetIDValue write SetIDValue; - property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; - property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - - { IPedidoCliente_Articulos_Pendientes } - IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) - ['{0A970073-F28D-4401-A9D2-091BBB5A4D31}'] - { Property getters and setters } - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); - function GetCANTIDAD_PEDValue: Integer; - procedure SetCANTIDAD_PEDValue(const aValue: Integer); - function GetCANTIDAD_PEDIsNull: Boolean; - procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); - function GetCANTIDAD_ALBValue: Integer; - procedure SetCANTIDAD_ALBValue(const aValue: Integer); - function GetCANTIDAD_ALBIsNull: Boolean; - procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); - function GetCANTIDAD_PENDIENTEValue: Integer; - procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); - function GetCANTIDAD_PENDIENTEIsNull: Boolean; - procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); - - - { Properties } - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue; - property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull; - property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue; - property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull; - property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; - property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull; - end; - - { TPedidoCliente_Articulos_PendientesDataTableRules } - TPedidoCliente_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidoCliente_Articulos_Pendientes) - private - protected - { Property getters and setters } - function GetID_ARTICULOValue: Integer; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCANTIDAD_PEDValue: Integer; virtual; - procedure SetCANTIDAD_PEDValue(const aValue: Integer); virtual; - function GetCANTIDAD_PEDIsNull: Boolean; virtual; - procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual; - function GetCANTIDAD_ALBValue: Integer; virtual; - procedure SetCANTIDAD_ALBValue(const aValue: Integer); virtual; - function GetCANTIDAD_ALBIsNull: Boolean; virtual; - procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual; - function GetCANTIDAD_PENDIENTEValue: Integer; virtual; - procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual; - function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual; - procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property CANTIDAD_PED: Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue; - property CANTIDAD_PEDIsNull: Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull; - property CANTIDAD_ALB: Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue; - property CANTIDAD_ALBIsNull: Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull; - property CANTIDAD_PENDIENTE: Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; - property CANTIDAD_PENDIENTEIsNull: Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull; - - public - constructor Create(aDataTable: TDADataTable); override; - destructor Destroy; override; - - end; - -implementation - -uses Variants, uROBinaryHelpers; - -{ TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules } -constructor TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.Destroy; -begin - inherited; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PEDIDOValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsInteger; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PEDIDOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsInteger := aValue; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PEDIDOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].IsNull; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO].AsVariant := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsInteger := aValue; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].IsNull; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO].AsVariant := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsInteger := aValue; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].IsNull; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE].AsVariant := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PROVEEDORValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsInteger; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PROVEEDORValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsInteger := aValue; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetID_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].IsNull; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR].AsVariant := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsInteger := aValue; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PEDIDA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].IsNull; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR].AsVariant := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsInteger := aValue; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.GetCANT_PENDIENTE_PEDIRIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].IsNull; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules.SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR].AsVariant := Null; -end; - - -{ TDarReferenciaDataTableRules } -constructor TDarReferenciaDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TDarReferenciaDataTableRules.Destroy; -begin - inherited; -end; - -function TDarReferenciaDataTableRules.GetVALORValue: String; -begin - result := DataTable.Fields[idx_DarReferenciaVALOR].AsString; -end; - -procedure TDarReferenciaDataTableRules.SetVALORValue(const aValue: String); -begin - DataTable.Fields[idx_DarReferenciaVALOR].AsString := aValue; -end; - -function TDarReferenciaDataTableRules.GetVALORIsNull: boolean; -begin - result := DataTable.Fields[idx_DarReferenciaVALOR].IsNull; -end; - -procedure TDarReferenciaDataTableRules.SetVALORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_DarReferenciaVALOR].AsVariant := Null; -end; - - -{ TPedidosClienteDataTableRules } -constructor TPedidosClienteDataTableRules.Create(aDataTable: TDADataTable); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := OBSERVACIONES_OnChange; - f_OBSERVACIONES := NewROStrings(StrList,True); - - StrList := TStringList.Create; - StrList.OnChange := INCIDENCIAS_OnChange; - f_INCIDENCIAS := NewROStrings(StrList,True); -end; - -destructor TPedidosClienteDataTableRules.Destroy; -begin - inherited; -end; - -procedure TPedidosClienteDataTableRules.OBSERVACIONES_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_PedidosClienteOBSERVACIONES].AsVariant := TStringList(Sender).Text; -end; - -procedure TPedidosClienteDataTableRules.INCIDENCIAS_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_PedidosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text; -end; - -function TPedidosClienteDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_PedidosClienteID].AsInteger; -end; - -procedure TPedidosClienteDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosClienteID].AsInteger := aValue; -end; - -function TPedidosClienteDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteID].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteID].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetID_EMPRESAValue: Integer; -begin - result := DataTable.Fields[idx_PedidosClienteID_EMPRESA].AsInteger; -end; - -procedure TPedidosClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosClienteID_EMPRESA].AsInteger := aValue; -end; - -function TPedidosClienteDataTableRules.GetID_EMPRESAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteID_EMPRESA].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteID_EMPRESA].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetID_CLIENTEValue: Integer; -begin - result := DataTable.Fields[idx_PedidosClienteID_CLIENTE].AsInteger; -end; - -procedure TPedidosClienteDataTableRules.SetID_CLIENTEValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosClienteID_CLIENTE].AsInteger := aValue; -end; - -function TPedidosClienteDataTableRules.GetID_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteID_CLIENTE].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteID_CLIENTE].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteNOMBRE].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteNOMBRE].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetNOMBREIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteNOMBRE].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteNOMBRE].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteREFERENCIA].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteREFERENCIA].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteREFERENCIA].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteREFERENCIA].AsVariant := Null; -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.GetREFERENCIA_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteREFERENCIA_CLIENTE].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteREFERENCIA_CLIENTE].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetSITUACIONValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteSITUACION].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetSITUACIONValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteSITUACION].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetSITUACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteSITUACION].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteSITUACION].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetFECHA_PEDIDOValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_PEDIDO].AsDateTime; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_PEDIDOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosClienteFECHA_PEDIDO].AsDateTime := aValue; -end; - -function TPedidosClienteDataTableRules.GetFECHA_PEDIDOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_PEDIDO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteFECHA_PEDIDO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetCALLEValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteCALLE].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetCALLEValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteCALLE].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetCALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteCALLE].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteCALLE].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetCODIGO_POSTALValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteCODIGO_POSTAL].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetCODIGO_POSTALValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteCODIGO_POSTAL].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetCODIGO_POSTALIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteCODIGO_POSTAL].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteCODIGO_POSTAL].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetPOBLACIONValue: String; -begin - result := DataTable.Fields[idx_PedidosClientePOBLACION].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetPOBLACIONValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClientePOBLACION].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetPOBLACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClientePOBLACION].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClientePOBLACION].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetPROVINCIAValue: String; -begin - result := DataTable.Fields[idx_PedidosClientePROVINCIA].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetPROVINCIAValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClientePROVINCIA].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetPROVINCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClientePROVINCIA].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClientePROVINCIA].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetPERSONA_CONTACTOValue: String; -begin - result := DataTable.Fields[idx_PedidosClientePERSONA_CONTACTO].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClientePERSONA_CONTACTO].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClientePERSONA_CONTACTO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClientePERSONA_CONTACTO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetTELEFONOValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteTELEFONO].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetTELEFONOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteTELEFONO].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetTELEFONOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteTELEFONO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteTELEFONO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetOBSERVACIONESValue: IROStrings; -begin - result := f_OBSERVACIONES; - result.Text := DataTable.Fields[idx_PedidosClienteOBSERVACIONES].AsString; -end; - -function TPedidosClienteDataTableRules.GetOBSERVACIONESIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteOBSERVACIONES].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteOBSERVACIONES].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetINCIDENCIASValue: IROStrings; -begin - result := f_INCIDENCIAS; - result.Text := DataTable.Fields[idx_PedidosClienteINCIDENCIAS].AsString; -end; - -function TPedidosClienteDataTableRules.GetINCIDENCIASIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteINCIDENCIAS].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteINCIDENCIAS].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer; -begin - result := DataTable.Fields[idx_PedidosClienteINCIDENCIAS_ACTIVAS].AsInteger; -end; - -procedure TPedidosClienteDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosClienteINCIDENCIAS_ACTIVAS].AsInteger := aValue; -end; - -function TPedidosClienteDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteINCIDENCIAS_ACTIVAS].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteINCIDENCIAS_ACTIVAS].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_ALTA].AsDateTime; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosClienteFECHA_ALTA].AsDateTime := aValue; -end; - -function TPedidosClienteDataTableRules.GetFECHA_ALTAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_ALTA].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteFECHA_ALTA].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_MODIFICACION].AsDateTime; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosClienteFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TPedidosClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_MODIFICACION].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteFECHA_MODIFICACION].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_PedidosClienteUSUARIO].AsString; -end; - -procedure TPedidosClienteDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosClienteUSUARIO].AsString := aValue; -end; - -function TPedidosClienteDataTableRules.GetUSUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteUSUARIO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteUSUARIO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_NETOValue: Currency; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_NETO].AsCurrency; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosClienteIMPORTE_NETO].AsCurrency := aValue; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_NETOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_NETO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteIMPORTE_NETO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_PORTEValue: Currency; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_PORTE].AsCurrency; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosClienteIMPORTE_PORTE].AsCurrency := aValue; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_PORTE].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteIMPORTE_PORTE].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_PedidosClienteDESCUENTO].AsFloat; -end; - -procedure TPedidosClienteDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_PedidosClienteDESCUENTO].AsFloat := aValue; -end; - -function TPedidosClienteDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteDESCUENTO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteDESCUENTO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsCurrency; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsCurrency := aValue; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteIMPORTE_DESCUENTO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetBASE_IMPONIBLEValue: Currency; -begin - result := DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsCurrency; -end; - -procedure TPedidosClienteDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsCurrency := aValue; -end; - -function TPedidosClienteDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteBASE_IMPONIBLE].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetIVAValue: Float; -begin - result := DataTable.Fields[idx_PedidosClienteIVA].AsFloat; -end; - -procedure TPedidosClienteDataTableRules.SetIVAValue(const aValue: Float); -begin - DataTable.Fields[idx_PedidosClienteIVA].AsFloat := aValue; -end; - -function TPedidosClienteDataTableRules.GetIVAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteIVA].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteIVA].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_IVAValue: Currency; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_IVA].AsCurrency; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosClienteIMPORTE_IVA].AsCurrency := aValue; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_IVAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_IVA].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteIMPORTE_IVA].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_TOTAL].AsCurrency; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosClienteIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TPedidosClienteDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteIMPORTE_TOTAL].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteIMPORTE_TOTAL].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetID_FORMA_PAGOValue: Integer; -begin - result := DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsInteger; -end; - -procedure TPedidosClienteDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsInteger := aValue; -end; - -function TPedidosClienteDataTableRules.GetID_FORMA_PAGOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteID_FORMA_PAGO].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetREF_TIENDA_WEBValue: Integer; -begin - result := DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsInteger; -end; - -procedure TPedidosClienteDataTableRules.SetREF_TIENDA_WEBValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsInteger := aValue; -end; - -function TPedidosClienteDataTableRules.GetREF_TIENDA_WEBIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetREF_TIENDA_WEBIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteREF_TIENDA_WEB].AsVariant := Null; -end; - -function TPedidosClienteDataTableRules.GetFECHA_PREVISTA_ENVIOValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsDateTime; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsDateTime := aValue; -end; - -function TPedidosClienteDataTableRules.GetFECHA_PREVISTA_ENVIOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].IsNull; -end; - -procedure TPedidosClienteDataTableRules.SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosClienteFECHA_PREVISTA_ENVIO].AsVariant := Null; -end; - - -{ TPedidosCliente_DetallesDataTableRules } -constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TPedidosCliente_DetallesDataTableRules.Destroy; -begin - inherited; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesID].AsInteger; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_DetallesID].AsInteger := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesID].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesID].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetID_PEDIDOValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesID_PEDIDO].AsInteger; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_DetallesID_PEDIDO].AsInteger := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetID_PEDIDOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesID_PEDIDO].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesID_PEDIDO].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetPOSICIONValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesPOSICION].AsInteger; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetPOSICIONValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_DetallesPOSICION].AsInteger := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetPOSICIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesPOSICION].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesPOSICION].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetTIPO_DETALLEValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesTIPO_DETALLE].AsString; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetTIPO_DETALLEValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_DetallesTIPO_DETALLE].AsString := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetTIPO_DETALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesTIPO_DETALLE].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesTIPO_DETALLE].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA].AsString; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA].AsString := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesID_ARTICULO].AsInteger; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_DetallesID_ARTICULO].AsInteger := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesID_ARTICULO].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesID_ARTICULO].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetCONCEPTOValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsString; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetCONCEPTOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsString := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetCONCEPTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesCONCEPTO].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsInteger := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesCANTIDAD].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_UNIDAD].AsCurrency; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_UNIDAD].AsCurrency := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_UNIDAD].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_UNIDAD].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_TOTAL].AsCurrency; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_TOTAL].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesDESCUENTO].AsFloat; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_PedidosCliente_DetallesDESCUENTO].AsFloat := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesDESCUENTO].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesDESCUENTO].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_PORTE].AsCurrency; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_PORTE].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesIMPORTE_PORTE].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetVISIBLEValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesVISIBLE].AsInteger; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_DetallesVISIBLE].AsInteger := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetVISIBLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesVISIBLE].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesVISIBLE].AsVariant := Null; -end; - -function TPedidosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA_PROVEEDOR].AsString; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA_PROVEEDOR].AsString := aValue; -end; - -function TPedidosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA_PROVEEDOR].IsNull; -end; - -procedure TPedidosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null; -end; - - -{ TPedidosCliente_RefreshDataTableRules } -constructor TPedidosCliente_RefreshDataTableRules.Create(aDataTable: TDADataTable); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := OBSERVACIONES_OnChange; - f_OBSERVACIONES := NewROStrings(StrList,True); - - StrList := TStringList.Create; - StrList.OnChange := INCIDENCIAS_OnChange; - f_INCIDENCIAS := NewROStrings(StrList,True); -end; - -destructor TPedidosCliente_RefreshDataTableRules.Destroy; -begin - inherited; -end; - -procedure TPedidosCliente_RefreshDataTableRules.OBSERVACIONES_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_PedidosCliente_RefreshOBSERVACIONES].AsVariant := TStringList(Sender).Text; -end; - -procedure TPedidosCliente_RefreshDataTableRules.INCIDENCIAS_OnChange(Sender: TObject); -begin - if DataTable.Editing then DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS].AsVariant := TStringList(Sender).Text; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID].AsInteger; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_RefreshID].AsInteger := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshID].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetID_EMPRESAValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID_EMPRESA].AsInteger; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_RefreshID_EMPRESA].AsInteger := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID_EMPRESA].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshID_EMPRESA].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetID_CLIENTEValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID_CLIENTE].AsInteger; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetID_CLIENTEValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_RefreshID_CLIENTE].AsInteger := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetID_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID_CLIENTE].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshID_CLIENTE].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetNOMBREValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshNOMBRE].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetNOMBREValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshNOMBRE].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetNOMBREIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshNOMBRE].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshNOMBRE].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA].AsVariant := Null; -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.GetREFERENCIA_CLIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA_CLIENTE].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshREFERENCIA_CLIENTE].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetSITUACIONValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetSITUACIONValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetSITUACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshSITUACION].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_PEDIDOValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PEDIDO].AsDateTime; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_PEDIDOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PEDIDO].AsDateTime := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_PEDIDOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PEDIDO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PEDIDO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetCALLEValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshCALLE].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetCALLEValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshCALLE].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetCALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshCALLE].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshCALLE].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetCODIGO_POSTALValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshCODIGO_POSTAL].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetCODIGO_POSTALValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshCODIGO_POSTAL].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetCODIGO_POSTALIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshCODIGO_POSTAL].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshCODIGO_POSTAL].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetPOBLACIONValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshPOBLACION].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetPOBLACIONValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshPOBLACION].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetPOBLACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshPOBLACION].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshPOBLACION].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetPROVINCIAValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshPROVINCIA].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetPROVINCIAValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshPROVINCIA].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetPROVINCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshPROVINCIA].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshPROVINCIA].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetPERSONA_CONTACTOValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshPERSONA_CONTACTO].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshPERSONA_CONTACTO].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshPERSONA_CONTACTO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshPERSONA_CONTACTO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetTELEFONOValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshTELEFONO].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetTELEFONOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshTELEFONO].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetTELEFONOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshTELEFONO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetTELEFONOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshTELEFONO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetOBSERVACIONESValue: IROStrings; -begin - result := f_OBSERVACIONES; - result.Text := DataTable.Fields[idx_PedidosCliente_RefreshOBSERVACIONES].AsString; -end; - -function TPedidosCliente_RefreshDataTableRules.GetOBSERVACIONESIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshOBSERVACIONES].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshOBSERVACIONES].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetINCIDENCIASValue: IROStrings; -begin - result := f_INCIDENCIAS; - result.Text := DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS].AsString; -end; - -function TPedidosCliente_RefreshDataTableRules.GetINCIDENCIASIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS].AsInteger; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS].AsInteger := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ALTA].AsDateTime; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ALTA].AsDateTime := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_ALTAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ALTA].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_ALTA].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_MODIFICACION].AsDateTime; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_MODIFICACION].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_MODIFICACION].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetUSUARIOValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshUSUARIO].AsString; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetUSUARIOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_RefreshUSUARIO].AsString := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetUSUARIOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshUSUARIO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshUSUARIO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_NETOValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_NETO].AsCurrency; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_NETO].AsCurrency := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_NETOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_NETO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_NETO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_PORTEValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_PORTE].AsCurrency; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_PORTE].AsCurrency := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_PORTE].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_PORTE].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshDESCUENTO].AsFloat; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_PedidosCliente_RefreshDESCUENTO].AsFloat := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshDESCUENTO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshDESCUENTO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_DESCUENTOValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_DESCUENTO].AsCurrency; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_DESCUENTO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_DESCUENTO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetBASE_IMPONIBLEValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshBASE_IMPONIBLE].AsCurrency; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_RefreshBASE_IMPONIBLE].AsCurrency := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshBASE_IMPONIBLE].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshBASE_IMPONIBLE].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIVAValue: Float; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIVA].AsFloat; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIVAValue(const aValue: Float); -begin - DataTable.Fields[idx_PedidosCliente_RefreshIVA].AsFloat := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIVAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIVA].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshIVA].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_IVAValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_IVA].AsCurrency; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_IVA].AsCurrency := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_IVAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_IVA].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_IVA].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_TOTAL].AsCurrency; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_TOTAL].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshIMPORTE_TOTAL].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetID_FORMA_PAGOValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID_FORMA_PAGO].AsInteger; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_RefreshID_FORMA_PAGO].AsInteger := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetID_FORMA_PAGOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshID_FORMA_PAGO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshID_FORMA_PAGO].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetREF_TIENDA_WEBValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshREF_TIENDA_WEB].AsInteger; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetREF_TIENDA_WEBValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_RefreshREF_TIENDA_WEB].AsInteger := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetREF_TIENDA_WEBIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshREF_TIENDA_WEB].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetREF_TIENDA_WEBIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshREF_TIENDA_WEB].AsVariant := Null; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_PREVISTA_ENVIOValue: DateTime; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].AsDateTime; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); -begin - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].AsDateTime := aValue; -end; - -function TPedidosCliente_RefreshDataTableRules.GetFECHA_PREVISTA_ENVIOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].IsNull; -end; - -procedure TPedidosCliente_RefreshDataTableRules.SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO].AsVariant := Null; -end; - - -{ TPedidosCliente_Detalles_RefreshDataTableRules } -constructor TPedidosCliente_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TPedidosCliente_Detalles_RefreshDataTableRules.Destroy; -begin - inherited; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIDValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID].AsInteger; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIDValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID].AsInteger := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIDIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetID_PEDIDOValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_PEDIDO].AsInteger; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_PEDIDO].AsInteger := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetID_PEDIDOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_PEDIDO].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_PEDIDO].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetPOSICIONValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshPOSICION].AsInteger; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetPOSICIONValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshPOSICION].AsInteger := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetPOSICIONIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshPOSICION].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetPOSICIONIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshPOSICION].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetTIPO_DETALLEValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshTIPO_DETALLE].AsString; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetTIPO_DETALLEValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshTIPO_DETALLE].AsString := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetTIPO_DETALLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshTIPO_DETALLE].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshTIPO_DETALLE].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetREFERENCIAValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA].AsString; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA].AsString := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetREFERENCIAIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_ARTICULO].AsInteger; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_ARTICULO].AsInteger := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_ARTICULO].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshID_ARTICULO].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetCONCEPTOValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCONCEPTO].AsString; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetCONCEPTOValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCONCEPTO].AsString := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetCONCEPTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCONCEPTO].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCONCEPTO].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetCANTIDADValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCANTIDAD].AsInteger; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetCANTIDADValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCANTIDAD].AsInteger := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetCANTIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCANTIDAD].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshCANTIDAD].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIMPORTE_UNIDADValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD].AsCurrency; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD].AsCurrency := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIMPORTE_UNIDADIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL].AsCurrency; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL].AsCurrency := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshDESCUENTO].AsFloat; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshDESCUENTO].AsFloat := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshDESCUENTO].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshDESCUENTO].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIMPORTE_PORTEValue: Currency; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_PORTE].AsCurrency; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_PORTE].AsCurrency := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_PORTE].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshIMPORTE_PORTE].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetVISIBLEValue: Integer; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshVISIBLE].AsInteger; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetVISIBLEValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshVISIBLE].AsInteger := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetVISIBLEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshVISIBLE].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetVISIBLEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshVISIBLE].AsVariant := Null; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString := aValue; -end; - -function TPedidosCliente_Detalles_RefreshDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR].IsNull; -end; - -procedure TPedidosCliente_Detalles_RefreshDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR].AsVariant := Null; -end; - - -{ TPedidoCliente_Articulos_PendientesDataTableRules } -constructor TPedidoCliente_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable); -begin - inherited; -end; - -destructor TPedidoCliente_Articulos_PendientesDataTableRules.Destroy; -begin - inherited; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsInteger; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsInteger := aValue; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].IsNull; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesID_ARTICULO].AsVariant := Null; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsInteger := aValue; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PEDIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].IsNull; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PEDIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PED].AsVariant := Null; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsInteger := aValue; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_ALBIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].IsNull; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_ALBIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_ALB].AsVariant := Null; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEValue: Integer; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer); -begin - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsInteger := aValue; -end; - -function TPedidoCliente_Articulos_PendientesDataTableRules.GetCANTIDAD_PENDIENTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].IsNull; -end; - -procedure TPedidoCliente_Articulos_PendientesDataTableRules.SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE].AsVariant := Null; -end; - - -initialization - RegisterDataTableRules(RID_PedidoCliente_ArticulosPendientesPedirAProv, TPedidoCliente_ArticulosPendientesPedirAProvDataTableRules); - RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules); - RegisterDataTableRules(RID_PedidosCliente, TPedidosClienteDataTableRules); - RegisterDataTableRules(RID_PedidosCliente_Detalles, TPedidosCliente_DetallesDataTableRules); - RegisterDataTableRules(RID_PedidosCliente_Refresh, TPedidosCliente_RefreshDataTableRules); - RegisterDataTableRules(RID_PedidosCliente_Detalles_Refresh, TPedidosCliente_Detalles_RefreshDataTableRules); - RegisterDataTableRules(RID_PedidoCliente_Articulos_Pendientes, TPedidoCliente_Articulos_PendientesDataTableRules); - -end. diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPedidosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPedidosClienteServer_Intf.pas deleted file mode 100644 index 11c8f918..00000000 --- a/Source/Modulos/Presupuestos de cliente/Model/schPedidosClienteServer_Intf.pas +++ /dev/null @@ -1,4648 +0,0 @@ -unit schPedidosClienteServer_Intf; - -interface - -uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schPedidosClienteClient_Intf; - -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 = '{8EF37E01-3DC3-4244-BDAE-C880AB4622C3}'; - RID_DarReferenciaDelta = '{D6C8851E-C40C-4ACA-ABD1-DB387A3CDE98}'; - RID_PedidosClienteDelta = '{B71F5150-94F5-48AB-9564-111899516BC4}'; - RID_PedidosCliente_DetallesDelta = '{236C59E6-22B8-48D9-B7D5-6F94F8E4FDC6}'; - RID_PedidosCliente_RefreshDelta = '{C7219F0B-F0EA-456A-B19B-E4E6F9F9157C}'; - RID_PedidosCliente_Detalles_RefreshDelta = '{40A1CEA1-CE22-49B2-AA59-4B39B51A00F4}'; - RID_PedidoCliente_Articulos_PendientesDelta = '{AC3995A4-F42A-4A8E-9398-B36926F20613}'; - -type - { IPedidoCliente_ArticulosPendientesPedirAProvDelta } - IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv) - ['{8EF37E01-3DC3-4244-BDAE-C880AB4622C3}'] - { Property getters and setters } - function GetOldID_PEDIDOValue : Integer; - function GetOldID_ARTICULOValue : Integer; - function GetOldCANT_PEDIDA_CLIENTEValue : Integer; - function GetOldID_PROVEEDORValue : Integer; - function GetOldCANT_PEDIDA_PROVEEDORValue : Integer; - function GetOldCANT_PENDIENTE_PEDIRValue : Integer; - - { Properties } - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldCANT_PEDIDA_CLIENTE : Integer read GetOldCANT_PEDIDA_CLIENTEValue; - property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; - property OldCANT_PEDIDA_PROVEEDOR : Integer read GetOldCANT_PEDIDA_PROVEEDORValue; - property OldCANT_PENDIENTE_PEDIR : Integer read GetOldCANT_PENDIENTE_PEDIRValue; - end; - - { TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules } - TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidoCliente_ArticulosPendientesPedirAProv, IPedidoCliente_ArticulosPendientesPedirAProvDelta) - private - protected - { Property getters and setters } - function GetID_PEDIDOValue: Integer; virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - function GetOldID_PEDIDOValue: Integer; virtual; - function GetOldID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - function GetOldID_ARTICULOValue: Integer; virtual; - function GetOldID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCANT_PEDIDA_CLIENTEValue: Integer; virtual; - function GetCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual; - function GetOldCANT_PEDIDA_CLIENTEValue: Integer; virtual; - function GetOldCANT_PEDIDA_CLIENTEIsNull: Boolean; virtual; - procedure SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); virtual; - procedure SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetID_PROVEEDORValue: Integer; virtual; - function GetID_PROVEEDORIsNull: Boolean; virtual; - function GetOldID_PROVEEDORValue: Integer; virtual; - function GetOldID_PROVEEDORIsNull: Boolean; virtual; - procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; - procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCANT_PEDIDA_PROVEEDORValue: Integer; virtual; - function GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual; - function GetOldCANT_PEDIDA_PROVEEDORValue: Integer; virtual; - function GetOldCANT_PEDIDA_PROVEEDORIsNull: Boolean; virtual; - procedure SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); virtual; - procedure SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCANT_PENDIENTE_PEDIRValue: Integer; virtual; - function GetCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual; - function GetOldCANT_PENDIENTE_PEDIRValue: Integer; virtual; - function GetOldCANT_PENDIENTE_PEDIRIsNull: Boolean; virtual; - procedure SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); virtual; - procedure SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; - property CANT_PEDIDA_CLIENTE : Integer read GetCANT_PEDIDA_CLIENTEValue write SetCANT_PEDIDA_CLIENTEValue; - property CANT_PEDIDA_CLIENTEIsNull : Boolean read GetCANT_PEDIDA_CLIENTEIsNull write SetCANT_PEDIDA_CLIENTEIsNull; - property OldCANT_PEDIDA_CLIENTE : Integer read GetOldCANT_PEDIDA_CLIENTEValue; - property OldCANT_PEDIDA_CLIENTEIsNull : Boolean read GetOldCANT_PEDIDA_CLIENTEIsNull; - property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; - property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; - property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; - property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; - property CANT_PEDIDA_PROVEEDOR : Integer read GetCANT_PEDIDA_PROVEEDORValue write SetCANT_PEDIDA_PROVEEDORValue; - property CANT_PEDIDA_PROVEEDORIsNull : Boolean read GetCANT_PEDIDA_PROVEEDORIsNull write SetCANT_PEDIDA_PROVEEDORIsNull; - property OldCANT_PEDIDA_PROVEEDOR : Integer read GetOldCANT_PEDIDA_PROVEEDORValue; - property OldCANT_PEDIDA_PROVEEDORIsNull : Boolean read GetOldCANT_PEDIDA_PROVEEDORIsNull; - property CANT_PENDIENTE_PEDIR : Integer read GetCANT_PENDIENTE_PEDIRValue write SetCANT_PENDIENTE_PEDIRValue; - property CANT_PENDIENTE_PEDIRIsNull : Boolean read GetCANT_PENDIENTE_PEDIRIsNull write SetCANT_PENDIENTE_PEDIRIsNull; - property OldCANT_PENDIENTE_PEDIR : Integer read GetOldCANT_PENDIENTE_PEDIRValue; - property OldCANT_PENDIENTE_PEDIRIsNull : Boolean read GetOldCANT_PENDIENTE_PEDIRIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IDarReferenciaDelta } - IDarReferenciaDelta = interface(IDarReferencia) - ['{D6C8851E-C40C-4ACA-ABD1-DB387A3CDE98}'] - { Property getters and setters } - function GetOldVALORValue : String; - - { Properties } - property OldVALOR : String read GetOldVALORValue; - end; - - { TDarReferenciaBusinessProcessorRules } - TDarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferencia, IDarReferenciaDelta) - private - protected - { Property getters and setters } - function GetVALORValue: String; virtual; - function GetVALORIsNull: Boolean; virtual; - function GetOldVALORValue: String; virtual; - function GetOldVALORIsNull: Boolean; virtual; - procedure SetVALORValue(const aValue: String); virtual; - procedure SetVALORIsNull(const aValue: Boolean); virtual; - - { Properties } - property VALOR : String read GetVALORValue write SetVALORValue; - property VALORIsNull : Boolean read GetVALORIsNull write SetVALORIsNull; - property OldVALOR : String read GetOldVALORValue; - property OldVALORIsNull : Boolean read GetOldVALORIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPedidosClienteDelta } - IPedidosClienteDelta = interface(IPedidosCliente) - ['{B71F5150-94F5-48AB-9564-111899516BC4}'] - { 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; - function GetOldCODIGO_POSTALValue : String; - function GetOldPOBLACIONValue : String; - function GetOldPROVINCIAValue : String; - function GetOldPERSONA_CONTACTOValue : String; - function GetOldTELEFONOValue : String; - function GetOldOBSERVACIONESValue : IROStrings; - function GetOldINCIDENCIASValue : IROStrings; - function GetOldINCIDENCIAS_ACTIVASValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldUSUARIOValue : String; - function GetOldIMPORTE_NETOValue : Currency; - function GetOldIMPORTE_PORTEValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_DESCUENTOValue : Currency; - function GetOldBASE_IMPONIBLEValue : Currency; - function GetOldIVAValue : Float; - function GetOldIMPORTE_IVAValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldID_FORMA_PAGOValue : Integer; - function GetOldREF_TIENDA_WEBValue : Integer; - function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - 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; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; - property OldTELEFONO : String read GetOldTELEFONOValue; - property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; - property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; - property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; - property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; - property OldIVA : Float read GetOldIVAValue; - property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; - property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; - end; - - { TPedidosClienteBusinessProcessorRules } - TPedidosClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosCliente, IPedidosClienteDelta) - private - f_OBSERVACIONES: IROStrings; - f_INCIDENCIAS: IROStrings; - procedure OBSERVACIONES_OnChange(Sender: TObject); - procedure INCIDENCIAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetID_CLIENTEValue: Integer; virtual; - function GetID_CLIENTEIsNull: Boolean; virtual; - function GetOldID_CLIENTEValue: Integer; virtual; - function GetOldID_CLIENTEIsNull: Boolean; virtual; - procedure SetID_CLIENTEValue(const aValue: Integer); virtual; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - function GetNOMBREIsNull: Boolean; virtual; - function GetOldNOMBREValue: String; virtual; - function GetOldNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_CLIENTEValue: String; virtual; - function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; - function GetOldREFERENCIA_CLIENTEValue: String; virtual; - function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; - procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; - procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetSITUACIONValue: String; virtual; - function GetSITUACIONIsNull: Boolean; virtual; - function GetOldSITUACIONValue: String; virtual; - function GetOldSITUACIONIsNull: Boolean; virtual; - procedure SetSITUACIONValue(const aValue: String); virtual; - procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; - function GetFECHA_PEDIDOValue: DateTime; virtual; - function GetFECHA_PEDIDOIsNull: Boolean; virtual; - function GetOldFECHA_PEDIDOValue: DateTime; virtual; - function GetOldFECHA_PEDIDOIsNull: Boolean; virtual; - procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; - procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - function GetCALLEIsNull: Boolean; virtual; - function GetOldCALLEValue: String; virtual; - function GetOldCALLEIsNull: Boolean; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - function GetOldCODIGO_POSTALValue: String; virtual; - function GetOldCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - function GetOldPOBLACIONValue: String; virtual; - function GetOldPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - function GetOldPROVINCIAValue: String; virtual; - function GetOldPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetPERSONA_CONTACTOValue: String; virtual; - function GetPERSONA_CONTACTOIsNull: Boolean; virtual; - function GetOldPERSONA_CONTACTOValue: String; virtual; - function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; - procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; - function GetTELEFONOValue: String; virtual; - function GetTELEFONOIsNull: Boolean; virtual; - function GetOldTELEFONOValue: String; virtual; - function GetOldTELEFONOIsNull: Boolean; virtual; - procedure SetTELEFONOValue(const aValue: String); virtual; - procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: IROStrings; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - function GetOldOBSERVACIONESValue: IROStrings; virtual; - function GetOldOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIASValue: IROStrings; virtual; - function GetINCIDENCIASIsNull: Boolean; virtual; - function GetOldINCIDENCIASValue: IROStrings; virtual; - function GetOldINCIDENCIASIsNull: Boolean; virtual; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual; - function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - function GetUSUARIOIsNull: Boolean; virtual; - function GetOldUSUARIOValue: String; virtual; - function GetOldUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_NETOValue: Currency; virtual; - function GetIMPORTE_NETOIsNull: Boolean; virtual; - function GetOldIMPORTE_NETOValue: Currency; virtual; - function GetOldIMPORTE_NETOIsNull: Boolean; virtual; - procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_DESCUENTOValue: Currency; virtual; - function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; - function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; - function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; - function GetBASE_IMPONIBLEValue: Currency; virtual; - function GetBASE_IMPONIBLEIsNull: Boolean; virtual; - function GetOldBASE_IMPONIBLEValue: Currency; virtual; - function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - function GetIVAIsNull: Boolean; virtual; - function GetOldIVAValue: Float; virtual; - function GetOldIVAIsNull: Boolean; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_IVAValue: Currency; virtual; - function GetIMPORTE_IVAIsNull: Boolean; virtual; - function GetOldIMPORTE_IVAValue: Currency; virtual; - function GetOldIMPORTE_IVAIsNull: Boolean; virtual; - procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetID_FORMA_PAGOValue: Integer; virtual; - function GetID_FORMA_PAGOIsNull: Boolean; virtual; - function GetOldID_FORMA_PAGOValue: Integer; virtual; - function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetREF_TIENDA_WEBValue: Integer; virtual; - function GetREF_TIENDA_WEBIsNull: Boolean; virtual; - function GetOldREF_TIENDA_WEBValue: Integer; virtual; - function GetOldREF_TIENDA_WEBIsNull: Boolean; virtual; - procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual; - procedure SetREF_TIENDA_WEBIsNull(const aValue: Boolean); virtual; - function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; - function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual; - function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual; - function GetOldFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual; - procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; - procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; - property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; - property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; - property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; - property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; - property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; - property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property OldSITUACION : String read GetOldSITUACIONValue; - property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; - property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; - property FECHA_PEDIDOIsNull : Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; - property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; - property OldFECHA_PEDIDOIsNull : Boolean read GetOldFECHA_PEDIDOIsNull; - property CALLE : String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; - property OldCALLE : String read GetOldCALLEValue; - property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; - property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; - property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; - property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; - property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; - property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; - property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OldTELEFONO : String read GetOldTELEFONOValue; - property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; - property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; - property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; - property INCIDENCIAS : IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; - property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; - property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; - property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; - property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; - property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; - property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; - property IVA : Float read GetIVAValue write SetIVAValue; - property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; - property OldIVA : Float read GetOldIVAValue; - property OldIVAIsNull : Boolean read GetOldIVAIsNull; - property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; - property REF_TIENDA_WEB : Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; - property REF_TIENDA_WEBIsNull : Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull; - property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; - property OldREF_TIENDA_WEBIsNull : Boolean read GetOldREF_TIENDA_WEBIsNull; - property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; - property FECHA_PREVISTA_ENVIOIsNull : Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; - property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; - property OldFECHA_PREVISTA_ENVIOIsNull : Boolean read GetOldFECHA_PREVISTA_ENVIOIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPedidosCliente_DetallesDelta } - IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles) - ['{236C59E6-22B8-48D9-B7D5-6F94F8E4FDC6}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_PEDIDOValue : Integer; - function GetOldPOSICIONValue : Integer; - function GetOldTIPO_DETALLEValue : String; - function GetOldREFERENCIAValue : String; - function GetOldID_ARTICULOValue : Integer; - function GetOldCONCEPTOValue : String; - function GetOldCANTIDADValue : Integer; - function GetOldIMPORTE_UNIDADValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_PORTEValue : Currency; - function GetOldVISIBLEValue : Integer; - function GetOldREFERENCIA_PROVEEDORValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldPOSICION : Integer read GetOldPOSICIONValue; - property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCANTIDAD : Integer read GetOldCANTIDADValue; - property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - end; - - { TPedidosCliente_DetallesBusinessProcessorRules } - TPedidosCliente_DetallesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosCliente_Detalles, IPedidosCliente_DetallesDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_PEDIDOValue: Integer; virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - function GetOldID_PEDIDOValue: Integer; virtual; - function GetOldID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetPOSICIONValue: Integer; virtual; - function GetPOSICIONIsNull: Boolean; virtual; - function GetOldPOSICIONValue: Integer; virtual; - function GetOldPOSICIONIsNull: Boolean; virtual; - procedure SetPOSICIONValue(const aValue: Integer); virtual; - procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; - function GetTIPO_DETALLEValue: String; virtual; - function GetTIPO_DETALLEIsNull: Boolean; virtual; - function GetOldTIPO_DETALLEValue: String; virtual; - function GetOldTIPO_DETALLEIsNull: Boolean; virtual; - procedure SetTIPO_DETALLEValue(const aValue: String); virtual; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - function GetOldID_ARTICULOValue: Integer; virtual; - function GetOldID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - function GetOldCONCEPTOValue: String; virtual; - function GetOldCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetCANTIDADValue: Integer; virtual; - function GetCANTIDADIsNull: Boolean; virtual; - function GetOldCANTIDADValue: Integer; virtual; - function GetOldCANTIDADIsNull: Boolean; virtual; - procedure SetCANTIDADValue(const aValue: Integer); virtual; - procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_UNIDADValue: Currency; virtual; - function GetIMPORTE_UNIDADIsNull: Boolean; virtual; - function GetOldIMPORTE_UNIDADValue: Currency; virtual; - function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - function GetVISIBLEIsNull: Boolean; virtual; - function GetOldVISIBLEValue: Integer; virtual; - function GetOldVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; - procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - function GetOldREFERENCIA_PROVEEDORValue: String; virtual; - function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; - property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property OldPOSICION : Integer read GetOldPOSICIONValue; - property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; - property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; - property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; - property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property OldCANTIDAD : Integer read GetOldCANTIDADValue; - property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; - property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; - property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPedidosCliente_RefreshDelta } - IPedidosCliente_RefreshDelta = interface(IPedidosCliente_Refresh) - ['{C7219F0B-F0EA-456A-B19B-E4E6F9F9157C}'] - { 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; - function GetOldCODIGO_POSTALValue : String; - function GetOldPOBLACIONValue : String; - function GetOldPROVINCIAValue : String; - function GetOldPERSONA_CONTACTOValue : String; - function GetOldTELEFONOValue : String; - function GetOldOBSERVACIONESValue : IROStrings; - function GetOldINCIDENCIASValue : IROStrings; - function GetOldINCIDENCIAS_ACTIVASValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldUSUARIOValue : String; - function GetOldIMPORTE_NETOValue : Currency; - function GetOldIMPORTE_PORTEValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_DESCUENTOValue : Currency; - function GetOldBASE_IMPONIBLEValue : Currency; - function GetOldIVAValue : Float; - function GetOldIMPORTE_IVAValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldID_FORMA_PAGOValue : Integer; - function GetOldREF_TIENDA_WEBValue : Integer; - function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - 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; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; - property OldTELEFONO : String read GetOldTELEFONOValue; - property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; - property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; - property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; - property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; - property OldIVA : Float read GetOldIVAValue; - property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; - property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; - end; - - { TPedidosCliente_RefreshBusinessProcessorRules } - TPedidosCliente_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosCliente_Refresh, IPedidosCliente_RefreshDelta) - private - f_OBSERVACIONES: IROStrings; - f_INCIDENCIAS: IROStrings; - procedure OBSERVACIONES_OnChange(Sender: TObject); - procedure INCIDENCIAS_OnChange(Sender: TObject); - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_EMPRESAValue: Integer; virtual; - function GetID_EMPRESAIsNull: Boolean; virtual; - function GetOldID_EMPRESAValue: Integer; virtual; - function GetOldID_EMPRESAIsNull: Boolean; virtual; - procedure SetID_EMPRESAValue(const aValue: Integer); virtual; - procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; - function GetID_CLIENTEValue: Integer; virtual; - function GetID_CLIENTEIsNull: Boolean; virtual; - function GetOldID_CLIENTEValue: Integer; virtual; - function GetOldID_CLIENTEIsNull: Boolean; virtual; - procedure SetID_CLIENTEValue(const aValue: Integer); virtual; - procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetNOMBREValue: String; virtual; - function GetNOMBREIsNull: Boolean; virtual; - function GetOldNOMBREValue: String; virtual; - function GetOldNOMBREIsNull: Boolean; virtual; - procedure SetNOMBREValue(const aValue: String); virtual; - procedure SetNOMBREIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_CLIENTEValue: String; virtual; - function GetREFERENCIA_CLIENTEIsNull: Boolean; virtual; - function GetOldREFERENCIA_CLIENTEValue: String; virtual; - function GetOldREFERENCIA_CLIENTEIsNull: Boolean; virtual; - procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual; - procedure SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; - function GetSITUACIONValue: String; virtual; - function GetSITUACIONIsNull: Boolean; virtual; - function GetOldSITUACIONValue: String; virtual; - function GetOldSITUACIONIsNull: Boolean; virtual; - procedure SetSITUACIONValue(const aValue: String); virtual; - procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; - function GetFECHA_PEDIDOValue: DateTime; virtual; - function GetFECHA_PEDIDOIsNull: Boolean; virtual; - function GetOldFECHA_PEDIDOValue: DateTime; virtual; - function GetOldFECHA_PEDIDOIsNull: Boolean; virtual; - procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; - procedure SetFECHA_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetCALLEValue: String; virtual; - function GetCALLEIsNull: Boolean; virtual; - function GetOldCALLEValue: String; virtual; - function GetOldCALLEIsNull: Boolean; virtual; - procedure SetCALLEValue(const aValue: String); virtual; - procedure SetCALLEIsNull(const aValue: Boolean); virtual; - function GetCODIGO_POSTALValue: String; virtual; - function GetCODIGO_POSTALIsNull: Boolean; virtual; - function GetOldCODIGO_POSTALValue: String; virtual; - function GetOldCODIGO_POSTALIsNull: Boolean; virtual; - procedure SetCODIGO_POSTALValue(const aValue: String); virtual; - procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; - function GetPOBLACIONValue: String; virtual; - function GetPOBLACIONIsNull: Boolean; virtual; - function GetOldPOBLACIONValue: String; virtual; - function GetOldPOBLACIONIsNull: Boolean; virtual; - procedure SetPOBLACIONValue(const aValue: String); virtual; - procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; - function GetPROVINCIAValue: String; virtual; - function GetPROVINCIAIsNull: Boolean; virtual; - function GetOldPROVINCIAValue: String; virtual; - function GetOldPROVINCIAIsNull: Boolean; virtual; - procedure SetPROVINCIAValue(const aValue: String); virtual; - procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; - function GetPERSONA_CONTACTOValue: String; virtual; - function GetPERSONA_CONTACTOIsNull: Boolean; virtual; - function GetOldPERSONA_CONTACTOValue: String; virtual; - function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; - procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; - procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; - function GetTELEFONOValue: String; virtual; - function GetTELEFONOIsNull: Boolean; virtual; - function GetOldTELEFONOValue: String; virtual; - function GetOldTELEFONOIsNull: Boolean; virtual; - procedure SetTELEFONOValue(const aValue: String); virtual; - procedure SetTELEFONOIsNull(const aValue: Boolean); virtual; - function GetOBSERVACIONESValue: IROStrings; virtual; - function GetOBSERVACIONESIsNull: Boolean; virtual; - function GetOldOBSERVACIONESValue: IROStrings; virtual; - function GetOldOBSERVACIONESIsNull: Boolean; virtual; - procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIASValue: IROStrings; virtual; - function GetINCIDENCIASIsNull: Boolean; virtual; - function GetOldINCIDENCIASValue: IROStrings; virtual; - function GetOldINCIDENCIASIsNull: Boolean; virtual; - procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual; - function GetINCIDENCIAS_ACTIVASValue: Integer; virtual; - function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual; - function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual; - procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual; - procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; - function GetUSUARIOValue: String; virtual; - function GetUSUARIOIsNull: Boolean; virtual; - function GetOldUSUARIOValue: String; virtual; - function GetOldUSUARIOIsNull: Boolean; virtual; - procedure SetUSUARIOValue(const aValue: String); virtual; - procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_NETOValue: Currency; virtual; - function GetIMPORTE_NETOIsNull: Boolean; virtual; - function GetOldIMPORTE_NETOValue: Currency; virtual; - function GetOldIMPORTE_NETOIsNull: Boolean; virtual; - procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; - procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_DESCUENTOValue: Currency; virtual; - function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; - function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; - function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; - procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; - procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; - function GetBASE_IMPONIBLEValue: Currency; virtual; - function GetBASE_IMPONIBLEIsNull: Boolean; virtual; - function GetOldBASE_IMPONIBLEValue: Currency; virtual; - function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; - procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; - procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; - function GetIVAValue: Float; virtual; - function GetIVAIsNull: Boolean; virtual; - function GetOldIVAValue: Float; virtual; - function GetOldIVAIsNull: Boolean; virtual; - procedure SetIVAValue(const aValue: Float); virtual; - procedure SetIVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_IVAValue: Currency; virtual; - function GetIMPORTE_IVAIsNull: Boolean; virtual; - function GetOldIMPORTE_IVAValue: Currency; virtual; - function GetOldIMPORTE_IVAIsNull: Boolean; virtual; - procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; - procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetID_FORMA_PAGOValue: Integer; virtual; - function GetID_FORMA_PAGOIsNull: Boolean; virtual; - function GetOldID_FORMA_PAGOValue: Integer; virtual; - function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; - procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; - procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; - function GetREF_TIENDA_WEBValue: Integer; virtual; - function GetREF_TIENDA_WEBIsNull: Boolean; virtual; - function GetOldREF_TIENDA_WEBValue: Integer; virtual; - function GetOldREF_TIENDA_WEBIsNull: Boolean; virtual; - procedure SetREF_TIENDA_WEBValue(const aValue: Integer); virtual; - procedure SetREF_TIENDA_WEBIsNull(const aValue: Boolean); virtual; - function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual; - function GetFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual; - function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual; - function GetOldFECHA_PREVISTA_ENVIOIsNull: Boolean; virtual; - procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual; - procedure SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; - property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; - property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; - property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; - property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; - property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; - property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; - property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; - property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; - property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; - property OldNOMBRE : String read GetOldNOMBREValue; - property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue; - property REFERENCIA_CLIENTEIsNull : Boolean read GetREFERENCIA_CLIENTEIsNull write SetREFERENCIA_CLIENTEIsNull; - property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; - property OldREFERENCIA_CLIENTEIsNull : Boolean read GetOldREFERENCIA_CLIENTEIsNull; - property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; - property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; - property OldSITUACION : String read GetOldSITUACIONValue; - property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; - property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; - property FECHA_PEDIDOIsNull : Boolean read GetFECHA_PEDIDOIsNull write SetFECHA_PEDIDOIsNull; - property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; - property OldFECHA_PEDIDOIsNull : Boolean read GetOldFECHA_PEDIDOIsNull; - property CALLE : String read GetCALLEValue write SetCALLEValue; - property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; - property OldCALLE : String read GetOldCALLEValue; - property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; - property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; - property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; - property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; - property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; - property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; - property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; - property OldPOBLACION : String read GetOldPOBLACIONValue; - property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; - property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; - property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; - property OldPROVINCIA : String read GetOldPROVINCIAValue; - property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; - property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; - property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; - property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; - property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; - property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; - property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull; - property OldTELEFONO : String read GetOldTELEFONOValue; - property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull; - property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; - property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; - property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; - property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; - property INCIDENCIAS : IROStrings read GetINCIDENCIASValue; - property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull; - property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue; - property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull; - property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue; - property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull; - property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue; - property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; - property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; - property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; - property OldUSUARIO : String read GetOldUSUARIOValue; - property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; - property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; - property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; - property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; - property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; - property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; - property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; - property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; - property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; - property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; - property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; - property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; - property IVA : Float read GetIVAValue write SetIVAValue; - property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; - property OldIVA : Float read GetOldIVAValue; - property OldIVAIsNull : Boolean read GetOldIVAIsNull; - property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; - property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; - property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; - property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; - property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; - property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; - property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; - property REF_TIENDA_WEB : Integer read GetREF_TIENDA_WEBValue write SetREF_TIENDA_WEBValue; - property REF_TIENDA_WEBIsNull : Boolean read GetREF_TIENDA_WEBIsNull write SetREF_TIENDA_WEBIsNull; - property OldREF_TIENDA_WEB : Integer read GetOldREF_TIENDA_WEBValue; - property OldREF_TIENDA_WEBIsNull : Boolean read GetOldREF_TIENDA_WEBIsNull; - property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue; - property FECHA_PREVISTA_ENVIOIsNull : Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull; - property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; - property OldFECHA_PREVISTA_ENVIOIsNull : Boolean read GetOldFECHA_PREVISTA_ENVIOIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPedidosCliente_Detalles_RefreshDelta } - IPedidosCliente_Detalles_RefreshDelta = interface(IPedidosCliente_Detalles_Refresh) - ['{40A1CEA1-CE22-49B2-AA59-4B39B51A00F4}'] - { Property getters and setters } - function GetOldIDValue : Integer; - function GetOldID_PEDIDOValue : Integer; - function GetOldPOSICIONValue : Integer; - function GetOldTIPO_DETALLEValue : String; - function GetOldREFERENCIAValue : String; - function GetOldID_ARTICULOValue : Integer; - function GetOldCONCEPTOValue : String; - function GetOldCANTIDADValue : Integer; - function GetOldIMPORTE_UNIDADValue : Currency; - function GetOldIMPORTE_TOTALValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_PORTEValue : Currency; - function GetOldVISIBLEValue : Integer; - function GetOldREFERENCIA_PROVEEDORValue : String; - - { Properties } - property OldID : Integer read GetOldIDValue; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldPOSICION : Integer read GetOldPOSICIONValue; - property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCANTIDAD : Integer read GetOldCANTIDADValue; - property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - end; - - { TPedidosCliente_Detalles_RefreshBusinessProcessorRules } - TPedidosCliente_Detalles_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosCliente_Detalles_Refresh, IPedidosCliente_Detalles_RefreshDelta) - private - protected - { Property getters and setters } - function GetIDValue: Integer; virtual; - function GetIDIsNull: Boolean; virtual; - function GetOldIDValue: Integer; virtual; - function GetOldIDIsNull: Boolean; virtual; - procedure SetIDValue(const aValue: Integer); virtual; - procedure SetIDIsNull(const aValue: Boolean); virtual; - function GetID_PEDIDOValue: Integer; virtual; - function GetID_PEDIDOIsNull: Boolean; virtual; - function GetOldID_PEDIDOValue: Integer; virtual; - function GetOldID_PEDIDOIsNull: Boolean; virtual; - procedure SetID_PEDIDOValue(const aValue: Integer); virtual; - procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual; - function GetPOSICIONValue: Integer; virtual; - function GetPOSICIONIsNull: Boolean; virtual; - function GetOldPOSICIONValue: Integer; virtual; - function GetOldPOSICIONIsNull: Boolean; virtual; - procedure SetPOSICIONValue(const aValue: Integer); virtual; - procedure SetPOSICIONIsNull(const aValue: Boolean); virtual; - function GetTIPO_DETALLEValue: String; virtual; - function GetTIPO_DETALLEIsNull: Boolean; virtual; - function GetOldTIPO_DETALLEValue: String; virtual; - function GetOldTIPO_DETALLEIsNull: Boolean; virtual; - procedure SetTIPO_DETALLEValue(const aValue: String); virtual; - procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIAValue: String; virtual; - function GetREFERENCIAIsNull: Boolean; virtual; - function GetOldREFERENCIAValue: String; virtual; - function GetOldREFERENCIAIsNull: Boolean; virtual; - procedure SetREFERENCIAValue(const aValue: String); virtual; - procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - function GetOldID_ARTICULOValue: Integer; virtual; - function GetOldID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCONCEPTOValue: String; virtual; - function GetCONCEPTOIsNull: Boolean; virtual; - function GetOldCONCEPTOValue: String; virtual; - function GetOldCONCEPTOIsNull: Boolean; virtual; - procedure SetCONCEPTOValue(const aValue: String); virtual; - procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual; - function GetCANTIDADValue: Integer; virtual; - function GetCANTIDADIsNull: Boolean; virtual; - function GetOldCANTIDADValue: Integer; virtual; - function GetOldCANTIDADIsNull: Boolean; virtual; - procedure SetCANTIDADValue(const aValue: Integer); virtual; - procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_UNIDADValue: Currency; virtual; - function GetIMPORTE_UNIDADIsNull: Boolean; virtual; - function GetOldIMPORTE_UNIDADValue: Currency; virtual; - function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual; - procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; - procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetIMPORTE_TOTALIsNull: Boolean; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; - procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; - function GetVISIBLEValue: Integer; virtual; - function GetVISIBLEIsNull: Boolean; virtual; - function GetOldVISIBLEValue: Integer; virtual; - function GetOldVISIBLEIsNull: Boolean; virtual; - procedure SetVISIBLEValue(const aValue: Integer); virtual; - procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_PROVEEDORValue: String; virtual; - function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - function GetOldREFERENCIA_PROVEEDORValue: String; virtual; - function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; - procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; - procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID : Integer read GetIDValue write SetIDValue; - property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; - property OldID : Integer read GetOldIDValue; - property OldIDIsNull : Boolean read GetOldIDIsNull; - property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; - property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; - property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; - property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull; - property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; - property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; - property OldPOSICION : Integer read GetOldPOSICIONValue; - property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull; - property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; - property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; - property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; - property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; - property OldREFERENCIA : String read GetOldREFERENCIAValue; - property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; - property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; - property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; - property OldCONCEPTO : String read GetOldCONCEPTOValue; - property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull; - property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; - property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; - property OldCANTIDAD : Integer read GetOldCANTIDADValue; - property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; - property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; - property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; - property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; - property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue; - property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; - property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; - property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; - property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; - property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - - { IPedidoCliente_Articulos_PendientesDelta } - IPedidoCliente_Articulos_PendientesDelta = interface(IPedidoCliente_Articulos_Pendientes) - ['{AC3995A4-F42A-4A8E-9398-B36926F20613}'] - { Property getters and setters } - function GetOldID_ARTICULOValue : Integer; - function GetOldCANTIDAD_PEDValue : Integer; - function GetOldCANTIDAD_ALBValue : Integer; - function GetOldCANTIDAD_PENDIENTEValue : Integer; - - { Properties } - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldCANTIDAD_PED : Integer read GetOldCANTIDAD_PEDValue; - property OldCANTIDAD_ALB : Integer read GetOldCANTIDAD_ALBValue; - property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue; - end; - - { TPedidoCliente_Articulos_PendientesBusinessProcessorRules } - TPedidoCliente_Articulos_PendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidoCliente_Articulos_Pendientes, IPedidoCliente_Articulos_PendientesDelta) - private - protected - { Property getters and setters } - function GetID_ARTICULOValue: Integer; virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - function GetOldID_ARTICULOValue: Integer; virtual; - function GetOldID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; - function GetCANTIDAD_PEDValue: Integer; virtual; - function GetCANTIDAD_PEDIsNull: Boolean; virtual; - function GetOldCANTIDAD_PEDValue: Integer; virtual; - function GetOldCANTIDAD_PEDIsNull: Boolean; virtual; - procedure SetCANTIDAD_PEDValue(const aValue: Integer); virtual; - procedure SetCANTIDAD_PEDIsNull(const aValue: Boolean); virtual; - function GetCANTIDAD_ALBValue: Integer; virtual; - function GetCANTIDAD_ALBIsNull: Boolean; virtual; - function GetOldCANTIDAD_ALBValue: Integer; virtual; - function GetOldCANTIDAD_ALBIsNull: Boolean; virtual; - procedure SetCANTIDAD_ALBValue(const aValue: Integer); virtual; - procedure SetCANTIDAD_ALBIsNull(const aValue: Boolean); virtual; - function GetCANTIDAD_PENDIENTEValue: Integer; virtual; - function GetCANTIDAD_PENDIENTEIsNull: Boolean; virtual; - function GetOldCANTIDAD_PENDIENTEValue: Integer; virtual; - function GetOldCANTIDAD_PENDIENTEIsNull: Boolean; virtual; - procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual; - procedure SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); virtual; - - { Properties } - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; - property CANTIDAD_PED : Integer read GetCANTIDAD_PEDValue write SetCANTIDAD_PEDValue; - property CANTIDAD_PEDIsNull : Boolean read GetCANTIDAD_PEDIsNull write SetCANTIDAD_PEDIsNull; - property OldCANTIDAD_PED : Integer read GetOldCANTIDAD_PEDValue; - property OldCANTIDAD_PEDIsNull : Boolean read GetOldCANTIDAD_PEDIsNull; - property CANTIDAD_ALB : Integer read GetCANTIDAD_ALBValue write SetCANTIDAD_ALBValue; - property CANTIDAD_ALBIsNull : Boolean read GetCANTIDAD_ALBIsNull write SetCANTIDAD_ALBIsNull; - property OldCANTIDAD_ALB : Integer read GetOldCANTIDAD_ALBValue; - property OldCANTIDAD_ALBIsNull : Boolean read GetOldCANTIDAD_ALBIsNull; - property CANTIDAD_PENDIENTE : Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; - property CANTIDAD_PENDIENTEIsNull : Boolean read GetCANTIDAD_PENDIENTEIsNull write SetCANTIDAD_PENDIENTEIsNull; - property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue; - property OldCANTIDAD_PENDIENTEIsNull : Boolean read GetOldCANTIDAD_PENDIENTEIsNull; - - public - constructor Create(aBusinessProcessor: TDABusinessProcessor); override; - destructor Destroy; override; - - end; - -implementation - -uses - Variants, uROBinaryHelpers, uDAInterfaces; - -{ TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules } -constructor TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO]); -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO]); -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO] := aValue; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PEDIDO] := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO]); -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO]); -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO] := aValue; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_ARTICULO] := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE]); -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE]); -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_CLIENTEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE] := aValue; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_CLIENTE] := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_PROVEEDORValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR]); -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR]); -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR] := aValue; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvID_PROVEEDOR] := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_PROVEEDORValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PEDIDA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR]); -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_PROVEEDORValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PEDIDA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR]); -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_PROVEEDORValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR] := aValue; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PEDIDA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PEDIDA_PROVEEDOR] := Null; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PENDIENTE_PEDIRValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetCANT_PENDIENTE_PEDIRIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR]); -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PENDIENTE_PEDIRValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR]; -end; - -function TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.GetOldCANT_PENDIENTE_PEDIRIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR]); -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PENDIENTE_PEDIRValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR] := aValue; -end; - -procedure TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules.SetCANT_PENDIENTE_PEDIRIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_ArticulosPendientesPedirAProvCANT_PENDIENTE_PEDIR] := Null; -end; - - -{ TDarReferenciaBusinessProcessorRules } -constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TDarReferenciaBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TDarReferenciaBusinessProcessorRules.GetVALORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR]; -end; - -function TDarReferenciaBusinessProcessorRules.GetVALORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR]); -end; - -function TDarReferenciaBusinessProcessorRules.GetOldVALORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR]; -end; - -function TDarReferenciaBusinessProcessorRules.GetOldVALORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR]); -end; - -procedure TDarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := aValue; -end; - -procedure TDarReferenciaBusinessProcessorRules.SetVALORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := Null; -end; - - -{ TPedidosClienteBusinessProcessorRules } -constructor TPedidosClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := OBSERVACIONES_OnChange; - f_OBSERVACIONES := NewROStrings(StrList,True); - - StrList := TStringList.Create; - StrList.OnChange := INCIDENCIAS_OnChange; - f_INCIDENCIAS := NewROStrings(StrList,True); -end; - -destructor TPedidosClienteBusinessProcessorRules.Destroy; -begin - inherited; -end; - -procedure TPedidosClienteBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteOBSERVACIONES] := TStringList(Sender).Text; -end; - -procedure TPedidosClienteBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS] := TStringList(Sender).Text; -end; - -function TPedidosClienteBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_EMPRESA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_EMPRESA]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_EMPRESA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_EMPRESA]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_EMPRESA] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_EMPRESA] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_CLIENTE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_CLIENTE]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_CLIENTE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_CLIENTE]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_CLIENTE] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_CLIENTE] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREFERENCIA_CLIENTE]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_CLIENTE] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetSITUACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION]; -end; - -function TPedidosClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldSITUACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteSITUACION]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteSITUACION]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteSITUACION] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PEDIDO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PEDIDO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PEDIDO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PEDIDO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PEDIDO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PEDIDO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCALLE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCALLE]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCALLE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCALLE]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetCALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCALLE] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCALLE] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCODIGO_POSTAL]; -end; - -function TPedidosClienteBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCODIGO_POSTAL]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCODIGO_POSTAL]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteCODIGO_POSTAL]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCODIGO_POSTAL] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteCODIGO_POSTAL] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePOBLACION]; -end; - -function TPedidosClienteBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePOBLACION]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePOBLACION]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePOBLACION]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePOBLACION] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePOBLACION] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePROVINCIA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePROVINCIA]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePROVINCIA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePROVINCIA]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePROVINCIA] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePROVINCIA] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePERSONA_CONTACTO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePERSONA_CONTACTO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePERSONA_CONTACTO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClientePERSONA_CONTACTO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePERSONA_CONTACTO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClientePERSONA_CONTACTO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetTELEFONOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTELEFONO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetTELEFONOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTELEFONO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldTELEFONOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteTELEFONO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteTELEFONO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetTELEFONOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTELEFONO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteTELEFONO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; -begin - result := f_OBSERVACIONES; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteOBSERVACIONES]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteOBSERVACIONES]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteOBSERVACIONES]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteOBSERVACIONES]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteOBSERVACIONES] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetINCIDENCIASValue: IROStrings; -begin - result := f_INCIDENCIAS; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS]; -end; - -function TPedidosClienteBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]; -end; - -function TPedidosClienteBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteINCIDENCIAS_ACTIVAS] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_ALTA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_ALTA]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_ALTA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_ALTA]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_ALTA] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_ALTA] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_MODIFICACION]; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_MODIFICACION]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_MODIFICACION]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_MODIFICACION]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_MODIFICACION] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_MODIFICACION] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteUSUARIO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteUSUARIO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteUSUARIO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteUSUARIO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteUSUARIO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteUSUARIO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_NETO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_NETO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_NETO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_NETO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_NETO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_NETO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_PORTE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_PORTE]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_PORTE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_PORTE]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_PORTE] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_PORTE] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteDESCUENTO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteDESCUENTO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_DESCUENTO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_DESCUENTO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteBASE_IMPONIBLE]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteBASE_IMPONIBLE]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteBASE_IMPONIBLE] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIVA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIVA]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIVA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIVA]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIVAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIVA] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIVA] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_IVA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_IVA]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_IVA]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_IVA]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_IVA] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_IVA] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_TOTAL]; -end; - -function TPedidosClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_TOTAL]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_TOTAL]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteIMPORTE_TOTAL]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_TOTAL] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteIMPORTE_TOTAL] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_FORMA_PAGO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_FORMA_PAGO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_FORMA_PAGO] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetREF_TIENDA_WEBValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB]; -end; - -function TPedidosClienteBusinessProcessorRules.GetREF_TIENDA_WEBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldREF_TIENDA_WEBValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREF_TIENDA_WEB]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldREF_TIENDA_WEBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteREF_TIENDA_WEB]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetREF_TIENDA_WEBValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetREF_TIENDA_WEBIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREF_TIENDA_WEB] := Null; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]); -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]; -end; - -function TPedidosClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO]); -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO] := aValue; -end; - -procedure TPedidosClienteBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteFECHA_PREVISTA_ENVIO] := Null; -end; - - -{ TPedidosCliente_DetallesBusinessProcessorRules } -constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TPedidosCliente_DetallesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_PEDIDO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_PEDIDO]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_PEDIDO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_PEDIDO]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_PEDIDO] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_PEDIDO] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesPOSICION]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetPOSICIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesPOSICION]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesPOSICION]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesPOSICION]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesPOSICION] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesPOSICION] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesTIPO_DETALLE] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_ARTICULO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_ARTICULO]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_ARTICULO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesID_ARTICULO]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_ARTICULO] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesID_ARTICULO] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCONCEPTO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCONCEPTO]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCONCEPTO] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetCANTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCANTIDAD]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesCANTIDAD]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesCANTIDAD] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_UNIDAD] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_TOTAL] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesDESCUENTO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesDESCUENTO]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesDESCUENTO]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesDESCUENTO]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesDESCUENTO] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesDESCUENTO] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesIMPORTE_PORTE] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesVISIBLE]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesVISIBLE]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesVISIBLE]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesVISIBLE]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesVISIBLE] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesVISIBLE] := Null; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]); -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]; -end; - -function TPedidosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR]); -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR] := aValue; -end; - -procedure TPedidosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_DetallesREFERENCIA_PROVEEDOR] := Null; -end; - - -{ TPedidosCliente_RefreshBusinessProcessorRules } -constructor TPedidosCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -var - StrList: TStringList; -begin - inherited; - - StrList := TStringList.Create; - StrList.OnChange := OBSERVACIONES_OnChange; - f_OBSERVACIONES := NewROStrings(StrList,True); - - StrList := TStringList.Create; - StrList.OnChange := INCIDENCIAS_OnChange; - f_INCIDENCIAS := NewROStrings(StrList,True); -end; - -destructor TPedidosCliente_RefreshBusinessProcessorRules.Destroy; -begin - inherited; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshOBSERVACIONES] := TStringList(Sender).Text; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS] := TStringList(Sender).Text; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_EMPRESA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_EMPRESA]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID_EMPRESA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID_EMPRESA]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_EMPRESA] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_EMPRESA] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_CLIENTE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_CLIENTE]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID_CLIENTE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID_CLIENTE]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_CLIENTE] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_CLIENTE] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNOMBRE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNOMBRE]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldNOMBREValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshNOMBRE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshNOMBRE]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNOMBRE] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshNOMBRE] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREFERENCIA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREFERENCIA]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEIsNull: Boolean; -begin - result := VarIsNull(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; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREFERENCIA_CLIENTE] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshSITUACION]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetSITUACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshSITUACION]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshSITUACION]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshSITUACION]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshSITUACION] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshSITUACION] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PEDIDO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PEDIDO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_PEDIDO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_PEDIDO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PEDIDO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PEDIDO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCALLE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCALLE]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldCALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshCALLE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshCALLE]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCALLE] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCALLE] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCODIGO_POSTAL]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCODIGO_POSTAL]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshCODIGO_POSTAL]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshCODIGO_POSTAL]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCODIGO_POSTAL] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshCODIGO_POSTAL] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPOBLACION]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPOBLACION]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshPOBLACION]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshPOBLACION]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPOBLACION] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPOBLACION] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPROVINCIA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPROVINCIA]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshPROVINCIA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshPROVINCIA]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPROVINCIA] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPROVINCIA] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPERSONA_CONTACTO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPERSONA_CONTACTO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshPERSONA_CONTACTO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshPERSONA_CONTACTO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPERSONA_CONTACTO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshPERSONA_CONTACTO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetTELEFONOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshTELEFONO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetTELEFONOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshTELEFONO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldTELEFONOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshTELEFONO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshTELEFONO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetTELEFONOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshTELEFONO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshTELEFONO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; -begin - result := f_OBSERVACIONES; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshOBSERVACIONES]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshOBSERVACIONES]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshOBSERVACIONES]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshOBSERVACIONES]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshOBSERVACIONES] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetINCIDENCIASValue: IROStrings; -begin - result := f_INCIDENCIAS; - result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings; -begin - result := NewROStrings(); - result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshINCIDENCIAS]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshINCIDENCIAS]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshINCIDENCIAS_ACTIVAS] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_ALTA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_ALTA]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_ALTA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_ALTA]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_ALTA] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_ALTA] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_MODIFICACION]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_MODIFICACION]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_MODIFICACION]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_MODIFICACION]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_MODIFICACION] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_MODIFICACION] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshUSUARIO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshUSUARIO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshUSUARIO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshUSUARIO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshUSUARIO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshUSUARIO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_NETO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_NETO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_NETO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_NETO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_NETO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_NETO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_PORTE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_PORTE]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_PORTE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_PORTE]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_PORTE] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_PORTE] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshDESCUENTO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshDESCUENTO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshDESCUENTO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshDESCUENTO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshDESCUENTO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshDESCUENTO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_DESCUENTO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_DESCUENTO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_DESCUENTO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_DESCUENTO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_DESCUENTO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_DESCUENTO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshBASE_IMPONIBLE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshBASE_IMPONIBLE]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshBASE_IMPONIBLE]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshBASE_IMPONIBLE]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshBASE_IMPONIBLE] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshBASE_IMPONIBLE] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIVA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIVA]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIVAValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIVA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIVA]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIVAValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIVA] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIVA] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_IVA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_IVA]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_IVA]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_IVA]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_IVA] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_IVA] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_TOTAL]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_TOTAL]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_TOTAL]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshIMPORTE_TOTAL]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_TOTAL] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshIMPORTE_TOTAL] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_FORMA_PAGO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_FORMA_PAGO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID_FORMA_PAGO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshID_FORMA_PAGO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_FORMA_PAGO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshID_FORMA_PAGO] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetREF_TIENDA_WEBValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREF_TIENDA_WEB]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetREF_TIENDA_WEBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREF_TIENDA_WEB]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREF_TIENDA_WEBValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREF_TIENDA_WEB]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldREF_TIENDA_WEBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshREF_TIENDA_WEB]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREF_TIENDA_WEBValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREF_TIENDA_WEB] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetREF_TIENDA_WEBIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshREF_TIENDA_WEB] := Null; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO]); -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOValue: DateTime; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO]; -end; - -function TPedidosCliente_RefreshBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO]); -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO] := aValue; -end; - -procedure TPedidosCliente_RefreshBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_RefreshFECHA_PREVISTA_ENVIO] := Null; -end; - - -{ TPedidosCliente_Detalles_RefreshBusinessProcessorRules } -constructor TPedidosCliente_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TPedidosCliente_Detalles_RefreshBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshID]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshID]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_PEDIDO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_PEDIDO]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshID_PEDIDO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshID_PEDIDO]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_PEDIDO] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_PEDIDO] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetPOSICIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshPOSICION]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetPOSICIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshPOSICION]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshPOSICION]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshPOSICION]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshPOSICION] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshPOSICION] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshTIPO_DETALLE] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_ARTICULO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_ARTICULO]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshID_ARTICULO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshID_ARTICULO]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_ARTICULO] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshID_ARTICULO] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCONCEPTO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCONCEPTO]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshCONCEPTO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshCONCEPTO]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCONCEPTO] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCONCEPTO] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetCANTIDADValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCANTIDAD]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetCANTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCANTIDAD]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshCANTIDAD]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshCANTIDAD]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCANTIDAD] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshCANTIDAD] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_UNIDAD] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_TOTAL] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshDESCUENTO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshDESCUENTO]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshDESCUENTO]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshDESCUENTO]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshDESCUENTO] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshDESCUENTO] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshIMPORTE_PORTE] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetVISIBLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshVISIBLE]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetVISIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshVISIBLE]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshVISIBLE]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshVISIBLE]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshVISIBLE] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshVISIBLE] := Null; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR]); -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR]; -end; - -function TPedidosCliente_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR]); -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR] := aValue; -end; - -procedure TPedidosCliente_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosCliente_Detalles_RefreshREFERENCIA_PROVEEDOR] := Null; -end; - - -{ TPedidoCliente_Articulos_PendientesBusinessProcessorRules } -constructor TPedidoCliente_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); -begin - inherited; -end; - -destructor TPedidoCliente_Articulos_PendientesBusinessProcessorRules.Destroy; -begin - inherited; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]); -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO]); -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO] := aValue; -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesID_ARTICULO] := Null; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PEDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PEDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]); -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PEDValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PEDIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED]); -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PEDValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED] := aValue; -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PEDIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PED] := Null; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_ALBValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_ALBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]); -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_ALBValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_ALBIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB]); -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_ALBValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB] := aValue; -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_ALBIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_ALB] := Null; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PENDIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetCANTIDAD_PENDIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]); -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]; -end; - -function TPedidoCliente_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE]); -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE] := aValue; -end; - -procedure TPedidoCliente_Articulos_PendientesBusinessProcessorRules.SetCANTIDAD_PENDIENTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PedidoCliente_Articulos_PendientesCANTIDAD_PENDIENTE] := Null; -end; - - -initialization - RegisterBusinessProcessorRules(RID_PedidoCliente_ArticulosPendientesPedirAProvDelta, TPedidoCliente_ArticulosPendientesPedirAProvBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PedidosClienteDelta, TPedidosClienteBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PedidosCliente_DetallesDelta, TPedidosCliente_DetallesBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PedidosCliente_RefreshDelta, TPedidosCliente_RefreshBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PedidosCliente_Detalles_RefreshDelta, TPedidosCliente_Detalles_RefreshBusinessProcessorRules); - RegisterBusinessProcessorRules(RID_PedidoCliente_Articulos_PendientesDelta, TPedidoCliente_Articulos_PendientesBusinessProcessorRules); - -end. diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas index 3e2dac46..17031c01 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferencia = '{D8FAD5A5-0BBD-4F80-97E4-75CE6FA87398}'; - RID_PresupuestosCliente = '{23124D18-F2C0-4FBB-8B89-A8B33B1E7AC3}'; - RID_PresupuestosCliente_Detalles = '{332DC169-B61B-4AB1-A1C4-BAE869B39919}'; + RID_DarReferencia = '{54E7EE17-B5A5-4CA3-A697-84AB22C5B88F}'; + RID_PresupuestosCliente = '{66DE200E-0508-4CB0-890A-3CCC61E2C86C}'; + RID_PresupuestosCliente_Detalles = '{EE5CC98E-600B-4DB2-BC7A-A6E00DA2F287}'; { Data table names } nme_DarReferencia = 'DarReferencia'; @@ -89,37 +89,37 @@ const fld_PresupuestosCliente_DetallesID_PRESUPUESTO = 'ID_PRESUPUESTO'; fld_PresupuestosCliente_DetallesPOSICION = 'POSICION'; fld_PresupuestosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE'; - fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; fld_PresupuestosCliente_DetallesCONCEPTO = 'CONCEPTO'; fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD'; fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD'; - fld_PresupuestosCliente_DetallesDESCUENTO = 'DESCUENTO'; - fld_PresupuestosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE'; - fld_PresupuestosCliente_DetallesFECHA_ALTA = 'FECHA_ALTA'; - fld_PresupuestosCliente_DetallesFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO'; + fld_PresupuestosCliente_DetallesDESCUENTO = 'DESCUENTO'; + fld_PresupuestosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE'; + fld_PresupuestosCliente_DetallesREFERENCIA = 'REFERENCIA'; + fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR'; { PresupuestosCliente_Detalles field indexes } idx_PresupuestosCliente_DetallesID = 0; idx_PresupuestosCliente_DetallesID_PRESUPUESTO = 1; idx_PresupuestosCliente_DetallesPOSICION = 2; idx_PresupuestosCliente_DetallesTIPO_DETALLE = 3; - idx_PresupuestosCliente_DetallesID_ARTICULO = 4; - idx_PresupuestosCliente_DetallesCONCEPTO = 5; - idx_PresupuestosCliente_DetallesCANTIDAD = 6; - idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7; - idx_PresupuestosCliente_DetallesDESCUENTO = 8; - idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 9; - idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 10; - idx_PresupuestosCliente_DetallesVISIBLE = 11; - idx_PresupuestosCliente_DetallesFECHA_ALTA = 12; - idx_PresupuestosCliente_DetallesFECHA_MODIFICACION = 13; + idx_PresupuestosCliente_DetallesCONCEPTO = 4; + idx_PresupuestosCliente_DetallesCANTIDAD = 5; + idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 6; + idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 7; + idx_PresupuestosCliente_DetallesVISIBLE = 8; + idx_PresupuestosCliente_DetallesID_ARTICULO = 9; + idx_PresupuestosCliente_DetallesDESCUENTO = 10; + idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 11; + idx_PresupuestosCliente_DetallesREFERENCIA = 12; + idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 13; type { IDarReferencia } IDarReferencia = interface(IDAStronglyTypedDataTable) - ['{2BC8372B-CA4E-4389-B638-EEDE7C0A37A7}'] + ['{D37FA18C-421C-4FE2-BCBF-ED8B75F165D3}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -154,7 +154,7 @@ type { IPresupuestosCliente } IPresupuestosCliente = interface(IDAStronglyTypedDataTable) - ['{7197D0DC-E8EA-47EE-A127-A8B3A41F4676}'] + ['{D125D439-2B20-4F99-BD79-E2AD460661CE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -513,7 +513,7 @@ type { IPresupuestosCliente_Detalles } IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{3BCC0A03-B340-4A3E-BC4F-450F414F7D84}'] + ['{4D3B13BE-62CC-428D-916B-A3D1D36852FE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -531,10 +531,6 @@ type procedure SetTIPO_DETALLEValue(const aValue: String); function GetTIPO_DETALLEIsNull: Boolean; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); - function GetID_ARTICULOValue: Integer; - procedure SetID_ARTICULOValue(const aValue: Integer); - function GetID_ARTICULOIsNull: Boolean; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); function GetCONCEPTOValue: String; procedure SetCONCEPTOValue(const aValue: String); function GetCONCEPTOIsNull: Boolean; @@ -547,14 +543,6 @@ type procedure SetIMPORTE_UNIDADValue(const aValue: Currency); function GetIMPORTE_UNIDADIsNull: Boolean; procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); - function GetDESCUENTOIsNull: Boolean; - procedure SetDESCUENTOIsNull(const aValue: Boolean); - function GetIMPORTE_PORTEValue: Currency; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); - function GetIMPORTE_PORTEIsNull: Boolean; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); function GetIMPORTE_TOTALValue: Currency; procedure SetIMPORTE_TOTALValue(const aValue: Currency); function GetIMPORTE_TOTALIsNull: Boolean; @@ -563,14 +551,26 @@ type procedure SetVISIBLEValue(const aValue: Integer); function GetVISIBLEIsNull: Boolean; procedure SetVISIBLEIsNull(const aValue: Boolean); - function GetFECHA_ALTAValue: DateTime; - procedure SetFECHA_ALTAValue(const aValue: DateTime); - function GetFECHA_ALTAIsNull: Boolean; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); - function GetFECHA_MODIFICACIONValue: DateTime; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetFECHA_MODIFICACIONIsNull: Boolean; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetID_ARTICULOValue: Integer; + procedure SetID_ARTICULOValue(const aValue: Integer); + function GetID_ARTICULOIsNull: Boolean; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); + function GetDESCUENTOValue: Float; + procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOIsNull: Boolean; + procedure SetDESCUENTOIsNull(const aValue: Boolean); + function GetIMPORTE_PORTEValue: Currency; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); + function GetIMPORTE_PORTEIsNull: Boolean; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetREFERENCIA_PROVEEDORValue: String; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); + function GetREFERENCIA_PROVEEDORIsNull: Boolean; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); { Properties } @@ -582,26 +582,26 @@ type property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; end; { TPresupuestosCliente_DetallesDataTableRules } @@ -625,10 +625,6 @@ type procedure SetTIPO_DETALLEValue(const aValue: String); virtual; function GetTIPO_DETALLEIsNull: Boolean; virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; procedure SetCONCEPTOValue(const aValue: String); virtual; function GetCONCEPTOIsNull: Boolean; virtual; @@ -641,14 +637,6 @@ type procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; function GetIMPORTE_UNIDADIsNull: Boolean; virtual; procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; @@ -657,14 +645,26 @@ type procedure SetVISIBLEValue(const aValue: Integer); virtual; function GetVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -675,26 +675,26 @@ type property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull; property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue; property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; - property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue; property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; - property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1456,27 +1456,6 @@ begin DataTable.Fields[idx_PresupuestosCliente_DetallesTIPO_DETALLE].AsVariant := Null; end; -function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; -begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger; -end; - -procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); -begin - DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger := aValue; -end; - -function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].IsNull; -end; - -procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsVariant := Null; -end; - function TPresupuestosCliente_DetallesDataTableRules.GetCONCEPTOValue: String; begin result := DataTable.Fields[idx_PresupuestosCliente_DetallesCONCEPTO].AsString; @@ -1540,48 +1519,6 @@ begin DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD].AsVariant := Null; end; -function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat; -end; - -procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat := aValue; -end; - -function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].IsNull; -end; - -procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsVariant := Null; -end; - -function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency; -begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency; -end; - -procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue; -end; - -function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean; -begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].IsNull; -end; - -procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsVariant := Null; -end; - function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_TOTALValue: Currency; begin result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsCurrency; @@ -1624,46 +1561,109 @@ begin DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsVariant := Null; end; -function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_ALTAValue: DateTime; +function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer; begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsDateTime; + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger; end; -procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer); begin - DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsDateTime := aValue; + DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsInteger := aValue; end; -function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_ALTAIsNull: boolean; +function TPresupuestosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean; begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].IsNull; + result := DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].IsNull; end; -procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +procedure TPresupuestosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_ALTA].AsVariant := Null; + DataTable.Fields[idx_PresupuestosCliente_DetallesID_ARTICULO].AsVariant := Null; end; -function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float; begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsDateTime; + result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat; end; -procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOValue(const aValue: Float); begin - DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsDateTime := aValue; + DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsFloat := aValue; end; -function TPresupuestosCliente_DetallesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +function TPresupuestosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean; begin - result := DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].IsNull; + result := DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].IsNull; end; -procedure TPresupuestosCliente_DetallesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +procedure TPresupuestosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_PresupuestosCliente_DetallesFECHA_MODIFICACION].AsVariant := Null; + DataTable.Fields[idx_PresupuestosCliente_DetallesDESCUENTO].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_PORTE].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].AsString; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].AsString := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA].AsVariant := Null; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].AsString; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].AsString := aValue; +end; + +function TPresupuestosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].IsNull; +end; + +procedure TPresupuestosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null; end; diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas index b37e5039..b0c806b0 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_DarReferenciaDelta = '{5BAA864C-15C2-4368-BC2D-0E670EA0C28F}'; - RID_PresupuestosClienteDelta = '{0F7F4684-E56F-40A8-9AB5-8612CCD38E74}'; - RID_PresupuestosCliente_DetallesDelta = '{ECFAC69A-18AF-4880-BDEE-29EF5A24A70C}'; + RID_DarReferenciaDelta = '{A9243289-0553-4E9A-85B2-51E01EBDB18B}'; + RID_PresupuestosClienteDelta = '{367BB3F4-EC4E-49ED-ACF6-4A0F1A85E580}'; + RID_PresupuestosCliente_DetallesDelta = '{ED838F56-5DC9-4667-B2A2-F2ACC0A249B2}'; type { IDarReferenciaDelta } IDarReferenciaDelta = interface(IDarReferencia) - ['{5BAA864C-15C2-4368-BC2D-0E670EA0C28F}'] + ['{A9243289-0553-4E9A-85B2-51E01EBDB18B}'] { Property getters and setters } function GetOldVALORValue : String; @@ -50,7 +50,7 @@ type { IPresupuestosClienteDelta } IPresupuestosClienteDelta = interface(IPresupuestosCliente) - ['{0F7F4684-E56F-40A8-9AB5-8612CCD38E74}'] + ['{367BB3F4-EC4E-49ED-ACF6-4A0F1A85E580}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -412,38 +412,38 @@ type { IPresupuestosCliente_DetallesDelta } IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) - ['{ECFAC69A-18AF-4880-BDEE-29EF5A24A70C}'] + ['{ED838F56-5DC9-4667-B2A2-F2ACC0A249B2}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PRESUPUESTOValue : Integer; function GetOldPOSICIONValue : Integer; function GetOldTIPO_DETALLEValue : String; - function GetOldID_ARTICULOValue : Integer; function GetOldCONCEPTOValue : String; function GetOldCANTIDADValue : Integer; function GetOldIMPORTE_UNIDADValue : Currency; - function GetOldDESCUENTOValue : Float; - function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldVISIBLEValue : Integer; - function GetOldFECHA_ALTAValue : DateTime; - function GetOldFECHA_MODIFICACIONValue : DateTime; + function GetOldID_ARTICULOValue : Integer; + function GetOldDESCUENTOValue : Float; + function GetOldIMPORTE_PORTEValue : Currency; + function GetOldREFERENCIAValue : String; + function GetOldREFERENCIA_PROVEEDORValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue; property OldPOSICION : Integer read GetOldPOSICIONValue; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldCONCEPTO : String read GetOldCONCEPTOValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldVISIBLE : Integer read GetOldVISIBLEValue; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; end; { TPresupuestosCliente_DetallesBusinessProcessorRules } @@ -475,12 +475,6 @@ type function GetOldTIPO_DETALLEIsNull: Boolean; virtual; procedure SetTIPO_DETALLEValue(const aValue: String); virtual; procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual; - function GetID_ARTICULOValue: Integer; virtual; - function GetID_ARTICULOIsNull: Boolean; virtual; - function GetOldID_ARTICULOValue: Integer; virtual; - function GetOldID_ARTICULOIsNull: Boolean; virtual; - procedure SetID_ARTICULOValue(const aValue: Integer); virtual; - procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetCONCEPTOValue: String; virtual; function GetCONCEPTOIsNull: Boolean; virtual; function GetOldCONCEPTOValue: String; virtual; @@ -499,18 +493,6 @@ type function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual; procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual; procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; - function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; - procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; - function GetIMPORTE_PORTEValue: Currency; virtual; - function GetIMPORTE_PORTEIsNull: Boolean; virtual; - function GetOldIMPORTE_PORTEValue: Currency; virtual; - function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; - procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; - procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALValue: Currency; virtual; @@ -523,18 +505,36 @@ type function GetOldVISIBLEIsNull: Boolean; virtual; procedure SetVISIBLEValue(const aValue: Integer); virtual; procedure SetVISIBLEIsNull(const aValue: Boolean); virtual; - function GetFECHA_ALTAValue: DateTime; virtual; - function GetFECHA_ALTAIsNull: Boolean; virtual; - function GetOldFECHA_ALTAValue: DateTime; virtual; - function GetOldFECHA_ALTAIsNull: Boolean; virtual; - procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; - procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; - function GetFECHA_MODIFICACIONValue: DateTime; virtual; - function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; - function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; - function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; - procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetID_ARTICULOValue: Integer; virtual; + function GetID_ARTICULOIsNull: Boolean; virtual; + function GetOldID_ARTICULOValue: Integer; virtual; + function GetOldID_ARTICULOIsNull: Boolean; virtual; + procedure SetID_ARTICULOValue(const aValue: Integer); virtual; + procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; + function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOIsNull: Boolean; virtual; + function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOIsNull: Boolean; virtual; + procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_PORTEValue: Currency; virtual; + function GetIMPORTE_PORTEIsNull: Boolean; virtual; + function GetOldIMPORTE_PORTEValue: Currency; virtual; + function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; + procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; + procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIA_PROVEEDORValue: String; virtual; + function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + function GetOldREFERENCIA_PROVEEDORValue: String; virtual; + function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual; + procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; + procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -553,10 +553,6 @@ type property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull; property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue; property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull; - property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; - property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; - property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; - property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue; property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull; property OldCONCEPTO : String read GetOldCONCEPTOValue; @@ -569,14 +565,6 @@ type property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull; property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue; property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; - property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; - property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; - property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; - property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; - property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; - property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; @@ -585,14 +573,26 @@ type property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull; property OldVISIBLE : Integer read GetOldVISIBLEValue; property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull; - property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; - property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; - property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; - property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; - property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; - property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; + property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; + property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; + property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; + property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; + property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; + property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; + property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; + property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; + property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; + property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; + property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull; + property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; + property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1689,37 +1689,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesTIPO_DETALLE] := Null; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]); -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]); -end; - -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := aValue; -end; - -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := Null; -end; - function TPresupuestosCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesCONCEPTO]; @@ -1813,68 +1782,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD] := Null; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]); -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]); -end; - -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := aValue; -end; - -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := Null; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]); -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]; -end; - -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]); -end; - -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := aValue; -end; - -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := Null; -end; - function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL]; @@ -1937,66 +1844,159 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE] := Null; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]); end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO]); end; -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := aValue; end; -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_ALTA] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesID_ARTICULO] := Null; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]); end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]; end; -function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesDESCUENTO]); end; -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := aValue; end; -procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesFECHA_MODIFICACION] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesDESCUENTO] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_PORTE] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA] := Null; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR]); +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR]; +end; + +function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR]); +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR] := aValue; +end; + +procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR] := Null; end; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index d7a51203..26ee21e1 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -57,6 +57,7 @@ type function GetDetalles: IBizDetallesPresupuestoCliente; procedure SetDetalles(Value: IBizDetallesPresupuestoCliente); + function GetSITUACIONValue: String; override; procedure SetFECHA_PRESUPUESTOValue(const aValue: TDateTime); override; procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; @@ -192,7 +193,7 @@ end; procedure TBizPresupuestoCliente.IniciarValoresPresupuestoNuevo; begin -// ID_EMPRESA := dmUsuarios.IDEmpresaActual; + ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual; // USUARIO := dmUsuarios.LoginInfo.Usuario; FECHA_PRESUPUESTO := DateOf(Date); INCIDENCIAS_ACTIVAS := 0; @@ -211,6 +212,11 @@ begin Result := FDetalles; end; +function TBizPresupuestoCliente.GetSITUACIONValue: String; +begin + result := Trim(DataTable.Fields[idx_PresupuestosClienteSITUACION].AsString); +end; + procedure TBizPresupuestoCliente.OnNewRecord(Sender: TDADataTable); begin inherited; @@ -249,10 +255,8 @@ end; procedure TBizPresupuestoCliente.SetDetalles(Value: IBizDetallesPresupuestoCliente); begin - showmessage('Voy a asignar los detalles2'); FDetalles := Value; EnlazarMaestroDetalle(FDetallesLink, FDetalles); - showmessage('Ya los he asignado'); end; procedure TBizPresupuestoCliente.SetFECHA_PRESUPUESTOValue(const aValue: TDateTime); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas index 946286d7..75322f8a 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosClienteServer.pas @@ -13,17 +13,7 @@ const type TBizPresupuestosClienteServer = class(TPresupuestosClienteBusinessProcessorRules) protected -{ - procedure BeforeProcessChange(Sender: TDABusinessProcessor; - aChangeType: TDAChangeType; aChange: TDADeltaChange; - var ProcessChange: Boolean); override; -} - procedure AfterProcessChange(Sender: TDABusinessProcessor; - aChange: TDADeltaChange; Processed: Boolean; - var CanRemoveFromDelta: Boolean); override; - - - + procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; end; implementation @@ -34,9 +24,9 @@ uses { TBizPresupuestosClienteServer } -procedure TBizPresupuestosClienteServer.AfterProcessChange( - Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; - var CanRemoveFromDelta: Boolean); + +procedure TBizPresupuestosClienteServer.BeforeProcessDelta( + Sender: TDABusinessProcessor; const aDelta: IDADelta); var ASchema : TDASchema; ACurrentConn : IDAConnection; @@ -45,19 +35,20 @@ var begin inherited; - case aChange.ChangeType of + + case Sender.CurrentChange.ChangeType of ctInsert, ctUpdate: begin //Si la referencia no ha sido asignada le asignamos una nosotros - if (VarIsNull(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA])) - or (VarToStr(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]) = '') then + if (VarIsNull(Sender.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA])) + or (VarToStr(Sender.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]) = '') then begin ASchema := BusinessProcessor.Schema; ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); try //Siempre va a estar rellena - Empresa := aChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA]; - dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, Empresa]); + Empresa := Sender.CurrentChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA]; + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, Empresa]); except RaiseError('No existe la tabla REFERENCIAS'); end; @@ -70,7 +61,7 @@ begin REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString; try - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]); + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]); except RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); end; @@ -80,54 +71,6 @@ begin end; end; -{ -procedure TBizPresupuestosClienteServer.BeforeProcessChange( - Sender: TDABusinessProcessor; aChangeType: TDAChangeType; - aChange: TDADeltaChange; var ProcessChange: Boolean); -var - ASchema : TDASchema; - ACurrentConn : IDAConnection; - dsData: IDADataset; - Empresa : Variant; - -begin - inherited; - case aChangeType of - ctInsert, ctUpdate: begin - //Si la referencia no ha sido asignada le asignamos una nosotros - if (VarIsNull(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA])) - or (VarToStr(aChange.NewValueByName[fld_PresupuestosClienteREFERENCIA]) = '') then - begin - ASchema := BusinessProcessor.Schema; - ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor); - - try - //Siempre va a estar rellena - Empresa := aChange.NewValueByName[fld_PresupuestosClienteID_EMPRESA]; - dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, Empresa]); - except - RaiseError('No existe la tabla REFERENCIAS'); - end; - - dsData.Active := True; - - if dsData.IsEmpty then - RaiseError('NO HAY REFERENCIA ' + REF_PRESUPUESTOS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS'); - - REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString; - - try - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_PRESUPUESTOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]); - except - RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); - end; - - end; - end; - end; -end; -} - initialization RegisterBusinessProcessorRules(BIZ_SERVER_PRESUPUESTOS_CLIENTE, TBizPresupuestosClienteServer); diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc index 85077b4b..8d896e31 100644 --- a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc +++ b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC5.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17A.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm index d4302164..5c8372fb 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm @@ -17,24 +17,23 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Params = < item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' - TargetTable = 'REFERENCIAS' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' SQL = - 'SELECT'#10' VALOR'#10'FROM'#10' REFERENCIAS'#10'WHERE'#10' CODIGO = :COD' + - 'IGO'#10'AND ID_EMPRESA = :ID_EMPRESA' + 'SELECT VALOR'#10'FROM REFERENCIAS'#10'WHERE CODIGO = :CODIGO'#10'AND ID_EMPR' + + 'ESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = < item @@ -68,20 +67,52 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente TableField = 'ID_EMPRESA' end item - DatasetField = 'ID_CLIENTE' - TableField = 'ID_CLIENTE' + DatasetField = 'FECHA_PRESUPUESTO' + TableField = 'FECHA_PRESUPUESTO' end item - DatasetField = 'USUARIO' - TableField = 'USUARIO' + DatasetField = 'FECHA_DECISION' + TableField = 'FECHA_DECISION' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' + end + item + DatasetField = 'NIF_CIF' + TableField = 'NIF_CIF' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'REFERENCIA_CLIENTE' + TableField = 'REFERENCIA_CLIENTE' + end + item + DatasetField = 'CLIENTE_FINAL' + TableField = 'CLIENTE_FINAL' + end + item + DatasetField = 'PORTADA' + TableField = 'PORTADA' + end + item + DatasetField = 'MEMORIA' + TableField = 'MEMORIA' + end + item + DatasetField = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' end item DatasetField = 'INCIDENCIAS' @@ -91,10 +122,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DatasetField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS' end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' @@ -104,8 +131,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente TableField = 'FECHA_MODIFICACION' end item - DatasetField = 'SITUACION' - TableField = 'SITUACION' + DatasetField = 'USUARIO' + TableField = 'USUARIO' end item DatasetField = 'IMPORTE_NETO' @@ -135,41 +162,13 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end item DatasetField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' - end - item - DatasetField = 'REFERENCIA_CLIENTE' - TableField = 'REFERENCIA_CLIENTE' - end - item - DatasetField = 'FECHA_PRESUPUESTO' - TableField = 'FECHA_PRESUPUESTO' - end - item - DatasetField = 'FECHA_DECISION' - TableField = 'FECHA_DECISION' - end - item - DatasetField = 'PORTADA' - TableField = 'PORTADA' - end - item - DatasetField = 'MEMORIA' - TableField = 'MEMORIA' - end - item - DatasetField = 'CLIENTE_FINAL' - TableField = 'CLIENTE_FINAL' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'NIF_CIF' - TableField = 'NIF_CIF' end> end> Name = 'PresupuestosCliente' @@ -178,143 +177,151 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' - DictionaryEntry = 'PedidosCliente_ID' + ServerAutoRefresh = True + DictionaryEntry = 'PresupuestosCliente_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger - DictionaryEntry = 'PedidosCliente_ID_EMPRESA' + DictionaryEntry = 'PresupuestosCliente_ID_EMPRESA' end item Name = 'FECHA_PRESUPUESTO' DataType = datDateTime + DictionaryEntry = 'PresupuestosCliente_FECHA_PRESUPUESTO' end item Name = 'FECHA_DECISION' DataType = datDateTime + DictionaryEntry = 'PresupuestosCliente_FECHA_DECISION' end item Name = 'REFERENCIA' DataType = datString Size = 255 - DictionaryEntry = 'PedidosCliente_REFERENCIA' + DictionaryEntry = 'PresupuestosCliente_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 255 - DictionaryEntry = 'PedidosCliente_SITUACION' + DictionaryEntry = 'PresupuestosCliente_SITUACION' end item Name = 'ID_CLIENTE' DataType = datInteger - DictionaryEntry = 'PedidosCliente_ID_CLIENTE' + DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 + DictionaryEntry = 'PresupuestosCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_NOMBRE' end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 - DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE' + DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE' end item Name = 'CLIENTE_FINAL' DataType = datString Size = 255 + DictionaryEntry = 'PresupuestosCliente_CLIENTE_FINAL' end item Name = 'PORTADA' DataType = datMemo + DictionaryEntry = 'PresupuestosCliente_PORTADA' end item Name = 'MEMORIA' DataType = datMemo + DictionaryEntry = 'PresupuestosCliente_MEMORIA' end item Name = 'OBSERVACIONES' DataType = datMemo - DictionaryEntry = 'PedidosCliente_OBSERVACIONES' + DictionaryEntry = 'PresupuestosCliente_OBSERVACIONES' end item Name = 'INCIDENCIAS' DataType = datMemo - DictionaryEntry = 'PedidosCliente_INCIDENCIAS' + DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS' end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger - DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS' + DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS_ACTIVAS' end item Name = 'FECHA_ALTA' DataType = datDateTime - DictionaryEntry = 'PedidosCliente_FECHA_ALTA' + DictionaryEntry = 'PresupuestosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime - DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION' + DictionaryEntry = 'PresupuestosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 - DictionaryEntry = 'PedidosCliente_USUARIO' + DictionaryEntry = 'PresupuestosCliente_USUARIO' end item Name = 'IMPORTE_NETO' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_IMPORTE_NETO' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_PORTE' end item Name = 'DESCUENTO' DataType = datFloat - DictionaryEntry = 'PedidosCliente_DESCUENTO' + DictionaryEntry = 'PresupuestosCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_DESCUENTO' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE' + DictionaryEntry = 'PresupuestosCliente_BASE_IMPONIBLE' end item Name = 'IVA' DataType = datFloat - DictionaryEntry = 'PedidosCliente_IVA' + DictionaryEntry = 'PresupuestosCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_IMPORTE_IVA' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_IVA' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL' + DictionaryEntry = 'PresupuestosCliente_IMPORTE_TOTAL' end item Name = 'ID_FORMA_PAGO' DataType = datInteger - DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO' + DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO' end> end item @@ -322,21 +329,35 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' - StatementType = stAutoSQL + SQL = + 'SELECT'#10' PRESUPUESTOS_CLIENTE_DETALLES.ID, PRESUPUESTOS_CLIENT' + + 'E_DETALLES.ID_PRESUPUESTO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.POS' + + 'ICION, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PRESUPUES' + + 'TOS_CLIENTE_DETALLES.CONCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CAN' + + 'TIDAD,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPU' + + 'ESTOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_D' + + 'ETALLES.VISIBLE,'#10#10' PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO,' + + ' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_CLIEN' + + 'TE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA, ARTICULOS.REFER' + + 'ENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PRESUPUESTOS_CLIENTE_DE' + + 'TALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_A' + + 'RTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10 + StatementType = stSQL ColumnMappings = < item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_PRESUPUESTO' + TableField = 'ID_PRESUPUESTO' end item DatasetField = 'POSICION' TableField = 'POSICION' end - item - DatasetField = 'ID' - TableField = 'ID' - end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' @@ -345,6 +366,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -370,16 +395,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente TableField = 'IMPORTE_PORTE' end item - DatasetField = 'ID_PRESUPUESTO' - TableField = 'ID_PRESUPUESTO' + DatasetField = 'REFERENCIA' + TableField = '' + SQLOrigin = 'REFERENCIA' end item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' + DatasetField = 'REFERENCIA_PROVEEDOR' + TableField = '' + SQLOrigin = 'REFERENCIA_PROVEEDOR' end> end> Name = 'PresupuestosCliente_Detalles' @@ -388,73 +411,76 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID' - DictionaryEntry = 'PedidosCliente_Detalles_ID' + ServerAutoRefresh = True + DictionaryEntry = 'PresupuestosCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_PRESUPUESTO' DataType = datInteger - Required = True + DictionaryEntry = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO' end item Name = 'POSICION' DataType = datInteger - DictionaryEntry = 'POSICIONCONCEPTO' + DictionaryEntry = 'PresupuestosCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 - DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE' - end - item - Name = 'ID_ARTICULO' - DataType = datInteger - DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO' + DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 - DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO' + DictionaryEntry = 'PresupuestosCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datInteger - DictionaryEntry = 'CANTIDAD' + DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD' - end - item - Name = 'DESCUENTO' - DataType = datFloat - DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO' - end - item - Name = 'IMPORTE_PORTE' - DataType = datCurrency - DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE' + DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency - DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL' + DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger - DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE' + DictionaryEntry = 'PresupuestosCliente_Detalles_VISIBLE' end item - Name = 'FECHA_ALTA' - DataType = datDateTime + Name = 'ID_ARTICULO' + DataType = datInteger + DictionaryEntry = 'PresupuestosCliente_Detalles_ID_ARTICULO' end item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime + Name = 'DESCUENTO' + DataType = datFloat + DictionaryEntry = 'PresupuestosCliente_Detalles_DESCUENTO' + end + item + Name = 'IMPORTE_PORTE' + DataType = datCurrency + DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_PORTE' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 end> end> JoinDataTables = <> @@ -464,31 +490,25 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO' - DataType = datString - Size = 50 Value = '' - ParamType = daptInput end item - Name = 'ID_EMPRESA' - DataType = datInteger + Name = 'EMPRESA' Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' - TargetTable = 'REFERENCIAS' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' SQL = 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' + - 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA' + 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10 StatementType = stSQL ColumnMappings = <> end> @@ -507,11 +527,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Value = '' end item - Name = 'ID_CLIENTE' + Name = 'FECHA_PRESUPUESTO' Value = '' end item - Name = 'USUARIO' + Name = 'FECHA_DECISION' Value = '' end item @@ -519,7 +539,31 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Value = '' end item - Name = 'IMPORTE_TOTAL' + Name = 'SITUACION' + Value = '' + end + item + Name = 'ID_CLIENTE' + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + Value = '' + end + item + Name = 'CLIENTE_FINAL' + Value = '' + end + item + Name = 'PORTADA' + Value = '' + end + item + Name = 'MEMORIA' + Value = '' + end + item + Name = 'OBSERVACIONES' Value = '' end item @@ -530,10 +574,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'INCIDENCIAS_ACTIVAS' Value = '' end - item - Name = 'OBSERVACIONES' - Value = '' - end item Name = 'FECHA_ALTA' Value = '' @@ -543,7 +583,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Value = '' end item - Name = 'SITUACION' + Name = 'USUARIO' Value = '' end item @@ -574,53 +614,34 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'IMPORTE_IVA' Value = '' end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end item Name = 'ID_FORMA_PAGO' Value = '' - end - item - Name = 'REFERENCIA_CLIENTE' - Value = '' - end - item - Name = 'FECHA_PRESUPUESTO' - Value = '' - end - item - Name = 'FECHA_DECISION' - Value = '' - end - item - Name = 'PORTADA' - Value = '' - end - item - Name = 'MEMORIA' - Value = '' - end - item - Name = 'CLIENTE_FINAL' - Value = '' end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE' SQL = - 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIEN' + - 'TE, USUARIO, REFERENCIA, IMPORTE_TOTAL,'#10' INCIDENCIAS, INCIDE' + - 'NCIAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, '#10' FECHA_MODIFICACI' + - 'ON, SITUACION, IMPORTE_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMP' + - 'ORTE_DESCUENTO, BASE_IMPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA' + - '_PAGO, REFERENCIA_CLIENTE, FECHA_PRESUPUESTO, '#10' FECHA_DECISI' + - 'ON, PORTADA, MEMORIA, CLIENTE_FINAL)'#10' VALUES'#10' (:ID, :ID_EMPR' + - 'ESA, :ID_CLIENTE, :USUARIO, :REFERENCIA, :IMPORTE_TOTAL,'#10' :I' + - 'NCIDENCIAS, :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, '#10' :FECHA_A' + - 'LTA, :FECHA_MODIFICACION, :SITUACION, :IMPORTE_NETO, '#10' :IMPO' + - 'RTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, '#10' ' + - ' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :REFERENCIA_CLIENTE, '#10' ' + - ' :FECHA_PRESUPUESTO, :FECHA_DECISION, :PORTADA, :MEMORIA, '#10' ' + - ':CLIENTE_FINAL)'#10 + 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE'#10' (ID, ID_EMPRESA, FECHA_PR' + + 'ESUPUESTO, FECHA_DECISION, REFERENCIA,'#10' SITUACION, ID_CLIENT' + + 'E, REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL, PORTADA, MEMORIA, OBS' + + 'ERVACIONES, INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS, FECHA_ALTA, ' + + 'FECHA_MODIFICACION, '#10' USUARIO, IMPORTE_NETO, IMPORTE_PORTE, ' + + 'DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA, IMPORTE' + + '_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO)'#10' VALUES'#10' (:ID, :ID_EMPRE' + + 'SA, :FECHA_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :SITU' + + 'ACION, :ID_CLIENTE, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :P' + + 'ORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENCI' + + 'AS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :I' + + 'MPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENT' + + 'O, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :I' + + 'D_FORMA_PAGO)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -631,11 +652,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'OLD_ID' DataType = datAutoInc - Value = '' + Value = '0' end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE' SQL = 'DELETE '#10' FROM'#10' PRESUPUESTOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_I' + @@ -647,16 +669,22 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente end item Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' + Value = '' + end item Name = 'ID_EMPRESA' Value = '' end item - Name = 'ID_CLIENTE' + Name = 'FECHA_PRESUPUESTO' Value = '' end item - Name = 'USUARIO' + Name = 'FECHA_DECISION' Value = '' end item @@ -664,7 +692,31 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Value = '' end item - Name = 'IMPORTE_TOTAL' + Name = 'SITUACION' + Value = '' + end + item + Name = 'ID_CLIENTE' + Value = '' + end + item + Name = 'REFERENCIA_CLIENTE' + Value = '' + end + item + Name = 'CLIENTE_FINAL' + Value = '' + end + item + Name = 'PORTADA' + Value = '' + end + item + Name = 'MEMORIA' + Value = '' + end + item + Name = 'OBSERVACIONES' Value = '' end item @@ -675,10 +727,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'INCIDENCIAS_ACTIVAS' Value = '' end - item - Name = 'OBSERVACIONES' - Value = '' - end item Name = 'FECHA_ALTA' Value = '' @@ -688,7 +736,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Value = '' end item - Name = 'SITUACION' + Name = 'USUARIO' Value = '' end item @@ -719,34 +767,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'IMPORTE_IVA' Value = '' end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end item Name = 'ID_FORMA_PAGO' Value = '' end - item - Name = 'REFERENCIA_CLIENTE' - Value = '' - end - item - Name = 'FECHA_PRESUPUESTO' - Value = '' - end - item - Name = 'FECHA_DECISION' - Value = '' - end - item - Name = 'PORTADA' - Value = '' - end - item - Name = 'MEMORIA' - Value = '' - end - item - Name = 'CLIENTE_FINAL' - Value = '' - end item Name = 'OLD_ID' Value = '' @@ -754,23 +782,24 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE' SQL = - 'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,' + - ' '#10' ID_CLIENTE = :ID_CLIENTE, '#10' USUARIO = :USUARIO, '#10' RE' + - 'FERENCIA = :REFERENCIA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' + - ' INCIDENCIAS = :INCIDENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDE' + - 'NCIAS_ACTIVAS, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' FECHA_A' + - 'LTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION' + - ', '#10' SITUACION = :SITUACION, '#10' IMPORTE_NETO = :IMPORTE_NETO' + - ', '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUEN' + - 'TO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPON' + - 'IBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMP' + - 'ORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' REFERENCIA_C' + - 'LIENTE = :REFERENCIA_CLIENTE, '#10' FECHA_PRESUPUESTO = :FECHA_PR' + - 'ESUPUESTO, '#10' FECHA_DECISION = :FECHA_DECISION, '#10' PORTADA =' + - ' :PORTADA, '#10' MEMORIA = :MEMORIA, '#10' CLIENTE_FINAL = :CLIENT' + - 'E_FINAL'#10' WHERE'#10' (ID = :OLD_ID)'#10 + 'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA ' + + '= :ID_EMPRESA, '#10' FECHA_PRESUPUESTO = :FECHA_PRESUPUESTO, '#10' ' + + ' FECHA_DECISION = :FECHA_DECISION, '#10' REFERENCIA = :REFERENCIA' + + ', '#10' SITUACION = :SITUACION, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' + + ' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' CLIENTE_FINAL =' + + ' :CLIENTE_FINAL, '#10' PORTADA = :PORTADA, '#10' MEMORIA = :MEMORI' + + 'A, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCI' + + 'DENCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' F' + + 'ECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFI' + + 'CACION, '#10' USUARIO = :USUARIO, '#10' IMPORTE_NETO = :IMPORTE_NE' + + 'TO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCU' + + 'ENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMP' + + 'ONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :I' + + 'MPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_P' + + 'AGO = :ID_FORMA_PAGO'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -785,7 +814,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Value = '' end item - Name = 'CANTIDAD' + Name = 'ID_PRESUPUESTO' Value = '' end item @@ -800,6 +829,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente Name = 'CONCEPTO' Value = '' end + item + Name = 'CANTIDAD' + Value = '' + end item Name = 'IMPORTE_UNIDAD' Value = '' @@ -823,32 +856,19 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'IMPORTE_PORTE' Value = '' - end - item - Name = 'ID_PRESUPUESTO' - Value = '' - end - item - Name = 'FECHA_ALTA' - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - Value = '' end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' SQL = - 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, P' + - 'OSICION, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TO' + - 'TAL, VISIBLE, ID_ARTICULO, DESCUENTO, IMPORTE_PORTE, '#10' ID_PR' + - 'ESUPUESTO, FECHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :C' + - 'ANTIDAD, :POSICION, :TIPO_DETALLE, :CONCEPTO, :IMPORTE_UNIDAD,'#10' ' + - ' :IMPORTE_TOTAL, :VISIBLE, :ID_ARTICULO, :DESCUENTO, '#10' :I' + - 'MPORTE_PORTE, :ID_PRESUPUESTO, :FECHA_ALTA, :FECHA_MODIFICACION)' + - #10 + 'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' + + 'STO, POSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UN' + + 'IDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPO' + + 'RTE_PORTE)'#10' VALUES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_' + + 'DETALLE, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TO' + + 'TAL, :VISIBLE, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -859,11 +879,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Name = 'OLD_ID' DataType = datAutoInc - Value = '' + Value = '0' end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' SQL = 'DELETE '#10' FROM'#10' PRESUPUESTOS_CLIENTE_DETALLES'#10' WHERE'#10' (ID' + @@ -876,90 +897,72 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente item Params = < item - Name = 'CANTIDAD' - DataType = datInteger - Value = '' - end - item - Name = 'POSICION' - DataType = datInteger - Value = '' - end - item - Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 - Value = '' - end - item - Name = 'CONCEPTO' - DataType = datString - Size = 2000 - Value = '' - end - item - Name = 'IMPORTE_UNIDAD' - DataType = datCurrency - Value = '' - end - item - Name = 'IMPORTE_TOTAL' - DataType = datCurrency - Value = '' - end - item - Name = 'VISIBLE' - DataType = datInteger - Value = '' - end - item - Name = 'ID_ARTICULO' - DataType = datInteger - Value = '' - end - item - Name = 'DESCUENTO' - DataType = datFloat - Value = '' - end - item - Name = 'IMPORTE_PORTE' - DataType = datCurrency + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID' Value = '' end item Name = 'ID_PRESUPUESTO' - DataType = datInteger Value = '' end item - Name = 'FECHA_ALTA' - DataType = datDateTime + Name = 'POSICION' Value = '' end item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime + Name = 'TIPO_DETALLE' + Value = '' + end + item + Name = 'CONCEPTO' + Value = '' + end + item + Name = 'CANTIDAD' + Value = '' + end + item + Name = 'IMPORTE_UNIDAD' + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + Value = '' + end + item + Name = 'VISIBLE' + Value = '' + end + item + Name = 'ID_ARTICULO' + Value = '' + end + item + Name = 'DESCUENTO' + Value = '' + end + item + Name = 'IMPORTE_PORTE' Value = '' end item Name = 'OLD_ID' - DataType = datAutoInc Value = '' end> Statements = < item Connection = 'IBX' + Default = True TargetTable = 'PRESUPUESTOS_CLIENTE_DETALLES' SQL = - 'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' CANTIDAD = :CANT' + - 'IDAD, '#10' POSICION = :POSICION, '#10' TIPO_DETALLE = :TIPO_DETAL' + - 'LE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UN' + - 'IDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIB' + - 'LE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO' + - ', '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' ID_PRESUPUESTO = :ID' + - '_PRESUPUESTO, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICA' + - 'CION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OLD_ID)' + 'UPDATE PRESUPUESTOS_CLIENTE_DETALLES'#10' SET '#10' ID = :ID,'#10' ID' + + '_PRESUPUESTO = :ID_PRESUPUESTO, '#10' POSICION = :POSICION, '#10' ' + + 'TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CA' + + 'NTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' ' + + 'IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID' + + '_ARTICULO = :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPO' + + 'RTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1024,316 +1027,237 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente object DADataDictionary: TDADataDictionary Fields = < item - Name = 'PedidosCliente_ID' + Name = 'PresupuestosCliente_ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' DisplayLabel = 'ID' + ServerAutoRefresh = True end item - Name = 'PedidosCliente_ID_EMPRESA' + Name = 'PresupuestosCliente_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item - Name = 'PedidosCliente_ID_CLIENTE' + Name = 'PresupuestosCliente_FECHA_PRESUPUESTO' + DataType = datDateTime + end + item + Name = 'PresupuestosCliente_FECHA_DECISION' + DataType = datDateTime + end + item + Name = 'PresupuestosCliente_REFERENCIA' + DataType = datString + Size = 255 + DisplayLabel = 'Referencia' + end + item + Name = 'PresupuestosCliente_SITUACION' + DataType = datString + Size = 255 + DisplayLabel = 'Situaci'#243'n' + end + item + Name = 'PresupuestosCliente_ID_CLIENTE' DataType = datInteger DisplayLabel = 'ID_CLIENTE' end item - Name = 'PedidosCliente_NOMBRE' + Name = 'PresupuestosCliente_NIF_CIF' + DataType = datString + Size = 15 + end + item + Name = 'PresupuestosCliente_NOMBRE' DataType = datString Size = 255 - DisplayLabel = 'Nombre del cliente' end item - Name = 'PedidosCliente_FECHA_PEDIDO' - DataType = datDateTime - DisplayLabel = 'Fecha pedido' - end - item - Name = 'PedidosCliente_CALLE' + Name = 'PresupuestosCliente_REFERENCIA_CLIENTE' DataType = datString Size = 255 - DisplayLabel = 'Calle' + DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE' end item - Name = 'PedidosCliente_CODIGO_POSTAL' - DataType = datString - Size = 10 - DisplayLabel = 'C'#243'd. postal' - end - item - Name = 'PedidosCliente_POBLACION' + Name = 'PresupuestosCliente_CLIENTE_FINAL' DataType = datString Size = 255 - DisplayLabel = 'Poblaci'#243'n' end item - Name = 'PedidosCliente_PROVINCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Provincia' + Name = 'PresupuestosCliente_PORTADA' + DataType = datMemo end item - Name = 'PedidosCliente_PERSONA_CONTACTO' - DataType = datString - Size = 255 - DisplayLabel = 'Persona de contacto' + Name = 'PresupuestosCliente_MEMORIA' + DataType = datMemo end item - Name = 'PedidosCliente_TELEFONO' - DataType = datString - Size = 25 - DisplayLabel = 'Tel'#233'fono' - end - item - Name = 'PedidosCliente_OBSERVACIONES' + Name = 'PresupuestosCliente_OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' end item - Name = 'PedidosCliente_INCIDENCIAS' + Name = 'PresupuestosCliente_INCIDENCIAS' DataType = datMemo DisplayLabel = 'INCIDENCIAS' end item - Name = 'PedidosCliente_INCIDENCIAS_ACTIVAS' + Name = 'PresupuestosCliente_INCIDENCIAS_ACTIVAS' DataType = datInteger DisplayLabel = 'INCIDENCIAS_ACTIVAS' end item - Name = 'PedidosCliente_FECHA_ALTA' + Name = 'PresupuestosCliente_FECHA_ALTA' DataType = datDateTime DisplayLabel = 'FECHA_ALTA' end item - Name = 'PedidosCliente_FECHA_MODIFICACION' + Name = 'PresupuestosCliente_FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'FECHA_MODIFICACION' end item - Name = 'PedidosCliente_USUARIO' + Name = 'PresupuestosCliente_USUARIO' DataType = datString Size = 20 DisplayLabel = 'USUARIO' end item - Name = 'PedidosCliente_IMPORTE_NETO' + Name = 'PresupuestosCliente_IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify end item - Name = 'PedidosCliente_IMPORTE_PORTE' + Name = 'PresupuestosCliente_IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify end item - Name = 'PedidosCliente_DESCUENTO' + Name = 'PresupuestosCliente_DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify end item - Name = 'PedidosCliente_IMPORTE_DESCUENTO' + Name = 'PresupuestosCliente_IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item - Name = 'PedidosCliente_BASE_IMPONIBLE' + Name = 'PresupuestosCliente_BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify end item - Name = 'PedidosCliente_IVA' + Name = 'PresupuestosCliente_IVA' DataType = datFloat DisplayLabel = 'IVA' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify end item - Name = 'PedidosCliente_IMPORTE_IVA' + Name = 'PresupuestosCliente_IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item - Name = 'PedidosCliente_IMPORTE_TOTAL' + Name = 'PresupuestosCliente_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify end item - Name = 'PedidosCliente_ID_FORMA_PAGO' + Name = 'PresupuestosCliente_ID_FORMA_PAGO' DataType = datInteger DisplayLabel = 'ID_FORMA_PAGO' end item - Name = 'PedidosCliente_Detalles_ID' + Name = 'PresupuestosCliente_Detalles_ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID' Required = True DisplayLabel = 'ID' + ServerAutoRefresh = True end item - Name = 'PedidosCliente_Detalles_ID_PEDIDO' + Name = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO' DataType = datInteger - DisplayLabel = 'ID_PEDIDO' + Required = True end item - Name = 'POSICIONCONCEPTO' + Name = 'PresupuestosCliente_Detalles_POSICION' DataType = datInteger DisplayLabel = 'POSICION' end item - Name = 'PedidosCliente_Detalles_TIPO_DETALLE' + Name = 'PresupuestosCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 10 DisplayLabel = 'TIPO_DETALLE' end item - Name = 'PedidosCliente_Detalles_REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Referencia' - end - item - Name = 'PedidosCliente_Detalles_ID_ARTICULO' - DataType = datInteger - DisplayLabel = 'ID_ARTICULO' - end - item - Name = 'PedidosCliente_Detalles_CONCEPTO' + Name = 'PresupuestosCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'CONCEPTO' end item - Name = 'CANTIDAD' + Name = 'PresupuestosCliente_Detalles_CANTIDAD' DataType = datInteger + DisplayLabel = 'CANTIDAD' Alignment = taRightJustify end item - Name = 'PedidosCliente_Detalles_IMPORTE_UNIDAD' + Name = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item - Name = 'PedidosCliente_Detalles_IMPORTE_TOTAL' + Name = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify end item - Name = 'PedidosCliente_Detalles_DESCUENTO' + Name = 'PresupuestosCliente_Detalles_VISIBLE' + DataType = datInteger + DisplayLabel = 'VISIBLE' + end + item + Name = 'PresupuestosCliente_Detalles_ID_ARTICULO' + DataType = datInteger + DisplayLabel = 'ID_ARTICULO' + end + item + Name = 'PresupuestosCliente_Detalles_DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify end item - Name = 'PedidosCliente_Detalles_IMPORTE_PORTE' + Name = 'PresupuestosCliente_Detalles_IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe porte' Alignment = taRightJustify end item - Name = 'PedidosCliente_Detalles_VISIBLE' - DataType = datInteger - DisplayLabel = 'VISIBLE' - end - item - Name = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR' - DataType = datString - Size = 255 - DisplayLabel = 'Ref. proveedor' - end - item - Name = 'PedidoCliente_Articulos_Pendientes_ID_ARTICULO' - DataType = datInteger - DisplayLabel = 'ID_ARTICULO' - end - item - Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED' - DataType = datInteger - DisplayLabel = 'Cantidad en pedido' - Alignment = taRightJustify - end - item - Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB' - DataType = datInteger - DisplayLabel = 'Cantidad en albaranes' - Alignment = taRightJustify - end - item - Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE' - DataType = datInteger - DisplayLabel = 'Cantidad pendiente' - Alignment = taRightJustify - end - item - Name = 'DarArticulosPendientesPedirAProv_ID_PEDIDO' - DataType = datAutoInc - DisplayLabel = 'ID_PEDIDO' - end - item - Name = 'DarArticulosPendientesPedirAProv_ID_ARTICULO' - DataType = datInteger - DisplayLabel = 'ID_ARTICULO' - end - item - Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE' - DataType = datInteger - DisplayLabel = 'Cant. pedida por cliente' - end - item - Name = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR' - DataType = datInteger - DisplayLabel = 'ID_PROVEEDOR' - end - item - Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR' - DataType = datInteger - DisplayLabel = 'Cant. pedida a proveedor' - end - item - Name = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR' - DataType = datInteger - DisplayLabel = 'Cant. pendiente pedir' - end - item - Name = 'PedidosCliente_FECHA_PREVISTA_ENVIO' - DataType = datDateTime - DisplayLabel = 'Fecha de entrega prevista' - end - item - Name = 'PedidosCliente_REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Referencia' - ServerAutoRefresh = True - end - item - Name = 'PedidosCliente_REFERENCIA_CLIENTE' + Name = 'PresupuestosCliente_Detalles_REFERENCIA' DataType = datString Size = 255 end item - Name = 'PedidosCliente_SITUACION' + Name = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 - DisplayLabel = 'Situaci'#243'n' - ServerAutoRefresh = True - end - item - Name = 'PedidosCliente_REF_TIENDA_WEB' - DataType = datInteger - DisplayLabel = 'REF_TIENDA_WEB' end> Left = 48 Top = 152 @@ -1348,7 +1272,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente DeleteCommandName = 'Delete_PresupuestosCliente' UpdateCommandName = 'Update_PresupuestosCliente' ReferencedDataset = 'PresupuestosCliente' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 184 Top = 24 @@ -1358,8 +1282,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente InsertCommandName = 'Insert_PresupuestosCliente_Detalles' DeleteCommandName = 'Delete_PresupuestosCliente_Detalles' UpdateCommandName = 'Update_PresupuestosCliente_Detalles' + RefreshDatasetName = 'PresupuestosCliente_Detalles_Refresh' ReferencedDataset = 'PresupuestosCliente_Detalles' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 184 Top = 88 diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc index 7ce8671a..740003c9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc @@ -23,4 +23,4 @@ END /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorElegirArticulosPresupuestoCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfC3.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf178.tmp */ diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 4bf83720..f4e98464 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -147,6 +147,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited pgPaginas: TPageControl Width = 632 Height = 442 + ActivePage = pagContenido TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 632 @@ -200,10 +201,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index 651b44a4..9810c915 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -1,28 +1,18 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView + inherited cxGridViewID: TcxGridDBColumn + Visible = False + end + inherited cxGridViewPOSICION: TcxGridDBColumn + Visible = False + end + inherited cxGridViewTIPO: TcxGridDBColumn + Visible = False + end inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn Visible = False end end end - object BitBtn1: TBitBtn [3] - Left = 352 - Top = 112 - Width = 75 - Height = 25 - Caption = 'BitBtn1' - TabOrder = 3 - OnClick = BitBtn1Click - end - object eReferencia: TDBEdit [4] - Left = 299 - Top = 155 - Width = 118 - Height = 21 - Color = clInfoBk - DataField = 'ID' - DataSource = DADataSource - TabOrder = 4 - end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 5be585cf..47ef91e7 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -23,8 +23,6 @@ type end; TfrViewDetallesPresupuestoCliente = class(TfrViewDetallesArticulos, IViewDetallesPresupuestoCliente) - BitBtn1: TBitBtn; - eReferencia: TDBEdit; procedure BitBtn1Click(Sender: TObject); protected FPresupuesto: IBizPresupuestoCliente; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas index ea0770e7..47e9ba76 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas @@ -11,7 +11,8 @@ uses cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo, uViewDireccionEntregaPresupuestoCliente, Buttons, ActnList, cxLookupEdit, - cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces; + cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, + uBizFormasPago; type IViewPresupuestoCliente = interface(IViewBase) @@ -66,8 +67,9 @@ type procedure frViewClientePresupuestoButton2Click(Sender: TObject); protected FPresupuesto : IBizPresupuestoCliente; - FViewClientePresupuesto : TfrViewDatosYSeleccionCliente; + FFormasPago : IBizFormaPago; FFormasPagoController : IFormasPagoController; + FViewClientePresupuesto : TfrViewDatosYSeleccionCliente; function GetPresupuesto: IBizPresupuestoCliente; procedure SetPresupuesto(const Value: IBizPresupuestoCliente); virtual; @@ -85,8 +87,7 @@ implementation { TfrViewPresupuestoCliente } uses - uClientesController, uBizDireccionesContacto, uPresupuestosClienteController, - uBizFormasPago; + uClientesController, uBizDireccionesContacto, uPresupuestosClienteController; procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject); @@ -130,12 +131,14 @@ end; procedure TfrViewPresupuestoCliente.bFormasPagoClick(Sender: TObject); begin inherited; - FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); + if Assigned(FFormasPago) then + FFormasPagoController.VerTodos(FFormasPago); end; procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject); begin inherited; + FFormasPago := Nil; FFormasPagoController := TFormasPagoController.Create; FViewClientePresupuesto := frViewClientePresupuesto; FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el Presupuesto.'; @@ -143,8 +146,9 @@ end; procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject); begin - FViewClientePresupuesto := NIL; + FFormasPago := Nil; FFormasPagoController := NIL; + FViewClientePresupuesto := NIL; inherited; end; @@ -186,8 +190,11 @@ begin if Assigned(FPresupuesto) then begin DADataSource.DataTable := FPresupuesto.DataTable; - dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; + + FFormasPago := FFormasPagoController.BuscarTodos; + dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable.Active := True; + frViewClientePresupuesto.Cliente := FPresupuesto.Cliente; end else begin