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

secciones

Browse Source
This commit is contained in:
rrene
2020-07-30 19:23:23 -07:00
parent 6debb0ca6d
commit a150948655
5 changed files with 57 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
App_Code/ClsPaginas.vb
View File

@@ -1837,37 +1837,42 @@ Public Class ClsPaginas
Property GlobalDTInvPSSeccionesAlmacen(CveEmpresa As Integer, CveAlmacen As Integer, CvePS As Integer) As DataTable Property GlobalDTInvPSSeccionesAlmacen(CveEmpresa As Integer, CveAlmacen As Integer, CvePS As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa) Dim dtt As DataTable = Nothing
'sino existe, recarga los datos Dim ObjInv As New ClsInventarios
If Application(AppNombre) Is Nothing Then If ObjInv.GetProductosServiciosAlmacenSeccionClasificacion(CvePS, CveAlmacen, CveEmpresa) Then dtt = ObjInv.DtResultados
Dim ObjInv As New ClsInventarios ObjInv.Dispose()
If ObjInv.GetProductosServiciosAlmacenSeccion(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados GlobalDTInvPSSeccionesAlmacen = dtt
ObjInv.Dispose() 'Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
End If ''sino existe, recarga los datos
If CveEmpresa <> -1 Then 'If Application(AppNombre) Is Nothing Then
Dim Str As New StringBuilder ' Dim ObjInv As New ClsInventarios
' If ObjInv.GetProductosServiciosAlmacenSeccion(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados
' ObjInv.Dispose()
'End If
'If CveEmpresa <> -1 Then
' Dim Str As New StringBuilder
If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa) ' If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen) ' If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS) ' If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
'si el PS no tiene definido una seccion, toma las del Almacen ' 'si el PS no tiene definido una seccion, toma las del Almacen
If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then ' If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) ' Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
GlobalDTInvPSSeccionesAlmacen = Dv.ToTable ' GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
Dv.Dispose() ' Dv.Dispose()
'sino tiene datos registrados, toma los de almacen ' 'sino tiene datos registrados, toma los de almacen
If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then ' If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen) ' GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
End If ' End If
Else ' Else
'sino tiene datos registrados, toma los de almacen ' 'sino tiene datos registrados, toma los de almacen
GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen) ' GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
End If ' End If
Else 'Else
GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable) ' GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
End If 'End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)

2
App_Code/Timbrado.vb
View File

@@ -41,6 +41,8 @@ Public Class Timbrado
Retorno = New AcuseCancelacionSAT() Retorno = New AcuseCancelacionSAT()
End If End If
Catch ex As Exception Catch ex As Exception
Dim Strr As String = String.Format("Error al verificar estatus de cancelacion:{0}", ex.Message)
Strr.GuardaLog()
Return Nothing Return Nothing
End Try End Try

14
Compras/Compras.aspx.vb
View File

@@ -1270,14 +1270,10 @@ Partial Class Compras_Compras
' LitHProyecto.Text = "Sucursal" ' LitHProyecto.Text = "Sucursal"
' DdlSubProyecto.Items.Clear() ' DdlSubProyecto.Items.Clear()
' DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' DdlSubProyecto.DataBind()
' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' DdlAsignaSubProyecto.Items.Clear() ' DdlAsignaSubProyecto.Items.Clear()
' DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' DdlAsignaSubProyecto.DataBind()
' DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' divproyecto.Visible = False ' divproyecto.Visible = False
' divasignaproyecto.Visible = False ' divasignaproyecto.Visible = False
@@ -17388,9 +17384,9 @@ Partial Class Compras_Compras
Private Sub CargaSubProyecto() Private Sub CargaSubProyecto()
Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1) Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
If CveProyecto > 0 Then
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
End If
DdlSubProyecto.DataBind() DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub

8
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2187,12 +2187,16 @@ Partial Class Inventarios_EntradasSalidas
End If End If
If CBool(dr("AplicaSeccion")) Then If CBool(dr("AplicaSeccion")) Then
divSeccionAlmacen.Visible = True divSeccionAlmacen.Visible = True
DdlSeccionAlmacen.Items.Clear()
DdlSeccionAlmacen.ClearSelection()
DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
DdlSeccionAlmacen.DataBind()
End If End If
If CBool(dr("AplicaCaducidad")) Then If CBool(dr("AplicaCaducidad")) Then
divCaducidad.Visible = True divCaducidad.Visible = True
End If End If
End If End If
End If End If
@@ -4391,7 +4395,7 @@ Partial Class Inventarios_EntradasSalidas
TxtnLote.Text = "" TxtnLote.Text = ""
TxtnFechaCaducidad.Text = "" TxtnFechaCaducidad.Text = ""
TxtObservacionesdetalle.Text = "" TxtObservacionesdetalle.Text = ""
DdlSeccionAlmacen.SelectedValue = "-1" DdlSeccionAlmacen.ClearSelection()
LkAgregarDetalle.Text = "Agregar" LkAgregarDetalle.Text = "Agregar"
If DdlMonedaTC.SelectedValue.ToEntero = 2 Then If DdlMonedaTC.SelectedValue.ToEntero = 2 Then
VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201)) VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201))

18
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1273,6 +1273,8 @@ Partial Class Inventarios_RecepcionAlmacen
If dtsec.Rows.Count = 1 Then If dtsec.Rows.Count = 1 Then
e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedIndex = 0 e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedIndex = 0
e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
Else 'si es mayor a uno que por default seleccione el primero, que seria el predeterminado
e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedValueExist(dtsec.FiltroPrimeroValor("CveSeccionAlmacen", "Predeterminado = 1"))
End If End If
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -3118,7 +3120,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
Dim CvePrePoliza As Integer = 0 Dim CvePrePoliza As Integer = 0
Dim UsaComplementariaCostoIndirecto As Boolean = False Dim UsaComplementariaCostoIndirecto As Boolean = False
Dim ConceptoPrePoliza As String = LbProveedor.Text Dim ConceptoPrePoliza As String = String.Format("{0}-{1}", LbProveedor.Text, HLFolio.Text)
If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
@@ -3164,13 +3166,12 @@ Partial Class Inventarios_RecepcionAlmacen
drc("SubTotal") = drt("SubTotal") drc("SubTotal") = drt("SubTotal")
drc("TipoCambio") = drt("TipoCambio") drc("TipoCambio") = drt("TipoCambio")
drc("CveProveedor") = drt("CveProveedor") drc("CveProveedor") = drt("CveProveedor")
drc("SubTotalTC") = drt("SubTotalTC")
DtTempCompras.Rows.Add(drc) DtTempCompras.Rows.Add(drc)
Next Next
End If End If
Else Else
ErrorMovInv = True ErrorMovInv = True
End If End If
@@ -3182,6 +3183,9 @@ Partial Class Inventarios_RecepcionAlmacen
ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL() Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL()
Dim IdCtaContableCostoInd As Integer = 0 Dim IdCtaContableCostoInd As Integer = 0
'si reciben parcialidades de producto. en base al total de la importacion y lo recibido.
Dim PorcentajeRecepcionCompras As Decimal = TotalCosto / DtTempCompras.SUMD("SubTotalTC")
Dim ConceptoPartida As String = String.Format("{0}- Inv#{1}", HLFolio.Text, InvFolio)
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
'se recorren las facturas a descontar el recepción 'se recorren las facturas a descontar el recepción
@@ -3190,7 +3194,7 @@ Partial Class Inventarios_RecepcionAlmacen
For Each dr As DataRow In DtTempCompras.Rows For Each dr As DataRow In DtTempCompras.Rows
Dim CveComp As Integer = dr("CveCompra").ToString.ToEntero Dim CveComp As Integer = dr("CveCompra").ToString.ToEntero
'el porcentaje solo aplica a las facturas de costo indirecto 'el porcentaje solo aplica a las facturas de costo indirecto
Dim SubTotalPartida As Decimal = dr("SubTotal").ToString.ToDecimal * If(dr("TipoCompra").ToString = "CI", PorcentajeCompraImportacion, 1) Dim SubTotalPartida As Decimal = dr("SubTotal").ToString.ToDecimal * If(dr("TipoCompra").ToString = "CI", PorcentajeCompraImportacion, 1) * PorcentajeRecepcionCompras
Dim ImporteAbono As Decimal = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal).RoundSQL Dim ImporteAbono As Decimal = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal).RoundSQL
Dim ImporteAbonoME As Decimal = 0 Dim ImporteAbonoME As Decimal = 0
Dim CveConceptoCostoIndirecto As Integer = If(CveImportacionSurtir > 0, 240, 237) Dim CveConceptoCostoIndirecto As Integer = If(CveImportacionSurtir > 0, 240, 237)
@@ -3207,10 +3211,10 @@ Partial Class Inventarios_RecepcionAlmacen
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, InvFolio, CveConceptoCostoIndirecto, InvFolio, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
' si tiene valor es que hay complementaria ' si tiene valor es que hay complementaria
If ImporteAbonoME > 0 Then If ImporteAbonoME > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, InvFolio, If(CveImportacionSurtir > 0, 242, 239), InvFolio, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, If(CveImportacionSurtir > 0, 242, 239), ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
End If End If
@@ -3228,7 +3232,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If End If
End If End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True ErrorMovInv = True