se quitó la columna de CveCompra a la tabla de fletes
This commit is contained in:
Antonio Gonzalez
@@ -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: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. 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: <b>{ObjInv.DtResultados.Rows(0)("Folio")}</b>. 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: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. 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: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. 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: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. 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: <b>{ObjCompras.DtResultados.Rows(0)("Folio")}</b>. 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
|
||||
|
||||
Reference in New Issue
Block a user