From 6fb18ab4da070bd6bdd923e3191dc554be2e35af Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 26 Feb 2008 16:06:26 +0000 Subject: [PATCH] =?UTF-8?q?Arreglo=20de=20recibos=20para=20que=20funcionen?= =?UTF-8?q?=20de=20forma=20aut=C3=B3noma=20sin=20necesidad=20de=20Facturas?= =?UTF-8?q?=20de=20(Ultima=20parte=20rematado=20(Falta=20la=20relaci=C3=B3?= =?UTF-8?q?n=20con=20contabilidad))?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@149 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Base.dproj | 82 ++-- Source/Base/Base.res | Bin 384 -> 4748 bytes Source/Informes/InfReciboCliente.fr3 | 14 +- .../Reports/uRptRecibosCliente_Server.dfm | 377 ++++++++++++------ .../Reports/uRptRecibosCliente_Server.pas | 4 +- .../Views/uEditorReciboCliente.dfm | 65 +-- .../Views/uEditorReciboCliente.pas | 3 + .../Views/uViewReciboCliente.dfm | 88 ++-- .../Views/uViewReciboCliente.pas | 4 + .../Views/uViewRecibosCliente.dfm | 13 + 10 files changed, 408 insertions(+), 242 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 763193c9..c7c3b6b4 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -58,47 +58,47 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
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/InfReciboCliente.fr3 b/Source/Informes/InfReciboCliente.fr3 index 21a82669..f1234f8c 100644 --- a/Source/Informes/InfReciboCliente.fr3 +++ b/Source/Informes/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -27,13 +27,13 @@ - - - + + + - - + + @@ -83,7 +83,7 @@ - + diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm index 3ba27d0c..9a1e898c 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm @@ -312,23 +312,37 @@ object RptRecibosCliente: TRptRecibosCliente 'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' + 'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' + 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' + - 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_REC' + - 'IBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,' + - #10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as ' + - 'NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CA' + - 'LLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRES' + - 'AS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as COD' + - 'IGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRE' + - 'SAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS' + - '.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE' + - #10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.' + - 'ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID' + 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIB' + + 'OS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTA' + + 'L_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10' V_RECIBO' + + 'S_CLIENTE.ENTIDAD_CLIENTE,'#10' V_RECIBOS_CLIENTE.SUCURSAL_CLIENT' + + 'E,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,'#10' V_RECIBOS_CLIENTE.CUENT' + + 'A_CLIENTE,'#10' V_RECIBOS_CLIENTE.ID_TIENDA,'#10' V_RECIBOS_CLIENT' + + 'E.TIENDA,'#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZO' + + 'N_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACIO' + + 'N as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPR' + + 'ESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRES' + + 'AS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,' + + #10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.' + + 'LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON' + + ' (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_' + + 'CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end + item + DatasetField = 'ID_RECIBO_COMPENSADO' + TableField = '' + SQLOrigin = 'ID_RECIBO_COMPENSADO' + end + item + DatasetField = 'REFERENCIA_REC_COMPENSADO' + TableField = '' + SQLOrigin = 'REFERENCIA_REC_COMPENSADO' + end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' @@ -339,23 +353,33 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'SITUACION' - TableField = 'SITUACION' + TableField = '' + SQLOrigin = 'SITUACION' end item DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' + TableField = '' + SQLOrigin = 'ID_FACTURA' end item DatasetField = 'ID_REMESA' - TableField = 'ID_REMESA' + TableField = '' + SQLOrigin = 'ID_REMESA' end item DatasetField = 'REFERENCIA_REMESA' - TableField = 'REFERENCIA_REMESA' + TableField = '' + SQLOrigin = 'REFERENCIA_REMESA' + end + item + DatasetField = 'FECHA_EMISION' + TableField = '' + SQLOrigin = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' - TableField = 'FECHA_VENCIMIENTO' + TableField = '' + SQLOrigin = 'FECHA_VENCIMIENTO' end item DatasetField = 'DESCRIPCION' @@ -363,119 +387,162 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' + TableField = '' + SQLOrigin = 'OBSERVACIONES' end item DatasetField = 'IMPORTE' - TableField = 'IMPORTE' - end - item - DatasetField = 'FECHA_FACTURA' - TableField = 'FECHA_FACTURA' - end - item - DatasetField = 'FORMA_PAGO_FACTURA' - TableField = 'FORMA_PAGO_FACTURA' - end - item - DatasetField = 'IMPORTE_FACTURA' - TableField = 'IMPORTE_FACTURA' - end - item - DatasetField = 'NOMBRE_CLIENTE' - TableField = 'NOMBRE_CLIENTE' - end - item - DatasetField = 'NIF_CIF_CLIENTE' - TableField = 'NIF_CIF_CLIENTE' - end - item - DatasetField = 'ENTIDAD_CLIENTE' - TableField = 'ENTIDAD_CLIENTE' - end - item - DatasetField = 'SUCURSAL_CLIENTE' - TableField = 'SUCURSAL_CLIENTE' - end - item - DatasetField = 'DC_CLIENTE' - TableField = 'DC_CLIENTE' - end - item - DatasetField = 'CUENTA_CLIENTE' - TableField = 'CUENTA_CLIENTE' - end - item - DatasetField = 'NIF_CIF_EMPRESA' - TableField = 'NIF_CIF_EMPRESA' - end - item - DatasetField = 'RAZON_SOCIAL' - TableField = 'RAZON_SOCIAL' - end - item - DatasetField = 'CALLE_EMPRESA' - TableField = 'CALLE_EMPRESA' - end - item - DatasetField = 'POBLACION_EMPRESA' - TableField = 'POBLACION_EMPRESA' - end - item - DatasetField = 'PROVINCIA_EMPRESA' - TableField = 'PROVINCIA_EMPRESA' - end - item - DatasetField = 'CODIGO_POSTAL_EMPRESA' - TableField = 'CODIGO_POSTAL_EMPRESA' - end - item - DatasetField = 'TELEFONO_1' - TableField = 'TELEFONO_1' - end - item - DatasetField = 'FAX' - TableField = 'FAX' - end - item - DatasetField = 'MOVIL_1' - TableField = 'MOVIL_1' - end - item - DatasetField = 'EMAIL_1' - TableField = 'EMAIL_1' - end - item - DatasetField = 'PAGINA_WEB' - TableField = 'PAGINA_WEB' - end - item - DatasetField = 'REGISTRO_MERCANTIL' - TableField = 'REGISTRO_MERCANTIL' - end - item - DatasetField = 'LOGOTIPO' - TableField = 'LOGOTIPO' + TableField = '' + SQLOrigin = 'IMPORTE' end item DatasetField = 'OTROS_GASTOS' - TableField = 'OTROS_GASTOS' + TableField = '' + SQLOrigin = 'OTROS_GASTOS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item - DatasetField = 'FECHA_EMISION' - TableField = 'FECHA_EMISION' + DatasetField = 'FECHA_FACTURA' + TableField = '' + SQLOrigin = 'FECHA_FACTURA' end item - DatasetField = 'ID_RECIBO_COMPENSADO' - TableField = 'ID_RECIBO_COMPENSADO' + DatasetField = 'FORMA_PAGO_FACTURA' + TableField = '' + SQLOrigin = 'FORMA_PAGO_FACTURA' end item - DatasetField = 'REFERENCIA_REC_COMPENSADO' - TableField = 'REFERENCIA_REC_COMPENSADO' + DatasetField = 'IMPORTE_FACTURA' + TableField = '' + SQLOrigin = 'IMPORTE_FACTURA' + end + item + DatasetField = 'NOMBRE_CLIENTE' + TableField = '' + SQLOrigin = 'NOMBRE_CLIENTE' + end + item + DatasetField = 'NIF_CIF_CLIENTE' + TableField = '' + SQLOrigin = 'NIF_CIF_CLIENTE' + end + item + DatasetField = 'CALLE_CLIENTE' + TableField = '' + SQLOrigin = 'CALLE_CLIENTE' + end + item + DatasetField = 'PROVINCIA_CLIENTE' + TableField = '' + SQLOrigin = 'PROVINCIA_CLIENTE' + end + item + DatasetField = 'CODIGO_POSTAL_CLIENTE' + TableField = '' + SQLOrigin = 'CODIGO_POSTAL_CLIENTE' + end + item + DatasetField = 'POBLACION_CLIENTE' + TableField = '' + SQLOrigin = 'POBLACION_CLIENTE' + end + item + DatasetField = 'ENTIDAD_CLIENTE' + TableField = '' + SQLOrigin = 'ENTIDAD_CLIENTE' + end + item + DatasetField = 'SUCURSAL_CLIENTE' + TableField = '' + SQLOrigin = 'SUCURSAL_CLIENTE' + end + item + DatasetField = 'DC_CLIENTE' + TableField = '' + SQLOrigin = 'DC_CLIENTE' + end + item + DatasetField = 'CUENTA_CLIENTE' + TableField = '' + SQLOrigin = 'CUENTA_CLIENTE' + end + item + DatasetField = 'ID_TIENDA' + TableField = '' + SQLOrigin = 'ID_TIENDA' + end + item + DatasetField = 'TIENDA' + TableField = '' + SQLOrigin = 'TIENDA' + end + item + DatasetField = 'NIF_CIF_EMPRESA' + TableField = '' + SQLOrigin = 'NIF_CIF_EMPRESA' + end + item + DatasetField = 'RAZON_SOCIAL' + TableField = '' + SQLOrigin = 'RAZON_SOCIAL' + end + item + DatasetField = 'CALLE_EMPRESA' + TableField = '' + SQLOrigin = 'CALLE_EMPRESA' + end + item + DatasetField = 'POBLACION_EMPRESA' + TableField = '' + SQLOrigin = 'POBLACION_EMPRESA' + end + item + DatasetField = 'PROVINCIA_EMPRESA' + TableField = '' + SQLOrigin = 'PROVINCIA_EMPRESA' + end + item + DatasetField = 'CODIGO_POSTAL_EMPRESA' + TableField = '' + SQLOrigin = 'CODIGO_POSTAL_EMPRESA' + end + item + DatasetField = 'TELEFONO_1' + TableField = '' + SQLOrigin = 'TELEFONO_1' + end + item + DatasetField = 'FAX' + TableField = '' + SQLOrigin = 'FAX' + end + item + DatasetField = 'MOVIL_1' + TableField = '' + SQLOrigin = 'MOVIL_1' + end + item + DatasetField = 'EMAIL_1' + TableField = '' + SQLOrigin = 'EMAIL_1' + end + item + DatasetField = 'PAGINA_WEB' + TableField = '' + SQLOrigin = 'PAGINA_WEB' + end + item + DatasetField = 'REGISTRO_MERCANTIL' + TableField = '' + SQLOrigin = 'REGISTRO_MERCANTIL' + end + item + DatasetField = 'LOGOTIPO' + TableField = '' + SQLOrigin = 'LOGOTIPO' end> end> Name = 'Informe_Cabecera' @@ -540,15 +607,15 @@ object RptRecibosCliente: TRptRecibosCliente end item Name = 'IMPORTE' - DataType = datFloat + DataType = datCurrency end item Name = 'OTROS_GASTOS' - DataType = datFloat + DataType = datCurrency end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency end item Name = 'FECHA_FACTURA' @@ -561,7 +628,7 @@ object RptRecibosCliente: TRptRecibosCliente end item Name = 'IMPORTE_FACTURA' - DataType = datFloat + DataType = datCurrency end item Name = 'NOMBRE_CLIENTE' @@ -573,6 +640,26 @@ object RptRecibosCliente: TRptRecibosCliente DataType = datString Size = 15 end + item + Name = 'CALLE_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'PROVINCIA_CLIENTE' + DataType = datString + Size = 255 + end + item + Name = 'CODIGO_POSTAL_CLIENTE' + DataType = datString + Size = 10 + end + item + Name = 'POBLACION_CLIENTE' + DataType = datString + Size = 255 + end item Name = 'ENTIDAD_CLIENTE' DataType = datString @@ -593,6 +680,15 @@ object RptRecibosCliente: TRptRecibosCliente DataType = datString Size = 15 end + item + Name = 'ID_TIENDA' + DataType = datInteger + end + item + Name = 'TIENDA' + DataType = datString + Size = 255 + end item Name = 'NIF_CIF_EMPRESA' DataType = datString @@ -685,7 +781,7 @@ object RptRecibosCliente: TRptRecibosCliente ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') - ReportOptions.LastChange = 39276.413526655100000000 + ReportOptions.LastChange = 39504.692557326390000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -698,7 +794,10 @@ object RptRecibosCliente: TRptRecibosCliente 'begin' ' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Add();' - ' DatosEmpresa.Lines.Add();' + + ' DatosEmpresa.Lines.Add( + '#39' - '#39 + + ' + + '#39' '#39' + );' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' @@ -706,19 +805,6 @@ object RptRecibosCliente: TRptRecibosCliente ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' - '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' 'end;' '' 'procedure Memo54OnBeforePrint(Sender: TfrxComponent);' @@ -730,7 +816,34 @@ object RptRecibosCliente: TRptRecibosCliente 'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);' 'begin' ' if ( = '#39#39') then' + ' begin' ' EtiCompensado.Visible := False;' + ' EtiCompensado2.Visible := False;' + ' end;' + 'end;' + '' + 'procedure Memo55OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( <> '#39#39') then' + ' begin' + + ' Memo55.Text := '#39'( Compensado en el recibo '#39' + + '#39' )'#39';' + + ' Memo1.Text := '#39'( Compensado en el recibo '#39' + + '#39' )'#39';' + ' end;' + 'end;' + '' + 'procedure Memo40OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( < 1) then' + ' begin' + ' Memo40.Lines.Clear; ' + + '// Memo40.Lines.Add('#39'Calle: '#39'); ' + + ' ' + ' end' 'end;' '' 'begin' diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas index 723940d7..47453a29 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas @@ -24,10 +24,10 @@ type DADataCompensados: TDADataSource; frxDBCompensados: TfrxDBDataset; tbl_Compensados: TDAMemDataTable; - schReport: TDASchema; - DataDictionary: TDADataDictionary; frxReport: TfrxReport; Bin2DataStreamer: TDABin2DataStreamer; + schReport: TDASchema; + DataDictionary: TDADataDictionary; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 9b890cca..08d08ff7 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -103,57 +103,43 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Width = 293 end inherited eFechaEmision: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 ExplicitWidth = 253 Width = 253 end inherited eFormaPago: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 ExplicitWidth = 253 Width = 253 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 441 Style.IsFontAssigned = True - ExplicitLeft = 441 ExplicitWidth = 253 Width = 253 end inherited eNombreCliente: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 ExplicitWidth = 286 Width = 286 end inherited eNifCif: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 ExplicitWidth = 286 Width = 286 end inherited eEntidad: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 ExplicitWidth = 84 Width = 84 end inherited eSucursal: TcxDBTextEdit - Left = 531 - ExplicitLeft = 531 + Left = 736 + ExplicitLeft = 736 ExplicitWidth = 81 Width = 81 end inherited eDC: TcxDBTextEdit - Left = 602 - ExplicitLeft = 602 + Left = 785 + ExplicitLeft = 785 ExplicitWidth = 37 Width = 37 end inherited eCuenta: TcxDBTextEdit - Left = 441 - ExplicitLeft = 441 ExplicitWidth = 286 Width = 286 end @@ -166,12 +152,37 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitWidth = 217 Width = 217 end + inherited rRefReciboCompensado: TcxDBTextEdit + ExplicitWidth = 191 + Width = 191 + end inherited frViewClienteRecibo: TfrViewDatosYSeleccionCliente - Left = 365 Top = 272 - ExplicitLeft = 365 + Width = 350 ExplicitTop = 272 + ExplicitWidth = 350 inherited dxLayoutControl1: TdxLayoutControl + Width = 350 + inherited edtlNombre: TcxDBTextEdit + ExplicitWidth = 224 + Width = 224 + end + inherited edtNIFCIF: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtCalle: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtPoblacion: TcxDBTextEdit + ExplicitWidth = 177 + Width = 177 + end + inherited edtProvincia: TcxDBTextEdit + ExplicitWidth = 327 + Width = 327 + end inherited edtCodigoPostal: TcxDBTextEdit Left = 192 ExplicitLeft = 192 @@ -284,18 +295,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited ToolBar1: TToolBar Width = 677 ExplicitWidth = 677 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end inherited ToolButton3: TToolButton ExplicitWidth = 98 end @@ -338,6 +337,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited eImporte: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged + ExplicitWidth = 150 + Width = 150 end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index 281c38b6..1cd7648b 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -93,6 +93,9 @@ begin inherited; FImporteRestante := 0; pgPaginas.ActivePageIndex := 0; + //RECIBOS COMPENSADOS DESHABILITADOS + pagCompensados.TabVisible := False; + ViewRecibo := frViewReciboCliente1; end; diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm index 990dd44c..3111a503 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm @@ -92,7 +92,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object memObservaciones: TcxDBMemo Left = 22 - Top = 240 + Top = 267 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -104,12 +104,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 + TabOrder = 7 Height = 49 Width = 274 end object eFechaEmision: TcxDBTextEdit - Left = 440 + Left = 661 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' @@ -131,11 +131,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 7 + TabOrder = 8 Width = 20 end object eFormaPago: TcxDBTextEdit - Left = 440 + Left = 661 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FORMA_PAGO_FACTURA' @@ -157,11 +157,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 + TabOrder = 9 Width = 42 end object eImporteTotal: TcxDBCurrencyEdit - Left = 440 + Left = 661 Top = 84 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' @@ -188,12 +188,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 + TabOrder = 10 Height = 21 Width = 182 end object eNombreCliente: TcxDBTextEdit - Left = 440 + Left = 661 Top = 167 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE_CLIENTE' @@ -215,11 +215,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 + TabOrder = 12 Width = 171 end object eNifCif: TcxDBTextEdit - Left = 440 + Left = 661 Top = 140 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF_CLIENTE' @@ -241,11 +241,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 11 Width = 147 end object eEntidad: TcxDBTextEdit - Left = 440 + Left = 661 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'ENTIDAD_CLIENTE' @@ -267,11 +267,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 13 Width = 90 end object eSucursal: TcxDBTextEdit - Left = 674 + Left = 768 Top = 194 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SUCURSAL_CLIENTE' @@ -293,7 +293,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 + TabOrder = 14 Width = 75 end object eDC: TcxDBTextEdit @@ -319,11 +319,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 + TabOrder = 15 Width = 33 end object eCuenta: TcxDBTextEdit - Left = 440 + Left = 661 Top = 221 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'CUENTA_CLIENTE' @@ -345,7 +345,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 15 + TabOrder = 16 Width = 83 end object eRemesa: TcxDBTextEdit @@ -401,7 +401,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end object rRefReciboCompensado: TcxDBTextEdit Left = 120 - Top = 189 + Top = 216 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataSource = DADataSource @@ -422,11 +422,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 + TabOrder = 6 Width = 191 end inline frViewClienteRecibo: TfrViewDatosYSeleccionCliente - Left = 364 + Left = 585 Top = 281 Width = 350 Height = 212 @@ -436,9 +436,9 @@ inherited frViewReciboCliente: TfrViewReciboCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 16 + TabOrder = 17 ReadOnly = False - ExplicitLeft = 364 + ExplicitLeft = 585 ExplicitTop = 281 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit @@ -462,15 +462,41 @@ inherited frViewReciboCliente: TfrViewReciboCliente Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 421 - ExplicitLeft = 421 + Left = 200 + ExplicitLeft = 200 end inherited Button3: TBitBtn - Left = 311 - ExplicitLeft = 311 + Left = 90 + ExplicitLeft = 90 end end end + object eDescripcion: TcxDBTextEdit + Left = 120 + Top = 165 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'DESCRIPCION' + DataBinding.DataSource = DADataSource + Enabled = False + Properties.ReadOnly = False + Properties.ValidateOnEnter = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.Color = clMenuBar + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 5 + Width = 437 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -515,9 +541,15 @@ inherited frViewReciboCliente: TfrViewReciboCliente Control = eRemesa ControlOptions.ShowBorder = False end + object dxLayoutControl1Item17: TdxLayoutItem + Caption = 'Descripci'#243'n:' + Control = eDescripcion + ControlOptions.ShowBorder = False + end end object dxLayoutControl1Group2: TdxLayoutGroup Caption = 'Compensado en recibo' + Visible = False object dxLayoutControl1Item4: TdxLayoutItem Caption = 'Ref. recibo:' Control = rRefReciboCompensado diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas index 6badf44d..d79910a8 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas @@ -72,6 +72,8 @@ type dxLayoutControl1Item6: TdxLayoutItem; frViewClienteRecibo: TfrViewDatosYSeleccionCliente; dxLayoutControlClienteModif: TdxLayoutGroup; + dxLayoutControl1Item17: TdxLayoutItem; + eDescripcion: TcxDBTextEdit; private FRecibo : IBizRecibosCliente; FController : IRecibosClienteController; @@ -121,6 +123,7 @@ begin dxLayoutControlFactura.Visible := true; dxLayoutControlCliente.Visible := true; dxLayoutControlClienteModif.Visible := false; + eDescripcion.Enabled := False; if Assigned(FRecibo) then begin @@ -130,6 +133,7 @@ begin dxLayoutControlFactura.Visible := false; dxLayoutControlCliente.Visible := false; dxLayoutControlClienteModif.Visible := true; + eDescripcion.Enabled := True; end; end else diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 00cdeb71..f042abb7 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -51,11 +51,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn Caption = 'Compensado' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' + Visible = False OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell + VisibleForCustomization = False end object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn Caption = 'Ref. recibo compensado' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' + VisibleForCustomization = False end object cxGridViewSITUACION: TcxGridDBColumn Caption = 'Situaci'#243'n' @@ -157,7 +160,17 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente inherited dxLayoutControl1: TdxLayoutControl Width = 531 ExplicitWidth = 531 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit + Left = 229 + ExplicitLeft = 229 ExplicitWidth = 287 Width = 287 end