From 8b44c6793b0a18f79face7be69091d5b665b21c4 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 12 Nov 2007 19:35:51 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@80
 0c75b7a4-871f-7646-8a2f-f78d34cc349f

---
 .../Formas de pago/Data/FormasPago_data.res   | Bin 4748 -> 384 bytes
 .../Servidor/srvFormasPago_Impl.dfm           | 253 +++++++++++++++++-
 .../Servidor/srvFormasPago_Impl.pas           |   2 +
 3 files changed, 250 insertions(+), 5 deletions(-)

diff --git a/Source/Modulos/Formas de pago/Data/FormasPago_data.res b/Source/Modulos/Formas de pago/Data/FormasPago_data.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?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>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*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;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;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>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-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}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((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

diff --git a/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm b/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm
index 8448c150..f437d985 100644
--- a/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm	
+++ b/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm	
@@ -6,16 +6,16 @@ object srvFormasPago: TsrvFormasPago
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>
   BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
-  Height = 202
-  Width = 247
+  Height = 208
+  Width = 441
   object Diagrams: TDADiagrams
     Left = 150
     Top = 90
     DiagramData = 
       '<Diagrams>'#13#10'  <Diagram Name="New Diagram" Left="200" Top="200" W' +
       'idth="400" Height="300">'#13#10'    <Entity Name="FormasPagoPlazos" Le' +
-      'ft="396,00" Top="100,00" />'#13#10'    <Entity Name="FormasPago" Left=' +
-      '"0,00" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
+      'ft="394,00" Top="98,00" />'#13#10'    <Entity Name="FormasPago" Left="' +
+      '0,00" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
   end
   object DataDictionary: TDADataDictionary
     Fields = <
@@ -247,7 +247,228 @@ object srvFormasPago: TsrvFormasPago
       end>
     JoinDataTables = <>
     UnionDataTables = <>
-    Commands = <>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_FORMAS_PAGO_ID'
+            Value = ''
+          end
+          item
+            Name = 'REFERENCIA'
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            Value = ''
+          end
+          item
+            Name = 'TITULAR'
+            Value = ''
+          end
+          item
+            Name = 'ENTIDAD'
+            Value = ''
+          end
+          item
+            Name = 'SUCURSAL'
+            Value = ''
+          end
+          item
+            Name = 'DC'
+            Value = ''
+          end
+          item
+            Name = 'CUENTA'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'FORMAS_PAGO'
+            SQL = 
+              'INSERT'#10'  INTO FORMAS_PAGO'#10'    (ID, REFERENCIA, DESCRIPCION, TITU' +
+              'LAR, ENTIDAD, SUCURSAL,'#10'     DC, CUENTA)'#10'  VALUES'#10'    (:ID, :REF' +
+              'ERENCIA, :DESCRIPCION, :TITULAR, :ENTIDAD, :SUCURSAL,'#10'     :DC, ' +
+              ':CUENTA)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_FormasPago'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datAutoInc
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'FORMAS_PAGO'
+            SQL = 'DELETE '#10'  FROM'#10'    FORMAS_PAGO'#10'  WHERE'#10'    (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_FormasPago'
+      end
+      item
+        Params = <
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'TITULAR'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'ENTIDAD'
+            DataType = datString
+            Size = 15
+            Value = ''
+          end
+          item
+            Name = 'SUCURSAL'
+            DataType = datString
+            Size = 15
+            Value = ''
+          end
+          item
+            Name = 'DC'
+            DataType = datString
+            Size = 15
+            Value = ''
+          end
+          item
+            Name = 'CUENTA'
+            DataType = datString
+            Size = 15
+            Value = ''
+          end
+          item
+            Name = 'OLD_ID'
+            DataType = datAutoInc
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'FORMAS_PAGO'
+            SQL = 
+              'UPDATE FORMAS_PAGO'#10'  SET '#10'    REFERENCIA = :REFERENCIA, '#10'    DES' +
+              'CRIPCION = :DESCRIPCION, '#10'    TITULAR = :TITULAR, '#10'    ENTIDAD =' +
+              ' :ENTIDAD, '#10'    SUCURSAL = :SUCURSAL, '#10'    DC = :DC, '#10'    CUENTA' +
+              ' = :CUENTA'#10'  WHERE'#10'    (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_FormasPago'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_FORMAS_PAGO_PLAZOS_ID'
+            Value = ''
+          end
+          item
+            Name = 'ID_FORMA_PAGO'
+            Value = ''
+          end
+          item
+            Name = 'NUM_DIAS'
+            Value = ''
+          end
+          item
+            Name = 'PORCENTAJE'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'FORMAS_PAGO_PLAZOS'
+            SQL = 
+              'INSERT'#10'  INTO FORMAS_PAGO_PLAZOS'#10'    (ID, ID_FORMA_PAGO, NUM_DIA' +
+              'S, PORCENTAJE)'#10'  VALUES'#10'    (:ID, :ID_FORMA_PAGO, :NUM_DIAS, :PO' +
+              'RCENTAJE)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_FormasPagoPlazos'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            DataType = datAutoInc
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'FORMAS_PAGO_PLAZOS'
+            SQL = 'DELETE '#10'  FROM'#10'    FORMAS_PAGO_PLAZOS'#10'  WHERE'#10'    (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_FormasPagoPlazos'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_FORMA_PAGO'
+            DataType = datInteger
+            Value = '0'
+          end
+          item
+            Name = 'NUM_DIAS'
+            DataType = datSmallInt
+            Value = '0'
+          end
+          item
+            Name = 'PORCENTAJE'
+            DataType = datFloat
+            Value = '0'
+          end
+          item
+            Name = 'OLD_ID'
+            DataType = datAutoInc
+            Value = '0'
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            Default = True
+            TargetTable = 'FORMAS_PAGO_PLAZOS'
+            SQL = 
+              'UPDATE FORMAS_PAGO_PLAZOS'#10'  SET '#10'    ID_FORMA_PAGO = :ID_FORMA_P' +
+              'AGO, '#10'    NUM_DIAS = :NUM_DIAS, '#10'    PORCENTAJE = :PORCENTAJE'#10'  ' +
+              'WHERE'#10'    (ID = :OLD_ID)'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_FormasPagoPlazos'
+      end>
     RelationShips = <
       item
         Name = 'FK_FormasPagoPlazos_FormasPago'
@@ -308,4 +529,26 @@ object srvFormasPago: TsrvFormasPago
     Left = 48
     Top = 88
   end
+  object bpFormasPago: TDABusinessProcessor
+    Schema = schFormasPago
+    InsertCommandName = 'Insert_FormasPago'
+    DeleteCommandName = 'Delete_FormasPago'
+    UpdateCommandName = 'Update_FormasPago'
+    ReferencedDataset = 'FormasPago'
+    ProcessorOptions = [poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 280
+    Top = 24
+  end
+  object bpFormasPagoPlazos: TDABusinessProcessor
+    Schema = schFormasPago
+    InsertCommandName = 'Insert_FormasPagoPlazos'
+    DeleteCommandName = 'Delete_FormasPagoPlazos'
+    UpdateCommandName = 'Update_FormasPagoPlazos'
+    ReferencedDataset = 'FormasPagoPlazos'
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 280
+    Top = 77
+  end
 end
diff --git a/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas b/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas
index de4f2e72..650618ef 100644
--- a/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas	
+++ b/Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas	
@@ -23,6 +23,8 @@ type
   TsrvFormasPago = class(TDataAbstractService, IsrvFormasPago)
     Diagrams: TDADiagrams;
     Bin2DataStreamer: TDABin2DataStreamer;
+    bpFormasPago: TDABusinessProcessor;
+    bpFormasPagoPlazos: TDABusinessProcessor;
     schFormasPago: TDASchema;
     DataDictionary: TDADataDictionary;
     procedure DARemoteServiceCreate(Sender: TObject);