Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -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
|
||||
|
||||
@@ -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")
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -63,34 +63,34 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<%--<div class="row">
|
||||
<div class="col-md-12">
|
||||
<hr />
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
Modalidad
|
||||
</div>
|
||||
<div class="col-md-5">
|
||||
</div>--%>
|
||||
<%--<div class="col-md-5">
|
||||
<asp:DropDownList ID="DdlModalidad" AutoPostBack="true" OnSelectedIndexChanged="DdlModalidad_SelectedIndexChanged" runat="server" CssClass="select2me Widthall">
|
||||
<asp:ListItem Text="OC" Value="1" Selected="True" />
|
||||
<asp:ListItem Text="Compra" Value="2" />
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-5 text-center">
|
||||
<div runat="server" id="DivVincularOC">
|
||||
</div>--%>
|
||||
<%--<div class="col-md-5 text-center">
|
||||
<%--<div runat="server" id="DivVincularOC">
|
||||
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/OC/PopUpBuscarReq.aspx?Op=FactFle',800,600,'N');"><i class='fa fa-plus'></i>Vincular Orden de Compra</a>
|
||||
<asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" OnClick="BtnVincularOC_Click" Style="display: none;" class="btn btn-primary" />
|
||||
<asp:Button ID="BtnVincularOC" runat="server" ClientIDMode="Static" Style="display: none;" class="btn btn-primary" />
|
||||
<asp:HiddenField runat="server" ID="HdnCveOC" ClientIDMode="Static" Value="-1" />
|
||||
</div>
|
||||
</div>--%>
|
||||
|
||||
<div runat="server" id="DivVincularCompra" visible="false">
|
||||
<%--<div runat="server" id="DivVincularCompra" visible="false">
|
||||
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=Fact',800,600,'N');"><i class='fa fa-plus'></i>Vincular Compra</a>
|
||||
<asp:Button ID="BtnVincularCompra" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompra_Click" Style="display: none;" class="btn btn-primary" />
|
||||
<asp:HiddenField runat="server" ID="HdnCveCompra" ClientIDMode="Static" Value="-1" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
</div>--%>
|
||||
<%--</div>--%>
|
||||
<%--</div>--%>
|
||||
<%--<div class="row">
|
||||
<div class="col-md-2">Proveedor:</div>
|
||||
<div class="col-md-10">
|
||||
<asp:Label ID="LbOCProveedor" Text="" runat="server" />
|
||||
@@ -107,12 +107,51 @@
|
||||
<div class="col-md-10">
|
||||
<asp:Label ID="LbOCImporte" Text="" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<asp:UpdatePanel runat="server" ID="UpComprasGrid">
|
||||
<ContentTemplate>
|
||||
<div class="portlet light smmallpadding bordered " id="PorletCompras">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">COMPRAS DE PRODUCTOS</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding">
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvComprasVinculadas" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD" Width="100%" GridLines="None" DataKeyNames="CveFleteCompra" EmptyDataText="No hay compras vinculadas" >
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-Width="30%" />
|
||||
<asp:HyperLinkField HeaderText="Serie-Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataTextField="SerieFolio" ItemStyle-Width="10%" Target="_blank" />
|
||||
<asp:BoundField HeaderText="Total Productos" DataField="Total" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Moneda" ItemStyle-HorizontalAlign="Center" DataField="Abreviatura" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="TC" ItemStyle-HorizontalAlign="Center" DataField="TipoCambio" ItemStyle-Width="5%" />
|
||||
<%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" >
|
||||
<ItemTemplate>
|
||||
<div data-toggle="tooltip" data-original-title="Eliminar compra vinculada">
|
||||
<asp:LinkButton ID="LnkEliminaCompraVinculada" OnClick="LnkEliminaCompraVinculada_Click" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</div>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>--%>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
@@ -123,18 +162,18 @@
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Compras Gasto</span>
|
||||
<span class="caption-subject bold uppercase">Costo Indirecto</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<%--<div class="actions">
|
||||
<div class="btn-group">
|
||||
<a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Compras/PopUpBuscarFolioC.aspx?Opt=FactFlete',800,600,'N');" data-toggle="tooltip" data-placement="top" title="Agregar compra(factura) de gastos."><i class='fa fa-plus'></i>Agregar compra de gasto</a>
|
||||
<asp:Button ID="BtnVincularCompraGasto" runat="server" ClientIDMode="Static" OnClick="BtnVincularCompraGasto_Click" Style="display: none;" class="btn btn-primary" />
|
||||
<asp:HiddenField runat="server" ID="HdnCveCompraGasto" ClientIDMode="Static" Value="-1" />
|
||||
</div>
|
||||
</div>
|
||||
</div>--%>
|
||||
</div>
|
||||
<div class="portlet-body rowpadding">
|
||||
<div class="row">
|
||||
@@ -146,13 +185,13 @@
|
||||
<asp:BoundField HeaderText="Tipo" DataField="TipoDocto" DataFormatString="{0:d}" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-Width="20%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Total Indirecto" DataField="SubTotal" DataFormatString="{0:n2}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Moneda" DataField="Abreviatura" ItemStyle-Width="10%" />
|
||||
<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
|
||||
<%--<asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>--%>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -17,9 +17,9 @@
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
<asp:UpdatePanel runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<%--<li>
|
||||
<asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton>
|
||||
</li>
|
||||
</li>--%>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
@@ -42,12 +42,12 @@
|
||||
<asp:TextBox runat="server" Width="80px" ID="TxtFolio"></asp:TextBox>
|
||||
</div>
|
||||
<div class="col-md-1" style="max-width: 100px;">Proveedor:</div>
|
||||
<div class="col-md-3">
|
||||
<div class="col-sm-2">
|
||||
<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1" style="max-width: 90px">Fecha Inicio:</div>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;">
|
||||
<div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div>
|
||||
<div class="col-md-1">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
|
||||
<asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgFechaI" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
|
||||
@@ -58,9 +58,9 @@
|
||||
<ajax:ValidatorCalloutExtender ID="VCOFechaI" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-1" style="max-width: 70px">Fecha Fin:</div>
|
||||
<div class="col-md-2">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-bottom: -15px;">
|
||||
<div class="col-md-1" style="max-width: 120px">Fecha Fin:</div>
|
||||
<div class="col-md-1">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding:unset" >
|
||||
<asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Onblur="Recalculafechapago();" ValidationGroup="GrpGuardar" Width="80px" ClientIDMode="Static"></asp:TextBox>
|
||||
<span class="input-group-btn ">
|
||||
<asp:LinkButton runat="server" ID="ImgFechaF" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
|
||||
@@ -71,6 +71,14 @@
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-1" style="max-width: 70px;">Opción:</div>
|
||||
<div class="col-sm-2">
|
||||
<asp:DropDownList runat="server" ID="DdlTipoGasto" Width="100%" CssClass="select2me">
|
||||
<asp:ListItem Text="Todo" Value="-1" />
|
||||
<asp:ListItem Text="Costo Indirectos multiples facturas" Value="1" Selected="True" />
|
||||
<asp:ListItem Text="Costo Indirecto en misma factura" Value="2" />
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -81,8 +89,8 @@
|
||||
<table class="table Widthall ">
|
||||
<tr>
|
||||
<td style="font-size: 14px; width: 20%; border-right: 3px solid white;"></td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>
|
||||
<%--<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 35%; border-right: 3px solid white;">Facturas de Costo Indirecto</td>
|
||||
<td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Documento (OC/Compra)</td>--%>
|
||||
</tr>
|
||||
</table>
|
||||
<a target="_blank" href="#"></a>
|
||||
@@ -91,17 +99,33 @@
|
||||
<div class="col-md-12">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay fletes" ToolTip="Fletes" OnRowDataBound="GvDatos_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" DataKeyNames="CveFlete">
|
||||
<Columns>
|
||||
<asp:HyperLinkField HeaderText="Proveedor" Target="_blank" DataTextField="RazonSocial" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
|
||||
<asp:HyperLinkField HeaderText="Folio" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
|
||||
<asp:HyperLinkField HeaderText="Fecha" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
|
||||
<asp:HyperLinkField HeaderText="Descripción" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
|
||||
|
||||
<asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
|
||||
<asp:TemplateField HeaderText="Folio">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HlkFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Fecha">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HlkFecha" runat="server" Text='<%# Eval("Fecha", "{0:dd/M/yyyy}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Descripción">
|
||||
<ItemTemplate>
|
||||
<asp:HyperLink ID="HlkDescripcion" runat="server" Text='<%# Eval("Descripcion")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<%--<asp:HyperLinkField HeaderText="Folio" ID="HlkFolio" runat="server" Target="_blank" ItemStyle-HorizontalAlign="Center" DataTextField="Folio" ItemStyle-Width="5%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
|
||||
<asp:HyperLinkField HeaderText="Fecha" ID="HlkFecha" runat="server" Target="_blank" DataTextField="Fecha" ItemStyle-HorizontalAlign="Center" DataTextFormatString="{0:d}" ItemStyle-Width="10%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />
|
||||
<asp:HyperLinkField HeaderText="Descripción" ID="HlkDescripcion" runat="server" Target="_blank" DataTextField="Descripcion" ItemStyle-Width="20%" DataNavigateUrlFormatString="/Inventarios/Fletes.aspx?CveFlete={0}" DataNavigateUrlFields="CveFlete" />--%>
|
||||
<asp:BoundField HeaderText="Total Productos" DataField="Importe" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Total Indirectos" DataField="Costo" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Total" DataField="General" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
|
||||
<%--<asp:BoundField HeaderText="Folio" DataField="FolioDocumento" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Fecha" DataField="FechaDocumento" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" ItemStyle-Width="10%" />
|
||||
<asp:BoundField HeaderText="Descripción" DataField="DescripcionDocumento" ItemStyle-Width="20%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" ItemStyle-Width="5%" />
|
||||
<asp:BoundField HeaderText="Importe" DataField="TotalDocumento" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" ItemStyle-Width="5%" />--%>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -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 = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
|
||||
e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
|
||||
e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
|
||||
e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
|
||||
'e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
|
||||
'e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
|
||||
'e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
|
||||
'e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -29,7 +29,7 @@
|
||||
<div>
|
||||
<input name="ctl00$C$TxtBusqueda" type="text" id="TxtBusqueda" class="form-control input-sm TxtBusqueda" placeholder="" data-table=".GVSearch" style="width: 100%">
|
||||
</div>
|
||||
<asp:GridView ID="GvEmpresas" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros"
|
||||
<asp:GridView ID="GvEmpresas" runat="server" DataKeyNames="CveUsuario, Contraseña, Usuario,CveEmpresa" AutoGenerateColumns="false"
|
||||
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch" Style="margin-top: -10px; text-align: center;"
|
||||
GridLines="None">
|
||||
<Columns>
|
||||
@@ -75,6 +75,20 @@
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<asp:GridView ID="GvPortalProveedor" runat="server" DataKeyNames="CveUsuario, CveProveedor, Contraseña, Usuario, CveEmpresa" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false"
|
||||
Width="100%" ToolTip="Listado de Empresas a las que tiene acceso." CssClass="table table-striped table-advance table-hover GVSearch"
|
||||
Style="margin-top: -10px; text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Portal del Proveedor</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkEmp" runat="server" CssClass="Texto" Text='<%# Eval("ProveedorEmpresa")%>' CommandArgument='<%# Eval("CveProveedor") %>' CommandName="Cambia"></asp:LinkButton>
|
||||
</ItemTemplate>
|
||||
<ItemStyle HorizontalAlign="Left" />
|
||||
<HeaderStyle HorizontalAlign="Left" />
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
@@ -110,6 +124,9 @@
|
||||
function Ir4() {
|
||||
gotourl('/PortalCliente/PortalCliente.aspx');
|
||||
}
|
||||
function Ir5() {
|
||||
gotourl('/PortalProveedor/PortalProveedor.aspx');
|
||||
}
|
||||
|
||||
function buscarDT() {
|
||||
$('.TxtBusqueda').on('keyup', function () {
|
||||
|
||||
@@ -12,8 +12,6 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
CType(Me.Master, BaseMasterPage).EsPopup = True
|
||||
'CType(Me.Master, BaseMasterPage).PopupWidth = HdnAncho.Value.ToEntero
|
||||
'RegistraScript("alertSize();")
|
||||
GetEmpresas()
|
||||
End If
|
||||
End Sub
|
||||
@@ -23,13 +21,26 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
|
||||
If Dt IsNot Nothing Then
|
||||
If Dt.Rows.Count > 0 Then
|
||||
LtlTotalRegistros.Text = Dt.Rows.Count.ToString.FormatoNumero(0)
|
||||
GvEmpresas.DataSource = Dt.FiltraParametros("CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)", "Empresa")
|
||||
Dim NumRegistros As Integer = 0
|
||||
GvEmpresas.DataSource = Dt.FiltraParametros("(CvePlataforma = 1 OR (CvePlataforma = 3 AND CveCliente IS NULL)) AND CvePlataformaUsuario NOT IN (6,7)", "Empresa")
|
||||
NumRegistros += DirectCast(GvEmpresas.DataSource, System.Data.DataTable).Rows.Count
|
||||
|
||||
GvPortalRastreo.DataSource = Dt.FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
|
||||
GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
|
||||
NumRegistros += DirectCast(GvPortalRastreo.DataSource, System.Data.DataTable).Rows.Count
|
||||
|
||||
GvPortalCliente.DataSource = Dt.FiltraParametros("CvePlataforma = 6 AND CveCliente IS NOT NULL", "Empresa")
|
||||
NumRegistros += DirectCast(GvPortalCliente.DataSource, System.Data.DataTable).Rows.Count
|
||||
|
||||
GvPortalProveedor.DataSource = Dt.FiltraParametros("CvePlataforma = 7 AND CveProveedor IS NOT NULL", "Empresa")
|
||||
NumRegistros += DirectCast(GvPortalProveedor.DataSource, System.Data.DataTable).Rows.Count
|
||||
|
||||
LtlTotalRegistros.Text = NumRegistros.ToString().FormatoNumero(0)
|
||||
Else
|
||||
LtlTotalRegistros.Text = "0"
|
||||
GvEmpresas.DataSource = Nothing
|
||||
GvPortalRastreo.DataSource = Nothing
|
||||
GvPortalCliente.DataSource = Nothing
|
||||
GvPortalProveedor.DataSource = Nothing
|
||||
Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
@@ -37,6 +48,7 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
GvEmpresas.DataBind()
|
||||
GvPortalRastreo.DataBind()
|
||||
GvPortalCliente.DataBind()
|
||||
GvPortalProveedor.DataBind()
|
||||
|
||||
UPDatos.Update()
|
||||
|
||||
@@ -116,7 +128,6 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
|
||||
If e.CommandName = "Cambia" Then
|
||||
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
||||
@@ -125,7 +136,7 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
|
||||
Dim ObjUsuario As New ClsSisUsuarios
|
||||
Dim Usuario As Usuario = Nothing
|
||||
Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente"), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
|
||||
Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
|
||||
|
||||
ObjUsuario.Dispose()
|
||||
|
||||
@@ -155,7 +166,48 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand
|
||||
If e.CommandName = "Cambia" Then
|
||||
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
|
||||
|
||||
If gvr IsNot Nothing Then
|
||||
|
||||
Dim ObjUsuario As New ClsSisUsuarios
|
||||
Dim Usuario As Usuario = Nothing
|
||||
Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
|
||||
|
||||
ObjUsuario.Dispose()
|
||||
|
||||
If Usuario IsNot Nothing Then
|
||||
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
|
||||
|
||||
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
|
||||
Usuario.ModoSimulacion = ModoSimulacion
|
||||
ADSSession.ADSSessionConfig.sessionUser = Usuario
|
||||
ADSSession.ADSSessionConfig.sessionDpage = False
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
If dt.Rows.Count >= 1 Then
|
||||
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
|
||||
Usuario.CvePlataforma = 7
|
||||
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
|
||||
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
|
||||
CreaObjetoEmpresa(Usuario)
|
||||
'si la contraseña es la prederminada, pide la nueva contraseña
|
||||
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
|
||||
RegistraScript("Ir5();")
|
||||
End If
|
||||
End If
|
||||
dt.Dispose()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "F U N C I O N E S"
|
||||
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click
|
||||
RegistraScript(String.Format("$get('tdContenido').style.height='{0}px'; $get('tdContenido').style.width='{1}px'", HdnAlto.Value.ToEntero - 30, HdnAncho.Value.ToEntero - 30))
|
||||
End Sub
|
||||
@@ -181,8 +233,6 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
End If
|
||||
ObjEmpresa.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub GuardaLogR(Mensaje As String)
|
||||
Dim ArchivoW As IO.StreamWriter
|
||||
Dim MensajeLog As String = ""
|
||||
@@ -209,6 +259,7 @@ Partial Class PopUpSeleccionarEmpresa
|
||||
End Try
|
||||
ArchivoW.Close()
|
||||
ArchivoW.Dispose()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -94,14 +94,14 @@ public class TareasJam : IHttpHandler
|
||||
|
||||
//"ftp://us2.hostedftp.com/", "agrojam", "A12345678";
|
||||
|
||||
//string FTPServer = "ftp://127.0.0.1/";
|
||||
//string TFPUsr = "Toor";
|
||||
//string FTPPass = "agj-3500";
|
||||
string FTPServer = "ftp://127.0.0.1/";
|
||||
string TFPUsr = "Toor";
|
||||
string FTPPass = "agj-3500";
|
||||
|
||||
|
||||
string FTPServer = "ftp://us2.hostedftp.com";
|
||||
string TFPUsr = "agrojam";
|
||||
string FTPPass = "A12345678";
|
||||
//string FTPServer = "ftp://us2.hostedftp.com";
|
||||
//string TFPUsr = "agrojam";
|
||||
//string FTPPass = "A12345678";
|
||||
|
||||
bool ErrorProceso = false;
|
||||
|
||||
@@ -198,8 +198,8 @@ public class TareasJam : IHttpHandler
|
||||
DTAlmacenes.AcceptChanges();
|
||||
|
||||
|
||||
DataTable dtCloned = DTVentas.Clone();
|
||||
dtCloned.Columns[3].DataType = typeof(string);
|
||||
DataTable dtCloned = DTVentas.Clone();
|
||||
dtCloned.Columns[3].DataType = typeof(DateTime);
|
||||
|
||||
foreach (DataRow row in DTVentas.Rows)
|
||||
{
|
||||
@@ -207,17 +207,17 @@ public class TareasJam : IHttpHandler
|
||||
}
|
||||
|
||||
DTVentas = dtCloned;
|
||||
foreach(DataRow dRow in DTVentas.Rows)
|
||||
foreach (DataRow dRow in DTVentas.Rows)
|
||||
{
|
||||
string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
|
||||
dRow[3] = tmpString;
|
||||
DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
|
||||
dRow[3] = tmpDate;
|
||||
}
|
||||
|
||||
DTVentas.AcceptChanges();
|
||||
|
||||
|
||||
dtCloned = DTAlmacenes.Clone();
|
||||
dtCloned.Columns[3].DataType = typeof(string);
|
||||
dtCloned = DTAlmacenes.Clone();
|
||||
dtCloned.Columns[3].DataType = typeof(DateTime);
|
||||
|
||||
foreach (DataRow row in DTAlmacenes.Rows)
|
||||
{
|
||||
@@ -225,10 +225,10 @@ public class TareasJam : IHttpHandler
|
||||
}
|
||||
|
||||
DTAlmacenes = dtCloned;
|
||||
foreach(DataRow dRow in DTAlmacenes.Rows)
|
||||
foreach (DataRow dRow in DTAlmacenes.Rows)
|
||||
{
|
||||
string tmpString = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
|
||||
dRow[3] = tmpString;
|
||||
DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
|
||||
dRow[3] = tmpDate;
|
||||
}
|
||||
DTAlmacenes.AcceptChanges();
|
||||
|
||||
@@ -252,6 +252,16 @@ public class TareasJam : IHttpHandler
|
||||
|
||||
SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
|
||||
|
||||
var workbookAlmacenes = new ExcelFile();
|
||||
var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
|
||||
worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
|
||||
{
|
||||
ColumnHeaders = true,
|
||||
StartRow = 0
|
||||
});
|
||||
worksheetAlmacenes.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
|
||||
workbookAlmacenes.Save(RutaAlmacenes);
|
||||
|
||||
var workbookProductos = new ExcelFile();
|
||||
var worksheetProductos = workbookProductos.Worksheets.Add("Productos");
|
||||
worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions()
|
||||
@@ -268,6 +278,7 @@ public class TareasJam : IHttpHandler
|
||||
ColumnHeaders = true,
|
||||
StartRow = 0
|
||||
});
|
||||
worksheetVentas.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
|
||||
workbookVentas.Save(RutaVentas);
|
||||
|
||||
|
||||
@@ -281,14 +292,7 @@ public class TareasJam : IHttpHandler
|
||||
workbookClientes.Save(RutaClientes);
|
||||
|
||||
|
||||
var workbookAlmacenes = new ExcelFile();
|
||||
var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
|
||||
worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
|
||||
{
|
||||
ColumnHeaders = true,
|
||||
StartRow = 0
|
||||
});
|
||||
workbookAlmacenes.Save(RutaAlmacenes);
|
||||
|
||||
|
||||
|
||||
var FInfoProductos = new FileInfo(RutaProductos);
|
||||
@@ -434,8 +438,8 @@ public class TareasJam : IHttpHandler
|
||||
|
||||
|
||||
ClsSisMail Correo = new ClsSisMail();
|
||||
string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
|
||||
//string Para = "oscar.irigoyen@adssistemas.mx";
|
||||
// string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
|
||||
string Para = "oscar.irigoyen@adssistemas.mx";
|
||||
string Asunto = ErrorProceso ? $"Carga Layout Corteva {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
|
||||
|
||||
Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);
|
||||
|
||||
@@ -548,15 +548,19 @@ Public Class WSApp
|
||||
Salida.CveSubProyecto = UsuarioActual.CveSubProyecto
|
||||
Salida.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
|
||||
|
||||
If ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
If UsuarioActual.CveCliente > 0 AndAlso ObjClientes.GetClientes(UsuarioActual.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
Salida.Cliente = ObjClientes.Nombre
|
||||
Salida.CvePrecioLista = ObjClientes.CvePrecioLista
|
||||
Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
|
||||
End If
|
||||
End If
|
||||
|
||||
retorno = JsonConvert.SerializeObject(Salida)
|
||||
Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
|
||||
|
||||
retorno = JsonConvert.SerializeObject(Salida)
|
||||
End If
|
||||
Else
|
||||
retorno = "{}"
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
retorno = "{}"
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user