diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 1ba78450..fc5636dc 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,34 +44,6 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - - - - - - - - - - - - - - - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -86,54 +58,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 96125708..fc606e76 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,6,0,0 -PRODUCTVERSION 2,6,0,0 +FILEVERSION 2,6,1,0 +PRODUCTVERSION 2,6,1,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.6.0.0\0" + VALUE "FileVersion", "2.6.1.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.6.0.0\0" + VALUE "ProductVersion", "2.6.1.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index ba47381f..712e2736 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339f..8b251f31 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj index 0707de1c..6a81738c 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj +++ b/Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj @@ -49,34 +49,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + - - - diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index a8c500fd..b968824a 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -174,7 +174,7 @@ begin begin ADetallesController.Add(ADestino, TIPO_DETALLE_CONCEPTO); ADestino.Edit; - ADestino.REFERENCIA := AOrigen.REFERENCIA; +// ADestino.REFERENCIA := AOrigen.REFERENCIA; if AOrigen.ID_ARTICULO > 0 then ADestino.ID_ARTICULO := AOrigen.ID_ARTICULO; ADestino.CONCEPTO := AOrigen.CONCEPTO; @@ -184,7 +184,7 @@ begin ADestino.DESCUENTO := AOrigen.DESCUENTO; ADestino.IMPORTE_PORTE := AOrigen.IMPORTE_PORTE; ADestino.VISIBLE := AOrigen.VISIBLE; - ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR; +// ADestino.REFERENCIA_PROVEEDOR := AOrigen.REFERENCIA_PROVEEDOR; ADestino.Post; AOrigen.Next; end; diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES and b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES differ diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daConnections b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daConnections new file mode 100644 index 00000000..760607dc --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daConnections @@ -0,0 +1,2 @@ + +TrueWait10160IBXIBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8859_1;TrueInterbase diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daDictionary b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daDictionary new file mode 100644 index 00000000..402fbb23 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daDictionary @@ -0,0 +1,2 @@ + +taLeftJustifydabtUnknowndatAutoIncID0GEN_PEDIDOS_PROV_IDTruePedidosProveedor_IDFalseTrueTrue0TruetaLeftJustifydabtUnknowndatIntegerID_EMPRESA0TruePedidosProveedor_ID_EMPRESAFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringNombre del proveedor0TruePedidosProveedor_NOMBREFalseFalseFalse255TruetaLeftJustifydabtUnknowndatDateTimeFecha pedido0TruePedidosProveedor_FECHA_PEDIDOFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringCalle0TruePedidosProveedor_CALLEFalseFalseFalse255TruetaLeftJustifydabtUnknowndatStringCód. postal0TruePedidosProveedor_CODIGO_POSTALFalseFalseFalse10TruetaLeftJustifydabtUnknowndatStringPoblación0TruePedidosProveedor_POBLACIONFalseFalseFalse255TruetaLeftJustifydabtUnknowndatStringProvincia0TruePedidosProveedor_PROVINCIAFalseFalseFalse255TruetaLeftJustifydabtUnknowndatStringPersona de contacto0TruePedidosProveedor_PERSONA_CONTACTOFalseFalseFalse255TruetaLeftJustifydabtUnknowndatStringTeléfono0TruePedidosProveedor_TELEFONOFalseFalseFalse25TruetaLeftJustifydabtUnknowndatMemoObservaciones0TruePedidosProveedor_OBSERVACIONESFalseFalseFalse0TruetaLeftJustifydabtUnknowndatMemoINCIDENCIAS0TruePedidosProveedor_INCIDENCIASFalseFalseFalse0TruetaLeftJustifydabtUnknowndatIntegerINCIDENCIAS_ACTIVAS0TruePedidosProveedor_INCIDENCIAS_ACTIVASFalseFalseFalse0TruetaLeftJustifydabtUnknowndatDateTimeFECHA_ALTA0TruePedidosProveedor_FECHA_ALTAFalseFalseFalse0TruetaLeftJustifydabtUnknowndatDateTimeFECHA_MODIFICACION0TruePedidosProveedor_FECHA_MODIFICACIONFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringUSUARIO0TruePedidosProveedor_USUARIOFalseFalseFalse20TruetaRightJustifydabtUnknowndatCurrencyImporte neto0TruePedidosProveedor_IMPORTE_NETOFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte del porte0TruePedidosProveedor_IMPORTE_PORTEFalseFalseFalse0TruetaRightJustifydabtUnknowndatFloat,0.00 %;-,0.00 %Descuento0TruePedidosProveedor_DESCUENTOFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte dto.0TruePedidosProveedor_IMPORTE_DESCUENTOFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyBase imponible0TruePedidosProveedor_BASE_IMPONIBLEFalseFalseFalse0TruetaRightJustifydabtUnknowndatFloat,0.00 %;-,0.00 %IVA0TruePedidosProveedor_IVAFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte IVA0TruePedidosProveedor_IMPORTE_IVAFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte total0TruePedidosProveedor_IMPORTE_TOTALFalseFalseFalse0TruetaLeftJustifydabtUnknowndatIntegerID_FORMA_PAGO0TruePedidosProveedor_ID_FORMA_PAGOFalseFalseFalse0TruetaLeftJustifydabtUnknowndatAutoIncID0GEN_PEDIDOS_PROV_DETALLES_IDTruePedidosProveedor_Detalles_IDFalseTrueTrue0TruetaLeftJustifydabtUnknowndatIntegerID_PEDIDO0TruePedidosProveedor_Detalles_ID_PEDIDOFalseFalseFalse0TruetaLeftJustifydabtUnknowndatIntegerPOSICION0TruePOSICIONCONCEPTOFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringTIPO_DETALLE0TruePedidosProveedor_Detalles_TIPO_DETALLEFalseFalseFalse10TruetaLeftJustifydabtUnknowndatStringReferencia0TruePedidosProveedor_Detalles_REFERENCIAFalseFalseFalse255TruetaLeftJustifydabtUnknowndatIntegerID_ARTICULO0TruePedidosProveedor_Detalles_ID_ARTICULOFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringCONCEPTO0TruePedidosProveedor_Detalles_CONCEPTOFalseFalseFalse2000TruetaRightJustifydabtUnknowndatFloat0TrueCANTIDADFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte unidad0TruePedidosProveedor_Detalles_IMPORTE_UNIDADFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte total0TruePedidosProveedor_Detalles_IMPORTE_TOTALFalseFalseFalse0TruetaRightJustifydabtUnknowndatFloat,0.00 %;-,0.00 %Descuento0TruePedidosProveedor_Detalles_DESCUENTOFalseFalseFalse0TruetaRightJustifydabtUnknowndatCurrencyImporte porte0TruePedidosProveedor_Detalles_IMPORTE_PORTEFalseFalseFalse0TruetaLeftJustifydabtUnknowndatIntegerVISIBLE0TruePedidosProveedor_Detalles_VISIBLEFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringRef. proveedor0TruePedidosProveedor_Detalles_REFERENCIA_PROVEEDORFalseFalseFalse255TruetaLeftJustifydabtUnknowndatInteger0TruePedidosProveedor_ID_PROVEEDORFalseFalseFalse0TruetaLeftJustifydabtUnknowndatDateTime¿Confirmado?0TruePedidosProveedor_FECHA_CONFIRMACIONFalseFalseFalse0TruetaLeftJustifydabtUnknowndatDateTimeEntrega prevista0TruePedidosProveedor_FECHA_ENTREGAFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringSituación0TruePedidosProveedor_SITUACIONFalseFalseFalse255TruetaLeftJustifydabtUnknowndatInteger0TruePedidosProveedor_ID_ALMACENFalseFalseFalse0TruetaLeftJustifydabtUnknowndatInteger0TruePedidosProveedor_ID_PEDIDO_CLIENTEFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringREFERENCIA0TruePedidosProveedor_REFERENCIAFalseFalseTrue255TruetaLeftJustifydabtUnknowndatDateTime¿Enviado?0TruePedidosProveedor_FECHA_ENVIOFalseFalseFalse0TruetaLeftJustifydabtUnknowndatStringAlmacén0TruePedidosProveedor_NOMBRE_ALMACENFalseFalseFalse255TruetaLeftJustifydabtUnknowndatString0TruePedidosProveedor_REF_PED_CLIENTEFalseFalseFalse255True0 diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daSchema b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daSchema new file mode 100644 index 00000000..627d7338 --- /dev/null +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedor.daSchema @@ -0,0 +1,114 @@ + +TrueDelete_PedidosProveedordabtUnknowndatUnknownOLD_IDdaptUnknown0IBXFalseDELETE + FROM + PEDIDOS_PROVEEDOR + WHERE + (ID = :OLD_ID)stSQLPEDIDOS_PROVEEDORTrueInsert_PedidosProveedor_DetallesdabtUnknowndatCurrencyCANTIDADdaptUnknown0dabtUnknowndatIntegerPOSICIONdaptUnknown0dabtUnknowndatAutoIncGEN_PEDIDOS_PROV_DETALLES_IDIDdaptUnknown0dabtUnknowndatStringTIPO_DETALLEdaptUnknown10dabtUnknowndatStringCONCEPTOdaptUnknown2000dabtUnknowndatCurrencyIMPORTE_UNIDADdaptUnknown0dabtUnknowndatCurrencyIMPORTE_TOTALdaptUnknown0dabtUnknowndatSmallIntVISIBLEdaptUnknown0dabtUnknowndatIntegerID_PEDIDOdaptUnknown0dabtUnknowndatIntegerID_ARTICULOdaptUnknown0dabtUnknowndatFloatDESCUENTOdaptUnknown0dabtUnknowndatCurrencyIMPORTE_PORTEdaptUnknown0IBXFalseINSERT + INTO PEDIDOS_PROVEEDOR_DETALLES + (CANTIDAD, POSICION, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, + IMPORTE_TOTAL, VISIBLE, ID_PEDIDO, + ID_ARTICULO, DESCUENTO, IMPORTE_PORTE) + VALUES + (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONCEPTO, + :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDIDO, + :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)stSQLPEDIDOS_PROVEEDOR_DETALLESTrueDelete_PedidosProveedor_DetallesdabtUnknowndatUnknownOLD_IDdaptUnknown0IBXFalseDELETE + FROM + PEDIDOS_PROVEEDOR_DETALLES + WHERE + (ID = :OLD_ID)stSQLPEDIDOS_PROVEEDOR_DETALLESTrueUpdate_PedidosProveedor_DetallesdabtUnknowndatCurrencyCANTIDADdaptUnknown0dabtUnknowndatIntegerPOSICIONdaptUnknown0dabtUnknowndatIntegerIDdaptUnknown0dabtUnknowndatStringTIPO_DETALLEdaptUnknown10dabtUnknowndatStringCONCEPTOdaptUnknown2000dabtUnknowndatCurrencyIMPORTE_UNIDADdaptUnknown0dabtUnknowndatCurrencyIMPORTE_TOTALdaptUnknown0dabtUnknowndatSmallIntVISIBLEdaptUnknown0dabtUnknowndatIntegerID_PEDIDOdaptUnknown0dabtUnknowndatIntegerID_ARTICULOdaptUnknown0dabtUnknowndatFloatDESCUENTOdaptUnknown0dabtUnknowndatCurrencyIMPORTE_PORTEdaptUnknown0dabtUnknowndatUnknownOLD_IDdaptUnknown0IBXFalseUPDATE PEDIDOS_PROVEEDOR_DETALLES + SET + CANTIDAD = :CANTIDAD, + POSICION = :POSICION, + ID = :ID, + TIPO_DETALLE = :TIPO_DETALLE, + CONCEPTO = :CONCEPTO, + IMPORTE_UNIDAD = :IMPORTE_UNIDAD, + IMPORTE_TOTAL = :IMPORTE_TOTAL, + VISIBLE = :VISIBLE, + ID_PEDIDO = :ID_PEDIDO, + ID_ARTICULO = :ID_ARTICULO, + DESCUENTO = :DESCUENTO, + IMPORTE_PORTE = :IMPORTE_PORTE + WHERE + (ID = :OLD_ID)stSQLPEDIDOS_PROVEEDOR_DETALLESTrueInsert_PedidosProveedordabtUnknowndatUnknownUSUARIOdaptUnknown0dabtUnknowndatUnknownOBSERVACIONESdaptUnknown0dabtUnknowndatUnknownREFERENCIAdaptUnknown0dabtUnknowndatAutoIncGEN_PEDIDOS_PROV_IDIDdaptUnknown0dabtUnknowndatUnknownID_EMPRESAdaptUnknown0dabtUnknowndatUnknownFECHA_ALTAdaptUnknown0dabtUnknowndatUnknownFECHA_MODIFICACIONdaptUnknown0dabtUnknowndatUnknownID_PROVEEDORdaptUnknown0dabtUnknowndatUnknownFECHA_ENVIOdaptUnknown0dabtUnknowndatUnknownFECHA_PEDIDOdaptUnknown0dabtUnknowndatUnknownFECHA_CONFIRMACIONdaptUnknown0dabtUnknowndatUnknownFECHA_ENTREGAdaptUnknown0dabtUnknowndatUnknownINCIDENCIASdaptUnknown0dabtUnknowndatUnknownIMPORTE_TOTALdaptUnknown0dabtUnknowndatUnknownINCIDENCIAS_ACTIVASdaptUnknown0dabtUnknowndatUnknownID_ALMACENdaptUnknown0dabtUnknowndatUnknownCALLEdaptUnknown0dabtUnknowndatUnknownPOBLACIONdaptUnknown0dabtUnknowndatUnknownPROVINCIAdaptUnknown0dabtUnknowndatUnknownCODIGO_POSTALdaptUnknown0dabtUnknowndatUnknownPERSONA_CONTACTOdaptUnknown0dabtUnknowndatUnknownTELEFONOdaptUnknown0dabtUnknowndatUnknownID_PEDIDO_CLIENTEdaptUnknown0dabtUnknowndatUnknownIMPORTE_NETOdaptUnknown0dabtUnknowndatUnknownIMPORTE_PORTEdaptUnknown0dabtUnknowndatUnknownDESCUENTOdaptUnknown0dabtUnknowndatUnknownIMPORTE_DESCUENTOdaptUnknown0dabtUnknowndatUnknownBASE_IMPONIBLEdaptUnknown0dabtUnknowndatUnknownIVAdaptUnknown0dabtUnknowndatUnknownIMPORTE_IVAdaptUnknown0dabtUnknowndatUnknownID_FORMA_PAGOdaptUnknown0dabtUnknowndatUnknownID_TIENDAdaptUnknown0IBXFalseINSERT + INTO PEDIDOS_PROVEEDOR + (USUARIO, OBSERVACIONES, REFERENCIA, ID, ID_EMPRESA, + FECHA_ALTA, FECHA_MODIFICACION, ID_PROVEEDOR, FECHA_ENVIO, + FECHA_PEDIDO, FECHA_CONFIRMACION, FECHA_ENTREGA, INCIDENCIAS, + IMPORTE_TOTAL, INCIDENCIAS_ACTIVAS, ID_ALMACEN, CALLE, + POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, + TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE, + DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, + IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA) + VALUES + (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID, + :ID_EMPRESA, :FECHA_ALTA, :FECHA_MODIFICACION, + :ID_PROVEEDOR, :FECHA_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION, + :FECHA_ENTREGA, :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, + :ID_ALMACEN, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, + :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, + :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, + :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA) +stSQLPEDIDOS_PROVEEDORTrueUpdate_PedidosProveedordabtUnknowndatUnknownIDdaptUnknown0dabtUnknowndatUnknownUSUARIOdaptUnknown0dabtUnknowndatUnknownOBSERVACIONESdaptUnknown0dabtUnknowndatUnknownREFERENCIAdaptUnknown0dabtUnknowndatUnknownID_EMPRESAdaptUnknown0dabtUnknowndatUnknownFECHA_ALTAdaptUnknown0dabtUnknowndatUnknownFECHA_MODIFICACIONdaptUnknown0dabtUnknowndatUnknownID_PROVEEDORdaptUnknown0dabtUnknowndatUnknownFECHA_ENVIOdaptUnknown0dabtUnknowndatUnknownFECHA_PEDIDOdaptUnknown0dabtUnknowndatUnknownFECHA_CONFIRMACIONdaptUnknown0dabtUnknowndatUnknownFECHA_ENTREGAdaptUnknown0dabtUnknowndatUnknownINCIDENCIASdaptUnknown0dabtUnknowndatUnknownIMPORTE_TOTALdaptUnknown0dabtUnknowndatUnknownINCIDENCIAS_ACTIVASdaptUnknown0dabtUnknowndatUnknownID_ALMACENdaptUnknown0dabtUnknowndatUnknownCALLEdaptUnknown0dabtUnknowndatUnknownPOBLACIONdaptUnknown0dabtUnknowndatUnknownPROVINCIAdaptUnknown0dabtUnknowndatUnknownCODIGO_POSTALdaptUnknown0dabtUnknowndatUnknownPERSONA_CONTACTOdaptUnknown0dabtUnknowndatUnknownTELEFONOdaptUnknown0dabtUnknowndatUnknownID_PEDIDO_CLIENTEdaptUnknown0dabtUnknowndatUnknownIMPORTE_NETOdaptUnknown0dabtUnknowndatUnknownIMPORTE_PORTEdaptUnknown0dabtUnknowndatUnknownDESCUENTOdaptUnknown0dabtUnknowndatUnknownIMPORTE_DESCUENTOdaptUnknown0dabtUnknowndatUnknownBASE_IMPONIBLEdaptUnknown0dabtUnknowndatUnknownIVAdaptUnknown0dabtUnknowndatUnknownIMPORTE_IVAdaptUnknown0dabtUnknowndatUnknownID_FORMA_PAGOdaptUnknown0dabtUnknowndatUnknownID_TIENDAdaptUnknown0dabtUnknowndatUnknownOLD_IDdaptUnknown0IBXFalseUPDATE PEDIDOS_PROVEEDOR + SET + ID = :ID, + USUARIO = :USUARIO, + OBSERVACIONES = :OBSERVACIONES, + REFERENCIA = :REFERENCIA, + ID_EMPRESA = :ID_EMPRESA, + FECHA_ALTA = :FECHA_ALTA, + FECHA_MODIFICACION = :FECHA_MODIFICACION, + ID_PROVEEDOR = :ID_PROVEEDOR, + FECHA_ENVIO = :FECHA_ENVIO, + FECHA_PEDIDO = :FECHA_PEDIDO, + FECHA_CONFIRMACION = :FECHA_CONFIRMACION, + FECHA_ENTREGA = :FECHA_ENTREGA, + INCIDENCIAS = :INCIDENCIAS, + IMPORTE_TOTAL = :IMPORTE_TOTAL, + INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, + ID_ALMACEN = :ID_ALMACEN, + CALLE = :CALLE, + POBLACION = :POBLACION, + PROVINCIA = :PROVINCIA, + CODIGO_POSTAL = :CODIGO_POSTAL, + PERSONA_CONTACTO = :PERSONA_CONTACTO, + TELEFONO = :TELEFONO, + ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, + IMPORTE_NETO = :IMPORTE_NETO, + IMPORTE_PORTE = :IMPORTE_PORTE, + DESCUENTO = :DESCUENTO, + IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, + BASE_IMPONIBLE = :BASE_IMPONIBLE, + IVA = :IVA, + IMPORTE_IVA = :IMPORTE_IVA, + ID_FORMA_PAGO = :ID_FORMA_PAGO, + ID_TIENDA = :ID_TIENDA + WHERE + (ID = :OLD_ID) +stSQLPEDIDOS_PROVEEDORTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatAutoInc00PedidosProveedor_IDID0GEN_PEDIDOS_PROV_IDTrueTrueFalseFalseIDFalseTrueTrueFalse0TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_ID_EMPRESAID_EMPRESA0FalseTrueFalseFalseID_EMPRESAFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_ID_PROVEEDORPedidosProveedor_ID_PROVEEDOR0FalseTrueFalseFalseID_PROVEEDORFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_NOMBRENombre del proveedor0FalseTrueFalseFalseNOMBREFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatString0FalseTrueFalseFalseREFERENCIAFalseFalseTrueFalse255TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_SITUACIONSituación0FalseTrueFalseFalseSITUACIONFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatDateTime00PedidosProveedor_FECHA_ENVIO¿Enviado?0FalseTrueFalseFalseFECHA_ENVIOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTime00PedidosProveedor_FECHA_PEDIDOFecha pedido0FalseTrueFalseFalseFECHA_PEDIDOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTime00PedidosProveedor_FECHA_CONFIRMACION¿Confirmado?0FalseTrueFalseFalseFECHA_CONFIRMACIONFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTime00PedidosProveedor_FECHA_ENTREGAEntrega prevista0FalseTrueFalseFalseFECHA_ENTREGAFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_ID_ALMACENPedidosProveedor_ID_ALMACEN0FalseTrueFalseFalseID_ALMACENFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_NOMBRE_ALMACENAlmacén0FalseTrueFalseFalseNOMBRE_ALMACENFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatMemo00PedidosProveedor_OBSERVACIONESObservaciones0FalseTrueFalseFalseOBSERVACIONESFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatCurrency00PedidosProveedor_IMPORTE_TOTALImporte total0FalseTrueFalseFalseIMPORTE_TOTALFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatMemo00PedidosProveedor_INCIDENCIASINCIDENCIAS0FalseTrueFalseFalseINCIDENCIASFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_INCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVAS0FalseTrueFalseFalseINCIDENCIAS_ACTIVASFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_CALLECalle0FalseTrueFalseFalseCALLEFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_POBLACIONPoblación0FalseTrueFalseFalsePOBLACIONFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_PROVINCIAProvincia0FalseTrueFalseFalsePROVINCIAFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_CODIGO_POSTALCód. postal0FalseTrueFalseFalseCODIGO_POSTALFalseFalseFalseFalse10TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_PERSONA_CONTACTOPersona de contacto0FalseTrueFalseFalsePERSONA_CONTACTOFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_TELEFONOTeléfono0FalseTrueFalseFalseTELEFONOFalseFalseFalseFalse25TruetaLeftJustifydabtUnknownFalsedatDateTime00PedidosProveedor_FECHA_ALTAFECHA_ALTA0FalseTrueFalseFalseFECHA_ALTAFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatDateTime00PedidosProveedor_FECHA_MODIFICACIONFECHA_MODIFICACION0FalseTrueFalseFalseFECHA_MODIFICACIONFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_USUARIOUSUARIO0FalseTrueFalseFalseUSUARIOFalseFalseFalseFalse20TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_ID_PEDIDO_CLIENTEPedidosProveedor_ID_PEDIDO_CLIENTE0FalseTrueFalseFalseID_PEDIDO_CLIENTEFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_REF_PED_CLIENTEPedidosProveedor_REF_PED_CLIENTE0FalseTrueFalseFalseREF_PED_CLIENTEFalseFalseFalseFalse255TruetaRightJustifydabtUnknownFalsedatCurrency00PedidosProveedor_IMPORTE_NETOImporte neto0FalseTrueFalseFalseIMPORTE_NETOFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatCurrency00PedidosProveedor_IMPORTE_PORTEImporte del porte0FalseTrueFalseFalseIMPORTE_PORTEFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatFloat00PedidosProveedor_DESCUENTO,0.00 %;-,0.00 %Descuento0FalseTrueFalseFalseDESCUENTOFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatCurrency00PedidosProveedor_IMPORTE_DESCUENTOImporte dto.0FalseTrueFalseFalseIMPORTE_DESCUENTOFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatCurrency00PedidosProveedor_BASE_IMPONIBLEBase imponible0FalseTrueFalseFalseBASE_IMPONIBLEFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatFloat00PedidosProveedor_IVA,0.00 %;-,0.00 %IVA0FalseTrueFalseFalseIVAFalseFalseFalseFalse0TruetaRightJustifydabtUnknownFalsedatCurrency00PedidosProveedor_IMPORTE_IVAImporte IVA0FalseTrueFalseFalseIMPORTE_IVAFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_ID_FORMA_PAGOID_FORMA_PAGO0FalseTrueFalseFalseID_FORMA_PAGOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger0FalseTrueFalseFalseID_TIENDAFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString0FalseTrueFalseFalseTIENDAFalseFalseFalseFalse255TrueTruePedidosProveedorFalseIDIDID_EMPRESAID_EMPRESAID_PROVEEDORID_PROVEEDORNOMBRENOMBREREFERENCIAREFERENCIASITUACIONSITUACIONFECHA_ENVIOFECHA_ENVIOFECHA_PEDIDOFECHA_PEDIDOFECHA_CONFIRMACIONFECHA_CONFIRMACIONFECHA_ENTREGAFECHA_ENTREGAID_ALMACENID_ALMACENNOMBRE_ALMACENNOMBRE_ALMACENOBSERVACIONESOBSERVACIONESIMPORTE_TOTALIMPORTE_TOTALINCIDENCIASINCIDENCIASINCIDENCIAS_ACTIVASINCIDENCIAS_ACTIVASCALLECALLEPOBLACIONPOBLACIONPROVINCIAPROVINCIACODIGO_POSTALCODIGO_POSTALPERSONA_CONTACTOPERSONA_CONTACTOTELEFONOTELEFONOFECHA_ALTAFECHA_ALTAFECHA_MODIFICACIONFECHA_MODIFICACIONUSUARIOUSUARIOID_PEDIDO_CLIENTEID_PEDIDO_CLIENTEREF_PED_CLIENTEREF_PED_CLIENTEIMPORTE_NETOIMPORTE_NETOIMPORTE_PORTEIMPORTE_PORTEDESCUENTODESCUENTOIMPORTE_DESCUENTOIMPORTE_DESCUENTOBASE_IMPONIBLEBASE_IMPONIBLEIVAIVAIMPORTE_IVAIMPORTE_IVAID_FORMA_PAGOID_FORMA_PAGOID_TIENDAID_TIENDATIENDATIENDAIBXFalsestAutoSQLV_PEDIDOS_PROVEEDORTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatAutoInc00PedidosProveedor_Detalles_IDID0GEN_PEDIDOS_PROV_DETALLES_IDTrueTrueFalseFalseIDFalseTrueTrueFalse0TruetaLeftJustifydabtUnknownFalsedatInteger0FalseTrueFalseFalseID_PEDIDOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger00POSICIONCONCEPTOPOSICION0FalseTrueFalseFalsePOSICIONFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString0FalseTrueFalseFalseTIPO_DETALLEFalseFalseFalseFalse10TruetaLeftJustifydabtUnknownFalsedatString0FalseTrueFalseFalseCONCEPTOFalseFalseFalseFalse2000TruetaRightJustifydabtUnknownFalsedatFloat00CANTIDADCANTIDAD0FalseTrueFalseFalseCANTIDADFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatCurrency0FalseTrueFalseFalseIMPORTE_UNIDADFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatCurrency0FalseTrueFalseFalseIMPORTE_TOTALFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatSmallInt0FalseTrueFalseFalseVISIBLEFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatInteger0FalseTrueFalseFalseID_ARTICULOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatFloat0FalseTrueFalseFalseDESCUENTOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatCurrency0FalseTrueFalseFalseIMPORTE_PORTEFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString0FalseTrueFalseFalseREFERENCIAFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatString0FalseTrueFalseFalseREFERENCIA_PROVEEDORFalseFalseFalseFalse255TrueTruePedidosProveedor_DetallesFalseIDIDID_PEDIDOID_PEDIDOPOSICIONPOSICIONTIPO_DETALLETIPO_DETALLECONCEPTOCONCEPTOCANTIDADCANTIDADIMPORTE_UNIDADIMPORTE_UNIDADIMPORTE_TOTALIMPORTE_TOTALVISIBLEVISIBLEID_ARTICULOID_ARTICULODESCUENTODESCUENTOIMPORTE_PORTEIMPORTE_PORTEREFERENCIAREFERENCIA<unknown>REFERENCIA_PROVEEDORREFERENCIA_PROVEEDOR<unknown>IBXFalseSELECT + PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO, + PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS_PROVEEDOR_DETALLES.TIPO_DETALLE, + PEDIDOS_PROVEEDOR_DETALLES.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, + PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_TOTAL, + PEDIDOS_PROVEEDOR_DETALLES.VISIBLE, + + PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO, + PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE, + ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR + +FROM PEDIDOS_PROVEEDOR_DETALLES +LEFT JOIN ARTICULOS ON PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID +WHERE {where} +ORDER BY POSICION; +stSQLPEDIDOS_PROVEEDOR_DETALLESTrueTruerslPascalScriptrslPascalScripttaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_Detalles_ID_PEDIDOID_PEDIDO0FalseTrueFalseFalseID_PEDIDOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_Detalles_REFERENCIAReferencia0FalseTrueFalseFalseREFERENCIAFalseFalseFalseFalse255TruetaLeftJustifydabtUnknownFalsedatInteger00PedidosProveedor_Detalles_ID_ARTICULOID_ARTICULO0FalseTrueFalseFalseID_ARTICULOFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_Detalles_CONCEPTOCONCEPTO0FalseTrueFalseFalseCONCEPTOFalseFalseFalseFalse2000TruetaRightJustifydabtUnknownFalsedatFloat00CANTIDADCANTIDAD0FalseTrueFalseFalseCANTIDADFalseFalseFalseFalse0TruetaLeftJustifydabtUnknownFalsedatString00PedidosProveedor_Detalles_REFERENCIA_PROVEEDORRef. proveedor0FalseTrueFalseFalseREFERENCIA_PROVEEDORFalseFalseFalseFalse255TrueTruePedidosProveedor_Articulos_PendientesFalseID_PEDIDOID_PEDIDOREFERENCIAREFERENCIAID_ARTICULOID_ARTICULOCONCEPTOCONCEPTOCANTIDADCANTIDADREFERENCIA_PROVEEDORREFERENCIA_PROVEEDORIBXFalseselect V_PED_PROV_ARTICULOS.ID_PEDIDO, + ARTICULOS.REFERENCIA, + V_PED_PROV_ARTICULOS.ID_ARTICULO, + ARTICULOS.DESCRIPCION as CONCEPTO, + V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE as CANTIDAD, + ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR + +FROM V_PED_PROV_ARTICULOS +LEFT JOIN ARTICULOS ON (ARTICULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO) +WHERE (V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE <> 0) + +stSQLV_PED_PROV_ARTICULOSPedidosProveedor_DetallesID_PEDIDOPedidosProveedorIDFK_PedidosProveedor_DetallesrtForeignKey0PedidosProveedorFalseTrueFalsefbRaiseExceptionInsert PedidosProveedorPedidosProveedor_DetallesFalseTrueFalsefbRaiseExceptionInsert PedidosProveedor_DetallesPedidosProveedorFalseFalseTruefbRaiseExceptionUpdate PedidosProveedorPedidosProveedor_DetallesFalseFalseTruefbRaiseExceptionUpdate PedidosProveedor_DetallesPedidosProveedor_DetallesTrueFalseFalsefbRaiseExceptionDelete PedidosProveedor_DetallesPedidosProveedorTrueFalseFalsefbRaiseExceptionDelete PedidosProveedor0 diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 86ad9c62..896b1d87 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas @@ -3,14 +3,14 @@ unit schPedidosProveedorClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, 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_PedidosProveedor = '{7EF42C92-22B3-49CB-9631-6269AEBC7331}'; - RID_PedidosProveedor_Detalles = '{3B03134F-60AA-426F-BFF5-15D252E44C4C}'; + RID_PedidosProveedor = '{8F705F12-7866-40F9-BF45-064FA4AB0E9C}'; + RID_PedidosProveedor_Detalles = '{1333907A-3DD9-4E64-9A35-C07D2D0F0778}'; { Data table names } nme_PedidosProveedor = 'PedidosProveedor'; @@ -127,7 +127,7 @@ const type { IPedidosProveedor } IPedidosProveedor = interface(IDAStronglyTypedDataTable) - ['{3FFE7F5F-75DA-4568-A26D-D3DF98DF31D4}'] + ['{5F73734D-426D-4AD7-84EF-C9002ADCED0A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -361,7 +361,7 @@ type end; { TPedidosProveedorDataTableRules } - TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor) + TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor) private f_OBSERVACIONES: IROStrings; f_INCIDENCIAS: IROStrings; @@ -606,7 +606,7 @@ type { IPedidosProveedor_Detalles } IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) - ['{C4F4AD90-C1D7-4CD9-852D-5DB340996FD4}'] + ['{2CD81487-C982-4E98-BD11-9573AC7B786B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -686,7 +686,7 @@ type end; { TPedidosProveedor_DetallesDataTableRules } - TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles) + TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles) private protected { Property getters and setters } diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index f89d49ed..565f97c2 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas @@ -9,13 +9,13 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_PedidosProveedorDelta = '{89C09828-8924-4EEB-AB87-13EF828A7921}'; - RID_PedidosProveedor_DetallesDelta = '{AC634C35-D723-4602-A06A-9E814C4D889C}'; + RID_PedidosProveedorDelta = '{035551F2-3A55-4ACC-A976-AAE2E3E99E86}'; + RID_PedidosProveedor_DetallesDelta = '{B9014A9C-DA86-4B5A-A477-F630A27C8465}'; type { IPedidosProveedorDelta } IPedidosProveedorDelta = interface(IPedidosProveedor) - ['{89C09828-8924-4EEB-AB87-13EF828A7921}'] + ['{035551F2-3A55-4ACC-A976-AAE2E3E99E86}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -495,7 +495,7 @@ type { IPedidosProveedor_DetallesDelta } IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) - ['{AC634C35-D723-4602-A06A-9E814C4D889C}'] + ['{B9014A9C-DA86-4B5A-A477-F630A27C8465}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PEDIDOValue : Integer; diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm index b3b8083e..96e1f54d 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm @@ -476,6 +476,61 @@ object srvPedidosProveedor: TsrvPedidosProveedor Name = 'IMPORTE_PORTE' DataType = datCurrency end> + end + item + Params = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_ID' + Value = '1000000013' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'V_PEDIDOS_PROVEEDOR' + SQL = + 'SELECT ID, NOMBRE, REFERENCIA FROM V_PEDIDOS_PROVEEDOR WHERE ID ' + + '= :ID'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end> + end> + Name = 'PedidosProveedor_Refresh' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_PEDIDOS_PROV_ID' + ServerAutoRefresh = True + DictionaryEntry = 'PedidosProveedor_ID' + InPrimaryKey = True + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + ServerAutoRefresh = True + DictionaryEntry = 'PedidosProveedor_NOMBRE' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + ServerAutoRefresh = True + end> end> JoinDataTables = <> UnionDataTables = <> @@ -688,16 +743,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor DataType = datInteger Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'ID_PROVEEDOR' DataType = datInteger @@ -858,22 +903,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor TargetTable = 'PEDIDOS_PROVEEDOR' SQL = 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (ID, ID_EMPRESA, FECHA_ALTA,' + - ' FECHA_MODIFICACION, ID_PROVEEDOR,'#10' USUARIO, OBSERVACIONES, ' + - 'REFERENCIA, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' + - 'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' + - 'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' + - 'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' + - '_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' + - 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA, DESC' + - 'RIPCION_GENERAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_ALTA, :F' + - 'ECHA_MODIFICACION, :ID_PROVEEDOR,'#10' :USUARIO, :OBSERVACIONES,' + - ' :REFERENCIA, :FECHA_ENVIO,'#10' :FECHA_PEDIDO, :FECHA_CONFIRMAC' + - 'ION, :FECHA_ENTREGA, :INCIDENCIAS,'#10' :IMPORTE_TOTAL, :INCIDEN' + - 'CIAS_ACTIVAS, :ID_ALMACEN, :CALLE,'#10' :POBLACION, :PROVINCIA, ' + - ':CODIGO_POSTAL, :PERSONA_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CL' + - 'IENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_' + - 'DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_P' + - 'AGO, :ID_TIENDA, :DESCRIPCION_GENERAL)'#10' '#10' '#10' '#10' '#10#10 + ' ID_PROVEEDOR,'#10' USUARIO, OBSERVACIONES, REFERENCIA, FECHA_EN' + + 'VIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, FECHA_ENTREGA, INCID' + + 'ENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACTIVAS, ID_ALMACEN, CA' + + 'LLE, '#10' POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO' + + ', '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE_NETO, IMPORTE_PORTE' + + ', '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, '#10' ' + + ' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA, DESCRIPCION_GENERAL)'#10' V' + + 'ALUES'#10' (:ID, :ID_EMPRESA, CURRENT_TIMESTAMP, :ID_PROVEEDOR,'#10' ' + + ' :USUARIO, :OBSERVACIONES, :REFERENCIA, :FECHA_ENVIO,'#10' :F' + + 'ECHA_PEDIDO, :FECHA_CONFIRMACION, :FECHA_ENTREGA, :INCIDENCIAS,'#10 + + ' :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, :ID_ALMACEN, :CALLE,'#10 + + ' :POBLACION, :PROVINCIA, :CODIGO_POSTAL, :PERSONA_CONTACTO,'#10 + + ' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORT' + + 'E,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' ' + + ' :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA, :DESCRIPCION_GENER' + + 'AL)'#10' '#10' '#10' '#10' '#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -903,16 +948,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor DataType = datInteger Value = '' end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - Value = '' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - Value = '' - end item Name = 'ID_PROVEEDOR' DataType = datInteger @@ -1061,23 +1096,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor SQL = 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO,'#10' OBSE' + 'RVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' I' + - 'D_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' + - '_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PRO' + - 'VEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FEC' + - 'HA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' F' + - 'ECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, ' + - #10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = ' + - ':INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE ' + - '= :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINC' + - 'IA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO =' + - ' :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CL' + - 'IENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 + - ' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' + - ' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBL' + - 'E = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORT' + - 'E_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_' + - 'TIENDA,'#10' DESCRIPCION_GENERAL = :DESCRIPCION_GENERAL'#10' WHERE'#10' ' + - ' (ID = :OLD_ID)'#10 + 'D_EMPRESA = :ID_EMPRESA,'#10' FECHA_MODIFICACION = CURRENT_TIMEST' + + 'AMP,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA' + + '_ENVIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACIO' + + 'N = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' ' + + ' INCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOT' + + 'AL, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALM' + + 'ACEN = :ID_ALMACEN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLA' + + 'CION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_' + + 'POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO' + + ' = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' ' + + 'IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORT' + + 'E, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORT' + + 'E_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :' + + 'IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_F' + + 'ORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA,'#10' DESCRIPCION_GENERAL =' + + ' :DESCRIPCION_GENERAL'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1086,7 +1120,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor RelationShips = < item Name = 'FK_PedidosProveedor_Detalles' - MasterDatasetName = 'PedidosProveedor' + MasterDatasetName = 'PedidosProveedor_Refresh' MasterFields = 'ID' DetailDatasetName = 'PedidosProveedor_Detalles' DetailFields = 'ID_PEDIDO' @@ -1140,12 +1174,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor Top = 24 end object bpPedidosProveedor: TDABusinessProcessor + OnProcessChange = bpPedidosProveedorProcessChange Schema = schPedidosProveedor InsertCommandName = 'Insert_PedidosProveedor' DeleteCommandName = 'Delete_PedidosProveedor' UpdateCommandName = 'Update_PedidosProveedor' ReferencedDataset = 'PedidosProveedor' - ProcessorOptions = [poPrepareCommands] + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 240 Top = 24 diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas index 10fb6536..f49c7101 100644 --- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas +++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas @@ -15,7 +15,7 @@ uses {Ancestor Implementation:} DataAbstractService_Impl, {Used RODLs:} DataAbstract4_Intf, {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, - uDAScriptingProvider, uDAClasses, + uDAScriptingProvider, uDAClasses, uDADelta, FactuGES_Intf, uDAInterfaces; type @@ -29,6 +29,9 @@ type procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceCreate(Sender: TObject); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + procedure bpPedidosProveedorProcessChange(Sender: TDABusinessProcessor; + aChangeType: TDAChangeType; aChange: TDADeltaChange; + const aCommand: IDASQLCommand); protected { IsrvPedidosProveedor methods } function GenerateReport(const ID: String): Binary; @@ -55,6 +58,21 @@ end; { srvPedidosProveedor } +procedure TsrvPedidosProveedor.bpPedidosProveedorProcessChange( + Sender: TDABusinessProcessor; aChangeType: TDAChangeType; + aChange: TDADeltaChange; const aCommand: IDASQLCommand); +var + I: Integer; +begin +{ dmServer.EscribirLog('**************************************************'); + dmServer.EscribirLog(aCommand.SQL); + for I := 0 to aCommand.Params.Count - 1 do + begin + dmServer.EscribirLog(aCommand.Params[I].Name + ' -> ' + aCommand.Params[I].AsString); + end; + dmServer.EscribirLog('**************************************************');} +end; + procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData( const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 40b5f23b..3cab9cc5 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -29,6 +29,26 @@ FalseTrueFalseTrueFalse2610FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.1.0FactuGES (Servidor)2.6.1.0jueves, 11 de diciembre de 2014 13:41 + + + + + + + + + + + + + + + + + + + + File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES_Server.dpr diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 18ea1f1d..ed526f12 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,6,0,0 -PRODUCTVERSION 2,6,0,0 +FILEVERSION 2,6,1,0 +PRODUCTVERSION 2,6,1,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.6.0.0\0" + VALUE "FileVersion", "2.6.1.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.6.0.0\0" - VALUE "CompileDate", "jueves, 11 de diciembre de 2014 13:41\0" + VALUE "ProductVersion", "2.6.1.0\0" + VALUE "CompileDate", "viernes, 12 de diciembre de 2014 17:21\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index c78ccdc1..56f3bbc2 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm index ab90464a..1ddb6dbc 100644 --- a/Source/Servidor/uDataModuleServer.dfm +++ b/Source/Servidor/uDataModuleServer.dfm @@ -29,7 +29,7 @@ object dmServer: TdmServer object DriverManager: TDADriverManager DriverDirectory = '%SYSTEM%\' AutoLoad = True - TraceActive = True + TraceActive = False TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams] OnTraceEvent = DriverManagerTraceEvent Left = 136 @@ -71,6 +71,7 @@ object dmServer: TdmServer object JvLogFile1: TJvLogFile FileName = 'ServerLog.txt' Active = False + AutoSave = True Left = 136 Top = 144 end diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas index a951bf3d..cb33b180 100644 --- a/Source/Servidor/uDataModuleServer.pas +++ b/Source/Servidor/uDataModuleServer.pas @@ -280,14 +280,13 @@ end; procedure TdmServer.EscribirLog(const AMensaje: String); begin -{ - FEscribirLog.Acquire; +{ FEscribirLog.Acquire; try JvLogFile1.Add(AMensaje); finally FEscribirLog.Release; end; -} +} end; procedure TdmServer.RefrescarConexion;