From a3a0e6e36cd7500a3f14509fef8d6ae4448f6ee0 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 28 Sep 2020 10:19:39 -0700 Subject: [PATCH] =?UTF-8?q?se=20quit=C3=B3=20la=20columna=20de=20CveCompra?= =?UTF-8?q?=20a=20la=20tabla=20de=20fletes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsCompras.vb | 33 ++++ Compras/Compras.aspx.vb | 19 +- Inventarios/Fletes.aspx | 71 ++++++-- Inventarios/Fletes.aspx.vb | 345 +++++++++++++++++++------------------ 4 files changed, 275 insertions(+), 193 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 33dc7e050..fe1e33d06 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3071,6 +3071,39 @@ Public Class ClsCompras Return Retorno End Function + Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_FletesComprasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_FletesComprasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveFlete", SqlDbType.Int).Value = CveFlete + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveOC", SqlDbType.Int).Value = CveOC + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + #Region "REPORTE PUE SIN PAGO" Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 14d802679..13afb3f39 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -19218,13 +19218,13 @@ Partial Class Compras_Compras Dr = ObjInventario.DtResultados.Rows(0) End If End If - If Dr IsNot Nothing Then - If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then - Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) - ObjInventario.Dispose() - Exit Sub - End If - End If + 'If Dr IsNot Nothing Then + ' If Dr("CveCompra").ToString.ToEntero > 0 And RblFleteImportacionOpcion.SelectedValue.ToEntero = 1 Then + ' Alert("Este flete ya tiene compra asignada", TipoMensaje.MsgAdvertencia) + ' ObjInventario.Dispose() + ' Exit Sub + ' End If + 'End If ObjInventario.Dispose() End If @@ -19257,8 +19257,11 @@ Partial Class Compras_Compras If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then ErrorTrans = True End If + If Not ObjCompras.AddFletesCompras(CveFlete, CveCompra:=CveCompra) Then + ErrorTrans = True + End If Else - ErrorTrans = True + ErrorTrans = True End If Case 2 If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx index 5e83888b3..5461ff213 100644 --- a/Inventarios/Fletes.aspx +++ b/Inventarios/Fletes.aspx @@ -63,34 +63,34 @@ -
+ <%--
Modalidad -
-
+
--%> + <%--
-
-
-
+
--%> + <%--
+ <%-- +
--%> -
+ <%-- -
-
-
+
--%> + <%--
--%> + <%--
--%> + <%--
Proveedor:
@@ -107,12 +107,51 @@
-
+
--%> +
+ + +
+
+
+ + Compras +
+
+ +
+
+
+
+
+ + + + + + + + <%-- + +
+ +
+ + --%> + + +
+
+
+
+ + +
@@ -128,13 +167,13 @@
-
+ <%--
Agregar compra de gasto
-
+
--%>
diff --git a/Inventarios/Fletes.aspx.vb b/Inventarios/Fletes.aspx.vb index d0d318b96..27c2b1c77 100644 --- a/Inventarios/Fletes.aspx.vb +++ b/Inventarios/Fletes.aspx.vb @@ -81,27 +81,27 @@ Partial Class Compras_Fletes TxtFecha.Text = ObjInv.DtResultados.Rows(0)("Fecha").ToString If ObjInv.DtResultados.Rows(0)("CveOC").ToString.ToEntero > 0 Then - DdlModalidad.SelectedValue = "1" + 'DdlModalidad.SelectedValue = "1" Else - DdlModalidad.SelectedValue = "2" + 'DdlModalidad.SelectedValue = "2" End If - CambiaModalidad() - HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString - HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString + 'CambiaModalidad() + 'HdnCveOC.Value = ObjInv.DtResultados.Rows(0)("CveOC").ToString + 'HdnCveCompra.Value = ObjInv.DtResultados.Rows(0)("CveCompra").ToString - LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString - HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString - HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}") - LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}" + 'LbOCProveedor.Text = ObjInv.DtResultados.Rows(0)("RazonSocial").ToString + 'HLOCFolio.Text = ObjInv.DtResultados.Rows(0)("FolioDocumento").ToString + 'HLOCFolio.NavigateUrl = If(HdnCveOC.Value.ToEntero > 0, $"/OC/OC.aspx?OC={HdnCveOC.Value}", $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}") + 'LbOCImporte.Text = $"{ObjInv.DtResultados.Rows(0)("TotalDocumento").ToString.FormatoNumero} {ObjInv.DtResultados.Rows(0)("Moneda").ToString}" If ObjInv.GetFleteDetalle(CveFlete) Then DtCompras = ObjInv.DtResultados Else Alert("Ocurrió un error al cargar el detalle del flete", TipoMensaje.MsgError) End If - + CargarComprasRelacionadas() Else - Alert("No se encontró el flete", TipoMensaje.MsgInformacion) + Alert("No se encontró el flete", TipoMensaje.MsgAdvertencia) End If Else Alert("Ocurrió un error al cargar el flete", TipoMensaje.MsgError) @@ -123,168 +123,168 @@ Partial Class Compras_Fletes #Region " VINCULA DOCUMENTO PRINCIPAL - OC | COMPRA " Protected Sub DdlModalidad_SelectedIndexChanged(sender As Object, e As EventArgs) - CambiaModalidad() + 'CambiaModalidad() UpRegistro.Update() End Sub - Private Sub CambiaModalidad() - HdnCveOC.Value = "-1" - HdnCveCompra.Value = "-1" + 'Private Sub CambiaModalidad() + ' HdnCveOC.Value = "-1" + ' HdnCveCompra.Value = "-1" - LbOCProveedor.Text = "" - HLOCFolio.Text = "" - HLOCFolio.NavigateUrl = "#" - LbOCImporte.Text = "" + ' LbOCProveedor.Text = "" + ' HLOCFolio.Text = "" + ' HLOCFolio.NavigateUrl = "#" + ' LbOCImporte.Text = "" - DivVincularOC.Visible = DdlModalidad.SelectedValue = "1" - DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2" - End Sub + ' DivVincularOC.Visible = DdlModalidad.SelectedValue = "1" + ' DivVincularCompra.Visible = DdlModalidad.SelectedValue = "2" + 'End Sub - Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs) - VinculaOC() - End Sub - Private Sub VinculaOC() - If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then - Dim ObjInv As New ClsInventarios - Dim ObjOC As New ClsOC - If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then - If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then - If ObjOC.DtResultados.Rows.Count > 0 Then - LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString - HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}" - HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}" - LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}" - End If - Else - HdnCveOC.Value = "-1" - End If - Else - Alert($"La orden de compra ya forma parte del flete: {ObjInv.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - ObjInv.Dispose() - ObjOC.Dispose() - End If - UpRegistro.Update() - End Sub - Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs) - VincularCompra() - End Sub - Private Sub VincularCompra() + 'Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs) + ' VinculaOC() + 'End Sub + 'Private Sub VinculaOC() + ' If HdnCveOC.Value <> "-1" AndAlso IsNumeric(HdnCveOC.Value) AndAlso HdnCveOC.Value.ToEntero > 0 Then + ' Dim ObjInv As New ClsInventarios + ' Dim ObjOC As New ClsOC + ' If ObjInv.GetFletes(UsuarioActual.CveEmpresa, CveOC:=HdnCveOC.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0 Then + ' If ObjOC.GetOC(HdnCveOC.Value.ToEntero, UsuarioActual.CveEmpresa) Then + ' If ObjOC.DtResultados.Rows.Count > 0 Then + ' LbOCProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString + ' HLOCFolio.Text = $"{ObjOC.DtResultados.Rows(0)("Folio").ToString}" + ' HLOCFolio.NavigateUrl = $"/OC/OC.aspx?OC={HdnCveOC.Value}" + ' LbOCImporte.Text = $"$ {ObjOC.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjOC.DtResultados.Rows(0)("Moneda").ToString}" + ' End If + ' Else + ' HdnCveOC.Value = "-1" + ' End If + ' Else + ' Alert($"La orden de compra ya forma parte del flete: {ObjInv.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' ObjInv.Dispose() + ' ObjOC.Dispose() + ' End If + ' UpRegistro.Update() + 'End Sub + 'Protected Sub BtnVincularCompra_Click(sender As Object, e As EventArgs) + ' VincularCompra() + 'End Sub + 'Private Sub VincularCompra() - If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then - Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + ' If Not (HdnCveCompra.Value <> "-1" AndAlso IsNumeric(HdnCveCompra.Value) AndAlso HdnCveCompra.Value.ToEntero > 0) Then + ' Alert("No hay compra seleccionaada", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If - Dim ObjCompras As New ClsCompras - Dim ObjInv As New ClsInventarios - Dim ErrorAgregar = False - Dim RowCompras As DataRow = Nothing + ' Dim ObjCompras As New ClsCompras + ' Dim ObjInv As New ClsInventarios + ' Dim ErrorAgregar = False + ' Dim RowCompras As DataRow = Nothing - If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - RowCompras = ObjCompras.DtResultados.Rows(0) - If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then - ErrorAgregar = True - Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - Else - ErrorAgregar = True - Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) - End If + ' If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + ' RowCompras = ObjCompras.DtResultados.Rows(0) + ' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompra.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then + ' ErrorAgregar = True + ' Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' Else + ' ErrorAgregar = True + ' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) + ' End If - If Not ErrorAgregar Then - If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then - ErrorAgregar = True - Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - End If + ' If Not ErrorAgregar Then + ' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then + ' ErrorAgregar = True + ' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' End If - If Not ErrorAgregar Then - LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString - HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}" - HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}" - LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}" - Else - HdnCveCompra.Value = "-1" - End If + ' If Not ErrorAgregar Then + ' LbOCProveedor.Text = ObjCompras.DtResultados.Rows(0)("RazonSocial").ToString + ' HLOCFolio.Text = $"{ObjCompras.DtResultados.Rows(0)("Folio").ToString}" + ' HLOCFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}" + ' LbOCImporte.Text = $"$ {ObjCompras.DtResultados.Rows(0)("Total").ToString.FormatoNumero} {ObjCompras.DtResultados.Rows(0)("Moneda").ToString}" + ' Else + ' HdnCveCompra.Value = "-1" + ' End If - ObjCompras.Dispose() - ObjInv.Dispose() + ' ObjCompras.Dispose() + ' ObjInv.Dispose() - End Sub + 'End Sub #End Region #Region " AGREGA COMPRA GASTO " - Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs) - AgregaCompraGasto() - End Sub - Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs) - AgregaCompraGasto() - End Sub - Private Sub AgregaCompraGasto() + 'Protected Sub BtnVincularCompraGasto_Click(sender As Object, e As EventArgs) + ' AgregaCompraGasto() + 'End Sub + 'Protected Sub ImgAgregarCompraGasto_Click(sender As Object, e As ImageClickEventArgs) + ' AgregaCompraGasto() + 'End Sub + 'Private Sub AgregaCompraGasto() - If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then - Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + ' If Not (HdnCveCompraGasto.Value <> "-1" AndAlso IsNumeric(HdnCveCompraGasto.Value) AndAlso HdnCveCompraGasto.Value.ToEntero > 0) Then + ' Alert("No hay compra de gasto seleccionaada", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If - Dim ObjCompras As New ClsCompras - Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL) - Dim ErrorAgregar = False - Dim RowCompras As DataRow = Nothing + ' Dim ObjCompras As New ClsCompras + ' Dim ObjInv As New ClsInventarios(ObjCompras.IniciaTransacSQL) + ' Dim ErrorAgregar = False + ' Dim RowCompras As DataRow = Nothing - If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - RowCompras = ObjCompras.DtResultados.Rows(0) - If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then - ErrorAgregar = True - Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - Else - ErrorAgregar = True - Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) - End If + ' If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + ' RowCompras = ObjCompras.DtResultados.Rows(0) + ' If Not (ObjInv.GetFleteDetalle(-1, HdnCveCompraGasto.Value.ToEntero) AndAlso ObjInv.DtResultados.Rows.Count = 0) Then + ' ErrorAgregar = True + ' Alert($"La compra ya forma parte del flete: {ObjCompras.DtResultados.Rows(0)("Folio")}. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' Else + ' ErrorAgregar = True + ' Alert("Ocurrió un error al cargar la información de la compra. Por favor comuniquese con atención SIG.", TipoMensaje.MsgError) + ' End If - If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then - ErrorAgregar = True - Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If + ' If HdnCveCompraGasto.Value.ToEntero = HdnCveOC.Value.ToEntero Then + ' ErrorAgregar = True + ' Alert("La Compra seleccionada como gasto es la orden de compra del pedimento. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If - If Not ErrorAgregar Then - If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then - ErrorAgregar = True - Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - End If + ' If Not ErrorAgregar Then + ' If DtCompras.FiltraParametros($"CveCompra = {RowCompras("CveCompra").ToString.ToEntero}").Rows.Count > 0 Then + ' ErrorAgregar = True + ' Alert("La compra seleccionada ya es parte del flete. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) + ' End If + ' End If - If Not ErrorAgregar Then - If Not GvDatos.Rows.Count > 0 Then - DtCompras = RowCompras.Table.Clone - DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32")) - End If - If CveFlete > 0 Then - If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then - ErrorAgregar = True - Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError) - End If - End If - End If + ' If Not ErrorAgregar Then + ' If Not GvDatos.Rows.Count > 0 Then + ' DtCompras = RowCompras.Table.Clone + ' DtCompras.Columns.Add("CveFleteDetalle", Type.GetType("System.Int32")) + ' End If + ' If CveFlete > 0 Then + ' If Not ObjInv.AddFleteDetalle(CveFlete, RowCompras("CveCompra").ToString.ToEntero) Then + ' ErrorAgregar = True + ' Alert("Ocurrió un error al agregar la compra. Por favor intente de nuevo.", TipoMensaje.MsgError) + ' End If + ' End If + ' End If - If Not ErrorAgregar Then - ObjCompras.Commit() - DtCompras.ImportRow(RowCompras) - CargaGrid() - If CveFlete > 0 Then - Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion) - End If - Else - ObjCompras.RollBack() - End If + ' If Not ErrorAgregar Then + ' ObjCompras.Commit() + ' DtCompras.ImportRow(RowCompras) + ' CargaGrid() + ' If CveFlete > 0 Then + ' Alert("La orden de compra se agregó correctamente.", TipoMensaje.MsgInformacion) + ' End If + ' Else + ' ObjCompras.RollBack() + ' End If - HdnCveCompraGasto.Value = "-1" - ObjCompras.Dispose() - ObjInv.Dispose() + ' HdnCveCompraGasto.Value = "-1" + ' ObjCompras.Dispose() + ' ObjInv.Dispose() - End Sub + 'End Sub Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting Dim TieneError = False If CveFlete > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveFleteDetalle").ToEntero > 0 Then @@ -312,18 +312,18 @@ Partial Class Compras_Fletes #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) - Select Case DdlModalidad.SelectedValue.ToEntero - Case 1 - If Not HdnCveOC.Value.ToEntero > 0 Then - Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Case 2 - If Not HdnCveCompra.Value.ToEntero > 0 Then - Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End Select + 'Select Case DdlModalidad.SelectedValue.ToEntero + ' Case 1 + ' 'If Not HdnCveOC.Value.ToEntero > 0 Then + ' ' Alert("Tiene que tener vinculada una OC", TipoMensaje.MsgAdvertencia) + ' ' Exit Sub + ' 'End If + ' Case 2 + ' 'If Not HdnCveCompra.Value.ToEntero > 0 Then + ' ' Alert("Tiene que tener vinculada una Compra", TipoMensaje.MsgAdvertencia) + ' ' Exit Sub + ' 'End If + 'End Select If Not DtCompras.Rows.Count > 0 Then Alert("Tiene que tener compras de gastos agregadas", TipoMensaje.MsgAdvertencia) @@ -336,7 +336,7 @@ Partial Class Compras_Fletes Dim CveFleteTemporal As Integer = 0 If CveFlete < 0 Then - If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + If ObjInv.AddFlete(LblFolio.Text, TxtDescripcion.Text.Trim, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CveFleteTemporal = ObjInv.CveFlete Else ErrorFlete = True @@ -352,7 +352,7 @@ Partial Class Compras_Fletes ErrorFlete = True End If Else - If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, HdnCveOC.Value.ToEntero, HdnCveCompra.Value.ToEntero, UsuarioActual.CveUsuario) Then + If Not ObjInv.UpdateFlete(CveFlete, TxtDescripcion.Text, TxtFecha.Text.ToDate, -1, -1, UsuarioActual.CveUsuario) Then ErrorFlete = True End If End If @@ -410,25 +410,32 @@ Partial Class Compras_Fletes If Archivo.Exists Then Dim ImporteGrid As Double = DtCompras.SUM("SubTotal") - Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0) - Dim ImporteData As Double = ImporteStr.ToDouble() + 'Dim ImporteStr As String = LbOCImporte.Text.Split(" "c)(0) + 'Dim ImporteData As Double = ImporteStr.ToDouble() Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("Folio", LblFolio.Text)) params.Add(New ReportParameter("Descripcion", TxtDescripcion.Text)) params.Add(New ReportParameter("Fecha", TxtFecha.Text)) - params.Add(New ReportParameter("Modalidad", If(DdlModalidad.SelectedValue = "-1", "Por Orden de Compra", "Factura de Compra"))) - params.Add(New ReportParameter("Proveedor", LbOCProveedor.Text)) - params.Add(New ReportParameter("FolioModalidad", HLOCFolio.Text)) - params.Add(New ReportParameter("Importe", (ImporteGrid + ImporteData).ToString())) + params.Add(New ReportParameter("Modalidad", "Factura de Compra")) + params.Add(New ReportParameter("Proveedor", "")) + params.Add(New ReportParameter("FolioModalidad", "")) + params.Add(New ReportParameter("Importe", (ImporteGrid).ToString())) ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Fletes.rdlc", DtCompras, params, String.Format("Costo Indirecto - {0}", LblFolio.Text), RDSName:="DataSet1") End If End Sub - + Private Sub CargarComprasRelacionadas() + Dim ObjCompras As New ClsCompras + If ObjCompras.GetFletesCompras(CveFlete, UsuarioActual.CveEmpresa) Then + GvComprasVinculadas.DataSource = ObjCompras.DtResultados + End If + ObjCompras.Dispose() + GvComprasVinculadas.DataBind() + End Sub End Class