From 99cd057c70eaa56cae688b4bfaf1696b04e61208 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 11 Jun 2008 16:35:39 +0000 Subject: [PATCH] Se pone fecha de vencimiento en las facturas de cliente git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@452 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Base/Base.dproj | 102 ++-- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/Informes/FacturaCliente.rdx | Bin 141312 -> 142848 bytes Source/Informes/InfFacturaCliente.fr3 | 16 +- .../Reports/uRptFacturasCliente_Server.dfm | 278 ++++++--- .../Reports/uRptFacturasCliente_Server.pas | 29 +- .../Reports/uRptWordFacturaCliente.dfm | 80 +++ .../Reports/uRptWordFacturaCliente.pas | 19 +- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 552 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 11 files changed, 652 insertions(+), 426 deletions(-) diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 91f13e4e..af58df49 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 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc 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 diff --git a/Source/Informes/FacturaCliente.rdx b/Source/Informes/FacturaCliente.rdx index e5d602fde09e0e2d7df7437d9c629ffebb02d5ea..fa596a63c45abccb11e7133c5da008ceca3cb38c 100644 GIT binary patch delta 3632 zcmbuC4Qv$06~||0_x8@;=V0HReRuZx6Mx|kY^Wg#5v6tm#7-fxYdfUm!y+zNsVOo_ zEEF4*HW77$Vbn~Tw21JPVwzNNO-^#8B3F$YO4Q;iweoR}NSm~k3KR&X)H&?_-`y@X zwrQw3r{BJvH*aR%do#1U*LT{{7j_I(7Bn%lI2rpoZaJ8onwlc*{h$?GQ~VImIMy}5 z>_i@uWhKL3l8zFYJ#xZsBx3=OE%QZ^M^fJR1zR0tBW3Q#QrYwic ziRgDBb?>3^Q*YBgh!$&2AI)QI3>vGS+01eZ8T%Ei7sJm=C~0k}Sa!)}vHB9^okBJ1 z8u>A7Z>+Q0V^)k=3qbv8yeD!POM~o(Oop_^eGzr?_b_BP)+#TTEUCkg2v$aCOX;)c7UpAmD?8TCo++DM!FKyjU9Z@()GjY16bIdjf98@W z2W452qdao%Nr*&i($E^tg`n!BHx;48?>k%bYKMNvZb&|H zLj@^%eO8L>k1)2WeMyo0xZK@Z&){g2`?xr>~ zPY*olwS4h#zKFgC<0_Bwgfl-RO7rY*!}9SZE>f~2_mvC_?Y9YS(85xmU;e# z%7m#%$JQk$$*{6#JQcd7rPn$-QXI#)bBv0Vy=d zyseBkx%0Mi+%IiTVB&cknHp}bXLPTZjtQ>eA~f`3T#JoDy(`8N7sNiBaohhtC#O02|1u{ZP|nY|f9+6WEKZ7y@u5V-Cz{+hi!V0AfBMXhN?1|#1y9?* z&7Z%_>v*lIzs%?B1C4E(+I*P@^ldADI3D`JW&SfQ?lxp&9!Lu;e=;*NBB$A6D9cIp2~wc6_xj$#k2$ebQ0v@stC-vi$Ve+O5JtTd8s?mheVWd$()?ogN}B6WU}ofBG?%rtt!+K7e&ZJ_y*jg5u|=ij1L9Y{EU`L{ z=DGmJRacgnUqw5O{y)&(`4mvGf$m3B8GVGc)I7!Ldyc+{==H(W?YekI-IXmWi*NNb zj;sD`aYDV4Ez;D{Y>}we2ZT}1`rw6G!u3_0M~|PSiAiCdm~iM@0nx-0cCH)QAb)w^ Vh>v+fzsnI-x;$-fJ6tHlzX4S^zK8$- delta 3091 zcmb`Je{7Z28ONV<-uM3OZEt_w+uQc`*Zt8#X{Fp%M4}sFK*bGl&^Xy@{I z@{fi70XXp*Le`**h18ek(I4PoB=_XZK&U2Grsbw)l{M;9_5$*qL>zd;LDUDoyapZ1_so_#cS!jU-9%r9 ziS1_``niHW2a*>$v)FzLZR#Dz+*UiZ|6q$))FpFe%64H-c?fa(;BQrt|LBRg&+s|O z6?;!r1Yx4Z9#`ll3rib>^=^dNfkxh2F1B4aQp_a~B`SwqK{q&#Q?8ZE?EbtJk-Y&t zz7dUAaI1tgn{b{WZNKHvIo^86UhGvg!j@cS%jrV_vt~yN9B<(Pi)S0!y1fKDqyH{d z*cE9$STud&?UOxQjs(&Vx^|dyaijXEXl}aB_gA5IM;uC)9RKod9-{2!zg)lGy_|ik zaJ`uw${y4|?(c&f%D!2+^2;mS)!$3@`~1cutOmP}B(iFse}ia0URo-}d+Dt!tZunz?g+l$Q<6G+Nyf2AjWwv#su3+w~z>dRx_*Y>{c4{v8>Y~aWP`S{|6FoU`D z(48wP>An>P-4E6SiU+%UHS^zBJM*JSW!f84 z)MUrbF?IotZ!MS^;|tI&aAszntj|?8&+OSWQ`tCES&xXPb!gM&Mg?cPHfjU5%3<7lYy5-Ojep$l>taObCm zwr@hFyN{Z}v+BvR+-q{J>K#lu??wAlbJf+s6uygnFFsQI?N#1fcg{?G_~PT!Ed#!z zC(@6-WC-z%bnmg>Iy^i9ujTh@+0eteSS~|TzZz-_aTmWdS#nIDp<@!HCx)^gh)8o$%&=Bv#mi#P7T>Fr;!&qqV)d9ZB1J~;a>|sa0m=P2 z$mlAUeEYh(Uyr$DbG6%voZ#5z{)V`g!9N2ISHfy_OH=5CM=rYK8ir><2z}LHKIj5T zuokQX+rUon0BE)s7EcIG{Lp3eSf%_*oV)p%!*2+E7wiO2gE8FRxpcBgel2h-=6b7uJ#tiEX_9f5Ne1i;y(l90#4o~zH`})1O}97M z-r!MP9+mfa96SoA#?V`%@?H;n9|oiPcTw3=i*dOhOwRP*csVHOC48B5I3|Bn|3$}Z zRO(}K8PwHr`ODZo43of?T;B_(mPq{D=Ss#3G|MhgwE2P452-g+pRS<_tG7iiFb}m! F`7dksc9#GE diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3 index 9350b276..17150461 100644 --- a/Source/Informes/InfFacturaCliente.fr3 +++ b/Source/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,8 +7,8 @@ - - + + @@ -16,14 +16,15 @@ - + - + + @@ -61,4 +62,9 @@ + + + + + diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 0cda13b0..20372a5c 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -37,18 +37,74 @@ object RptFacturasCliente: TRptFacturasCliente 'TE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end + item + DatasetField = 'IMPORTE_DESCUENTO' + TableField = 'IMPORTE_DESCUENTO' + end item DatasetField = 'IVA' TableField = 'IVA' end + item + DatasetField = 'IMPORTE_IVA' + TableField = 'IMPORTE_IVA' + end + item + DatasetField = 'RE' + TableField = 'RE' + end + item + DatasetField = 'IMPORTE_RE' + TableField = 'IMPORTE_RE' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end + item + DatasetField = 'NIF_CIF' + TableField = 'NIF_CIF' + end + item + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' + end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' @@ -65,66 +121,10 @@ object RptFacturasCliente: TRptFacturasCliente DatasetField = 'POBLACION' TableField = 'POBLACION' end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'FECHA_FACTURA' - TableField = 'FECHA_FACTURA' - end - item - DatasetField = 'BASE_IMPONIBLE' - TableField = 'BASE_IMPONIBLE' - end - item - DatasetField = 'IMPORTE_DESCUENTO' - TableField = 'IMPORTE_DESCUENTO' - end - item - DatasetField = 'IMPORTE_IVA' - TableField = 'IMPORTE_IVA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'ID_CLIENTE' - TableField = 'ID_CLIENTE' - end - item - DatasetField = 'NIF_CIF' - TableField = 'NIF_CIF' - end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end - item - DatasetField = 'RE' - TableField = 'RE' - end - item - DatasetField = 'IMPORTE_RE' - TableField = 'IMPORTE_RE' - end - item - DatasetField = 'TIPO' - TableField = 'TIPO' - end - item - DatasetField = 'SITUACION' - TableField = 'SITUACION' - end item DatasetField = 'RECARGO_EQUIVALENCIA' TableField = 'RECARGO_EQUIVALENCIA' @@ -309,14 +309,6 @@ object RptFacturasCliente: TRptFacturasCliente 'ET.POSICION;'#10 StatementType = stSQL ColumnMappings = < - item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' - end - item - DatasetField = 'POSICION' - TableField = 'POSICION' - end item DatasetField = 'ID' TableField = 'ID' @@ -325,18 +317,34 @@ object RptFacturasCliente: TRptFacturasCliente DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end + item + DatasetField = 'POSICION' + TableField = 'POSICION' + end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end + item + DatasetField = 'CANTIDAD' + TableField = 'CANTIDAD' + end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end + item + DatasetField = 'DESCUENTO' + TableField = 'DESCUENTO' + end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' @@ -344,14 +352,6 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'VISIBLE' TableField = 'VISIBLE' - end - item - DatasetField = 'DESCUENTO' - TableField = 'DESCUENTO' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' end> end> Name = 'InformeFacturasCliente_Detalles' @@ -424,28 +424,39 @@ object RptFacturasCliente: TRptFacturasCliente Statements = < item Connection = 'IBX' - TargetTable = 'V_RECIBOS_CLIENTE' SQL = - 'SELECT'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENT' + - 'E.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'WHERE V_RECIBOS_CLIENTE.I' + - 'D_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMI' + - 'ENTO' + 'SELECT'#10' V_RECIBOS_CLIENTE.ID_FACTURA, V_RECIBOS_CLIENTE.FECHA' + + '_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLI' + + 'ENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V' + + '_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10 StatementType = stSQL ColumnMappings = < + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeFacturasCliente_Vencimientos' Fields = < + item + Name = 'ID_FACTURA' + DataType = datInteger + end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency end> end> JoinDataTables = <> @@ -660,7 +671,7 @@ object RptFacturasCliente: TRptFacturasCliente end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' - CloseDataSource = False + CloseDataSource = True DataSource = DADSDetalles Left = 344 Top = 16 @@ -717,7 +728,8 @@ object RptFacturasCliente: TRptFacturasCliente 'mporte_neto,' ' v_facturas_cliente.importe_porte, formas_pago.descripcion as ' + - 'FORMA_PAGO' + 'FORMA_PAGO,' + ' v_facturas_cliente.DATOS_BANCARIOS' 'from v_facturas_cliente' ' left outer join formas_pago on (formas_pago.id = v_facturas_c' + @@ -864,6 +876,11 @@ object RptFacturasCliente: TRptFacturasCliente Origin = '"FORMAS_PAGO"."DESCRIPCION"' Size = 255 end + object cabeceraDATOS_BANCARIOS: TIBStringField + FieldName = 'DATOS_BANCARIOS' + Origin = '"V_FACTURAS_CLIENTE"."DATOS_BANCARIOS"' + Size = 255 + end end object detalles: TIBQuery Database = IBDatabase1 @@ -1173,6 +1190,11 @@ object RptFacturasCliente: TRptFacturasCliente Name = 'FORMA_PAGO' DataType = datString Size = 255 + end + item + Name = 'DATOS_BANCARIOS' + DataType = datString + Size = 255 end> Params = < item @@ -1231,7 +1253,7 @@ object RptFacturasCliente: TRptFacturasCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39604.801510335640000000 + ReportOptions.LastChange = 39610.732841435190000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( '' @@ -1340,6 +1362,17 @@ object RptFacturasCliente: TRptFacturasCliente ' end; ' 'end;' '' + 'procedure Memo39OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' Memo39.Clear; ' + ' if ( = '#39'F'#39') then' + + ' Memo39.Text := '#39'FACTURA'#39' ' + + ' ' + ' else' + ' Memo39.Text := '#39'ABONO'#39'; ' + 'end;' + '' 'begin' '' 'end.') @@ -1349,4 +1382,87 @@ object RptFacturasCliente: TRptFacturasCliente Left = 145 Top = 16 end + object frxDBVencimientos: TfrxDBDataset + UserName = 'frxDBVencimientos' + CloseDataSource = True + DataSource = DADSVencimientos + Left = 440 + Top = 16 + end + object DADSVencimientos: TDADataSource + DataSet = tbl_Vencimientos.Dataset + DataTable = tbl_Vencimientos + Left = 440 + Top = 72 + end + object tbl_Vencimientos: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end> + Params = < + item + Name = 'ID_FACTURA' + Value = '' + ParamType = daptInput + end> + MasterParamsMappings.Strings = ( + 'ID_FACTURA=ID') + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = DABINAdapter + MasterSource = DADSCabecera + MasterFields = 'ID' + DetailFields = 'ID_FACTURA' + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InformeFacturasCliente_Vencimientos' + IndexDefs = <> + Left = 440 + Top = 128 + end + object vencimientos: TIBQuery + Database = IBDatabase1 + Transaction = IBTransaction1 + SQL.Strings = ( + 'SELECT' + + ' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPOR' + + 'TE_TOTAL' + 'FROM V_RECIBOS_CLIENTE' + 'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = 2' + 'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO') + Left = 136 + Top = 408 + object vencimientosFECHA_VENCIMIENTO: TDateField + FieldName = 'FECHA_VENCIMIENTO' + Origin = '"V_RECIBOS_CLIENTE"."FECHA_VENCIMIENTO"' + end + object vencimientosIMPORTE_TOTAL: TIBBCDField + FieldKind = fkInternalCalc + FieldName = 'IMPORTE_TOTAL' + Origin = '"V_RECIBOS_CLIENTE"."IMPORTE_TOTAL"' + ProviderFlags = [] + ReadOnly = True + Precision = 18 + Size = 2 + end + end + object DataSource3: TDataSource + DataSet = vencimientos + Left = 216 + Top = 408 + end end diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index a9839574..428f62f0 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -71,6 +71,14 @@ type detallesIMPORTE_TOTAL: TIBBCDField; detallesVISIBLE: TSmallintField; detallesREFERENCIA: TIBStringField; + frxDBVencimientos: TfrxDBDataset; + DADSVencimientos: TDADataSource; + tbl_Vencimientos: TDAMemDataTable; + vencimientos: TIBQuery; + DataSource3: TDataSource; + cabeceraDATOS_BANCARIOS: TIBStringField; + vencimientosFECHA_VENCIMIENTO: TDateField; + vencimientosIMPORTE_TOTAL: TIBBCDField; schReport: TDASchema; procedure DataModuleCreate(Sender: TObject); private @@ -132,31 +140,34 @@ begin end; procedure TRptFacturasCliente.GenerarFactura(const ID: integer); -var - AStream: TMemoryStream; - dsMaster: IDADataset; - dsDetail: IDADataset; - dsVencimientos : IDADataset; +//var +// AStream: TMemoryStream; +// dsMaster: IDADataset; +// dsDetail: IDADataset; +// dsVencimientos : IDADataset; begin - AStream := TMemoryStream.Create; +// AStream := TMemoryStream.Create; try frxDBCabecera.DataSource := DADSCabecera; frxDBDetalles.DataSource := DADSDetalles; + frxDBVencimientos.DataSource := DADSVencimientos; tbl_Cabecera.ParamByName('ID').AsInteger := ID; tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID; + tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID; tbl_Cabecera.Active := True; tbl_Detalles.Active := True; + tbl_Vencimientos.Active := True; frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.PrepareReport(False); finally - AStream.Free; - dsMaster := Nil; - dsDetail := Nil; +// AStream.Free; +// dsMaster := Nil; +// dsDetail := Nil; end; end; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm index 8e5d17a7..84e0e674 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm @@ -398,6 +398,51 @@ object RptWordFacturaCliente: TRptWordFacturaCliente DataType = datSmallInt end> ReadOnly = True + end + item + Params = < + item + Name = 'ID_FACTURA' + Value = '2' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + SQL = + 'SELECT'#10' V_RECIBOS_CLIENTE.ID_FACTURA, V_RECIBOS_CLIENTE.FECHA' + + '_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLI' + + 'ENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V' + + '_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID_FACTURA' + TableField = 'ID_FACTURA' + end + item + DatasetField = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end> + end> + Name = 'Informe_Vencimientos' + Fields = < + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end> end> JoinDataTables = <> UnionDataTables = <> @@ -644,4 +689,39 @@ object RptWordFacturaCliente: TRptWordFacturaCliente Left = 168 Top = 80 end + object tbl_Vencimientos: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID_FACTURA' + DataType = datInteger + end + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end> + Params = < + item + Name = 'ID_FACTURA' + Value = '2' + ParamType = daptInput + end> + MasterParamsMappings.Strings = ( + 'ID_PRESUPUESTO=ID_PRESUPUESTO') + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = DABin2DataStreamer + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'Informe_Vencimientos' + IndexDefs = <> + Left = 352 + Top = 16 + end end diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 0d45ff87..1f762daf 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -16,6 +16,7 @@ type tbl_Empresa: TDAMemDataTable; schReport: TDASchema; DataDictionary: TDADataDictionary; + tbl_Vencimientos: TDAMemDataTable; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; @@ -30,7 +31,7 @@ type function Generar : Boolean; function RellenarCabecera : boolean; virtual; function RellenarInforme : boolean; virtual; - procedure _GenerarFactura(const AID: String); + procedure _GenerarFactura(const AID: String); public function Exportar(Codigo, Fichero : String): Boolean; constructor Create (AOwner : TComponent); override; @@ -175,6 +176,7 @@ var Imagen : InlineShape; _ShiftCells : OleVariant; ImporteAux : Double; + Cadena : String; begin //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA @@ -198,7 +200,7 @@ begin end; end; ---------------------------- } - + with FDocumento, tbl_Cabecera do begin //Activamos cabecera @@ -209,7 +211,16 @@ begin else ReplaceBookmark('CodigoFacturaCab', 'ABONO ' + FieldByName('REFERENCIA').AsString); ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString); - ReplaceBookmark('VencimientoCab', ''{FieldByName('FECHAVENCIMIENTO').AsString}); + + tbl_Vencimientos.First; + Cadena := ''; + while not tbl_Vencimientos.eof do + begin + Cadena := Cadena + tbl_Vencimientos.FieldByName('FECHA_VENCIMIENTO').AsString + ' '; + tbl_Vencimientos.Next; + end; + + ReplaceBookmark('VencimientoCab', Cadena); ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString); ReplaceBookmark('BancoCab', FieldByName('DATOS_BANCARIOS').AsString); @@ -344,9 +355,11 @@ var begin tbl_Cabecera.ParamByName('ID').AsString := AID; tbl_Detalles.ParamByName('ID_FACTURA').AsString := AID; + tbl_Vencimientos.ParamByName('ID_FACTURA').AsString := AID; tbl_Cabecera.Active := True; tbl_Detalles.Active := True; + tbl_Vencimientos.Active := True; FCodigoFactura := AID; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 01e1f98bffa88e930e2ae7aef46678e5ec67720b..677710a4d545560c2e276b4b07f8b1645d56e65f 100644 GIT binary patch delta 21 ccmZ3nm2t&Z#tjis>=q1G42BG*ljEa20aG^ylK=n! delta 21 ccmZ3nm2t&Z#tjis>_!Y$3`PvbljEa20aEe?i~s-t diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index c04561bf..b67b4065 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,280 +1,280 @@ - + - - {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_d10;tbx_d10;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;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;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; - True - True - True - $(BDS)\lib\Debug;$(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 - - - Delphi.Personality - - -FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr - - - - - MainSource - - - - -
srvEmpresas
- TDARemoteService - - - - - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
srvFacturasProveedor
- TDataAbstractService - - - - - - - - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
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_d10;tbx_d10;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;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;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; + True + True + True + $(BDS)\lib\Debug;$(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 + + + Delphi.Personality + + + FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr + + + + + MainSource + + + + +
srvEmpresas
+ TDARemoteService + + + + + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
srvFacturasProveedor
+ TDataAbstractService + + + + + + + + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + +