Merge branch 'master' of http://192.168.10.111:8383/SIG

2020-10-10 17:57:13 -07:00
parent 1ec0c8613d 3756303dbd
commit 09abc1fa77
5 changed files with 116 additions and 23 deletions
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -3732,11 +3732,18 @@

                        <br />
                        <div style="text-align:center">
-                            <asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" />
+                            <asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" visible="false" />
                        </div>

                        <br />

+                        <div style="text-align:left;width: 85%;margin-left: 7.5%" runat="server" id="DivReembolsoModal" visible="false">
+                            <asp:label runat="server" ID="LblReembolsoModal" Text="Num. Reembolso "/><asp:TextBox ID="TxtRembolsoModal" Width="80px" runat="server"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RfvTxtRembolsoModal" runat="server" ControlToValidate="TxtRembolsoModal" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VceTxtRembolsoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtRembolsoModal" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </div>
+
+                        <br />
                        <div runat="server" id="DivReembolso">
                            <asp:Panel ID="Panel1" CssClass="text-small" runat="server" Width="100%" Visible="true" BorderStyle="Solid" BorderColor="#6A92AD" BorderWidth="2px">
                                <div class="chequesie1">
@@ -4142,7 +4149,7 @@

                    </div>
                    <div class="modal-footer">
-                        <asp:Button ID="BtnContado" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" data-dismiss="modal" />
+                        <asp:Button ID="BtnContado" OnClick="BtnContado_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" />
                        <button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
                    </div>
                    <asp:HiddenField ID="HiddenField1" runat="server" Value="-1" ClientIDMode="Static" />
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1266,10 +1266,6 @@ Partial Class Compras_Compras
            TieneOC = False
            CveMoneda = -1

-            '[IPP] Eliminar 22Junio2018
-            'If UsuarioActual.Empresa.UsaInventarios Then
-            '    TabAlmacen.Enabled = Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0
-            'End If

            ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();")
            'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);")
@@ -3955,6 +3951,15 @@ Partial Class Compras_Compras
        Dim EstatusCredito As Integer = 0
        Dim CveSubProyecto As Integer = 0
        'Credito Multiple
+        If RBLPago.SelectedValue.ToEntero = 2 Then
+            If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
+                If Not TxtRembolsoNumero.Text.Length > 0 Then
+                    Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+        End If
+
        If RBLPago.SelectedValue.ToEntero = 4 Then

            Dim DifCreCompra As Decimal = 0
@@ -12836,7 +12841,6 @@ Partial Class Compras_Compras
        Select Case RBLPago.SelectedValue
            Case "1" 'Credito
                PnlContado.Visible = False
-
                If Not UsuarioActual.Empresa.UsaAC Then
                    TxtNumeroReembolso.Text = ""
                    tdNumeroReembolso.Visible = False
@@ -12845,7 +12849,6 @@ Partial Class Compras_Compras
                romCreditosTabla.Visible = False
            Case "2" 'Contado
                PnlContado.Visible = True
-
                TxtNumeroReembolso.Text = ""
                tdNumeroReembolso.Visible = False

@@ -12879,7 +12882,6 @@ Partial Class Compras_Compras
            Case "3" 'Reembolso/Comprobacion
                PnlContado.Visible = True

-
                ''AGARRA VALORES DE SESSION PARA REEMBOLSO -- SI YA ESTA REGISTRADA LA COMPRA IGNORA DATOS DE REEMBOLSO
                If Not CveCompra > 0 Then
                    If UsuarioActual.Sesion("Comp-NumeroReembolso") <> Nothing AndAlso UsuarioActual.Sesion("Comp-NumeroReembolso").ToString <> "" Then
@@ -13007,26 +13009,61 @@ Partial Class Compras_Compras
            Case "1" ' Bancos
                PnlContadoBancos.Visible = True
                TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
+                ChkCreditoMultiple.Visible = False
+                DivReembolsoModal.Visible = False
+                RfvTxtRembolsoModal.Enabled = False
+                TxtRembolsoModal.Text = ""
+                TxtRembolsoNumero.Text = ""
            Case "2" ' F y E
                PnlContadoFyE.Visible = True
                CargaFuncionariosEmpleados()
