-- cambios de cobro-intermediarios izettle

Bancos/DepositosCaja.aspx

@@ -144,10 +144,7 @@
                     <label>Importe:</label>
                     <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
                 </div>
-                <div class="col-md-1" id="DivIVA" style="display: none">
+               
-                    <label>IVA:</label>
-                    <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm "  Width="75px"></asp:TextBox>
-                </div>
                 <div class="col-md-3"  style="display: none" id="divSubProyecto">
                     <label class="col-md-1 truncate" style="width: 110px; display: none" id="LblSubproyecto" >SubProyecto:</label>
                  
@@ -190,14 +187,40 @@
                     <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                     </asp:DropDownList>
                 </div>
+                
+            </div>
+            <div class="row" style="border:solid">
+                <div class="col-md-1" runat="server" id="Div2">
+                    <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario"/>
+                </div>
+                <div class="col-md-2" id="dd">
+                    <asp:Dropdownlist ID="DdlProveedorIntermediario" CssClassDdl="select2me" Width="100px" CssStyle="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:Dropdownlist>
+                </div>
+                <div class="col-md-2" id="dd2">
+                    <label class="col-md-1 truncate"  style="width: 80px;" id="LblClasificacion3">Clas:</label>                
+                    <asp:DropDownList  ID="DdlClasifIntermediario" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
+                    </asp:DropDownList>
+                </div>
+                <div class="col-md-2" id="DivinterImporte"  >
+                    <label>Importe:</label>
+                    <asp:TextBox runat="server" ID="TxtComisionIntermediario" Class=" input-sm "  Width="75px"></asp:TextBox>
+                </div>
+                <div class="col-md-2" id="DivIVA"  >
+                    <label>IVA:</label>
+                    <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm "  Width="75px"></asp:TextBox>
+                </div>
+                 <div class="col-md-3" id="divSubProyectoIntermediario">
+                    <label class="col-md-1 truncate" style="width: 80px;"id="LblSubproyectoIntermediario" >SubProyecto:</label>
+                 
+                    <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
+                    </asp:DropDownList>
+                    </div>
+            </div>
                
 
-
-
-
-
             </div>
 
+
             <br />
             <div style="height:550px;overflow-x:scroll">
                 <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">

Bancos/DepositosCaja.aspx.vb

@@ -46,19 +46,31 @@ Partial Class Bancos_DepositosCaja
 
         DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
         DdlSubProyectoDeposito.DataBind()
-        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSubProyectoDeposito.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
         DdlSubProyectoDescuento.DataBind()
-        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSubProyectoDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
         DdlClasificacion.DataBind()
-        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
         DdlClasificacionDescuento.DataBind()
-        DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        'intermediario
+        DdlProveedorIntermediario.datasource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
+        DdlProveedorIntermediario.databind
+
+        DdlClasifIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
+        DdlClasifIntermediario.DataBind()
+
+
+        DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoIntermediario.DataBind()
+
 
     End Sub
 
@@ -134,8 +146,11 @@ Partial Class Bancos_DepositosCaja
         Dim CveSubProyectoDescuento As Integer = -1
         Dim CveClasificacion As Integer = -1
         Dim CveClasificacionDescuento As Integer = -1
-        Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
+        Dim documentos As String = "Los Depósitos se realizaron exitosamente<br/><br/>"
         Dim imprimirFolios As String = ""
+        Dim CveSubProyectoIntermediario As Integer = -1
+        Dim CveClasificacionIntermediario As Integer = -1
+
         If drOrigen IsNot Nothing Then
             CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
             IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
@@ -172,13 +187,6 @@ Partial Class Bancos_DepositosCaja
                 End If
 
 
-                If IVA <> 0 Then
-                    IVA = CDec(0.16)
-                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, IVA, DdlClasificacion.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
-                        OcurrioError = True
-                    End If
-                End If
-
             End If
 
             If ChkDescuento.Checked Then
@@ -189,6 +197,24 @@ Partial Class Bancos_DepositosCaja
                     OcurrioError = True
                 End If
             End If
+
+            If 1 = 1 Then
+
+                CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
+                CveSubProyectoIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
+
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+                    OcurrioError = True
+                End If
+
+                If IVA <> 0 Then
+                    If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, CveCuenta:=CveCuentaBancariaOrigen, PorcentajeImpuesto:=0.16D) Then
+                        OcurrioError = True
+                    End If
+                End If
+
+            End If
+
         Else
             OcurrioError = True
         End If
@@ -210,17 +236,20 @@ Partial Class Bancos_DepositosCaja
                 FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
                 If Not FolioIE > 0 Then
                     OcurrioError = True
+                    Exit For
                 End If
                 CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
                 If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                     OcurrioError = True
+                    Exit For
                 End If
 
                 'Asignamos la cuenta Deposito
-                If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
+                If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
                     OcurrioError = True
+                    Exit For
                 End If
                 Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")