AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-03-11 17:30:27 -07:00
parent 34c8faddf6 7169c48da5
commit 21b29e45a0
5 changed files with 101 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Inventarios/EntregaAlmacen.aspx
View File

@@ -1150,6 +1150,17 @@
} }
function fncCantidad(checkbox, numeroMax, idTbCantidadF) {
var $textbox = $('#' + idTbCantidadF);
if ($(checkbox).is(':checked')) {
$textbox.val(numeroMax);
} else {
$textbox.val(0);
}
}
</script> </script>
</asp:Content> </asp:Content>

5
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.IO Imports System.IO
Imports System.Web.Management Imports System.Web.Management
Imports DocumentFormat.OpenXml.InkML
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports MoreLinq Imports MoreLinq
@@ -1237,13 +1238,13 @@ Partial Class Inventarios_EntregaAlmacen
If BloqueCantidad Then If BloqueCantidad Then
e.Row.FCTextBox("TbCantidadF").Enabled = False e.Row.FCTextBox("TbCantidadF").Enabled = False
Else
e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}')")
End If End If
If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto")) CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"))
End If End If

2
UserControl/AddMedico.ascx
View File

@@ -184,7 +184,7 @@
<asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlDiasAtencion" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal> <asp:Literal ID="LtlDiasAtención" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

104
UserControl/AddMedico.ascx.vb
View File

@@ -68,8 +68,7 @@ Partial Class UserControl_AddMedico
Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaCombos()
CargaCombosMedicoClientesucursal()
End If End If
End Sub End Sub
@@ -80,6 +79,10 @@ Partial Class UserControl_AddMedico
End Sub End Sub
Sub CargaVendedores() Sub CargaVendedores()
DdlVendedor.ClearSelection()
DdlVendedor.SelectedValue = Nothing
DdlVendedor.Items.Clear()
Dim ObjVendedores As New ClsVtaVendedores Dim ObjVendedores As New ClsVtaVendedores
If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
DdlVendedor.DataSource = ObjVendedores.DtResultados.FiltraParametros("VendedorTipo = 1") DdlVendedor.DataSource = ObjVendedores.DtResultados.FiltraParametros("VendedorTipo = 1")
@@ -93,6 +96,11 @@ Partial Class UserControl_AddMedico
Sub CargaEspecialidad() Sub CargaEspecialidad()
DdlEspecialidad.ClearSelection()
DdlEspecialidad.SelectedValue = Nothing
DdlEspecialidad.Items.Clear()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
@@ -114,6 +122,10 @@ Partial Class UserControl_AddMedico
Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer) Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer)
DdlSubEspecialidad.ClearSelection()
DdlSubEspecialidad.SelectedValue = Nothing
DdlSubEspecialidad.Items.Clear()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
@@ -138,6 +150,9 @@ Partial Class UserControl_AddMedico
Public Sub LimpiarControles() Public Sub LimpiarControles()
CargaCombos()
CargaCombosMedicoClientesucursal()
CveMedico = -1 CveMedico = -1
CrearDTMedicosClientesSucursales() CrearDTMedicosClientesSucursales()
CveMedicoClienteSucursal = -1 CveMedicoClienteSucursal = -1
@@ -197,6 +212,9 @@ Partial Class UserControl_AddMedico
Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean,
Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer) Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer)
CargaCombos()
CargaCombosMedicoClientesucursal()
CveMedico = CveMedicoEditar CveMedico = CveMedicoEditar
TxtNombre.Text = Nombre TxtNombre.Text = Nombre
TxtAPaterno.Text = APaterno TxtAPaterno.Text = APaterno
@@ -305,8 +323,12 @@ Partial Class UserControl_AddMedico
End Function End Function
Private Sub CargaCombosMedicoClientesucursal() Private Sub CargaCombosMedicoClientesucursal()
Dim objcliente As New ClsClientes
DdlClienteSucursal.ClearSelection()
DdlClienteSucursal.SelectedValue = Nothing
DdlClienteSucursal.Items.Clear()
Dim objcliente As New ClsClientes
If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
DdlClienteSucursal.DataSource = objcliente.DtResultados DdlClienteSucursal.DataSource = objcliente.DtResultados
Else Else
@@ -352,19 +374,39 @@ Partial Class UserControl_AddMedico
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim SBDiasAtencion As New StringBuilder()
Dim DiasAtencion As String = "" Dim DiasAtencion As String = ""
If ChkLunes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-") Dim ListaDiasAntencion As New List(Of String)
If ChkMartes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkMiercoles.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkJueves.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkViernes.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkSabado.Checked Then SBDiasAtencion.AppendFormat("1-") Else SBDiasAtencion.AppendFormat("0-")
If ChkDomingo.Checked Then SBDiasAtencion.AppendFormat("1") Else SBDiasAtencion.AppendFormat("0")
If ChkLunes.Checked Then
ListaDiasAntencion.Add("L")
End If
If ChkMartes.Checked Then
ListaDiasAntencion.Add("M")
End If
If ChkMiercoles.Checked Then
ListaDiasAntencion.Add("MI")
End If
If ChkJueves.Checked Then
ListaDiasAntencion.Add("J")
End If
If ChkViernes.Checked Then
ListaDiasAntencion.Add("V")
End If
If ChkSabado.Checked Then
ListaDiasAntencion.Add("S")
End If
If ChkDomingo.Checked Then
ListaDiasAntencion.Add("D")
End If
DiasAtencion = String.Join(", ", ListaDiasAntencion)
DiasAtencion = SBDiasAtencion.ToString()
If CveMedico > 0 Then If CveMedico > 0 Then
Dim objVenta As New ClsVentas Dim objVenta As New ClsVentas
@@ -458,6 +500,8 @@ Partial Class UserControl_AddMedico
Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs) Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs)
LimpiarcontrolesDetalle()
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
@@ -481,22 +525,26 @@ Partial Class UserControl_AddMedico
TxtTorre.Text = GvRow.DataKey("Torre") TxtTorre.Text = GvRow.DataKey("Torre")
TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre") TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")
Dim DiasAtencionArray As String() = GvRow.DataKey("DiasAtencion").Split(New Char() {","c})
Dim array As String() = GvRow.DataKey("DiasAtencion").Split(New Char() {"-"c}) For Each s As String In DiasAtencionArray
Select Case s.Trim()
If array.Length = 7 Then Case "L"
If array(0) = "1" Then ChkLunes.Checked = True ChkLunes.Checked = True
If array(1) = "1" Then ChkMartes.Checked = True Case "M"
If array(2) = "1" Then ChkMiercoles.Checked = True ChkMartes.Checked = True
If array(3) = "1" Then ChkJueves.Checked = True Case "MI"
If array(4) = "1" Then ChkViernes.Checked = True ChkMiercoles.Checked = True
If array(5) = "1" Then ChkSabado.Checked = True Case "J"
If array(6) = "1" Then ChkDomingo.Checked = True ChkJueves.Checked = True
Case "V"
ChkViernes.Checked = True
End If Case "S"
ChkSabado.Checked = True
Case "D"
ChkDomingo.Checked = True
End Select
Next
RegistraScript(" $('#DVMedicoClienteSucursal').modal('show');") RegistraScript(" $('#DVMedicoClienteSucursal').modal('show');")
UpModalMedicoClienteSucursal.Update() UpModalMedicoClienteSucursal.Update()

