-- vencimientos lineas

Ventas/Clientes.aspx.vb

@@ -919,7 +919,9 @@ Partial Class Clientes
                 CargaCombosLineasAdicionales()
                 TabLineasAdicionales.Visible = True
                 LnkAgregarLineaAdicional.Visible = True
-                GetLineasAdicionales()
+                GetLineasAdicionales()
+                divQuebranto1.Visible = True
+                divQuebranto2.Visible = True
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
@@ -1689,8 +1691,6 @@ Partial Class Clientes
 
                 'Horario
                 TxtHorario.Text = ObjClientes.Horario
-
-
                 TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
                 TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
                 TxtCelular.Text = ObjClientes.Celular
@@ -1705,6 +1705,9 @@ Partial Class Clientes
                 ChkEnDemanda.Checked = ObjClientes.EnDemanda
                 TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas
 
+                If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = "En Quebranto"
+                If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= "En Demanda"
+
                 '7eleven
                 TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
 
@@ -1851,6 +1854,23 @@ Partial Class Clientes
                 GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()
             End If
             Retorno = True
+            If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
+                Dim tdtt As DataTable = DtCxCActivas.FiltraParametros("DiasVencidos > 0")
+                If tdtt.Rows.Count > 0 Then
+                    Dim tstr As String = "Facturas con vencimiento: <br/>"
+                    Dim tdtsaldo As DataTable = tdtt.FiltraParametros("CveMoneda = 1")
+                    If tdtsaldo.Rows.Count > 0 Then
+                        tstr &= tdtt.Rows.Count & $"  -  ${tdtsaldo.SUM("Saldo").FormatoNumero} Pesos.<br/>"
+                    End If
+                    tdtsaldo = tdtt.FiltraParametros("CveMoneda = 2")
+                    If tdtsaldo.Rows.Count > 0 Then
+                        tstr &= tdtsaldo.Rows.Count & $"  -  ${tdtsaldo.SUM("Saldo").FormatoNumero} Dólares.<br/>"
+                    End If
+
+                    Alert(tstr, TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
         Else
             GvCxC.DataSource = Nothing
             DtCxCActivas = Nothing