--depositos con intermediario vsh prot

2025-04-14 20:07:56 -07:00
parent d2046c1466
commit e6c543db22
3 changed files with 61 additions and 65 deletions
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -318,14 +318,14 @@
                        </div>
                    </div>

-                    <div class="col-md-1" id="DivIVA">
+                    <div class="col-md-1" id="DivIVA" style="display:none;">
                        <div class="form-group form-md-line-input input-iconright">
                            <asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
                            <label for="<%=  TxtIVA.ClientID.ToString()%>">IVA:</label>
                        </div>
                    </div>

-                    <div class="col-md-1" id="dd2" style="margin-right: 100px;">
+                    <div class="col-md-1" style="margin-right: 100px;" id="divInterClasif" runat="server">

                        <div class="form-group form-md-line-input input-iconright">
                            <asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="  form-control  select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
@@ -336,7 +336,7 @@


                    </div>
-                    <div class="col-md-2" id="divSubProyectoIntermediario">
+                    <div class="col-md-2"  id="divInterSubProyecto" runat="server">
                        <div class="form-group form-md-line-input input-iconright">
                            <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me">
                            </asp:DropDownList>
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -15,11 +15,22 @@ Partial Class Bancos_DepositosCaja
        Set(value As Integer)
            ViewState("FacturasCheckadas") = value
        End Set
+    End Property
+
+    Private Property IntermediarioPendiente As Boolean
+        Get
+            Return ViewState("IntermediarioPendiente").ToString.ToBool
+        End Get
+        Set(value As Boolean)
+            ViewState("IntermediarioPendiente") = value
+        End Set
    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            FacturasCheckadas = 0
+            IntermediarioPendiente = False
+
            TxtFecha.Text = NowADS().ToShortDateString
            txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
            txtFechaF.Text = NowADS().ToShortDateString
@@ -45,6 +56,12 @@ Partial Class Bancos_DepositosCaja
            'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
            'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"

+            If UsuarioActual.CveEmpresa = 145 Then
+                IntermediarioPendiente = True
+                divInterClasif.Visible = False
+                divInterSubProyecto.Visible = False
+            End If
+
            If UsuarioActual.CveEmpresa = 189 Then
                If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
                    DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
@@ -307,35 +324,7 @@ Partial Class Bancos_DepositosCaja

            NuevaCvePrePoliza = ObjConta.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, $"Depósito Bancario - {DdlTipoDeposito.SelectedItem.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)

-            Dim IntermediarioFactura As Boolean = False
-            If UsuarioActual.CveEmpresa = 145 Then IntermediarioFactura = True
-            If ChkIntermediario.Checked Then

-                CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
-                CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
-                CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
-
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
-                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
-                        OcurrioError = True
-                    End If
-                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
-                        OcurrioError = True
-                    End If
-                End If
-
-                If Not IntermediarioFactura Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
-                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
-                        OcurrioError = True
-                    End If
-                End If
-
-                If IVA <> 0 Then
-                    If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
-                        OcurrioError = True
-                    End If
-                End If
-            End If

            Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero

@@ -419,6 +408,38 @@ Partial Class Bancos_DepositosCaja
                OcurrioError = True
            End If

+            If Not OcurrioError AndAlso ChkIntermediario.Checked Then
+
+                CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
+                CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
+                CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
+
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
+                        OcurrioError = True
+                    End If
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
+                        OcurrioError = True
+                    End If
+                End If
+
+                If Not IntermediarioPendiente Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
+                        OcurrioError = True
+                    End If
+                Else 'se manda el saldo como deudor
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 37, "Comisión Intermediario", "Comisión Intermediario", CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=DdlProveedorIntermediario.SelectedValue.ToEntero, CveIE:=CveIEOrigen) Then
+                        OcurrioError = True
+                    End If
+                End If
+
+                If IVA <> 0 Then
+                    If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
+                        OcurrioError = True
+                    End If
+                End If
+            End If
+
            If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
                If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, CuentaRetorno, CuentaRetorno * TipoCambio, 325, $"Depósito Bancario - CAJA - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveSubProyecto:=CveSubProyecto) Then
                    OcurrioError = True
@@ -436,11 +457,11 @@ Partial Class Bancos_DepositosCaja
                        Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
                        Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString

-                        'si es el primero, se descuenta la "comisión"
-                        If i = 0 AndAlso IntermediarioFactura Then
-                            Importe = Importe - ImporteInter
-                            i += 1
-                        End If
+                        ''si es el primero, se descuenta la "comisión"
+                        'If i = 0 AndAlso IntermediarioPendiente Then
+                        '    Importe = Importe - ImporteInter
+                        '    i += 1
+                        'End If

                        'Datos de las Prepolizas A Cancelar
                        Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero