diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 8e7b1dd34..974bce081 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4934,6 +4934,23 @@ Public Class ClsInventarios
Return Retorno
End Function
+ Public Function GetProductosServiciosAlmacenSeccionClasificacion(CvePS As Integer, CveAlmacen As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionClasificacionGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePS", SqlDbType.Int).Value = CvePS
+ .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el ps de la seccion de almacen..", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+
Public Function RemoveProductosServiciosAlmacenSeccion(CvePSAlmacenSeccion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionRemove")
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 76509068b..af51e439a 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1837,37 +1837,42 @@ Public Class ClsPaginas
Property GlobalDTInvPSSeccionesAlmacen(CveEmpresa As Integer, CveAlmacen As Integer, CvePS As Integer) As DataTable
Get
- Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
- 'sino existe, recarga los datos
- If Application(AppNombre) Is Nothing Then
- 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
+ Dim dtt As DataTable = Nothing
+ Dim ObjInv As New ClsInventarios
+ If ObjInv.GetProductosServiciosAlmacenSeccionClasificacion(CvePS, CveAlmacen, CveEmpresa) Then dtt = ObjInv.DtResultados
+ ObjInv.Dispose()
+ GlobalDTInvPSSeccionesAlmacen = dtt
+ 'Dim AppNombre As String = String.Format("GlobalDTInvPSSeccionesAlmacen-{0}", CveEmpresa)
+ ''sino existe, recarga los datos
+ 'If Application(AppNombre) Is Nothing Then
+ ' 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 CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
- If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
+ ' If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+ ' If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+ ' If CvePS > 0 Then Str.AppendFormat("AND CvePS = {0}", CvePS)
- 'si el PS no tiene definido una seccion, toma las del Almacen
- If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
- Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
- GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
- Dv.Dispose()
- 'sino tiene datos registrados, toma los de almacen
- If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
- GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
- End If
- Else
- 'sino tiene datos registrados, toma los de almacen
- GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
- End If
+ ' 'si el PS no tiene definido una seccion, toma las del Almacen
+ ' If DirectCast(Application(AppNombre), DataTable) IsNot Nothing Then
+ ' Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+ ' GlobalDTInvPSSeccionesAlmacen = Dv.ToTable
+ ' Dv.Dispose()
+ ' 'sino tiene datos registrados, toma los de almacen
+ ' If GlobalDTInvPSSeccionesAlmacen.Rows.Count = 0 Then
+ ' GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+ ' End If
+ ' Else
+ ' 'sino tiene datos registrados, toma los de almacen
+ ' GlobalDTInvPSSeccionesAlmacen = GlobalDTSeccionAlmacen(CveEmpresa, CveAlmacen)
+ ' End If
- Else
- GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
- End If
+ 'Else
+ ' GlobalDTInvPSSeccionesAlmacen = DirectCast(Application(AppNombre), DataTable)
+ 'End If
End Get
Set(value As DataTable)
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 802b59115..520ae6bce 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -41,6 +41,8 @@ Public Class Timbrado
Retorno = New AcuseCancelacionSAT()
End If
Catch ex As Exception
+ Dim Strr As String = String.Format("Error al verificar estatus de cancelacion:{0}", ex.Message)
+ Strr.GuardaLog()
Return Nothing
End Try
diff --git a/App_WebReferences/Cancelacion/Cancelacion.disco b/App_WebReferences/Cancelacion/Cancelacion.disco
new file mode 100644
index 000000000..6a7ff22e0
--- /dev/null
+++ b/App_WebReferences/Cancelacion/Cancelacion.disco
@@ -0,0 +1,6 @@
+
+
+
+
+
+
\ No newline at end of file
diff --git a/App_WebReferences/Cancelacion/cancelacion.wsdl b/App_WebReferences/Cancelacion/Cancelacion1.wsdl
similarity index 71%
rename from App_WebReferences/Cancelacion/cancelacion.wsdl
rename to App_WebReferences/Cancelacion/Cancelacion1.wsdl
index edb3d974d..05d511610 100644
--- a/App_WebReferences/Cancelacion/cancelacion.wsdl
+++ b/App_WebReferences/Cancelacion/Cancelacion1.wsdl
@@ -1,369 +1,496 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Cancela un Cfdi en pruebas
-
-
-
-
- Obtiene el estatus de un Cfdi en producción
-
-
-
-
- Obtiene el estatus de un Cfdi en pruebas
-
-
-
-
- Obtiene los Uuid pendientes de aceptar/rechazar de un Receptor (Producción)
-
-
-
-
- Obtiene los Uuid pendientes de aceptar/rechazar de un Receptor (Pruebas)
-
-
-
-
- Acepta/Rechaza una solicitud pendiente de cancelación (Producción)
-
-
-
-
- Acepta/Rechaza una solicitud pendiente de cancelación (Pruebas)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Cancela un Cfdi en pruebas
+
+
+
+
+ Obtiene el estatus de un Cfdi en producción
+
+
+
+
+ Obtiene el estatus de un Cfdi en pruebas
+
+
+
+
+ Obtiene los Uuid pendientes de aceptar/rechazar de un Receptor (Producción)
+
+
+
+
+ Obtiene los Uuid pendientes de aceptar/rechazar de un Receptor (Pruebas)
+
+
+
+
+ Acepta/Rechaza una solicitud pendiente de cancelación (Producción)
+
+
+
+
+ Acepta/Rechaza una solicitud pendiente de cancelación (Pruebas)
+
+
+
+
+ Obtiene el/los Cfdi(s) relacionado(s) de un UUID de un RFC (Pruebas)
+
+
+
+
+ Obtiene el/los Cfdi(s) relacionado(s) de un UUID de un RFC
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/App_WebReferences/Cancelacion/Reference.svcmap b/App_WebReferences/Cancelacion/Reference.svcmap
index 9a78e9a96..b030e1612 100644
--- a/App_WebReferences/Cancelacion/Reference.svcmap
+++ b/App_WebReferences/Cancelacion/Reference.svcmap
@@ -19,10 +19,11 @@
-
+
-
+
+
diff --git a/App_WebReferences/Cancelacion/configuration.svcinfo b/App_WebReferences/Cancelacion/configuration.svcinfo
index a17bdeb3c..85e827509 100644
--- a/App_WebReferences/Cancelacion/configuration.svcinfo
+++ b/App_WebReferences/Cancelacion/configuration.svcinfo
@@ -2,9 +2,10 @@
-
+
+
-
+
\ No newline at end of file
diff --git a/App_WebReferences/Cancelacion/configuration91.svcinfo b/App_WebReferences/Cancelacion/configuration91.svcinfo
index 02af02716..2e9305310 100644
--- a/App_WebReferences/Cancelacion/configuration91.svcinfo
+++ b/App_WebReferences/Cancelacion/configuration91.svcinfo
@@ -1,10 +1,119 @@
-
+
-
+
- CancelacionSoap
+ CancelacionSoap1
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ StrongWildcard
+
+
+
+
+
+ 65536
+
+
+
+
+
+
+
+
+ System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ 0
+
+
+ System.Text.UTF8Encoding
+
+
+ Buffered
+
+
+
+
+
+ Text
+
+
+ System.ServiceModel.Configuration.BasicHttpSecurityElement
+
+
+ Transport
+
+
+ System.ServiceModel.Configuration.HttpTransportSecurityElement
+
+
+ None
+
+
+ None
+
+
+ System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement
+
+
+ Never
+
+
+ TransportSelected
+
+
+ (Collection)
+
+
+
+
+
+ System.ServiceModel.Configuration.BasicHttpMessageSecurityElement
+
+
+ UserName
+
+
+ Default
+
+
+
+
+
+
+ CancelacionSoap2
@@ -94,7 +203,7 @@
TransportSelected
- (Colección)
+ (Collection)
@@ -112,10 +221,10 @@
-
+
- http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx
+ https://cancel.gofac.com.mx/Cancelacion.asmx
@@ -124,7 +233,7 @@
basicHttpBinding
- CancelacionSoap
+ CancelacionSoap1
Cancelacion.CancelacionSoap
@@ -187,7 +296,7 @@
False
- CancelacionSoap
+ CancelacionSoap1
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index b5f74e352..99b914bed 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -142,7 +142,7 @@ Partial Class Bancos_RepProgramarRecursos
DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind()
- DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+ DdlProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyecto.DataBind()
DtCuentas = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -257,8 +257,8 @@ Partial Class Bancos_RepProgramarRecursos
DdlSubProyecto.Items.Clear()
ListSubProyecto.Items.Clear()
If DdlProyecto.SelectedValue.ToEntero > 0 Then
- DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
- ListSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+ DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+ ListSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
Else
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
ListSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7fce911ba..cf7488197 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1270,14 +1270,10 @@ Partial Class Compras_Compras
' LitHProyecto.Text = "Sucursal"
' 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.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
' divasignaproyecto.Visible = False
@@ -17388,9 +17384,9 @@ Partial Class Compras_Compras
Private Sub CargaSubProyecto()
Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
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))
- End If
+
+ DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
+
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 49bfaa073..69d977884 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2187,12 +2187,16 @@ Partial Class Inventarios_EntradasSalidas
End If
If CBool(dr("AplicaSeccion")) Then
divSeccionAlmacen.Visible = True
-
+ DdlSeccionAlmacen.Items.Clear()
+ DdlSeccionAlmacen.ClearSelection()
+ DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero)
+ DdlSeccionAlmacen.DataBind()
End If
If CBool(dr("AplicaCaducidad")) Then
divCaducidad.Visible = True
End If
+
End If
End If
@@ -4391,7 +4395,7 @@ Partial Class Inventarios_EntradasSalidas
TxtnLote.Text = ""
TxtnFechaCaducidad.Text = ""
TxtObservacionesdetalle.Text = ""
- DdlSeccionAlmacen.SelectedValue = "-1"
+ DdlSeccionAlmacen.ClearSelection()
LkAgregarDetalle.Text = "Agregar"
If DdlMonedaTC.SelectedValue.ToEntero = 2 Then
VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201))
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index ea1db1741..b0aab111d 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1273,6 +1273,8 @@ Partial Class Inventarios_RecepcionAlmacen
If dtsec.Rows.Count = 1 Then
e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedIndex = 0
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
e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -3118,7 +3120,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
Dim CvePrePoliza As Integer = 0
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
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("TipoCambio") = drt("TipoCambio")
drc("CveProveedor") = drt("CveProveedor")
+ drc("SubTotalTC") = drt("SubTotalTC")
DtTempCompras.Rows.Add(drc)
Next
End If
-
-
Else
ErrorMovInv = True
End If
@@ -3182,6 +3183,9 @@ Partial Class Inventarios_RecepcionAlmacen
ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL()
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
'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
Dim CveComp As Integer = dr("CveCompra").ToString.ToEntero
'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 ImporteAbonoME As Decimal = 0
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
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
End If
End If
@@ -3228,7 +3232,7 @@ Partial Class Inventarios_RecepcionAlmacen
End If
End If
- If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+ If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True