-- cambios E140. recolecciones
This commit is contained in:
@@ -1761,7 +1761,6 @@ Partial Class Compras_Compras
|
||||
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("Garantía", "12"))
|
||||
DdlTipoCompra.Items.Add(New ListItem("Recolección", "14"))
|
||||
Case "T"
|
||||
DdlTipoCompra.Items.Clear()
|
||||
DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
|
||||
@@ -4041,7 +4040,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If CierrePeriodo Then
|
||||
Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
@@ -4139,7 +4137,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(538).ToEntero = 1 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(538) = "1" Then
|
||||
If TmpDT.MIN("CvePS").ToEntero <= 0 Then
|
||||
Alert("Todos los Productos/Servicios deben estar registrados o aliados a un productos ya registrado.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
@@ -4190,7 +4188,7 @@ Partial Class Compras_Compras
|
||||
If GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True Then
|
||||
For Each Dr As DataRow In DtInv.Rows
|
||||
|
||||
If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
|
||||
If Dr("CveMetodoInventario").ToString = "5" Then
|
||||
Cantidad = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS").ToString)).Rows.Count
|
||||
If Cantidad < Dr("Cantidad").ToString.ToEntero Then
|
||||
Alert("No hay productos a los que no se le ha asociado Serie", TipoMensaje.MsgError)
|
||||
@@ -4347,7 +4345,7 @@ Partial Class Compras_Compras
|
||||
UM.Dispose()
|
||||
PSS.Dispose()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue.Contiene("12", "14") Then 'cuando es garantía, debe de especificar la salida de almacen
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue.Contiene("12") Then 'cuando es garantía, debe de especificar la salida de almacen
|
||||
If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then
|
||||
Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
@@ -4382,28 +4380,25 @@ Partial Class Compras_Compras
|
||||
Dim EntradaComoGastoConAlmacen As Boolean = False
|
||||
If GvInv.Rows.Count > 0 AndAlso GvInv.HeaderRow.FCCheckBox("cbAll").Checked Then
|
||||
|
||||
Dim CvealamcenSeleccionado As Integer = -1
|
||||
Dim CvealmacenSeleccionado As Integer = -1
|
||||
|
||||
For Each GvRow As GridViewRow In GvInv.Rows
|
||||
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||
CvealamcenSeleccionado = GvRow.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
|
||||
If CvealamcenSeleccionado > 0 Then
|
||||
CvealmacenSeleccionado = GvRow.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
|
||||
If CvealmacenSeleccionado > 0 Then
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If CvealamcenSeleccionado > 0 Then
|
||||
Dim ModalidadAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CvealamcenSeleccionado).FiltroPrimeroValor("CveModalidad").ToEntero
|
||||
If CvealmacenSeleccionado > 0 Then
|
||||
Dim ModalidadAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CvealmacenSeleccionado).FiltroPrimeroValor("CveModalidad").ToEntero
|
||||
If ModalidadAlmacen = 0 Then
|
||||
EntradaComoGastoConAlmacen = True
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'si hay necesidad de actualizar el globaldtps
|
||||
If RegeneraPS Then
|
||||
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
|
||||
@@ -4455,7 +4450,7 @@ Partial Class Compras_Compras
|
||||
Dim ObjAcar As New ClsAcarreos(ObjCompras.IniciaTransacSQL())
|
||||
Dim ObjCGame As New ClsCGame(ObjCompras.IniciaTransacSQL())
|
||||
Dim ObjProductosServicios As New ClsProductosServicios(ObjCompras.IniciaTransacSQL())
|
||||
|
||||
Dim ObjGrales As New ClsGenerales(ObjCompras.IniciaTransacSQL())
|
||||
|
||||
Dim ObjContaAC As ClsContPAQi = Nothing
|
||||
|
||||
@@ -5103,13 +5098,19 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
'Vincula Vales
|
||||
If IdVale.Count > 0 Then
|
||||
For Each cve As Integer In IdVale
|
||||
If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
ErrorAF = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
'If IdVale.Count > 0 Then
|
||||
' For Each cve As Integer In IdVale
|
||||
' If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
' ErrorAF = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
'End If
|
||||
|
||||
If DdlTipoCompra.SelectedValue = "14" Then 'recolección
|
||||
If Not ObjGrales.UpdateInvEntregaAlmacenEstatus(DdlRecoleccion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2, CveCompra) Then
|
||||
ErrorDetalles = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
|
||||
@@ -5290,11 +5291,11 @@ Partial Class Compras_Compras
|
||||
CveConceptoMovimiento = 13
|
||||
tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
|
||||
End If
|
||||
'recolección
|
||||
If DdlTipoCompra.SelectedValue = "14" Then 'recolección
|
||||
CveConceptoMovimiento = 42
|
||||
tCveEntregaAlmacen = DdlRecoleccion.SelectedValue.ToEntero
|
||||
End If
|
||||
''recolección
|
||||
'If DdlTipoCompra.SelectedValue = "14" Then 'recolección
|
||||
' CveConceptoMovimiento = 42
|
||||
' tCveEntregaAlmacen = DdlRecoleccion.SelectedValue.ToEntero
|
||||
'End If
|
||||
End If
|
||||
|
||||
If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then
|
||||
@@ -6323,7 +6324,7 @@ Partial Class Compras_Compras
|
||||
Dim RegistroCuentaPuente As Boolean = False
|
||||
'NC CON PRODUCTOS - CUENTA PUENTE
|
||||
|
||||
If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then
|
||||
If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then
|
||||
RegistraConcepto225 = True
|
||||
End If
|
||||
|
||||
@@ -10229,7 +10230,7 @@ Partial Class Compras_Compras
|
||||
If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False
|
||||
|
||||
Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)"
|
||||
If DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then StrTipo = "CveTipoAlmacen IN (21)"
|
||||
If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)"
|
||||
If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27"
|
||||
e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo)
|
||||
|
||||
@@ -13553,44 +13554,23 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
|
||||
Private Sub BtnValesCombustibleVer_Click(sender As Object, e As EventArgs) Handles BtnValesCombustibleVer.Click
|
||||
'Private Sub BtnValesCombustibleVer_Click(sender As Object, e As EventArgs) Handles BtnValesCombustibleVer.Click
|
||||
|
||||
Dim AF As New ClsAF
|
||||
' Dim AF As New ClsAF
|
||||
|
||||
If AF.GetValesCombustible(-1, -1, -1, CveProveedor, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
GvVales.DataSource = AF.DtResultados
|
||||
End If
|
||||
' If AF.GetValesCombustible(-1, -1, -1, CveProveedor, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, -1, -1) Then
|
||||
' GvVales.DataSource = AF.DtResultados
|
||||
' End If
|
||||
|
||||
AF.Dispose()
|
||||
GvVales.DataBind()
|
||||
DivValesCombustible.Visible = True
|
||||
RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
|
||||
UPPValesCombustible.Update()
|
||||
End Sub
|
||||
' AF.Dispose()
|
||||
' GvVales.DataBind()
|
||||
' DivValesCombustible.Visible = True
|
||||
' RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
|
||||
' UPPValesCombustible.Update()
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " VALES COMBUSTIBLES "
|
||||
Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
|
||||
IdVale = New List(Of Integer)
|
||||
|
||||
For Each row As GridViewRow In GvVales.Rows
|
||||
If row.FCCheckBox("ChkVale").Checked Then
|
||||
IdVale.Add(row.DataKey("CveVale").ToEntero)
|
||||
End If
|
||||
Next
|
||||
|
||||
If IdVale.Count <= 0 Then
|
||||
Alert("Debe elegir por lo menos un vale de combustible. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
Alert("Los vales selecciondos están listos para vincular")
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide')", DivValesCombustible.ClientID))
|
||||
'For Each cve In IdVale
|
||||
' Alert(cve.ToString)
|
||||
'Next
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region " VINCULAR OC "
|
||||
Private Sub InicializaOC()
|
||||
@@ -14286,7 +14266,7 @@ Partial Class Compras_Compras
|
||||
If DrTipoGasto IsNot Nothing Then
|
||||
CveTipoGasto = DrTipoGasto("CveTipoGasto").ToString.ToEntero
|
||||
TipoGasto = DrTipoGasto("TipoGasto").ToString
|
||||
End IfclsVa
|
||||
End If
|
||||
End If
|
||||
|
||||
AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False,
|
||||
@@ -16749,7 +16729,7 @@ Partial Class Compras_Compras
|
||||
If DrPS IsNot Nothing Then
|
||||
Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
|
||||
Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero
|
||||
If Not DdlTipoCompra.SelectedValue.Contiene("12", "14") AndAlso DrPS("AplicaSerie").ToString = "True" Then
|
||||
If Not DdlTipoCompra.SelectedValue.Contiene("12") AndAlso DrPS("AplicaSerie").ToString = "True" Then
|
||||
Row("CveMetodoInventario") = "1"
|
||||
End If
|
||||
Else
|
||||
@@ -18969,42 +18949,40 @@ Partial Class Compras_Compras
|
||||
|
||||
Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora
|
||||
If DdlTipoCompra.SelectedValue.Contiene("9", "10", "12") Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||
If DdlTipoCompra.SelectedValue.Contiene("9", "10", "12") Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada
|
||||
|
||||
If DdlTipoCompra.SelectedValue = "12" Then 'cuando es emp acumuladora
|
||||
divFolioGarantia.Visible = True
|
||||
Using objAcum As New ClsAcumuladores
|
||||
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
|
||||
DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
|
||||
DdlFolioGarantia.DataBind()
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
|
||||
'cambia si hay ps con uso de serie
|
||||
For Each dr As DataRow In TmpDT.Rows
|
||||
dr("CveMetodoInventario") = 1
|
||||
Next
|
||||
CargaGvInv()
|
||||
Else
|
||||
If DdlTipoCompra.SelectedValue.Contiene("14") Then 'Recolección
|
||||
divRecoleccion.Visible = True
|
||||
Using objAcum As New ClsGenerales
|
||||
If objAcum.GetInvEntregaAlmacenRuta(-1, MinFecha, MaxFecha, UsuarioActual.Empresa.CveEmpresa, 2, Estatus:=0) Then
|
||||
DdlRecoleccion.DataSource = objAcum.DtResultados.FiltraParametros("", "Referencia DESC")
|
||||
DdlRecoleccion.DataBind()
|
||||
End If
|
||||
End Using
|
||||
If DdlTipoCompra.SelectedValue = "12" Then
|
||||
divFolioGarantia.Visible = True
|
||||
Using objAcum As New ClsAcumuladores
|
||||
If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
|
||||
DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
|
||||
DdlFolioGarantia.DataBind()
|
||||
End If
|
||||
End Using
|
||||
End If
|
||||
'cambia si hay ps con uso de serie
|
||||
For Each dr As DataRow In TmpDT.Rows
|
||||
dr("CveMetodoInventario") = 1
|
||||
Next
|
||||
CargaGvInv()
|
||||
End If
|
||||
ElseIf DdlTipoComprobante.SelectedValue.Contiene("Fac") Then
|
||||
If DdlTipoCompra.SelectedValue.Contiene("14") Then 'Recolección
|
||||
divRecoleccion.Visible = True
|
||||
Using objAcum As New ClsGenerales
|
||||
If objAcum.GetInvEntregaAlmacenRuta(-1, MinFecha, MaxFecha, UsuarioActual.Empresa.CveEmpresa, 3, Estatus:=1) Then
|
||||
DdlRecoleccion.DataSource = objAcum.DtResultados.FiltraParametros("", "Referencia DESC")
|
||||
End If
|
||||
End Using
|
||||
DdlRecoleccion.DataBind()
|
||||
CargaGvInv()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Reference in New Issue
Block a user