From dcb7fc873faf14e0842bbb417ebddf5a1a306ce0 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Feb 2024 20:04:30 -0700 Subject: [PATCH] -- MEJORA RECOLECCIONES --- Acumuladores/RepRecolecciones.aspx | 1 + Acumuladores/RepRecolecciones.aspx.vb | 9 +- App_Code/ClsGenerales.vb | 4 +- App_Code/ClsInventarios.vb | 27 +++--- Compras/Compras.aspx | 88 ++++++++--------- Compras/Compras.aspx.vb | 133 +++++++++++++++++--------- 6 files changed, 151 insertions(+), 111 deletions(-) diff --git a/Acumuladores/RepRecolecciones.aspx b/Acumuladores/RepRecolecciones.aspx index fe1de6735..703cefdb5 100644 --- a/Acumuladores/RepRecolecciones.aspx +++ b/Acumuladores/RepRecolecciones.aspx @@ -180,6 +180,7 @@ P +
diff --git a/Acumuladores/RepRecolecciones.aspx.vb b/Acumuladores/RepRecolecciones.aspx.vb index 2cc61fdc3..87b5c5e97 100644 --- a/Acumuladores/RepRecolecciones.aspx.vb +++ b/Acumuladores/RepRecolecciones.aspx.vb @@ -1,8 +1,5 @@ Imports System.Data -Imports CrystalDecisions.Shared.Json Imports Extensiones -Imports Modelos - Partial Class Acumuladores_RepRecolecciones Inherits ClsPaginas @@ -73,7 +70,7 @@ Partial Class Acumuladores_RepRecolecciones Private Sub CargaDatos() Dim ObjGeneral As New ClsGenerales - If (ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1)) Then + If ObjGeneral.GetInvEntregaAlmacenRuta(-1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 2, -1) Then GvR.DataSource = ObjGeneral.DtResultados End If ObjGeneral.Dispose() @@ -226,9 +223,9 @@ Partial Class Acumuladores_RepRecolecciones Dim ErrorMovInv As Boolean = False Dim Fecha As DateTime = NowADS() Dim Concepto As String = "Traspaso Recolección" - Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) + Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, 26, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveEntregaAlmacen:=CveEntregaAlmacen) Dim FolioSalida As Integer = ObjInventario.Folio - Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida) + Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoSalida, CveEntregaAlmacen:=CveEntregaAlmacen) Dim CveUM As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=HdnPSRecoleccion.Value.ToEntero).FiltroPrimeroValor("CveUnidadMedida", "").ToEntero If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, HdnCantidadRecoleccion.Value.ToDecimal, CveUM, HdnPSRecoleccion.Value.ToEntero, 0) Then ErrorMovInv = True diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 9f2ba1de5..433116e74 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4061,12 +4061,11 @@ Public Class ClsGenerales End Function - Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1) As Boolean + Public Function GetInvEntregaAlmacenRutaRep(CveSubProyecto As Integer, CveEmpresa As Integer, Estatus As Integer, FechaInicio As Date, FechaFin As Date, CveChofer As Integer, CveUsuario As Integer, Optional CveTimbre As Integer = -1, Optional Tipo As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2") - With SqlAdapter.SelectCommand.Parameters .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto @@ -4077,6 +4076,7 @@ Public Class ClsGenerales .Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo End With Try diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 5b45ff77e..ec489f0a4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -989,9 +989,8 @@ Public Class ClsInventarios CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CveOS As Integer = -1, Optional CvePersonal As Integer = -1, Optional IDPoliza As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Decimal = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, - Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "", - Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "", - Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer + Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Decimal = -1, + Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1, Optional CveEntregaAlmacen As Integer = -1) As Integer Dim Retorno As Integer = -1 @@ -1037,21 +1036,21 @@ Public Class ClsInventarios .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato .Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - .Add("@Placa", SqlDbType.VarChar).Value = Placa - .Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega - .Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad + '.Add("@CveChofer", SqlDbType.Int).Value = CveChofer + '.Add("@CveCamion", SqlDbType.Int).Value = CveCamion + '.Add("@Placa", SqlDbType.VarChar).Value = Placa + '.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega + '.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad .Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga .Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio - .Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion - .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio - .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad - .Add("@Licencia", SqlDbType.VarChar).Value = Licencia + '.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion + '.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio + '.Add("@Telefono", SqlDbType.VarChar).Value = Telefono + '.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad + '.Add("@Licencia", SqlDbType.VarChar).Value = Licencia .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOP", SqlDbType.Int).Value = CveOP - + .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia End With diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 978a336d6..1636f8159 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1,5 +1,4 @@ <%@ Page Title="Compras - Registro de Facturas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" ValidateRequest="false" CodeFile="Compras.aspx.vb" Inherits="Compras_Compras" EnableEventValidation="false" %> - @@ -204,14 +203,14 @@
- <%-- + <%-- --%> - Proveedor: - <%--Proveedor:--%> - <%-- Proveedor:--%> + Proveedor: + <%--Proveedor:--%> + <%-- Proveedor:--%>
@@ -223,7 +222,7 @@
- Tipo: + Tipo:
@@ -318,7 +317,7 @@
- Descripción: + Descripción:
@@ -326,14 +325,14 @@
- Refacturación: + Refacturación:
- ¿Es No Deducible? + ¿Es No Deducible?
@@ -364,26 +363,26 @@
- RFC: + RFC:
- Días de Crédito: + Días de Crédito:
- Límite de Crédito: + Límite de Crédito:
- Crédito Disponible: + Crédito Disponible:
@@ -413,7 +412,7 @@
- Sucursal: + Sucursal:
@@ -422,7 +421,7 @@
- Estatus: + Estatus:

@@ -433,25 +432,21 @@
- Importe: + Importe:
- - - +
- Saldo: + Saldo:
- - - +
- Contabilizada: + Contabilizada:
<%----%> @@ -460,13 +455,13 @@
- Tipo Factura: + Tipo Factura:
- Validada SAT: + Validada SAT:
No @@ -475,19 +470,19 @@
- Capturó: + Capturó:
- F. Captura + F. Captura
- Tipo Compra: + Tipo Compra:
@@ -509,20 +504,20 @@
- Importación + Importación
- + Importación:
- Folio Garantía + Folio Garantía
@@ -530,6 +525,15 @@
+
+ Recolección +
+ + + + +
+
@@ -917,14 +921,13 @@ -
- +
-
+
- + @@ -954,7 +957,7 @@ - @@ -975,12 +978,9 @@ - - @@ -1184,7 +1184,7 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e92869286..7c77741c2 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1748,6 +1748,7 @@ Partial Class Compras_Compras DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6")) DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11")) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlTipoCompra.Items.Add(New ListItem("Recolección", "14")) Case "E" DdlTipoComprobante.SelectedValue = "NC" DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) @@ -1760,6 +1761,7 @@ 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")) @@ -4344,7 +4346,7 @@ Partial Class Compras_Compras UM.Dispose() PSS.Dispose() - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue = "12" Then 'cuando es garantía, debe de especificar la salida de almacen + 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 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 @@ -5279,12 +5281,21 @@ Partial Class Compras_Compras Dim indice As Integer = 0 Dim ImporteConcepto As Decimal = 0 Dim tCveFolioGarantia As Integer = -1 + Dim tCveEntregaAlmacen As Integer = -1 Dim CveConceptoMovimiento As Integer = 2 - 'apoyo logistico/garantia - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía - CveConceptoMovimiento = 13 - tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es empresa acumuladora + 'apoyo logistico/garantia + If DdlTipoCompra.SelectedValue = "12" Then 'garantía + 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 End If + If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then For Each tCveAlmacen As Integer In ListAlmacenes @@ -5296,7 +5307,7 @@ Partial Class Compras_Compras Dim fecha As Date = TxtFecha.Text.ToDate If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS() - CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2") + CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen) If CveMovimientoInventario <= 0 Then ErrorMovInv = True @@ -6311,7 +6322,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") Then + If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then RegistraConcepto225 = True End If @@ -6332,7 +6343,7 @@ Partial Class Compras_Compras CveMovimientoDevolucion = Devolucion.CveMovimiento End If 'cuando es garantía. - If DdlTipoCompra.SelectedValue = "12" Then + If DdlTipoCompra.SelectedValue.Contiene("12", "14") Then ConceptoContabilizacionNC = 259 End If @@ -10217,7 +10228,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") Then StrTipo = "CveTipoAlmacen IN (21)" + If DdlTipoCompra.SelectedValue.Contiene("9", "12", "14") Then StrTipo = "CveTipoAlmacen IN (21)" If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27" e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo) @@ -15778,6 +15789,7 @@ Partial Class Compras_Compras End Sub Private Sub OriginalesVisible(Accion As Boolean) tdT0.Visible = Accion + trTotalOriginal.Visible = Accion tdT1.Visible = Accion tdT2.Visible = Accion tdT3.Visible = Accion @@ -15796,7 +15808,7 @@ Partial Class Compras_Compras 'VALIDA IMPORTES 'VALIDA TOTAL CON LOS IMPORTES TOTALES - Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double + Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Decimal Dim Amortizacion As Decimal = 0 Dim TieneAmortizacion As Boolean = False @@ -15813,26 +15825,25 @@ Partial Class Compras_Compras TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString End If - - TempSubTotal = TxtSubTotal.Text.ToDouble + TempSubTotal = TxtSubTotal.Text.ToDecimal SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal - TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion + TempDescuentos = TxtDescuento.Text.Trim.ToDecimal + Amortizacion TempSubTotal2 = TempSubTotal - TempDescuentos - TempIVA = TxtIVA.Text.ToDouble - TempIEPS = TxtIEPS.Text.ToDouble - TempRetIVA = TxtRetIVA.Text.ToDouble - TempRetISR = TxtRetISR.Text.ToDouble - TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2) - DifTotales = TxtTotal.Text.ToDouble - TempTotal + TempIVA = TxtIVA.Text.ToDecimal + TempIEPS = TxtIEPS.Text.ToDecimal + TempRetIVA = TxtRetIVA.Text.ToDecimal + TempRetISR = TxtRetISR.Text.ToDecimal + TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDecimal - Amortizacion, 2) + DifTotales = TxtTotal.Text.ToDecimal - TempTotal Dim DiferenciaPermitida As Decimal = 0.6D If Math.Abs(DifTotales) > DiferenciaPermitida Then Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) EsValido = False ElseIf DifTotales <> 0 Then - TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString - TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString + TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDecimal + DifTotales).ToString + TxtSubTotal.Text = (TxtSubTotal.Text.ToDecimal + DifTotales).ToString SubTotalOriginal = TxtSubTotal.Text.ToDecimal SubTotal2Original = TxtSubTotal2.Text.ToDecimal End If @@ -16691,7 +16702,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 DdlTipoCompra.SelectedValue = "12" AndAlso DrPS("AplicaSerie").ToString = "True" Then + If Not DdlTipoCompra.SelectedValue.Contiene("12", "14") AndAlso DrPS("AplicaSerie").ToString = "True" Then Row("CveMetodoInventario") = "1" End If Else @@ -18911,23 +18922,40 @@ Partial Class Compras_Compras Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) - If DdlTipoCompra.SelectedValue.ToEntero.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" 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 DdlTipoCompra.SelectedValue = "12" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") 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 + 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 + 'cambia si hay ps con uso de serie + For Each dr As DataRow In TmpDT.Rows + dr("CveMetodoInventario") = 1 + Next + CargaGvInv() + End If 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 End Sub @@ -19524,11 +19552,7 @@ Partial Class Compras_Compras Dim ProcesoError As Boolean = True If FechaCompraOriginal <> TxtFecha.Text.ToDate Then - - Dim ObjCompra As New ClsCompras - ObjCompra.IniciaTransacSQL() - Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL()) If ObjEventos.AddEventoBitacora($"Cambio de Fecha de compra de { FechaCompraOriginal.ToString("dd/MM/yyyy")} a {TxtFecha.Text}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then @@ -19543,7 +19567,6 @@ Partial Class Compras_Compras ProcesoError = True End If - If Not ProcesoError Then ObjCompra.Commit() FechaCompraOriginal = TxtFecha.Text.ToDate @@ -19558,11 +19581,8 @@ Partial Class Compras_Compras CargaEventoBitacora() UPEventoBitacora.Update() End If - - End If - End Sub @@ -20040,6 +20060,29 @@ Partial Class Compras_Compras DdlRefacturacionFacturas.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub + + Protected Sub BtnRecolecciónAplicar_Click(sender As Object, e As EventArgs) + Using ObjAcum As New ClsGenerales + If ObjAcum.GetEntregaAlmacenRutaDetalle(DdlRecoleccion.SelectedValue.ToEntero) Then + 'Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("CantidadDisponible > 0") + 'Dim Porcentaje As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal + 'Dim tCveSub As Integer = TmpDT.MAX("CveSubProyecto").ToEntero + 'Dim tCveTipoGasto As Integer = TmpDT.MAX("CveTipoGasto").ToEntero + 'Dim Total As Decimal = TmpDT.SUMD("Total") + 'For Each drr As DataRow In TmpDT.Rows + ' ClavesBorradas.Add(drr("CveCompraDetalle").ToString) + 'Next + TmpDT.Clear() + 'For Each dr As DataRow In dtt.Rows + ' Dim pu As Decimal = Total / dtt.SUMD("CantidadDisponible") + ' Dim cantidad As Decimal = dr("CantidadDisponible").ToString.ToDecimal + ' AddPS(cantidad, dr("CveUM").ToString.ToEntero, "", dr("CveClasificacion").ToString.ToEntero, "", dr("CvePS").ToString.ToEntero, dr("PS").ToString, 2, tCveSub.ToString, "SE", "SE", "", "", pu, Total, Porcentaje, 0, 0, 0, 0, 0, PorcentajeIVA:=Porcentaje, TCalculaTotales:=True, CveTipoGasto:=tCveTipoGasto) + 'Next + 'AddPS2() + + End If + End Using + End Sub End Class
Original +     -   -   -   - +   +   +