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

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

Browse Source
This commit is contained in:
HECTOR JAVIER RODRIGUEZ FLORES
2021-02-04 17:57:39 -07:00
parent fa711ec35e 053a50845a
commit 0e3fdfd87f
12 changed files with 6117 additions and 6095 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsInventarios.vb
View File

@@ -4602,7 +4602,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean
Public Function GetFletes(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1, Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha, Optional OpcionInventario As Integer = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_FletesGet")
With SqlAdapter.SelectCommand.Parameters
@@ -4614,6 +4614,7 @@ Public Class ClsInventarios
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveFlete", SqlDbType.Int).Value = CveFlete
.Add("@OpcionInventario", SqlDbType.Int).Value = OpcionInventario
End With
Try
SqlAdapter.Fill(Data)

2
App_Code/ClsProductosServicios.vb
View File

@@ -307,7 +307,7 @@ Public Class ClsProductosServicios
ClaveImpuestoUnidadMedida = Data.Rows(0)("ClaveImpuestoUM").ToString
ClaveCategoriaToxicidad = Data.Rows(0)("ClaveCategoriaToxicidad").ToString
EsOutSourcing = Data.Rows(0)("EsOutSourcing").ToString = "True"
EsOutSourcing = Data.Rows(0)("PrecioLibre").ToString = "True"
PrecioLibre = Data.Rows(0)("PrecioLibre").ToString = "True"
End If
Retorno = True

2
Compras/Compras.aspx.vb
View File

@@ -19628,7 +19628,7 @@ Private Sub CargaNCINV()
If DdlFletes.SelectedValue.ToEntero > 0 Then
Dim ObjInventario As New ClsInventarios
Dim Dr As DataRow = Nothing
If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero) Then
If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, DdlFletes.SelectedValue.ToEntero, OpcionInventario:=1) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
Dr = ObjInventario.DtResultados.Rows(0)
End If

4
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2357,8 +2357,8 @@ Partial Class PopUpVerFactura
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
params.Add(New ReportParameter("Destino", Almacen))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))

10
GPS/WizardDispositivos.aspx.cs
View File

@@ -153,7 +153,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
if (CveDispositivo < 0)
{
TabContainer.ActiveTabIndex = 0;
Alert("Debe guardar el dispositivo primero");
Alert("Debe guardar el dispositivo primero",ModExtensiones.TipoMensaje.MsgAdvertencia );
}
}
@@ -376,7 +376,13 @@ public partial class GPS_WizardDispositivos : ClsPaginas
CargaDatos(CveDispositivo);
Updatos.Update();
string script = "";
if (GPSNEW == 1) { TabContainer.ActiveTabIndex = 1; script = $"RegresaValor({CveDispositivo})"; }
if (GPSNEW == 1) {
TabContainer.ActiveTabIndex = 1; script = $"RegresaValor({CveDispositivo})";
ClsSisMail correo = new ClsSisMail();
Correo.SendMail(UsuarioActual.EmpresaNotificaciones, "paola@adssistemas.mx;Caudillo.90d@gmail.com", "Alta nuevo dispositivo",
$"se le informa la alta de un nuevo dispositivo en la empresa \"{UsuarioActual.Empresa.Empresa}\"\r\nIMEI : \"{IMEI}\"\r\nSerie : \"{Serie}\"\r\nModelo : \"{modelo}\"");
}
Alert("El dispositivo y sus configuraciones, se han guardado correctamente", ModExtensiones.TipoMensaje.MsgInformacion, script);
if (TipoDispositivo == 2)

2
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End Sub
Private Sub CargaCombos()
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,14,16)")
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,12,14,16)")
DdlAlmacen.DataSource = DtAlmacenes
DdlAlmacen.DataBind()

2
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -952,7 +952,7 @@ Partial Class Inventarios_RecepcionAlmacen
ElseIf CveTipoCompra = 10 Then
CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
CargaAlmacenes(-1, "21,2", CveTipoCompra)
CargaAlmacenes(-1, "21,2,27", CveTipoCompra)
Else
CargaAlmacenes(-1)
End If

7
LogIn.aspx.vb
View File

@@ -205,12 +205,7 @@ Partial Class LogIn
ADSSessionConfig.sessionUser = Usuario
ADSSessionConfig.sessionDpage = False
ObjUsuario.Dispose()
If Usuario IsNot Nothing AndAlso (
Usuario.CveRol = 1 OrElse (
(isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse
((Not isgps) AndAlso (Usuario.CvePlataforma <> 3 AndAlso Usuario.CveRol <> 1200))
)
) Then
If Usuario IsNot Nothing Then
If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
CreaObjetoEmpresa(Usuario)

11
RH/Personal.aspx
View File

@@ -3923,12 +3923,21 @@
</div>
</div>
<br />
<div runat="server" id="divSerie" class="row" style="width: 100%;" visible="false">
<div class="col-md-1" style="width: 30%; text-align: right">
<asp:Label Text="Serie: " runat="server" />
</div>
<div class="col-md-1" style="width: 70%">
<asp:TextBox runat="server" ID="TxtLiberarSerie" CssClass="form-control input-sm " Width="100%"></asp:TextBox>
</div>
</div>
<br />
<div class="row" style="width: 100%;">
<div class="col-md-1" style="width: 30%; text-align: right">
<asp:Label runat="server" ID="LblCantidadResguardo">Cantidad:</asp:Label>
</div>
<div class="col-md-1" style="width: 70%">
<asp:TextBox runat="server" ID="TxtCantidadResguardo" CssClass="form-control " Width="100%"></asp:TextBox>
<asp:TextBox runat="server" ID="TxtCantidadResguardo" CssClass="form-control input-sm " Width="100%"></asp:TextBox>
<asp:RangeValidator ID="RvTxtCantidadResguardo" Display="Dynamic" ControlToValidate="TxtCantidadResguardo" runat="server" MinimumValue="0" MaximumValue="1" Type="Integer" ErrorMessage="Se supera la cantidad maxima disponibled" ValidationGroup="GpoResguardo"></asp:RangeValidator>
</div>
</div>

12160
RH/Personal.aspx.vb
View File

File diff suppressed because it is too large Load Diff

4
Ventas/ProductosServicios.aspx
View File

@@ -575,6 +575,10 @@
<label>Retiene 6% de IVA por Servicios</label>
<asp:CheckBox ID="ChkEsOutSourcing" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
</div>
<div class="form-group form-md-line-input input-iconright" title="El precio no está determinado por el valor de la lista de precio, este es manual.">
<label>Precio Libre de Lista</label>
<asp:CheckBox ID="ChkPrecioLibre" CssClass="make-switchsd" data-size="small" runat="server" Checked="False" />
</div>
</div>
</div>
</div>

5
Ventas/ProductosServicios.aspx.vb
View File

@@ -901,6 +901,7 @@ Partial Class ProductosyServicios
LnkUnificar.Visible = True
ChkEsOutSourcing.Checked = ObjProductosServicios.EsOutSourcing
ChkPrecioLibre.Checked = ObjProductosServicios.PrecioLibre
Else
Alert("El Producto o Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -1237,7 +1238,7 @@ Partial Class ProductosyServicios
CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) > 0 Then
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
ViewState("CvePS") = ObjProductosServicios.CvePS
For Each GVR As GridViewRow In GvImpuestosLocales.Rows
If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1286,7 +1287,7 @@ Partial Class ProductosyServicios
CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) Then
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked) Then
If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
TieneError = True