diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index ad35ebb1e..eea2fc4d8 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -3074,6 +3074,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/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 95962b005..293c971d4 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -4543,6 +4543,31 @@ Public Class ClsInventarios
Return Retorno
End Function
+ Public Function GetFletesRep(CveEmpresa As Integer, Optional CveFlete As Integer = -1, Optional Folio As String = "-1", Optional CveProveedor As Integer = -1,
+ Optional CveOC As Integer = -1, Optional CveCompra As Integer = -1, Optional FechaInicio As Date = MinFecha,
+ Optional FechaFin As Date = MaxFecha, Optional TipoGasto As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Inv_FletesRep")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@Folio", SqlDbType.VarChar).Value = Folio
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+ .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+ .Add("@CveOC", SqlDbType.Int).Value = CveOC
+ .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+ .Add("@TipoGasto", SqlDbType.Int).Value = TipoGasto
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el reporte de flete.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+
Public Function RecepcionAlmacenFleteGet(CveFlete As Integer, CveOrdenCompra As Integer, CveCompra As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RecepcionAlmacenFleteGet")
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 298590f13..c1f9e640a 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -416,7 +416,7 @@ Public Class ClsSisUsuarios
End Function
- Public Function ValidaUsuarioPortalCliente(Clave As String, Usuario As String, Password As String) As Usuario
+ Public Function ValidaUsuarioPortalCliente(CveCliente As Integer, Usuario As String, Password As String) As Usuario
Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet")
@@ -442,7 +442,7 @@ Public Class ClsSisUsuarios
Retorno.Rol = Data.Rows(0)("Rol").ToString
'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
- Retorno.CveCliente = Clave.ToEntero
+ Retorno.CveCliente = CveCliente
Retorno.ClienteGPS = False
Retorno.Portal = True
Retorno.Referencia = Data.Rows(0)("Referencia").ToString
@@ -473,6 +473,64 @@ Public Class ClsSisUsuarios
Return Retorno
End Function
+ Public Function ValidaUsuarioPortalProveedor(CveProveedor As Integer, Usuario As String, Password As String) As Usuario
+ Dim Retorno As Usuario = Nothing
+
+ DataAdapter("PA_Sis_UsuariosGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveUsuario", SqlDbType.Int).Value = -1
+ .Add("@CveRol", SqlDbType.Int).Value = -1
+ .Add("@Usuario", SqlDbType.VarChar).Value = Usuario
+ .Add("@Contraseña", SqlDbType.VarChar).Value = Password
+ .Add("@EsLogIn", SqlDbType.Bit).Value = 1
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ If Data.Rows.Count > 0 Then
+ Retorno = New Usuario
+
+ Retorno.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero
+ Retorno.Usuario = Usuario
+ Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString
+ Retorno.Nombre = Data.Rows(0)("Nombre").ToString
+ Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
+ Retorno.Rol = Data.Rows(0)("Rol").ToString
+ 'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
+ Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+ Retorno.CveProveedor = CveProveedor
+ Retorno.ClienteGPS = False
+ Retorno.Portal = True
+ Retorno.Referencia = Data.Rows(0)("Referencia").ToString
+ Retorno.EsSupervisorRH = If(Data.Rows(0)("EsSupervisorRH").ToString = "1", True, False)
+ 'Retorno.Liga = Data.Rows(0)("Liga").ToString
+ 'cargo los modulos del usuario y genero el menú
+ Dim dttmp As DataTable = GetUsuariosRolesModulos(Retorno.CveUsuario, Retorno.CveProveedor)
+
+ Dim UsuariosModulos As New HybridDictionary
+ For Each Row As DataRow In dttmp.Rows
+ UsuariosModulos.Add(Convert.ToInt32(Row("CveModulo")), Row("CveModulo").ToString)
+ Next
+
+ Retorno.Modulos = UsuariosModulos
+ ''cargo los procesos del usuario
+ dttmp = GetUsuariosRolesProcesos(Retorno.CveUsuario)
+ Dim UsuariosProcesos As New HybridDictionary
+ For Each Row As DataRow In dttmp.Rows
+ UsuariosProcesos.Add(Convert.ToInt32(Row("CveProceso")), Row("CveProceso").ToString)
+ Next
+ Retorno.Procesos = UsuariosProcesos
+ End If
+
+ Catch ex As SqlException
+ OnError("Ocurrio un error al Iniciar Acceso a Sitio.", ex)
+ Retorno = Nothing
+ End Try
+
+ Return Retorno
+ End Function
+
#Region "U S U A R I O - I N D I C A D O R E S"
Public Function getUsuarioIndicadores(_CveUsuario As Integer, _CveEmpresa As Integer, _CveRol As Integer) As DataTable
@@ -2740,6 +2798,30 @@ Public Class ClsSisUsuarios
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 2627;") Then
+ Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error el acceso a clientes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function AddUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Sis_UsuariosProveedoresAdd")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ End With
+
Try
SqlAdapter.Fill(Data)
Retorno = True
@@ -2755,6 +2837,29 @@ Public Class ClsSisUsuarios
Return Retorno
End Function
+ Public Function GetUsuarioProveedor(CveUsuario As Integer, CveProveedor As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Sis_UsuariosProveedorGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch Ex1 As SqlException
+ If Ex1.Message.Contains("Número: 2627;") Then
+ Alert("Ya existe un Usuario con el mismo nombre: " & Usuario & ".", TipoMensaje.MsgAdvertencia)
+ Else
+ Me.OnError("Ocurrió un error al guardar el nuevo usuario", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el acceso a proveedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
#End Region
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 64bc81a2b..963b4f3a6 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1743,8 +1743,26 @@ Partial Class Compras_Compras
Select Case TipoComprobante
Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
- Case "I" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
- Case "E" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False
+ Case "I"
+ DdlTipoComprobante.SelectedValue = "Fac"
+ DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
+ DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
+ DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("6"))
+ DdlTipoCompra.Items.Remove(DdlTipoCompra.Items.FindByValue("11"))
+ Case "E"
+ DdlTipoComprobante.SelectedValue = "NC"
+ DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac"))
+ DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
+ ChkAplicaNotaCredito.Enabled = False
+
+
+
+ DdlTipoCompra.Items.Clear()
+ DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
+ DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
+ DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
+
+
End Select
'DIV ALIAS
@@ -10144,7 +10162,7 @@ Partial Class Compras_Compras
' ErrorPrepoliza = True
' End If
Case 6
- Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
+ Dim CveProveedorConcepto As Integer = 0, CveIE As Integer = 0, CveCreditoDetalle As Integer = 0
Dim ConceptoPersonal As String = "", Concepto As String = ""
If Not ObjConta.GetPrePolizasDetalle(CvePrePoliza) Then
@@ -10152,9 +10170,7 @@ Partial Class Compras_Compras
Else
If ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (6,68,49,205,176)").Rows.Count > 0 Then
CveProveedorConcepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveProveedor").ToString.ToEntero
- CveAcreedor = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveAcreedor").ToString.ToEntero
CveIE = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveIE").ToString.ToEntero
- CveColectiva = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveColectiva").ToString.ToEntero
CveCreditoDetalle = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("CveCreditoDetalle").ToString.ToEntero
Concepto = ObjConta.DtResultados.FiltraParametros("CveConceptoContable = 6 OR CveConceptoContable = 68 OR CveConceptoContable = 49 OR CveConceptoContable = 205 OR CveConceptoContable = 176").Rows(0)("Concepto").ToString
End If
@@ -10195,7 +10211,7 @@ Partial Class Compras_Compras
End If
If importeMovimiento <> 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta) Then
ErrorPrepoliza = True
End If
End If
@@ -10242,7 +10258,7 @@ Partial Class Compras_Compras
CveCuenta = 0
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
@@ -10358,7 +10374,7 @@ Partial Class Compras_Compras
'AGREGA MOVIMIENTO
If importeMovimiento <> 0 Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
ErrorPrepoliza = True
End If
End If
@@ -10476,6 +10492,10 @@ Partial Class Compras_Compras
_TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDouble
+
+
+
+
If Version = "3.3" Then
Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
If drm IsNot Nothing Then
@@ -16333,7 +16353,10 @@ Partial Class Compras_Compras
End Sub
Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+
If DdlTipoComprobante.SelectedValue = "NC" Then
DivReembolso.Visible = False
RBLPago.Items(2).Enabled = False
@@ -16359,7 +16382,9 @@ Partial Class Compras_Compras
End If
+
UPCondicionesPago.Update()
+
End Sub
@@ -19218,13 +19243,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 +19282,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..bcd2bac64 100644
--- a/Inventarios/Fletes.aspx
+++ b/Inventarios/Fletes.aspx
@@ -63,34 +63,34 @@
-
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
diff --git a/Inventarios/RepFletes.aspx b/Inventarios/RepFletes.aspx
index 0c39960a0..16f6d5ba8 100644
--- a/Inventarios/RepFletes.aspx
+++ b/Inventarios/RepFletes.aspx
@@ -17,9 +17,9 @@
-
+ <%--
Registrar Nuevo Flete
-
+ --%>
@@ -42,12 +42,12 @@
Proveedor:
-
+
-
Fecha Inicio:
-
-
+
Fecha Inicio:
+
+
@@ -58,9 +58,9 @@
-
Fecha Fin:
-
-
+
Fecha Fin:
+
+
@@ -71,6 +71,14 @@
+
Opción:
+
+
+
+
+
+
+
@@ -81,8 +89,8 @@
-
Facturas de Costo Indirecto
-
Documento (OC/Compra)
+ <%--
Facturas de Costo Indirecto
+
Documento (OC/Compra)
--%>
@@ -91,17 +99,33 @@
-
+
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+ --%>
+
+
+
+ <%--
-
+ --%>
diff --git a/Inventarios/RepFletes.aspx.vb b/Inventarios/RepFletes.aspx.vb
index 3c4d2787d..92cbf419b 100644
--- a/Inventarios/RepFletes.aspx.vb
+++ b/Inventarios/RepFletes.aspx.vb
@@ -40,7 +40,8 @@ Partial Class Compras_RepFletes
Private Sub CargaDatos()
Dim ObjInv As New ClsInventarios
If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
- If ObjInv.GetFletes(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate) Then
+ If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1,
+ TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
DtFletes = ObjInv.DtResultados
End If
ObjInv.Dispose()
@@ -55,13 +56,19 @@ Partial Class Compras_RepFletes
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
- Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
- Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
+ Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
+ Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
+ Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
+ e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
+ e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
+ e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
+ 'Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
+ 'Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
- e.Row.Cells(4).Text = $"{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}"
- e.Row.Cells(5).Text = $"{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}"
- e.Row.Cells(6).Text = $"{e.Row.DBCampo("DescripcionDocumento")}"
- e.Row.Cells(7).Text = $"{e.Row.DBCampo("TotalDocumento")}"
+ 'e.Row.Cells(4).Text = $"{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}"
+ 'e.Row.Cells(5).Text = $"{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}"
+ 'e.Row.Cells(6).Text = $"{e.Row.DBCampo("DescripcionDocumento")}"
+ 'e.Row.Cells(7).Text = $"{e.Row.DBCampo("TotalDocumento")}"
End If
End Sub
diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb
index 58101c3ed..22ed375a3 100644
--- a/Sistemas/PopUpAddUsuario.aspx.vb
+++ b/Sistemas/PopUpAddUsuario.aspx.vb
@@ -371,7 +371,8 @@ Partial Class Sistemas_PopUpAddUsuario
' Return
'End If
- If UsuarioActual.Empresa.CvePlataforma = 1 Then
+ 'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL CLIENTE
+ If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveCliente > 0 Then
Dim DtClientesAcceso As DataTable = Nothing
If Not HuboError AndAlso ObjUsuarios.GetUsuarioCliente(CveUsuario, CveCliente) Then
'DEBE AGREGAR EL USUARIO AL CLIENTE
@@ -383,6 +384,19 @@ Partial Class Sistemas_PopUpAddUsuario
Else
HuboError = True
End If
+ 'SI ES UN USUARIO DEL ERP, DEBE DARLE ACCESO AL PROVEEDOR
+ ElseIf UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then
+ Dim DtProveedoresAcceso As DataTable = Nothing
+ If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
+ 'DEBE AGREGAR EL USUARIO AL PROVEEDOR
+ If ObjUsuarios.DtResultados.Rows.Count = 0 Then
+ If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
+ HuboError = True
+ End If
+ End If
+ Else
+ HuboError = True
+ End If
ElseIf UsuarioActual.Empresa.CvePlataforma = 3 Then
If Not ObjUsuarios.UpdateUsuario(LtlUsuario.Text.Trim, TxtNombre.Text, -1, TxtEmail.Text, -1, -1, False, True, -1, CveUsuario, -1, -1) Then
HuboError = True
diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx b/Sistemas/PopUpSeleccionarEmpresa.aspx
index 4ba92eb82..efd3192d7 100644
--- a/Sistemas/PopUpSeleccionarEmpresa.aspx
+++ b/Sistemas/PopUpSeleccionarEmpresa.aspx
@@ -29,7 +29,7 @@