+                ChkCreditoMultiple.Visible = False
+                DivReembolsoModal.Visible = True
+                RfvTxtRembolsoModal.Enabled = True
+                TxtRembolsoNumero.Text = ""
+                TxtRembolsoModal.Text = ""
            Case "3" ' Creditos
                PnlContadoCreditos.Visible = True
+                ChkCreditoMultiple.Visible = True
                CargaCreditos()
+                DivReembolsoModal.Visible = False
+                RfvTxtRembolsoModal.Enabled = False
+                TxtRembolsoModal.Text = ""
+                TxtRembolsoNumero.Text = ""
            Case "4" ' Deudores
                PnlContadoDeudores.Visible = True
                CargaDeudores()
+                ChkCreditoMultiple.Visible = False
+                DivReembolsoModal.Visible = False
+                RfvTxtRembolsoModal.Enabled = False
+                TxtRembolsoModal.Text = ""
+                TxtRembolsoNumero.Text = ""
            Case "5" ' ACREEDORES
                PnlContadoAcreedores.Visible = True
+                ChkCreditoMultiple.Visible = True
                CargaAcreedores()
+                DivReembolsoModal.Visible = False
+                RfvTxtRembolsoModal.Enabled = False
+                TxtRembolsoModal.Text = ""
+                TxtRembolsoNumero.Text = ""
            Case "6" ' Caja Chica
                PnlContadoCajaChica.Visible = True
                TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
+                ChkCreditoMultiple.Visible = False
+                DivReembolsoModal.Visible = True
+                RfvTxtRembolsoModal.Enabled = True
+                TxtRembolsoModal.Text = ""
+                TxtRembolsoNumero.Text = ""
        End Select

        UpContado.Update()
    End Sub

+    Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
+        TxtRembolsoNumero.Text = TxtRembolsoModal.Text
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
+    End Sub
+
    Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
        TrRembolsoCajaChica.Visible = False
        TrRembolsoPersonal.Visible = False
@@ -14600,6 +14637,35 @@ Partial Class Compras_Compras
    Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
        RegistraScript("$('#DivCancelarCompra').modal('hide');")

+
+        Dim ObjComprasComprobacion As New ClsCompras
+
+
+        If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
+
+            Dim TienePagosConciliados As Boolean = False
+
+            If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
+                TienePagosConciliados = True
+                Dim PagosConciliados As New StringBuilder
+
+                For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
+                    PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a>  <br>")
+                Next
+
+
+                Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br>  {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
+            End If
+
+            If TienePagosConciliados Then
+                ObjComprasComprobacion.Dispose()
+                Exit Sub
+            End If
+
+
+        End If
+        ObjComprasComprobacion.Dispose()
+
        Dim ObjAC As ClsContPAQi = Nothing
        If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
@@ -15135,12 +15201,7 @@ Partial Class Compras_Compras
                Dr("RetISRTC") = Dr("RetISR")
                Dr("TotalTC") = Dr("ImporteAjustadoDescuento")

-                '[IPP] - JAMEntregaAdelantado | AJUSTE DE CANITDAD POR RECIBIR EN BASE A SALDOS DE INV-COMPRAS
-                'If UsuarioActual.CveUsuario = 100 Then
-                'If Dr("CveTipoPS").ToString.ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
-                '    Dr("CantidadDisponible") = If(Dr("CantidadDisponible").ToString.ToDouble > Dr("CantidadPendienteVincular").ToString.ToDouble, Dr("CantidadPendienteVincular"), Dr("CantidadDisponible"))
-                'End If
-                'End If
+
            Next

            'DESCRIPCION DE OC CUANDO NO ES COMPRA REGISTRADA
@@ -15172,7 +15233,7 @@ Partial Class Compras_Compras

        'SI PUEDE RECIBIR POR OC Y COMPRA
        If UsuarioActual.CveEmpresa.Contiene(119) Then
-            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
+            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
                Select Case DdlOCVinculaInv.SelectedValue.ToEntero
                    Case 176
                        DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
@@ -19412,7 +19473,7 @@ Partial Class Compras_Compras
                Case 237
                    Select Case FleteImportacionOpcion
                        Case 1
-                            If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
+                            If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
                                ErrorTrans = True
                            End If
                            '''actualiza la compra para que no se surta en almacen. sino por el flete o importación