13
Ventas/Ventas.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On Option Strict On
Option Infer On Option Infer On
Imports System.Activities.Expressions
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Diagnostics Imports System.Diagnostics
@@ -31913,7 +31914,7 @@ Partial Class Ventas
CveMetodoPago = Dr("CveMetodoPago33").ToString().ToEntero() CveMetodoPago = Dr("CveMetodoPago33").ToString().ToEntero()
Next Next
If EsRemisionMedica Then If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso EsRemisionMedica Then
TxtObsFact.Text = If(MensajeRemisionesMedicas.ToString().Length > 0, MensajeRemisionesMedicas.ToString().Substring(0, MensajeRemisionesMedicas.ToString().Length - 2), "") TxtObsFact.Text = If(MensajeRemisionesMedicas.ToString().Length > 0, MensajeRemisionesMedicas.ToString().Substring(0, MensajeRemisionesMedicas.ToString().Length - 2), "")
Else Else
TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "") TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "")
@@ -36949,8 +36950,14 @@ Partial Class Ventas
If DdlClientesModal.SelectedValue.ToEntero > 0 Then If DdlClientesModal.SelectedValue.ToEntero > 0 Then
ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero
Else Else
Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia) Dim CveClientePublicoGeneral As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", " RFC = 'XAXX010101000' ").ToEntero
Exit Sub
If CveClientePublicoGeneral > 0 Then
ViewState("CveCliente") = CveClientePublicoGeneral
Else
Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If End If