Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -1249,7 +1249,7 @@ Public Class ClsInventarios
|
||||
''' <param name="CveCompra"></param>
|
||||
''' <param name="CveMovimientoRelacionado">Cuando sea cancelacion/devolucion hay que mandar este dato que seria la salida de almacen</param>
|
||||
''' <returns></returns>
|
||||
Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1) As Boolean
|
||||
Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1, Optional ValidaUsadosCompra As Boolean = False) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Inv_MovimientosDetalleVirtualGet")
|
||||
|
||||
@@ -1258,12 +1258,18 @@ Public Class ClsInventarios
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
|
||||
.Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado
|
||||
.Add("@ValidaUsadosCompra", SqlDbType.Bit).Value = ValidaUsadosCompra
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
If ex.Message.Contains("Usados sistema") Then
|
||||
OnError($"Los usados de la compra no coinciden. {ex.Message}", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
Else
|
||||
OnError("Ocurrió un error al obtener los movimientos virtuales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End If
|
||||
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
@@ -157,14 +157,13 @@
|
||||
}
|
||||
|
||||
.GastoIndirectoOpciones {
|
||||
margin-left:auto;
|
||||
margin-right:auto;
|
||||
width:400px;
|
||||
margin-left: auto;
|
||||
margin-right: auto;
|
||||
width: 400px;
|
||||
}
|
||||
|
||||
.GastoIndirectoOpciones td
|
||||
{
|
||||
text-align:right /* Or any other value */
|
||||
.GastoIndirectoOpciones td {
|
||||
text-align: right; /* Or any other value */
|
||||
}
|
||||
/*IPP*/
|
||||
</style>
|
||||
@@ -4788,7 +4787,14 @@
|
||||
<ajax:TabPanel ID="TabNCAlmacen" runat="server" HeaderText="Almacen">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-12 h4 text-right">
|
||||
<div class="col-md-6 text-left">
|
||||
<asp:UpdatePanel ID="UpMostrarTodos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:CheckBox ID="ChkMostrarTodos" Text="Mostrar Todos" runat="server" OnCheckedChanged="ChkMostrarTodos_CheckedChanged" AutoPostBack="true" />
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div class="col-md-6 h4 text-right">
|
||||
Saldo: $<asp:Label Text="0.00" ID="LbNCInvSaldoAlmacen" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -6828,14 +6828,22 @@ Partial Class Compras_Compras
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
|
||||
|
||||
Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
|
||||
Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
|
||||
Select New With
|
||||
{
|
||||
.Total = dr2.Field(Of Double)("Total")
|
||||
}).Sum(Function(item) item.Total)
|
||||
Dim Valor As Decimal = 0
|
||||
For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows
|
||||
Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal()
|
||||
If TotalTamanio > 0 Then
|
||||
Valor += TotalTamanio
|
||||
End If
|
||||
Next
|
||||
|
||||
importeMovimiento += Valor.ToDecimal
|
||||
'Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
|
||||
' Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
|
||||
' Select New With
|
||||
' {
|
||||
' .Total = dr2.Field(Of Double)("Total")
|
||||
' }).Sum(Function(item) item.Total)
|
||||
|
||||
importeMovimiento += Valor
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
End If
|
||||
|
||||
@@ -19063,11 +19071,13 @@ Partial Class Compras_Compras
|
||||
CargaAnticipos(CveProveedor, If(ChkNCInv.Checked, "NC", "-1"))
|
||||
UpAnticipos.Update()
|
||||
End Sub
|
||||
Private Sub CargaNCINV()
|
||||
Private Sub CargaNCINV(Optional ShowAllPendientes As Boolean = False)
|
||||
|
||||
Dim SaldoAnticipo = 0.0
|
||||
Dim CveCompras As String = ""
|
||||
|
||||
If ChkNCInvNC.Checked Then
|
||||
If Not ShowAllPendientes Then
|
||||
For Each gvr As GridViewRow In GvFacturaNC.Rows
|
||||
If gvr.FCCheckBox("ChkFacturaNC") IsNot Nothing AndAlso gvr.FCCheckBox("ChkFacturaNC").Checked Then
|
||||
SaldoAnticipo += gvr.FCTextBox("TxtImporte").Text.ToDouble
|
||||
@@ -19078,6 +19088,7 @@ Private Sub CargaNCINV()
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
For Each gvr As GridViewRow In GVAnticipos.Rows
|
||||
If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
|
||||
@@ -19092,7 +19103,6 @@ Private Sub CargaNCINV()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
LbNCInvSaldo.Text = SaldoAnticipo.FormatoNumero()
|
||||
LbNCInvSaldoAlmacen.Text = SaldoAnticipo.FormatoNumero()
|
||||
|
||||
@@ -19109,11 +19119,14 @@ Private Sub CargaNCINV()
|
||||
GVNCInv.DataSource = DtPendientesAlmacen
|
||||
GVNCInv.DataBind()
|
||||
|
||||
If Not String.IsNullOrEmpty(CveCompras) Then
|
||||
DtPendientesAlmacen = DtPendientesAlmacen.FiltraParametros($"CveCompra IN ({CveCompras})")
|
||||
End If
|
||||
|
||||
GVNCInvAlmacen.DataSource = DtPendientesAlmacen
|
||||
GVNCInvAlmacen.DataBind()
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
If ChkNCInvNC.Checked Then
|
||||
Alert("Niguna de las facturas seleccionadas cuenta con productos pendientes de darles entrada.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -20373,7 +20386,7 @@ Private Sub CargaNCINV()
|
||||
|
||||
Protected Sub BtnFacturaNC_Click(sender As Object, e As EventArgs)
|
||||
If ChkNCInvNC.Checked Then
|
||||
CargaNCINV()
|
||||
CargaNCINV(ShowAllPendientes:=False)
|
||||
|
||||
TabModoNC.ActiveTabIndex = 1
|
||||
TabModoNC_ActiveTabChanged(TabModoNC, EventArgs.Empty)
|
||||
@@ -20720,9 +20733,11 @@ Private Sub CargaNCINV()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub ChkMostrarTodos_CheckedChanged(sender As Object, e As EventArgs)
|
||||
CargaNCINV(ShowAllPendientes:=True)
|
||||
UpFacturaNC.Update()
|
||||
UpMostrarTodos.Update()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class MMensajeDevolucion
|
||||
|
||||
@@ -2799,7 +2799,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
|
||||
'VERIFICA SI TIENE ALMACEN VIRTUAL
|
||||
If CveAlmacenVirtual > 0 Then
|
||||
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
||||
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
|
||||
DtPSVirtual = ObjInventario.DtResultados
|
||||
End If
|
||||
|
||||
@@ -2994,7 +2994,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
CveMovimientoRef = CveMovimiento
|
||||
End If
|
||||
|
||||
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa) Then
|
||||
If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoRef, UsuarioActual.CveEmpresa, CveCompra:=CveCompraSurtir, ValidaUsadosCompra:=SumarImporteUsados) Then
|
||||
DtPSVirtual = ObjInventario.DtResultados
|
||||
End If
|
||||
|
||||
|
||||
@@ -846,8 +846,6 @@ Partial Class ProductosyServicios
|
||||
DdlMoneda.SelectedValueExist(ObjProductosServicios.CveMoneda)
|
||||
TxtRetISR.Text = (ObjProductosServicios.RetISR * 100).ToString
|
||||
|
||||
DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
|
||||
|
||||
DdlModelo.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveModelo").ToString)
|
||||
DdlMedida.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveMedida").ToString)
|
||||
DdlRin.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveRinTamaño").ToString)
|
||||
@@ -862,6 +860,34 @@ Partial Class ProductosyServicios
|
||||
|
||||
Try
|
||||
DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing)
|
||||
|
||||
DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
|
||||
If DdlTamanio.SelectedValue.ToEntero() > 0 Then
|
||||
Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
|
||||
|
||||
Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
|
||||
|
||||
'SI ES MOTOBATERIA
|
||||
If DdlClasificacion.SelectedValue = "20517" Then
|
||||
DebeTenerTamanio = True
|
||||
End If
|
||||
|
||||
'VALIDA QUE EL PRODUCTO, NO ES ACUMULADOR QUE NO TENGA TAMAÑO
|
||||
If Not DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() > 0 Then
|
||||
Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' no debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
|
||||
RfvDdlTamanio.Visible = False
|
||||
CERfvDdlTamanio.Enabled = False
|
||||
End If
|
||||
|
||||
'VALIDA QUE EL PRODUCTO, SI ES ACUMULADOR QUE TENGA TAMAÑO
|
||||
If DebeTenerTamanio AndAlso DdlTamanio.SelectedValue.ToEntero() <= 0 Then
|
||||
Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
DvTamanio.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
@@ -1195,23 +1221,48 @@ Partial Class ProductosyServicios
|
||||
|
||||
End If
|
||||
|
||||
Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero
|
||||
|
||||
'VALIDAR TAMAÑOS Y ACUMULADORES
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
|
||||
|
||||
Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
|
||||
|
||||
'SI ES MOTOBATERIA
|
||||
If DdlClasificacion.SelectedValue = "20517" Then
|
||||
DebeTenerTamanio = True
|
||||
End If
|
||||
|
||||
'VALIDA QUE EL PRODUCTO, NO ES ACUMULADOR QUE NO TENGA TAMAÑO
|
||||
If Not DebeTenerTamanio AndAlso CveTamaño > 0 Then
|
||||
Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' no debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
|
||||
Return
|
||||
End If
|
||||
'VALIDA QUE EL PRODUCTO, SI ES ACUMULADOR QUE TENGA TAMAÑO
|
||||
If DebeTenerTamanio AndAlso CveTamaño <= 0 Then
|
||||
Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
|
||||
Return
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Dim ObjProductosServicios As New ClsProductosServicios()
|
||||
Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
|
||||
|
||||
Dim TieneError = False
|
||||
Dim AccionJS = ""
|
||||
|
||||
Try
|
||||
|
||||
Dim EsPaquete As Integer = If(gvPaqueteDetalle.Rows.Count = 0, 0, 1)
|
||||
Dim CveMetodoInv As Integer = If(UsuarioActual.Empresa.UsaInventarios, ddlMetodos.SelectedValue.ToEntero, -1)
|
||||
|
||||
|
||||
Dim CveProveedor As Integer = -1
|
||||
If DdlProveedor.txtValue.Value.ToEntero > 0 Then
|
||||
CveProveedor = DdlProveedor.txtValue.Value.ToEntero
|
||||
End If
|
||||
|
||||
|
||||
Dim CveMarca As Integer = 0
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
|
||||
|
||||
@@ -1236,7 +1287,7 @@ Partial Class ProductosyServicios
|
||||
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
|
||||
CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
|
||||
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
|
||||
CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
|
||||
CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
|
||||
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(), PrecioLibre:=ChkPrecioLibre.Checked) > 0 Then
|
||||
@@ -1276,7 +1327,7 @@ Partial Class ProductosyServicios
|
||||
Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
|
||||
|
||||
If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, txtcodigo2.text.trim, TxtCodigoBarras.Text.Trim, PSS,
|
||||
If ObjProductosServicios.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtCodigo2.Text.Trim, TxtCodigoBarras.Text.Trim, PSS,
|
||||
TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True,
|
||||
ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero,
|
||||
CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim,
|
||||
@@ -1284,7 +1335,7 @@ Partial Class ProductosyServicios
|
||||
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal,
|
||||
CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
|
||||
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
|
||||
CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
|
||||
CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
|
||||
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,
|
||||
@@ -1366,11 +1417,13 @@ Partial Class ProductosyServicios
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
If ObjProductosServicios.CvePS > 0 And Not TieneError Then
|
||||
TieneError = GuardaEcommerce()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
TieneError = True
|
||||
OnError("Ocurrió un error al guardar al guardar el producto/servicio.", ex)
|
||||
End Try
|
||||
|
||||
If Not TieneError Then
|
||||
ObjProductosServicios.Commit()
|
||||
@@ -2103,13 +2156,11 @@ Partial Class ProductosyServicios
|
||||
MostarOcultarDivTamanio(True)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
OnError("Ocurrió un error al mostrar los tamaños", ex)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub MostarOcultarDivTamanio(Mostrar As Boolean)
|
||||
|
||||
|
||||
Private Sub MostarOcultarDivTamanio(Mostrar As Boolean)
|
||||
If Mostrar And UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
DvTamanio.Visible = True
|
||||
Else
|
||||
@@ -2117,7 +2168,6 @@ Partial Class ProductosyServicios
|
||||
DdlTamanio.SelectedValueExist("-1")
|
||||
End If
|
||||
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user