From 85c7434960ad8b1865c730bfbe3401ea05190f58 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 7 Apr 2010 15:55:50 +0000 Subject: [PATCH] Informe de pedido de proveedor y arraglo al modificar cantidades en labaranes git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@111 f33bb606-9f5c-448d-9c99-757f00063c96 --- Source/Base/Base.dproj | 102 +-- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Informes/InfPedidoCliente.fr3 | 57 +- .../Views/uViewDetallesAlbaranCliente.dfm | 5 +- .../Views/uViewDetallesAlbaranCliente.pas | 9 + .../Reports/uRptPedidosCliente_Server.dfm | 187 ++--- .../Reports/uRptPedidosCliente_Server.pas | 6 +- Source/Servidor/FactuGES_Server.dpr | 1 + Source/Servidor/FactuGES_Server.dproj | 686 +++++++++--------- 9 files changed, 528 insertions(+), 525 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 990c17d..7c12c06 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -53,58 +53,58 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
TForm diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Informes/InfPedidoCliente.fr3 b/Source/Informes/InfPedidoCliente.fr3 index 1f0f344..2456b86 100644 --- a/Source/Informes/InfPedidoCliente.fr3 +++ b/Source/Informes/InfPedidoCliente.fr3 @@ -1,5 +1,58 @@ - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm index bb268a1..713261f 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm @@ -23,9 +23,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente end inherited FontSize: TEdit Top = 22 - Width = 202 + Width = 218 ExplicitTop = 22 - ExplicitWidth = 202 + ExplicitWidth = 218 end inherited ToolButton13: TToolButton [7] Left = 0 @@ -190,6 +190,7 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Kind = bkEllipsis end> Properties.ReadOnly = True + Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick HeaderAlignmentHorz = taRightJustify end inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas index 9ffdcee..5624c6f 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas @@ -37,6 +37,8 @@ type procedure OnValidateReferencia_ART_REEMPLAZADO(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); + procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); protected FAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente; @@ -85,6 +87,13 @@ begin inherited; end; +procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + inherited; + (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles); +end; + procedure TfrViewDetallesAlbaranCliente.cxGridViewREFERENCIA_ART_REEMPLAZADOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin inherited; diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm index 32f5ed1..8d36f1f 100644 --- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm +++ b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm @@ -58,28 +58,26 @@ object RptPedidosCliente: TRptPedidosCliente Statements = < item Connection = 'IBX' + TargetTable = 'PEDIDOS_CLIENTE' SQL = - 'SELECT'#10' V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' + - #10' V_ALBARANES_CLIENTE.ID_CLIENTE,'#10' V_ALBARANES_CLIENTE.FECHA_A' + - 'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' + - 'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' + - 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.FORMA_PAGO,'#10' V_ALB' + - 'ARANES_CLIENTE.DATOS_BANCARIOS,'#10' V_ALBARANES_CLIENTE.OBSERVACIO' + - 'NES,'#10' V_ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.D' + - 'ESCUENTO,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES' + - '_CLIENTE.DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' ' + - ' V_ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as RE' + - 'F_CLIENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CL' + - 'IENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, ' + - 'CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBL' + - 'ACION, CONTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_D' + - 'IRECCIONES.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALE' + - 'SCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL' + - ') AS CODIGO_POSTAL'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONT' + - 'ACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT ' + - 'OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = ' + - 'V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID =' + - ' :ID'#10#10 + 'SELECT'#10' PEDIDOS_CLIENTE.ID, PEDIDOS_CLIENTE.ID_EMPRESA,'#10' PEDID' + + 'OS_CLIENTE.ID_CLIENTE,'#10' PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10' PEDIDOS' + + '_CLIENTE.REFERENCIA,'#10' PEDIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10' PED' + + 'IDOS_CLIENTE.DATOS_BANCARIOS,'#10' PEDIDOS_CLIENTE.OBSERVACIONES,'#10' ' + + ' PEDIDOS_CLIENTE.IMPORTE_NETO,'#10' PEDIDOS_CLIENTE.DESCUENTO,'#10' PE' + + 'DIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10' PEDIDOS_CLIENTE.DESCUENTO2,'#10' ' + + ' PEDIDOS_CLIENTE.IMPORTE_DESCUENTO2,'#10' PEDIDOS_CLIENTE.IMPORTE_T' + + 'OTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE, CONTACTOS.NIF_CIF, ' + + 'CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE' + + '(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALE' + + 'SCE(CONTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POB' + + 'LACION,'#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PR' + + 'OVINCIA) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_P' + + 'OSTAL, CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10#10'FROM'#10' PEDIDOS' + + '_CLIENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_CLIEN' + + 'TE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTA' + + 'CTOS_DIRECCIONES.ID = PEDIDOS_CLIENTE.ID_DIRECCION)'#10'WHERE PEDIDO' + + 'S_CLIENTE.ID = :ID'#10#10 StatementType = stSQL ColumnMappings = < item @@ -126,18 +124,6 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end - item - DatasetField = 'FECHA_ALBARAN' - TableField = 'FECHA_ALBARAN' - end - item - DatasetField = 'ID_PEDIDO' - TableField = 'ID_PEDIDO' - end - item - DatasetField = 'REF_PEDIDO' - TableField = 'REF_PEDIDO' - end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' @@ -174,13 +160,13 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'IMPORTE_DESCUENTO2' TableField = 'IMPORTE_DESCUENTO2' end - item - DatasetField = 'FORMA_PAGO' - TableField = 'FORMA_PAGO' - end item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' + end + item + DatasetField = 'FECHA_PEDIDO' + TableField = 'FECHA_PEDIDO' end> end> Name = 'Informe_Cabecera' @@ -198,7 +184,7 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datInteger end item - Name = 'FECHA_ALBARAN' + Name = 'FECHA_PEDIDO' DataType = datDateTime end item @@ -211,20 +197,6 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datString Size = 255 end - item - Name = 'ID_PEDIDO' - DataType = datInteger - end - item - Name = 'REF_PEDIDO' - DataType = datString - Size = 255 - end - item - Name = 'FORMA_PAGO' - DataType = datString - Size = 255 - end item Name = 'DATOS_BANCARIOS' DataType = datString @@ -302,37 +274,31 @@ object RptPedidosCliente: TRptPedidosCliente item Params = < item - Name = 'ID_ALBARAN' + Name = 'ID_PEDIDO' DataType = datInteger - Value = '11' - ParamType = daptInput + Value = '' end> Statements = < item Connection = 'IBX' - TargetTable = 'ALBARANES_CLIENTE_DETALLES' + TargetTable = 'PEDIDOS_CLIENTE_DETALLES' SQL = - 'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' + - '.ID_ALBARAN,'#10' ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' + - 'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(ALBARANES_C' + - 'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' + - 'S.CANTIDAD,'#10' ALBARANES_CLIENTE_DETALLES.UNIDAD_MEDIDA,'#10' ' + - ' ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE' + - '_DETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM ALBARA' + - 'NES_CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (ALBARANES_CLIE' + - 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_ALBARAN =' + - ' :ID_ALBARAN AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_ALBARAN,' + - ' POSICION'#10 + 'SELECT PEDIDOS_CLIENTE_DETALLES.ID, PEDIDOS_CLIENTE_DETALLES.ID_' + + 'PEDIDO,'#10' PEDIDOS_CLIENTE_DETALLES.POSICION, PEDIDOS_CLIENT' + + 'E_DETALLES.TIPO_DETALLE,'#10' F_RTFTOTEXT(PEDIDOS_CLIENTE_DETA' + + 'LLES.CONCEPTO) as CONCEPTO, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' ' + + ' PEDIDOS_CLIENTE_DETALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_D' + + 'ETALLES.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA'#10'FROM PEDIDOS_' + + 'CLIENTE_DETALLES'#10' LEFT JOIN ARTICULOS ON (PEDIDOS_CLIENTE_DE' + + 'TALLES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE'#10' ID_PEDIDO = :ID_PE' + + 'DIDO AND (VISIBLE <> 0) AND {Where}'#10'ORDER BY ID_PEDIDO, POSICION' + + #10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end - item - DatasetField = 'ID_ALBARAN' - TableField = 'ID_ALBARAN' - end item DatasetField = 'POSICION' TableField = 'POSICION' @@ -349,10 +315,6 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end - item - DatasetField = 'UNIDAD_MEDIDA' - TableField = 'UNIDAD_MEDIDA' - end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' @@ -365,6 +327,10 @@ object RptPedidosCliente: TRptPedidosCliente DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' + end + item + DatasetField = 'ID_PEDIDO' + TableField = 'ID_PEDIDO' end> end> Name = 'Informe_Detalles' @@ -374,7 +340,7 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datInteger end item - Name = 'ID_ALBARAN' + Name = 'ID_PEDIDO' DataType = datInteger end item @@ -389,16 +355,11 @@ object RptPedidosCliente: TRptPedidosCliente item Name = 'CONCEPTO' DataType = datString - Size = 254 + Size = 32765 end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -424,21 +385,20 @@ object RptPedidosCliente: TRptPedidosCliente Statements = < item Connection = 'IBX' - TargetTable = 'ALBARANES_CLIENTE_DETALLES' + TargetTable = 'PEDIDOS_CLIENTE_DETALLES' SQL = - 'SELECT V_ALBARANES_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLI' + - 'ENTE, CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE' + - '.PERSONA_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTO' + - 'S_DIRECCIONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POB' + - 'LACION_FISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_EN' + - 'VIO,'#10' CONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRE' + - 'CCIONES.PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL ' + - 'AS CODIGO_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL A' + - 'S CODIGO_POSTAL_ENVIO'#10#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN C' + - 'ONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LE' + - 'FT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID' + - '_contacto = V_ALBARANES_CLIENTE.ID_cliente)'#10'WHERE V_ALBARANES_CL' + - 'IENTE.ID = :ID'#10 + 'SELECT PEDIDOS_CLIENTE.ID,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' + + ', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' PEDIDOS_CLIENTE.PERSONA' + + '_CONTACTO,'#10' CONTACTOS.CALLE AS CALLE_FISCAL,'#10' CONTACTOS_DIRECC' + + 'IONES.CALLE AS CALLE_ENVIO,'#10' CONTACTOS.POBLACION AS POBLACION_F' + + 'ISCAL,'#10' CONTACTOS_DIRECCIONES.POBLACION AS POBLACION_ENVIO,'#10' C' + + 'ONTACTOS.PROVINCIA AS PROVINCIA_FISCAL,'#10' CONTACTOS_DIRECCIONES.' + + 'PROVINCIA AS PROVINCIA_ENVIO,'#10' CONTACTOS.CODIGO_POSTAL AS CODIG' + + 'O_POSTAL_FISCAL,'#10' CONTACTOS_DIRECCIONES.CODIGO_POSTAL AS CODIGO' + + '_POSTAL_ENVIO'#10#10'FROM'#10' PEDIDOS_CLIENTE'#10' INNER JOIN CONTACTOS ON ' + + '(CONTACTOS.ID = PEDIDOS_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CO' + + 'NTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID_contacto = PEDI' + + 'DOS_CLIENTE.ID_cliente)'#10'WHERE PEDIDOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -841,7 +801,7 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datInteger end item - Name = 'FECHA_ALBARAN' + Name = 'FECHA_PEDIDO' DataType = datDateTime end item @@ -854,20 +814,6 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datString Size = 255 end - item - Name = 'ID_PEDIDO' - DataType = datInteger - end - item - Name = 'REF_PEDIDO' - DataType = datString - Size = 255 - end - item - Name = 'FORMA_PAGO' - DataType = datString - Size = 255 - end item Name = 'DATOS_BANCARIOS' DataType = datString @@ -966,7 +912,7 @@ object RptPedidosCliente: TRptPedidosCliente DataType = datInteger end item - Name = 'ID_ALBARAN' + Name = 'ID_PEDIDO' DataType = datInteger end item @@ -981,16 +927,11 @@ object RptPedidosCliente: TRptPedidosCliente item Name = 'CONCEPTO' DataType = datString - Size = 254 + Size = 32765 end item Name = 'CANTIDAD' - DataType = datFloat - end - item - Name = 'UNIDAD_MEDIDA' - DataType = datString - Size = 255 + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' @@ -1007,10 +948,9 @@ object RptPedidosCliente: TRptPedidosCliente end> Params = < item - Name = 'ID_ALBARAN' + Name = 'ID_PEDIDO' DataType = datInteger - Value = '11' - ParamType = daptInput + Value = '' end> MasterParamsMappings.Strings = ( 'ID_ALBARAN=ID') @@ -1019,7 +959,6 @@ object RptPedidosCliente: TRptPedidosCliente RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = DABin2DataStreamer1 - DetailFields = 'ID_ALBARAN' LogicalName = 'Informe_Detalles' IndexDefs = <> Left = 344 diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas index d62e891..7df7d4c 100644 --- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas +++ b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas @@ -60,10 +60,10 @@ type tbl_Detalles: TDAMemDataTable; frxPDFExport1: TfrxPDFExport; DABin2DataStreamer1: TDABin2DataStreamer; - schReport: TDASchema; frxDBEtiquetas: TfrxDBDataset; DADSEtiquetas: TDADataSource; tbl_Etiquetas: TDAMemDataTable; + schReport: TDASchema; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); private @@ -156,8 +156,8 @@ begin tbl_Cabecera.Active := False; tbl_Detalles.Active := False; -// tbl_Cabecera.ParamByName('ID').AsInteger := AID; -// tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := AID; + tbl_Cabecera.ParamByName('ID').AsInteger := AID; + tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := AID; tbl_Cabecera.Active := True; tbl_Detalles.Active := True; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 8a47c1e..fb6fca2 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -4,6 +4,7 @@ program FactuGES_Server; uses // ExceptionLog, + ExceptionLog, uROComInit, uROComboService, Forms, diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index ae87e30..4193db8 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,347 +1,347 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG;EUREKALOG;EUREKALOG_VER6 - True - True - True - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr - - - - - MainSource - - - - - - TDARemoteService -
srvEmpresas
- - - TDataModule -
srvProvinciasPoblaciones_Impl
- - - - - TDataAbstractService -
srvUsuarios
- - - - - - - - - TDataModule -
RptAlbaranesCliente
- - - TDataModule -
RptWordAlbaranCliente
- - - TDataAbstractService -
srvAlbaranesCliente
- - - - - - TDataModule -
RptAlbaranesProveedor
- - - TDataModule -
RptWordAlbaranProveedor
- - - TDataAbstractService -
srvAlbaranesProveedor
- - - - - TDARemoteService -
srvAlmacenes
- - - - - - TDARemoteService -
srvArticulos
- - - - - - - - - - TDataModule -
RptEtiquetasContacto
- - - TDataModule -
RptFichasEmpleado
- - - TDARemoteService -
srvContactos
- - - - - TDataAbstractService -
srvFabricantes
- - - - - - TDataModule -
RptFacturasCliente
- - - TDataModule -
RptWordFacturaCliente
- - - TDataAbstractService -
srvFacturasCliente
- - - - - - TDataModule -
RptFacturasProveedor
- - - TDataAbstractService -
srvFacturasProveedor
- - - - - TDataAbstractService -
srvFamilias
- - - - - TDataAbstractService -
srvFormasPago
- - - TDataAbstractService -
srvGestorDocumentos
- - - TDataAbstractService -
srvGestorInformes
- - - - - TDataAbstractService -
srvHistoricoMovimientos
- - - - - TDataAbstractService -
srvInventario
- - - - - - TDataAbstractService -
srvObras
- - - - - - TDataModule -
RptPedidosProveedor
- - - TDataModule -
RptWordPedidoProveedor
- - - TDataAbstractService -
srvPedidosProveedor
- - - - - -
RptPedidosCliente
- - - TDataAbstractService -
srvPedidosCliente
- - - - - - TDataModule -
RptPresupuestosCliente
- - - TDataModule -
RptWordCertificadoTrabajo
- - - TDataModule -
RptWordPresupuestoCliente
- - - TDataAbstractService -
srvPresupuestosCliente
- - - - - TDataModule -
RptRecibosCliente
- - - TDataAbstractService -
srvRecibosCliente
- - - - - TDataModule -
RptRecibosProveedor
- - - TDataAbstractService -
srvRecibosProveedor
- - - - - TDataAbstractService -
srvReferencias
- - - - - - TDataModule -
RptRemesasCliente
- - - TDataAbstractService -
srvRemesasCliente
- - - - - - TDataAbstractService -
srvRemesasProveedor
- - - - - TDataAbstractService -
srvTiposIVA
- - - - - TDataAbstractService -
srvUnidadesMedida
- - - - - TDataAbstractService -
srvConfiguracion
- - - TFrame -
frConexionBD
- - - TFrame -
frConfGeneral
- - - TForm -
fConfiguracion
- - - TFrame -
FrameConfiguracion
- - - TDARemoteService -
srvLogin
- - -
fAcercaDe
- - - TDataModule -
dmServer
- - -
fServerForm
- - - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG;EUREKALOG;EUREKALOG_VER6 + True + True + True + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1020FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.2.0FactuGES ServidorFactuGES Servidor1.0.2.0jueves, 18 de febrero de 2010 12:17FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
RptAlbaranesProveedor
+ TDataModule + + +
RptWordAlbaranProveedor
+ TDataModule + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPedidosCliente
+ + +
srvPedidosCliente
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + + +