E140, Solo cuentas de contado para pago en efectivo y cheque, obligar a cancelar remisiones relacionadas al cancelar factura.

Ventas/Ventas.aspx.vb

@@ -21744,16 +21744,21 @@ Partial Class Ventas
 
         Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
 
-        DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        'MOSTRAR SOLO CUENTAS DE CONTADO EN BDH
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 0", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+            DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 0", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        Else
+            DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+            DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        End If
 
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
             DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-            DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         Else
             DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
             DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-            DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         End If
 
         DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
@@ -23723,7 +23728,7 @@ Partial Class Ventas
                         Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
                         Exit Sub
                     End If
-
+                    MostrarRemisionesCancelar()
                     sb.Append("<b>No encontrado</b> <br/>")
                     sb.Append("Está seguro de cancelar el documento?.")
                 Else
@@ -23736,10 +23741,12 @@ Partial Class Ventas
 
                     sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                     If Vigencia.EsCancelable.ToUpper() <> "NO CANCELABLE" Then
+                        MostrarRemisionesCancelar()
                         sb.Append("Está seguro de cancelar el documento?.")
                     End If
                 End If
             Else
+                MostrarRemisionesCancelar()
                 sb.Append("<b>No encontrado</b> <br/>")
                 sb.Append("Está seguro de cancelar el documento?.")
             End If
@@ -23763,6 +23770,25 @@ Partial Class Ventas
         End If
 
     End Sub
+
+    Private Sub MostrarRemisionesCancelar()
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") AndAlso DivCanRem.Visible Then
+            ChkCanRem.Enabled = False
+            ChkCanRem.Checked = True
+            ChkCanRem_CheckedChanged(ChkCanRem, EventArgs.Empty)
+            ChkCanRem.Enabled = False
+
+            If DivGvCancelarRemision.Visible Then
+                For Each GvRow As GridViewRow In GvCancelarRemisiones.Rows
+                    If GvRow.RowType = DataControlRowType.DataRow Then
+                        GvRow.FCCheckBox("ChkCancelarRemision").Checked = True
+                        GvRow.FCCheckBox("ChkCancelarRemision").Enabled = False
+                    End If
+                Next
+            End If
+        End If
+    End Sub
+
     Protected Sub ChkDevAlm_CheckedChanged(sender As Object, e As EventArgs)
         MostrarCondicionesCancelacion()
     End Sub
@@ -34349,22 +34375,5 @@ Partial Class Ventas
         UpEmitirTransitorio.Update()
     End Sub
 #End Region
-
-
-    Protected Sub RdTipoPersona_SelectedIndexChanged(sender As Object, e As EventArgs)
-
-        DVRegimenSociedad.Visible = False
-        DivRazonSocial2.Attributes.Add("class", "col-md-12")
-
-        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-
-            DivRazonSocial2.Attributes.Add("class", "col-md-8")
-            DVRegimenSociedad.Visible = True
-
-        End If
-
-        UpAgregarCliente.Update()
-    End Sub
-
 End Class