Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -3866,7 +3866,7 @@ Public Class ClsContabilidad
|
|||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional Sat As Integer = 0) As Boolean
|
Public Function GetBalanzaComprobacion(FechaI As Date, FechaF As Date, TipoCuentas As Integer, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional Sat As Integer = 0, Optional NivelCuenta As Integer = -1) As Boolean
|
||||||
Dim Retorno = False
|
Dim Retorno = False
|
||||||
|
|
||||||
|
|
||||||
@@ -3880,6 +3880,7 @@ Public Class ClsContabilidad
|
|||||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
.Add("@SAT", SqlDbType.Int).Value = Sat
|
.Add("@SAT", SqlDbType.Int).Value = Sat
|
||||||
|
.Add("@NivelCuenta", SqlDbType.Int).Value = NivelCuenta
|
||||||
End With
|
End With
|
||||||
SqlAdapter.SelectCommand.CommandTimeout = 0
|
SqlAdapter.SelectCommand.CommandTimeout = 0
|
||||||
|
|
||||||
|
|||||||
@@ -252,7 +252,7 @@ Public Class ClsMovimientos
|
|||||||
TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
|
TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
|
||||||
Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
|
Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
|
||||||
Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional CveMoneda As Integer = -1,
|
Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional CveMoneda As Integer = -1,
|
||||||
Optional TieneLineaAdicional As Integer = -1) As Boolean
|
Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean
|
||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
'Data = New DataTable
|
'Data = New DataTable
|
||||||
@@ -287,7 +287,8 @@ Public Class ClsMovimientos
|
|||||||
.Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
|
.Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
|
||||||
.Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
|
.Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
|
||||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||||
.Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
|
.Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
|
||||||
|
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
@@ -338,7 +339,8 @@ Public Class ClsMovimientos
|
|||||||
CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
|
CveResponsable As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1",
|
||||||
Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
|
Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
|
||||||
Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
|
Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1,
|
||||||
Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1, Optional TieneLineaAdicional As Integer = -1) As Boolean
|
Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1,
|
||||||
|
Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean
|
||||||
|
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
DS = New DataSet
|
DS = New DataSet
|
||||||
@@ -382,6 +384,7 @@ Public Class ClsMovimientos
|
|||||||
.Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
|
.Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente
|
||||||
.Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
|
.Add("@AplicaAnticiposPagados", SqlDbType.Int).Value = AplicaAnticiposPagados
|
||||||
.Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
|
.Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional
|
||||||
|
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -726,7 +726,7 @@ Public Class ClsOS
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
|
||||||
Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
|
Public Function UpdateOrdenesServiciosFinaliza(CveOS As Integer, CveOSDetalle As Integer, CvePS As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_OS_OrdenesServiciosFinalizaUpdate")
|
DataAdapter("PA_OS_OrdenesServiciosFinalizaUpdate")
|
||||||
@@ -736,6 +736,7 @@ Public Class ClsOS
|
|||||||
.Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
|
.Add("@CveOSDetalle", SqlDbType.Int).Value = CveOSDetalle
|
||||||
.Add("@CvePS", SqlDbType.Int).Value = CvePS
|
.Add("@CvePS", SqlDbType.Int).Value = CvePS
|
||||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||||
|
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||||
|
|
||||||
End With
|
End With
|
||||||
|
|
||||||
@@ -744,7 +745,16 @@ Public Class ClsOS
|
|||||||
Retorno = True
|
Retorno = True
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
OnError("Ocurrió un error al guardar los cambios en La Orden de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
|
||||||
|
If Opcion = 1 Then
|
||||||
|
OnError("Ocurrió un error al finalizar la orden de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
ElseIf Opcion = 2 Then
|
||||||
|
OnError("Ocurrió un error al cencelar la orden de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
Else
|
||||||
|
OnError("Ocurrió un error al finalizar la orden de servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
|
|||||||
@@ -1316,7 +1316,7 @@ Public Class ClsSisUsuarios
|
|||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
End Function
|
End Function
|
||||||
Public Function GetPermisosPorUsuarioProcesos(CveUsuario As Integer, CvePadre As Integer, CveRol As Integer, CveModulo As Integer, CveProceso As Integer, Optional CveUsuarioActual As Integer = -1) As Boolean
|
Public Function GetPermisosPorUsuarioProcesos(CveUsuario As Integer, CvePadre As Integer, CveRol As Integer, CveModulo As Integer, CveProceso As Integer, Optional CveUsuarioActual As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_Sis_PermisosPorUsuarioProcesosGet")
|
DataAdapter("PA_Sis_PermisosPorUsuarioProcesosGet")
|
||||||
@@ -1327,6 +1327,7 @@ Public Class ClsSisUsuarios
|
|||||||
.Add("@CveModulo", SqlDbType.Int).Value = CveModulo
|
.Add("@CveModulo", SqlDbType.Int).Value = CveModulo
|
||||||
.Add("@CveProceso", SqlDbType.Int).Value = CveProceso
|
.Add("@CveProceso", SqlDbType.Int).Value = CveProceso
|
||||||
.Add("@CveUsuarioActual", SqlDbType.Int).Value = CveUsuarioActual
|
.Add("@CveUsuarioActual", SqlDbType.Int).Value = CveUsuarioActual
|
||||||
|
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa 'Opcional si se envia en -1 se cargan los usuarios de la empresa de los usuarios enviados
|
||||||
End With
|
End With
|
||||||
|
|
||||||
Try
|
Try
|
||||||
|
|||||||
@@ -418,7 +418,7 @@ Public Class ClsVentas
|
|||||||
Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
|
Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
|
||||||
Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
|
Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
|
||||||
Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1",
|
Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1",
|
||||||
Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1) As Boolean
|
Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "") As Boolean
|
||||||
Dim Retorno As Boolean = False
|
Dim Retorno As Boolean = False
|
||||||
|
|
||||||
DataAdapter("PA_VentasAdd")
|
DataAdapter("PA_VentasAdd")
|
||||||
@@ -517,6 +517,7 @@ Public Class ClsVentas
|
|||||||
.Add("@DevolucionImportePagado", SqlDbType.Money).Value = DevolucionImportePagado
|
.Add("@DevolucionImportePagado", SqlDbType.Money).Value = DevolucionImportePagado
|
||||||
.Add("@EsGarantia", SqlDbType.Bit).Value = EsGarantia
|
.Add("@EsGarantia", SqlDbType.Bit).Value = EsGarantia
|
||||||
.Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
|
.Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
|
||||||
|
.Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta
|
||||||
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
||||||
End With
|
End With
|
||||||
'SqlTypes.SqlDateTime.Null
|
'SqlTypes.SqlDateTime.Null
|
||||||
|
|||||||
@@ -2109,10 +2109,10 @@ Namespace Modelos
|
|||||||
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
|
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
|
||||||
For Each RowSalida As DataRow In DtMovimientos.Rows
|
For Each RowSalida As DataRow In DtMovimientos.Rows
|
||||||
Dim Cantidad As Decimal = RowSalida("Cantidad").ToString().ToDecimal() * -1
|
Dim Cantidad As Decimal = RowSalida("Cantidad").ToString().ToDecimal() * -1
|
||||||
Dim Puntos As Decimal = RowSalida("Puntos").ToString().ToDecimal()
|
Dim Puntos As Decimal = RowSalida("Puntos").ToString().ToDecimal() * -1
|
||||||
|
|
||||||
Dim ImporteCargo As Decimal = RowSalida("ImporteCargo").ToString().ToDecimal()
|
Dim ImporteCargo As Decimal = RowSalida("ImporteCargo").ToString().ToDecimal() * -1
|
||||||
Dim ImporteBonificacion As Decimal = RowSalida("ImporteBonificacion").ToString().ToDecimal()
|
Dim ImporteBonificacion As Decimal = RowSalida("ImporteBonificacion").ToString().ToDecimal() * -1
|
||||||
|
|
||||||
Dim FacturadoBonificacion = False
|
Dim FacturadoBonificacion = False
|
||||||
Dim CveVentaBonificacion As Integer = -1
|
Dim CveVentaBonificacion As Integer = -1
|
||||||
@@ -2194,6 +2194,10 @@ Namespace Modelos
|
|||||||
|
|
||||||
For Each Dr As DataRow In factura.DtMovimientosUsados.Rows
|
For Each Dr As DataRow In factura.DtMovimientosUsados.Rows
|
||||||
|
|
||||||
|
If factura.EsGarantia Then
|
||||||
|
ImporteConcepto = Dr("PU").ToString().ToDecimal()
|
||||||
|
End If
|
||||||
|
|
||||||
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
|
||||||
'Mensaje = "Error al guardar los movimientos"
|
'Mensaje = "Error al guardar los movimientos"
|
||||||
Resultado = False
|
Resultado = False
|
||||||
@@ -2591,27 +2595,63 @@ Namespace Modelos
|
|||||||
CveMovimientoReferencia = CveMovimiento
|
CveMovimientoReferencia = CveMovimiento
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
|
If ObjFactura.EsGarantia Then
|
||||||
Dim Importe68 As Decimal = 0
|
If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
|
||||||
|
Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador
|
||||||
|
|
||||||
Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
|
Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
|
||||||
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=Importe68, Contabilizable:=False) Then
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=Importe68, Contabilizable:=False) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
|
||||||
|
Dim Importe68 As Decimal = 0
|
||||||
|
|
||||||
|
Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
|
||||||
|
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=Importe68, Contabilizable:=False) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
||||||
|
ErrorPrepoliza = True
|
||||||
|
End If
|
||||||
Else
|
Else
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then
|
|
||||||
ErrorPrepoliza = True
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ErrorPrepoliza = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
importeMovimiento = 0
|
importeMovimiento = 0
|
||||||
ObjFactura.SeGuardoPrePoliza = True
|
ObjFactura.SeGuardoPrePoliza = True
|
||||||
|
|||||||
@@ -383,7 +383,10 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
'TAREAS PROGRAMADAS
|
'TAREAS PROGRAMADAS
|
||||||
Select Case Metodo
|
Select Case Metodo
|
||||||
Case "CrearActualizarProductos"
|
Case "CrearActualizarProductos"
|
||||||
|
|
||||||
|
GuardaLogAD("NP-Inicia actualizacion de productos", "LogE141")
|
||||||
respuesta = CrearActualizarProductos(If(FiltrarTodos = "1", True, False))
|
respuesta = CrearActualizarProductos(If(FiltrarTodos = "1", True, False))
|
||||||
|
GuardaLogAD("NP-Finaliza actualizacion de productos", "LogE141")
|
||||||
If respuesta Then
|
If respuesta Then
|
||||||
retorno = "True"
|
retorno = "True"
|
||||||
Else
|
Else
|
||||||
@@ -392,7 +395,9 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Case "CrearActualizarProductosJson"
|
Case "CrearActualizarProductosJson"
|
||||||
retorno = CrearActualizarProductosJson(If(FiltrarTodos = "1", True, False))
|
retorno = CrearActualizarProductosJson(If(FiltrarTodos = "1", True, False))
|
||||||
Case "ActualizarPrecios"
|
Case "ActualizarPrecios"
|
||||||
|
GuardaLogAD("AP-Inicia actualizacion de precios", "LogE141")
|
||||||
respuesta = ActualizarPrecios(If(FiltrarTodos = "1", True, False))
|
respuesta = ActualizarPrecios(If(FiltrarTodos = "1", True, False))
|
||||||
|
GuardaLogAD("AP-Finaliza actualizacion de precios", "LogE141")
|
||||||
If respuesta Then
|
If respuesta Then
|
||||||
retorno = "True"
|
retorno = "True"
|
||||||
Else
|
Else
|
||||||
@@ -401,7 +406,9 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Case "ActualizarPreciosJson"
|
Case "ActualizarPreciosJson"
|
||||||
retorno = ActualizarPreciosJson(If(FiltrarTodos = "1", True, False))
|
retorno = ActualizarPreciosJson(If(FiltrarTodos = "1", True, False))
|
||||||
Case "ActualizarExistencias"
|
Case "ActualizarExistencias"
|
||||||
|
GuardaLogAD("AE-Inicia actualizacion de existencias", "LogE141")
|
||||||
respuesta = ActualizarExistencias()
|
respuesta = ActualizarExistencias()
|
||||||
|
GuardaLogAD("AE-Finaliza actualizacion de existencias", "LogE141")
|
||||||
If respuesta Then
|
If respuesta Then
|
||||||
retorno = "True"
|
retorno = "True"
|
||||||
Else
|
Else
|
||||||
@@ -410,7 +417,9 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Case "ActualizarExistenciasJson"
|
Case "ActualizarExistenciasJson"
|
||||||
retorno = ActualizarExistenciasJson(If(FiltrarTodos = "1", True, False))
|
retorno = ActualizarExistenciasJson(If(FiltrarTodos = "1", True, False))
|
||||||
Case "ActualizarVendedores"
|
Case "ActualizarVendedores"
|
||||||
|
GuardaLogAD("AV-Inicia actualizacion de vendedores", "LogE141")
|
||||||
respuesta = ActualizarVendedores(If(FiltrarTodos = "1", True, False))
|
respuesta = ActualizarVendedores(If(FiltrarTodos = "1", True, False))
|
||||||
|
GuardaLogAD("AV-Finaliza actualizacion de vendedores", "LogE141")
|
||||||
If respuesta Then
|
If respuesta Then
|
||||||
retorno = "True"
|
retorno = "True"
|
||||||
Else
|
Else
|
||||||
@@ -1923,7 +1932,12 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
GuardaLogAD("NP-Creacion/actualizacion de productos exitosa", "LogE141")
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"NP-No se pudo realizar la Creacion/actualizacion de productos ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"NP-No se pudo realizar la Creacion/actualizacion de productos ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
@@ -1958,7 +1972,12 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
GuardaLogAD("NP-Creacion/actualizacion de productos exitosa", "LogE141")
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"NP-No se pudo realizar la Creacion/actualizacion de productos ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"NP-No se pudo realizar la Creacion/actualizacion de productos ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Threading.Thread.Sleep(1000)
|
Threading.Thread.Sleep(1000)
|
||||||
@@ -2071,8 +2090,13 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
If IsValidJson(resp) Then
|
If IsValidJson(resp) Then
|
||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
|
GuardaLogAD("AP-Actualizacion de precios exitosa", "LogE141")
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AP-No se pudo actualizar precios ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AP-No se pudo actualizar precios ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
@@ -2103,7 +2127,12 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
GuardaLogAD("AP-Actualizacion de precios exitosa", "LogE141")
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AP-No se pudo actualizar precios ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AP-No se pudo actualizar precios ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Threading.Thread.Sleep(1000)
|
Threading.Thread.Sleep(1000)
|
||||||
@@ -2186,7 +2215,12 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
GuardaLogAD("AE-Actualizacion de existencias exitosa", "LogE141")
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AE-No se pudo actualizar existencias ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AE-No se pudo actualizar existencias ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
@@ -2217,7 +2251,12 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
GuardaLogAD("AE-Actualizacion de existencias exitosa", "LogE141")
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AE-No se pudo actualizar existencias ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AE-No se pudo actualizar existencias ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
Threading.Thread.Sleep(1000)
|
Threading.Thread.Sleep(1000)
|
||||||
End While
|
End While
|
||||||
@@ -2338,7 +2377,12 @@ Public Class E141 : Implements IHttpHandler
|
|||||||
Dim respuesta = JObject.Parse(resp)
|
Dim respuesta = JObject.Parse(resp)
|
||||||
If respuesta("status").ToString() = "success" Then
|
If respuesta("status").ToString() = "success" Then
|
||||||
CountPeticionesExitosas += 1
|
CountPeticionesExitosas += 1
|
||||||
|
GuardaLogAD("AV-Actualizacion de vendedores exitosa", "LogE141")
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AV-No se pudo actualizar vendedores ${respuesta.ToString()}", "LogE141")
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
GuardaLogAD($"AV-No se pudo actualizar vendedores ${resp}", "LogE141")
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
@@ -4198,6 +4198,13 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
'------------------ INICIA VALIDACIONES ------------------
|
'------------------ INICIA VALIDACIONES ------------------
|
||||||
|
|
||||||
|
If Not ValidaVincuacionNotaFactura() Then
|
||||||
|
Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not ValidaSeleccionAnticipo() Then
|
If Not ValidaSeleccionAnticipo() Then
|
||||||
Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
|
Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
@@ -8327,6 +8334,34 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Function ValidaVincuacionNotaFactura() As Boolean
|
||||||
|
|
||||||
|
Dim Respuesta As Boolean = False
|
||||||
|
|
||||||
|
|
||||||
|
If DdlTipoComprobante.SelectedValue.Contiene("NC") Then
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(531).ToString.ToEntero = 1 Then
|
||||||
|
|
||||||
|
For Each GvRow As GridViewRow In GvFacturaNC.Rows
|
||||||
|
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||||
|
If GvRow.FCCheckBox("ChkFacturaNC").Checked Then
|
||||||
|
Respuesta = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Else
|
||||||
|
Respuesta = True
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
Respuesta = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Return Respuesta
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
Private Function AjustaCombustibles() As Boolean
|
Private Function AjustaCombustibles() As Boolean
|
||||||
|
|
||||||
@@ -16127,6 +16162,15 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
If CveFactura > 0 Then
|
||||||
|
If DdlTipoComprobante.SelectedValue = "NC" Then
|
||||||
|
NCSeleccionFacturasRelacionadas(UUIDSList)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
UPCondicionesPago.Update()
|
UPCondicionesPago.Update()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
@@ -30,7 +30,7 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
<label class="col-md-1 ">Fecha Inicio:</label>
|
<label class="col-md-1 ">Fecha Inicio:</label>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
|
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||||
<asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
<asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
<span class="input-group-btn ">
|
<span class="input-group-btn ">
|
||||||
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
|
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
|
||||||
@@ -44,7 +44,7 @@
|
|||||||
</div>
|
</div>
|
||||||
<label class="col-md-1 truncate">Fecha Fin:</label>
|
<label class="col-md-1 truncate">Fecha Fin:</label>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
|
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
|
||||||
<asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
<asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
<span class="input-group-btn ">
|
<span class="input-group-btn ">
|
||||||
<asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
|
<asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
|
||||||
@@ -58,7 +58,7 @@
|
|||||||
</div>
|
</div>
|
||||||
<label class="col-md-1 truncate">Cuentas:</label>
|
<label class="col-md-1 truncate">Cuentas:</label>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
<asp:DropDownList CssClass="form-control input-sm" runat="server" ID="DdlTipoCuentas" Width="150px">
|
<asp:DropDownList CssClass="form-control input-sm select2me" runat="server" ID="DdlTipoCuentas" Width="150px">
|
||||||
<asp:ListItem Text="Todas" Value="1" />
|
<asp:ListItem Text="Todas" Value="1" />
|
||||||
<asp:ListItem Text="Con Movimientos" Value="2" />
|
<asp:ListItem Text="Con Movimientos" Value="2" />
|
||||||
<asp:ListItem Text="Saldo Actual no igual a cero" Value="3" />
|
<asp:ListItem Text="Saldo Actual no igual a cero" Value="3" />
|
||||||
@@ -76,23 +76,31 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="portlet-body" style="display: none">
|
<div class="portlet-body" style="display: none">
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<label class="col-md-2" style="width: 80px;">SubProyecto: </label>
|
<label class="col-md-1" >SubProyecto: </label>
|
||||||
<div class="col-md-2 ">
|
<div class="col-md-2 ">
|
||||||
<asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
<asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
|
||||||
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
|
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-2" runat="server" id="tdTipoReporte" visible="true">
|
|
||||||
<div class="row">
|
<label class="col-md-1 truncate">Tipo:</label>
|
||||||
<label class="col-md-3 truncate">Tipo:</label>
|
<div class="col-md-2">
|
||||||
<div class="col-md-9">
|
<asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm select2me" runat="server">
|
||||||
<asp:DropDownList ID="DdlTipoReporte" CssClass="form-control input-sm" runat="server">
|
<asp:ListItem Text="Contable" Value="1"></asp:ListItem>
|
||||||
<asp:ListItem Text="Contable" Value="1"></asp:ListItem>
|
<asp:ListItem Text="Contable y Complementarias" Value="2"></asp:ListItem>
|
||||||
<asp:ListItem Text="Contable y Complementarias" Value="2"></asp:ListItem>
|
<asp:ListItem Text="Complementarias" Value="3"></asp:ListItem>
|
||||||
<asp:ListItem Text="Complementarias" Value="3"></asp:ListItem>
|
</asp:DropDownList>
|
||||||
</asp:DropDownList>
|
</div>
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
|
<label class="col-md-1" >Nivel: </label>
|
||||||
|
<div class="col-md-2 ">
|
||||||
|
<asp:DropDownList ID="DdlNivel" runat="server" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" >
|
||||||
|
<asp:ListItem Selected="True" Text="Todo" Value="-1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Mayor" Value="1"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="Último nivel" Value="2"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -101,7 +101,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
|
|||||||
|
|
||||||
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
|
Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
|
||||||
|
|
||||||
If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa, 0) Then
|
If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa, 0, DdlNivel.SelectedValue.ToEntero) Then
|
||||||
DtDatos = ObjConta.DtResultados
|
DtDatos = ObjConta.DtResultados
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -362,6 +362,14 @@
|
|||||||
<asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
|
<asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
|
<div class="col-md-1 truncate" title="Tipo Cliente:" data-toggle="tooltip" data-placement="top">
|
||||||
|
Contrato:
|
||||||
|
</div>
|
||||||
|
<div class="col-md-2">
|
||||||
|
<asp:DropDownList ID="DdlContrato" runat="server" AppendDataBoundItems="true" DataTextField="TituloInfo" DataValueField="CveContrato" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||||
|
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
|
||||||
|
</asp:DropDownList>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -172,6 +172,20 @@ Partial Class RepCxC
|
|||||||
' Next
|
' Next
|
||||||
'End If
|
'End If
|
||||||
'ObjSisUsuarios.Dispose()
|
'ObjSisUsuarios.Dispose()
|
||||||
|
If UsuarioActual.CveEmpresa = 13 Then
|
||||||
|
CargaContratos()
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CargaContratos()
|
||||||
|
Dim ObjContratos As New ClsContratos
|
||||||
|
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=-1) Then
|
||||||
|
DdlContrato.DataSource = ObjContratos.DtResultados
|
||||||
|
End If
|
||||||
|
|
||||||
|
ObjContratos.Dispose()
|
||||||
|
DdlContrato.DataBind()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
@@ -454,6 +454,8 @@
|
|||||||
|
|
||||||
<label for="<%= HLkFolio.ClientID.ToString()%>" style="font-size:20px" >Folio: </label>
|
<label for="<%= HLkFolio.ClientID.ToString()%>" style="font-size:20px" >Folio: </label>
|
||||||
<asp:HyperLink ID="HLkFolio" runat="server" CssClass="Texto" Target="_blank" />
|
<asp:HyperLink ID="HLkFolio" runat="server" CssClass="Texto" Target="_blank" />
|
||||||
|
|
||||||
|
<asp:HyperLink ID="HLKPDF" runat="server" CssClass="Texto" Target="_blank" ToolTip="Descargar PDF" ><i class="fa fa-file-pdf-o" aria-hidden="true"></i></asp:HyperLink>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<br />
|
<br />
|
||||||
@@ -662,6 +664,8 @@
|
|||||||
<div class="modal-footer">
|
<div class="modal-footer">
|
||||||
<asp:LinkButton runat="server" ID="LnkModalAsignar" CssClass="btn btn-success" Text="Guardar" OnClick="LnkModalAsignar_Click" ValidationGroup="GrpAsignar"></asp:LinkButton>
|
<asp:LinkButton runat="server" ID="LnkModalAsignar" CssClass="btn btn-success" Text="Guardar" OnClick="LnkModalAsignar_Click" ValidationGroup="GrpAsignar"></asp:LinkButton>
|
||||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||||
|
<asp:LinkButton runat="server" ID="LnkCancelarOrden" CssClass="btn btn-danger" Text="Cancelar Orden" OnClick="LnkCancelarOrden_Click" Visible="false" >
|
||||||
|
</asp:LinkButton>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
@@ -722,32 +726,8 @@
|
|||||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVHoraFin" Width="300px"></ajax:ValidatorCalloutExtender>
|
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVHoraFin" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<%-- <div class="row">
|
|
||||||
<div class="col-md-4">
|
|
||||||
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
|
||||||
<label for="<%= TxtHorarioEnvio.ClientID.ToString() %>" style="font-size: 13px; color: #888888;">Hora de Envío:</label>
|
|
||||||
<div class="form-group form-md-line-input input-iconright">
|
|
||||||
<cc1:TimeSelector ID="TxtHorarioEnvio" runat="server" DisplaySeconds="false" DisplayButtons="false">
|
|
||||||
</cc1:TimeSelector>
|
|
||||||
<asp:CustomValidator ID="CustomValidator1" runat="server" ControlToValidate="TxtHorarioEnvio" Display="None" ErrorMessage="El campo <b>''Hora''</b> es necesario, por favor seleccione la hora correcta." ValidationGroup="GrpObligatorio" ValidateEmptyText="true"></asp:CustomValidator>
|
|
||||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="CVHoraInicio" Width="300px"></ajax:ValidatorCalloutExtender>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
</div>
|
|
||||||
</div>--%>
|
|
||||||
|
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
<div class="modal-footer">
|
<div class="modal-footer">
|
||||||
<asp:LinkButton runat="server" ID="LnkGuardarHorarioNoOpeartivo" CssClass="btn btn-success" Text="Guardar" OnClick="LnkGuardarHorarioNoOpeartivo_Click" ></asp:LinkButton>
|
<asp:LinkButton runat="server" ID="LnkGuardarHorarioNoOpeartivo" CssClass="btn btn-success" Text="Guardar" OnClick="LnkGuardarHorarioNoOpeartivo_Click" ></asp:LinkButton>
|
||||||
@@ -759,6 +739,45 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
<div id="DVModalCancelacionOrden" class="modal ADS fade" role="dialog">
|
||||||
|
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpmodalCacelaOrden" UpdateMode="Conditional">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="modal-content">
|
||||||
|
<div class="modal-header ">
|
||||||
|
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||||
|
<h4 class="modal-title">
|
||||||
|
<asp:Label runat="server" ID="LblModalCancelarTitulo">Cancelar Orden de Servicio</asp:Label></h4>
|
||||||
|
</div>
|
||||||
|
<div class="modal-body">
|
||||||
|
|
||||||
|
|
||||||
|
<div class="row">
|
||||||
|
<div class="col-md-12">
|
||||||
|
<div class="form-group form-md-line-input input-iconright">
|
||||||
|
<asp:TextBox ID="TxtModalCancelarOrdenMotivo" CssClass="form-control" runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
|
||||||
|
<asp:Label AssociatedControlID="TxtAnio" runat="server" Text="Motivo:"></asp:Label>
|
||||||
|
<asp:RequiredFieldValidator ID="RfvTxtModalCancelarOrdenMotivo" runat="server" ControlToValidate="TxtModalCancelarOrdenMotivo" CssClass="help-block errorimput"
|
||||||
|
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo''</b> es necesario, por favor ingréselo."
|
||||||
|
ValidationGroup="GrpCancelaOrden"></asp:RequiredFieldValidator>
|
||||||
|
<i></i>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
<div class="modal-footer">
|
||||||
|
<asp:LinkButton runat="server" ID="LnkmodalCancelarORdenServicio" CssClass="btn btn-danger" Text="Cancelar Orden" OnClick="LnkmodalCancelarORdenServicio_Click" ValidationGroup="GrpCancelaOrden" CausesValidation="true"
|
||||||
|
data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si"></asp:LinkButton>
|
||||||
|
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div style="display:none">
|
<div style="display:none">
|
||||||
|
|
||||||
|
|||||||
@@ -255,6 +255,22 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Private Property DTTecnicos As DataTable
|
||||||
|
Get
|
||||||
|
If ViewState("DTTecnicos") Is Nothing Then
|
||||||
|
ViewState("DTTecnicos") = New DataTable
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return DirectCast(ViewState("DTTecnicos"), DataTable)
|
||||||
|
End Get
|
||||||
|
|
||||||
|
Set(ByVal value As DataTable)
|
||||||
|
ViewState("DTTecnicos") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Enum OSModalTipoAccion
|
Enum OSModalTipoAccion
|
||||||
Agregar
|
Agregar
|
||||||
@@ -268,7 +284,7 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
If Not IsPostBack Then
|
If Not IsPostBack Then
|
||||||
|
CargaUsuariosTecnicos()
|
||||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
|
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
|
||||||
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
|
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
|
||||||
' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
|
' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text
|
||||||
@@ -281,10 +297,15 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
cargaDropsModal()
|
cargaDropsModal()
|
||||||
CargaClientePublicoGeneral()
|
CargaClientePublicoGeneral()
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.TienePermisoProceso(348) Then
|
If UsuarioActual.TienePermisoProceso(348) Then
|
||||||
DVModalAsignacion.Visible = True
|
DVModalAsignacion.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.TienePermisoProceso(352) Then
|
||||||
|
LnkCancelarOrden.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'RegistraScript(" PrimeraCargaCalendario = true;")
|
'RegistraScript(" PrimeraCargaCalendario = true;")
|
||||||
@@ -293,6 +314,18 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CargaUsuariosTecnicos()
|
||||||
|
|
||||||
|
DTTecnicos = New DataTable
|
||||||
|
|
||||||
|
Dim ObjUsuarios As New ClsSisUsuarios
|
||||||
|
If ObjUsuarios.GetPermisosPorUsuarioProcesos(-1, -1, -1, -1, 351, UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
||||||
|
DTTecnicos = ObjUsuarios.DtResultados.FiltraParametros(" CveProcesoUsuarioAcceso > 0")
|
||||||
|
End If
|
||||||
|
ObjUsuarios.Dispose()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
#Region "CARGAS"
|
#Region "CARGAS"
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
@@ -323,7 +356,7 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaTecnicos()
|
Private Sub CargaTecnicos()
|
||||||
DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||||
DdlTecnico.DataBind()
|
DdlTecnico.DataBind()
|
||||||
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
End Sub
|
End Sub
|
||||||
@@ -352,7 +385,7 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
|
|
||||||
'ObjOS.Dispose()
|
'ObjOS.Dispose()
|
||||||
|
|
||||||
DdlTecnicoAsignar.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
|
DdlTecnicoAsignar.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
|
||||||
DdlTecnicoAsignar.DataBind()
|
DdlTecnicoAsignar.DataBind()
|
||||||
DdlTecnicoAsignar.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
DdlTecnicoAsignar.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||||
|
|
||||||
@@ -716,6 +749,9 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
HLkFolio.Text = ObjOS.Folio.ToString
|
HLkFolio.Text = ObjOS.Folio.ToString
|
||||||
HLkFolio.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={ObjOS.CveOS}"
|
HLkFolio.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={ObjOS.CveOS}"
|
||||||
|
|
||||||
|
HLKPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=OS&CVEOS={0}", ObjOS.CveOS))}"
|
||||||
|
|
||||||
|
|
||||||
HFCveOS.Value = ObjOS.CveOS.ToString
|
HFCveOS.Value = ObjOS.CveOS.ToString
|
||||||
HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString
|
HFCveOsDetalle.Value = ObjOS.CveOSDetalle.ToString
|
||||||
TxtDescripcion.Text = ObjOS.Descripcion
|
TxtDescripcion.Text = ObjOS.Descripcion
|
||||||
@@ -743,18 +779,31 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
FechaInicioOriginal = ObjOS.FechaInicio
|
FechaInicioOriginal = ObjOS.FechaInicio
|
||||||
TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy HH:mm")
|
TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy HH:mm")
|
||||||
DvModalSubProyecto.Visible = True
|
DvModalSubProyecto.Visible = True
|
||||||
|
LblModalOStitulo.Text = "Actualizar Orden de Servicio"
|
||||||
'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour)
|
'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour)
|
||||||
'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute
|
'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute
|
||||||
'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
|
'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Dim TipoEstatus As Integer = 0
|
||||||
|
TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero
|
||||||
|
|
||||||
|
LnkModalAsignar.Visible = If(TipoEstatus.Contiene(5), False, True)
|
||||||
|
LnkCancelarOrden.Visible = If(TipoEstatus.Contiene(5), False, True)
|
||||||
|
|
||||||
|
If (TipoEstatus = 5) Then
|
||||||
|
LblModalOStitulo.Text = "Orden Cancelada"
|
||||||
|
End If
|
||||||
|
|
||||||
RegistraScript("$('#DVModalOS').modal('show');")
|
RegistraScript("$('#DVModalOS').modal('show');")
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
ObjOS.Dispose()
|
ObjOS.Dispose()
|
||||||
|
|
||||||
LblModalOStitulo.Text = "Actualizar Orden de Servicio"
|
|
||||||
|
|
||||||
ElseIf False Then ' Anterior
|
ElseIf False Then ' Anterior
|
||||||
|
|
||||||
@@ -1255,7 +1304,7 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
|
|
||||||
DdlTecnicoAsignarHorario.Items.Clear()
|
DdlTecnicoAsignarHorario.Items.Clear()
|
||||||
|
|
||||||
DdlTecnicoAsignarHorario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
|
DdlTecnicoAsignarHorario.DataSource = DTTecnicos 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
|
||||||
DdlTecnicoAsignarHorario.DataBind()
|
DdlTecnicoAsignarHorario.DataBind()
|
||||||
DdlTecnicoAsignarHorario.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
DdlTecnicoAsignarHorario.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||||
DdlTecnicoAsignarHorario.SelectedValueExist("-1")
|
DdlTecnicoAsignarHorario.SelectedValueExist("-1")
|
||||||
@@ -1393,4 +1442,89 @@ Partial Class OS_RepServicioDomicilio
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Protected Sub LnkCancelarOrden_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
RegistraScript($"$('#{TxtModalCancelarOrdenMotivo.ClientID}').focus();;$('#DVModalCancelacionOrden').modal('show');")
|
||||||
|
|
||||||
|
|
||||||
|
TxtModalCancelarOrdenMotivo.Focus()
|
||||||
|
TxtModalCancelarOrdenMotivo.Text = ""
|
||||||
|
UpmodalCacelaOrden.Update()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
'Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
|
||||||
|
' Dim ObjEventoBitacora As New ClsOIEventos
|
||||||
|
|
||||||
|
' Dim FileExtension As String = "-1"
|
||||||
|
' Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
||||||
|
' Dim filemove As String = ""
|
||||||
|
|
||||||
|
' For Each fileItem As Archivo In filesgral
|
||||||
|
' FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||||
|
' filemove = fileItem.filename
|
||||||
|
' Next
|
||||||
|
|
||||||
|
' If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveOS, -1, -1, -1, -1) Then
|
||||||
|
' If filemove <> "" Then
|
||||||
|
' filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' GvEB.DataSource = ObjEventoBitacora.DtResultados
|
||||||
|
' TxtEventoDescripcion.Text = ""
|
||||||
|
' Anexo.Text = "[]"
|
||||||
|
' Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
|
||||||
|
' RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
|
||||||
|
' End If
|
||||||
|
' ObjEventoBitacora.Dispose()
|
||||||
|
' GvEB.DataBind()
|
||||||
|
|
||||||
|
' UPEventoBitacora.Update()
|
||||||
|
' CargaEventoBitacora()
|
||||||
|
' UPAddEventoBitacora.Update()
|
||||||
|
'End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Protected Sub LnkmodalCancelarORdenServicio_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
Dim TieneError As Boolean = True
|
||||||
|
|
||||||
|
Dim CveOS As Integer = HFCveOS.Value.ToEntero
|
||||||
|
|
||||||
|
|
||||||
|
Dim objOS As New ClsOS
|
||||||
|
Dim ObjEventoBitacora As New ClsOIEventos(objOS.IniciaTransacSQL)
|
||||||
|
|
||||||
|
|
||||||
|
If objOS.UpdateOrdenesServiciosFinaliza(CveOS, -1, -1, UsuarioActual.CveEmpresa, Opcion:=2) Then 'Opcion:=2 Es para cancelar
|
||||||
|
If ObjEventoBitacora.AddEventoBitacora($"Motivo Cancelación: {TxtModalCancelarOrdenMotivo.Text.Trim}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveOS, -1, -1, -1, -1) Then
|
||||||
|
TieneError = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If TieneError Then
|
||||||
|
objOS.RollBack()
|
||||||
|
Else
|
||||||
|
objOS.Commit()
|
||||||
|
End If
|
||||||
|
|
||||||
|
objOS.Dispose()
|
||||||
|
|
||||||
|
|
||||||
|
If Not TieneError Then
|
||||||
|
Alert("Orden Cancelada Correctamente", TipoMensaje.MsgInformacion, "location.reload(true);")
|
||||||
|
RegistraScript("$('#DVModalCancelacionOrden').modal('hide');")
|
||||||
|
RegistraScript("$('#DVModalFinalizarOrden').modal('hide');")
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -206,13 +206,20 @@ Partial Class CatSubProyectos
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||||
Dim ObjSubProyectos As New ClsSubProyectos
|
|
||||||
|
Dim ObjSubProyectos As New ClsSubProyectos
|
||||||
|
|
||||||
|
ObjSubProyectos.IniciaTransacSQL()
|
||||||
|
|
||||||
If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||||
|
ObjSubProyectos.Commit()
|
||||||
GvDatos.EditIndex = -1
|
GvDatos.EditIndex = -1
|
||||||
ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
|
GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
|
||||||
Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||||
|
Else
|
||||||
|
ObjSubProyectos.RollBack()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjSubProyectos.Dispose()
|
ObjSubProyectos.Dispose()
|
||||||
|
|||||||
@@ -804,6 +804,10 @@ Partial Class RH_Reclutamiento
|
|||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CrearEstructuraTablasTemporales()
|
CrearEstructuraTablasTemporales()
|
||||||
|
|
||||||
DDLEstadoCivil4.DataSource = GlobalDTEstadoCivil
|
DDLEstadoCivil4.DataSource = GlobalDTEstadoCivil
|
||||||
|
|||||||
@@ -60,6 +60,7 @@
|
|||||||
<asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
|
<asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
|
||||||
<asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
|
<asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
|
||||||
<asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem>
|
<asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem>
|
||||||
|
<asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem>
|
||||||
|
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
|
|
||||||
|
|||||||
@@ -99,12 +99,26 @@ Partial Class Sistemas_CatSesiones
|
|||||||
CargaDTInvPSSeccionesAlmacen()
|
CargaDTInvPSSeccionesAlmacen()
|
||||||
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
|
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTTipoTransacciones" Then
|
||||||
CargaGlobalDTTipoTransacciones()
|
CargaGlobalDTTipoTransacciones()
|
||||||
|
ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
|
||||||
|
CargaSATGenerales()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
Private Sub CargaSATGenerales()
|
||||||
|
Using ObjGrales As New ClsGenerales
|
||||||
|
If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados
|
||||||
|
If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable()
|
||||||
|
If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados
|
||||||
|
If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados
|
||||||
|
If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados
|
||||||
|
If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados
|
||||||
|
If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
Private Sub CargaGlobalDTTipoTransacciones()
|
Private Sub CargaGlobalDTTipoTransacciones()
|
||||||
Using ObjBancos As New ClsBancos
|
Using ObjBancos As New ClsBancos
|
||||||
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
|
If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
|
||||||
|
|||||||
@@ -1644,20 +1644,20 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
|
|
||||||
|
|
||||||
<div class="col-md-8">
|
<div class="col-md-8">
|
||||||
|
|
||||||
<div class="portlet light bordered xspadding">
|
<div class="portlet light bordered xspadding">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
<i class="icon-pin font-green"></i>
|
<i class="icon-pin font-green"></i>
|
||||||
<span class="caption-subject bold uppercase">Parametros</span>
|
<span class="caption-subject bold uppercase">Parametros</span>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="tools">
|
<div class="tools">
|
||||||
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Text="Permite Crédito" />
|
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Text="Permite Crédito" />
|
||||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body">
|
<div class="portlet-body">
|
||||||
<asp:UpdatePanel ID="UpParametros" UpdateMode="Conditional" runat="server">
|
<asp:UpdatePanel ID="UpParametros" UpdateMode="Conditional" runat="server">
|
||||||
@@ -1675,15 +1675,16 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px">
|
||||||
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="width:150px">
|
<label for="<%= TxtFechaLimiteCredito.ClientID.ToString()%>" style="color: #888888;">F. Limite Crédito: </label>
|
||||||
<asp:TextBox ID="TxtFechaLimiteCredito" CssClass="form-control" runat="server" Width="150px"></asp:TextBox>
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
|
<asp:TextBox ID="TxtFechaLimiteCredito" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="100px"></asp:TextBox>
|
||||||
<asp:LinkButton ID="LnkTxtFechaLimiteCredito" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
<span class="input-group-btn ">
|
||||||
</span>
|
<asp:LinkButton ID="LnkTxtFechaLimiteCredito" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
<ajax:MaskedEditExtender ID="METxtFechaLimiteCredito" runat="server" TargetControlID="TxtFechaLimiteCredito" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
<ajax:MaskedEditExtender ID="METxtFechaLimiteCredito" runat="server" TargetControlID="TxtFechaLimiteCredito" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
<ajax:CalendarExtender runat="server" ID="CETxtFechaLimiteCredito" TargetControlID="TxtFechaLimiteCredito" PopupButtonID="LnkTxtFechaLimiteCredito" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
<ajax:CalendarExtender runat="server" ID="CETxtFechaLimiteCredito" TargetControlID="TxtFechaLimiteCredito" PopupButtonID="LnkTxtFechaLimiteCredito" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
<label for="<%= TxtFechaLimiteCredito.ClientID.ToString()%>">F. Limite Crédito: </label>
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -1782,7 +1783,7 @@
|
|||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
|
||||||
<div class="form-group form-md-line-input">
|
<div class="form-group form-md-line-input">
|
||||||
<asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
<asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||||
<label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
|
<label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
@@ -1790,7 +1791,7 @@
|
|||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="form-group form-md-line-input">
|
<div class="form-group form-md-line-input">
|
||||||
<asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="13"></asp:TextBox>
|
<asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="13"></asp:TextBox>
|
||||||
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
|
<ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
|
||||||
<label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label>
|
<label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -1820,7 +1821,7 @@
|
|||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
@@ -1836,25 +1837,25 @@
|
|||||||
<label for="<%= TxtPortalFacturacion.ClientID.ToString()%>">Portal de Facturas: </label>
|
<label for="<%= TxtPortalFacturacion.ClientID.ToString()%>">Portal de Facturas: </label>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
<div class="row" id="DivPortal" runat="server" visible="false" >
|
|
||||||
<div class="col-md-6">
|
<div class="row" id="DivPortal" runat="server" visible="false">
|
||||||
<div class="form-group form-md-line-input">
|
|
||||||
<asp:TextBox ID="TxtUsuarioPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
|
||||||
<label for="<%= TxtUsuarioPortalFacturacion.ClientID.ToString()%>">Usuario Portal: </label>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="form-group form-md-line-input">
|
<div class="form-group form-md-line-input">
|
||||||
<asp:TextBox ID="TxtContraseñaPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
<asp:TextBox ID="TxtUsuarioPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||||
<label for="<%= TxtContraseñaPortalFacturacion.ClientID.ToString()%>">Contraseña Portal: </label>
|
<label for="<%= TxtUsuarioPortalFacturacion.ClientID.ToString()%>">Usuario Portal: </label>
|
||||||
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input">
|
||||||
|
<asp:TextBox ID="TxtContraseñaPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||||
|
<label for="<%= TxtContraseñaPortalFacturacion.ClientID.ToString()%>">Contraseña Portal: </label>
|
||||||
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
@@ -1877,54 +1878,61 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body">
|
<div class="portlet-body">
|
||||||
|
|
||||||
<asp:CheckBox ID="ChkAntIXCNC" Text="Anticipos / NC / IXC" runat="server" Checked="true" OnCheckedChanged="ChkAntIXCNC_CheckedChanged" AutoPostBack="true" />
|
<asp:CheckBox ID="ChkAntIXCNC" Text="Anticipos / NC / IXC" runat="server" Checked="true" OnCheckedChanged="ChkAntIXCNC_CheckedChanged" AutoPostBack="true" />
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
|
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px">
|
||||||
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker " style="width:120px">
|
|
||||||
<asp:TextBox ID="TxtFechaInicioCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
|
||||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
|
|
||||||
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
|
||||||
</span>
|
|
||||||
<ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaInicioCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
|
||||||
<ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaInicioCxP" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
|
||||||
<label for="<%= TxtFechaInicioCxP.ClientID.ToString()%>">Fecha Inicio: </label>
|
<label for="<%= TxtFechaInicioCxP.ClientID.ToString()%>">Fecha Inicio: </label>
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||||
|
<asp:TextBox ID="TxtFechaInicioCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="100px"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaInicioCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="CalendarioDel" TargetControlID="TxtFechaInicioCxP" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker " style="width:120px">
|
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px">
|
||||||
<asp:TextBox ID="TxtFechaFinCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
|
||||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;" >
|
|
||||||
<asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
|
||||||
</span>
|
|
||||||
<ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaFinCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
|
||||||
<ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaFinCxP" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
|
||||||
<label for="<%= TxtFechaFinCxP.ClientID.ToString()%>">Fecha Fin: </label>
|
<label for="<%= TxtFechaFinCxP.ClientID.ToString()%>">Fecha Fin: </label>
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||||
|
<asp:TextBox Width="100px" ID="TxtFechaFinCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaFinCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="CalendarioAl" TargetControlID="TxtFechaFinCxP" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker " style="width:120px">
|
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px">
|
||||||
<asp:TextBox ID="TxtFechaVICxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
<label for="<%= TxtFechaVICxP.ClientID.ToString()%>">Fecha V. Inicio: </label>
|
||||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||||
<asp:LinkButton ID="ImgCalendarioFIV" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
<asp:TextBox ID="TxtFechaVICxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="100px"></asp:TextBox>
|
||||||
</span>
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="ImgCalendarioFIV" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
<ajax:MaskedEditExtender ID="MEEFIV" runat="server" TargetControlID="TxtFechaVICxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
<ajax:MaskedEditExtender ID="MEEFIV" runat="server" TargetControlID="TxtFechaVICxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
<ajax:CalendarExtender ID="CalendarioFIV" runat="server" TargetControlID="TxtFechaVICxP" PopupButtonID="ImgCalendarioFIV" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
<ajax:CalendarExtender runat="server" ID="CalendarioFIV" TargetControlID="TxtFechaVICxP" PopupButtonID="ImgCalendarioFIV" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
<label for="<%= TxtFechaVICxP.ClientID.ToString()%>">Fecha V. Inicio: </label>
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker " style="width:120px">
|
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px">
|
||||||
<asp:TextBox ID="TxtFechaVFCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
|
||||||
<span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
|
|
||||||
<asp:LinkButton ID="ImgCalendarioFFV" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
|
||||||
</span>
|
|
||||||
<ajax:MaskedEditExtender ID="MEEFFV" runat="server" TargetControlID="TxtFechaVFCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
|
||||||
<ajax:CalendarExtender ID="CalendarioFFV" runat="server" TargetControlID="TxtFechaVFCxP" PopupButtonID="ImgCalendarioFFV" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
|
||||||
<label for="<%= TxtFechaVFCxP.ClientID.ToString()%>">Fecha V. Fin: </label>
|
<label for="<%= TxtFechaVFCxP.ClientID.ToString()%>">Fecha V. Fin: </label>
|
||||||
|
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
|
||||||
|
<asp:TextBox ID="TxtFechaVFCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="100px"></asp:TextBox>
|
||||||
|
<span class="input-group-btn ">
|
||||||
|
<asp:LinkButton ID="ImgCalendarioFFV" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||||
|
</span>
|
||||||
|
</div>
|
||||||
|
<ajax:MaskedEditExtender ID="MEEFFV" runat="server" TargetControlID="TxtFechaVFCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||||
|
<ajax:CalendarExtender runat="server" ID="CalendarioFFV" TargetControlID="TxtFechaVFCxP" PopupButtonID="ImgCalendarioFFV" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
@@ -1932,7 +1940,7 @@
|
|||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<label>Movimientos</label>
|
<label>Movimientos</label>
|
||||||
<asp:DropDownList CssClass="form-control input-sm" ID="DdlTipoCuentasCxC" runat="server" Width="120px">
|
<asp:DropDownList CssClass="form-control input-sm" ID="DdlTipoCuentasCxC" runat="server" Width="100%">
|
||||||
<asp:ListItem Value="-1" Text="Todas" />
|
<asp:ListItem Value="-1" Text="Todas" />
|
||||||
<asp:ListItem Selected="True" Value="1" Text="Con Saldo" />
|
<asp:ListItem Selected="True" Value="1" Text="Con Saldo" />
|
||||||
</asp:DropDownList>
|
</asp:DropDownList>
|
||||||
@@ -1940,7 +1948,7 @@
|
|||||||
|
|
||||||
<div class="col-md-6">
|
<div class="col-md-6">
|
||||||
<label>Tipo Docto</label>
|
<label>Tipo Docto</label>
|
||||||
<asp:ListBox ID="DdlTipoDocto" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Width="150px" runat="server">
|
<asp:ListBox ID="DdlTipoDocto" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Width="100%" runat="server">
|
||||||
<asp:ListItem Selected="True" Value="Ing" Text="Ingresos"></asp:ListItem>
|
<asp:ListItem Selected="True" Value="Ing" Text="Ingresos"></asp:ListItem>
|
||||||
<asp:ListItem Selected="True" Value="Rem" Text="Remisión"></asp:ListItem>
|
<asp:ListItem Selected="True" Value="Rem" Text="Remisión"></asp:ListItem>
|
||||||
<asp:ListItem Selected="True" Value="Ant" Text="Anticipos"></asp:ListItem>
|
<asp:ListItem Selected="True" Value="Ant" Text="Anticipos"></asp:ListItem>
|
||||||
@@ -1949,12 +1957,6 @@
|
|||||||
<asp:ListItem Selected="True" Value="Dev" Text="Devolución"></asp:ListItem>
|
<asp:ListItem Selected="True" Value="Dev" Text="Devolución"></asp:ListItem>
|
||||||
<asp:ListItem Selected="True" Value="RNC" Text="Remisión de Nota de crédito"></asp:ListItem>
|
<asp:ListItem Selected="True" Value="RNC" Text="Remisión de Nota de crédito"></asp:ListItem>
|
||||||
</asp:ListBox>
|
</asp:ListBox>
|
||||||
<%-- <asp:DropDownList CssClass="form-control input-sm" ID="DdlTipoDocto" runat="server" Width="120px">
|
|
||||||
<asp:ListItem Selected="True" Value="-1" Text="Todos" />
|
|
||||||
<asp:ListItem Value="Ing" Text="Factura" />
|
|
||||||
<asp:ListItem Value="Rem" Text="Remisión " />
|
|
||||||
<asp:ListItem Value="Ant" Text="Anticipo" />
|
|
||||||
</asp:DropDownList>--%>
|
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
@@ -1975,13 +1977,13 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-footer" >
|
<div class="portlet-footer">
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="portlet light bordered xspadding">
|
<div class="portlet light bordered xspadding">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
@@ -1992,8 +1994,16 @@
|
|||||||
<div class="btn-group">
|
<div class="btn-group">
|
||||||
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel2">
|
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel2">
|
||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
|
<asp:HyperLink ID="HplAbonarMasivo" Visible="True" runat="server" NavigateUrl="#" ToolTip="Pago de múltiples facturas">Pago múltiples facturas <img src="/Imagenes/Money_Add.png" alt="Pagar múltiples facturas" /></asp:HyperLink>
|
||||||
|
|
||||||
<asp:LinkButton ID="LnkCxCActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
<asp:LinkButton ID="LnkCxCActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
||||||
<asp:LinkButton ID="LnkCxCActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
<asp:LinkButton ID="LnkCxCActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
||||||
|
<input type="text" id="TxtCxCActivas" class="form-control input-sm"
|
||||||
|
onkeyup="<%= String.Format("FiltrarTabla('TxtCxCActivas','{0}')", GvCxC.ClientID) %>"
|
||||||
|
style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||||
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCActivas','{0}')", GVHistorial.ClientID) %>"
|
||||||
|
style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
<Triggers>
|
<Triggers>
|
||||||
<asp:PostBackTrigger ControlID="LnkCxCActivasPDF" />
|
<asp:PostBackTrigger ControlID="LnkCxCActivasPDF" />
|
||||||
@@ -2004,11 +2014,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="portlet-body">
|
<div class="portlet-body">
|
||||||
<div class="row">
|
<%--<div class="row">
|
||||||
<div class="pull-right">
|
|
||||||
<asp:HyperLink ID="HplAbonarMasivo" Visible="True" runat="server" NavigateUrl="#" ToolTip="Pago de múltiples facturas">Pago múltiples facturas <img src="/Imagenes/Money_Add.png" alt="Pagar múltiples facturas" /></asp:HyperLink>  
|
|
||||||
|
|
||||||
</div>
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
@@ -2017,7 +2023,7 @@
|
|||||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCActivas','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCActivas','{0}')", GvCxC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>--%>
|
||||||
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-12">
|
<div class="col-md-12">
|
||||||
@@ -2069,7 +2075,7 @@
|
|||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
<asp:TemplateField HeaderText="Abonar">
|
<asp:TemplateField HeaderText="Abonar">
|
||||||
<ItemTemplate>
|
<ItemTemplate>
|
||||||
|
|
||||||
<asp:HyperLink ID="ImgAbonar" CssClass="Texto thickbox" runat="server" ImageUrl="~/Imagenes/Money_add.png" ToolTip="Registrar Pago/Abono"></asp:HyperLink>
|
<asp:HyperLink ID="ImgAbonar" CssClass="Texto thickbox" runat="server" ImageUrl="~/Imagenes/Money_add.png" ToolTip="Registrar Pago/Abono"></asp:HyperLink>
|
||||||
</ItemTemplate>
|
</ItemTemplate>
|
||||||
</asp:TemplateField>
|
</asp:TemplateField>
|
||||||
@@ -2087,10 +2093,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<br />
|
<br />
|
||||||
|
|
||||||
|
|
||||||
<div class="portlet light bordered xspadding">
|
<div class="portlet light bordered xspadding">
|
||||||
<div class="portlet-title">
|
<div class="portlet-title">
|
||||||
<div class="caption font-green">
|
<div class="caption font-green">
|
||||||
@@ -2103,6 +2106,11 @@
|
|||||||
<ContentTemplate>
|
<ContentTemplate>
|
||||||
<asp:LinkButton ID="LnkHistorialCxCPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
<asp:LinkButton ID="LnkHistorialCxCPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
||||||
<asp:LinkButton ID="LnkHistorialCxCExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
<asp:LinkButton ID="LnkHistorialCxCExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
||||||
|
<input type="text" id="TxtCxCHistorial" class="form-control input-sm"
|
||||||
|
onkeyup="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>"
|
||||||
|
style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||||
|
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GVHistorial.ClientID) %>"
|
||||||
|
style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
<Triggers>
|
<Triggers>
|
||||||
<asp:PostBackTrigger ControlID="LnkHistorialCxCPDF" />
|
<asp:PostBackTrigger ControlID="LnkHistorialCxCPDF" />
|
||||||
@@ -2112,15 +2120,7 @@
|
|||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<div class="portlet-body">
|
<div class="portlet-body">
|
||||||
<div class="col-md-12" align="right">
|
|
||||||
<input type="text" id="TxtCxCHistorial" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
|
||||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtCxCHistorial','{0}')", GvCxCHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
|
||||||
</div>
|
|
||||||
|
|
||||||
<br />
|
|
||||||
<br />
|
|
||||||
<div class="row">
|
<div class="row">
|
||||||
<div class="col-md-12">
|
<div class="col-md-12">
|
||||||
<asp:GridView ID="GvCxCHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial de Cuentas X Cobrar"
|
<asp:GridView ID="GvCxCHistorial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial de Cuentas X Cobrar"
|
||||||
@@ -6761,7 +6761,7 @@
|
|||||||
</div>
|
</div>
|
||||||
<div class="col-md-2">
|
<div class="col-md-2">
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@@ -599,16 +599,16 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
|||||||
if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
|
if (e.Row.DBCampo("PuedeRefacturar").ToString().ToEntero() == 1 && e.Row.DBCampo("CveEstatusFactura").ToString().ToEntero() == 23)
|
||||||
{
|
{
|
||||||
e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
|
e.Row.FCLinkButton("LnkValidarRefac").Visible = false;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (e.Row.DBCampo("PuedeRefacturar") == "0" && e.Row.DBCampo("CveEstatusFactura") == "23" && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
|
if (e.Row.DBCampo("PuedeRefacturar") == "0" && e.Row.DBCampo("CveEstatusFactura") == "23" && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
|
||||||
{
|
{
|
||||||
if (e.Row.FCLinkButton("LnkCancelar")!= null) e.Row.FCLinkButton("LnkCancelar").Visible = true;
|
if (e.Row.FCLinkButton("LnkCancelar") != null) e.Row.FCLinkButton("LnkCancelar").Visible = true;
|
||||||
//SOLO MOSTRAR SI LA FACTURA NUEVA ESTA EMITIDA
|
//SOLO MOSTRAR SI LA FACTURA NUEVA ESTA EMITIDA
|
||||||
if (e.Row.DBCampo("CveEstatusRefacturacion") != "4" && e.Row.DBCampo("CveEstatusFacturaSustitucion") == "3")
|
//if (e.Row.DBCampo("CveEstatusRefacturacion") != "4" && e.Row.DBCampo("CveEstatusFacturaSustitucion") == "3")
|
||||||
{
|
//{
|
||||||
if (e.Row.FCLinkButton("LnkCancelarFolioSustitucion") != null) e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true;
|
// if (e.Row.FCLinkButton("LnkCancelarFolioSustitucion") != null) e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true;
|
||||||
}
|
//}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -512,7 +512,7 @@
|
|||||||
<td width="95px"><b>Empresa:</b> </td>
|
<td width="95px"><b>Empresa:</b> </td>
|
||||||
<td width="200px">
|
<td width="200px">
|
||||||
<asp:Label ID="LblEmpresaCRM" runat="server" Text="Cliente"></asp:Label></td>
|
<asp:Label ID="LblEmpresaCRM" runat="server" Text="Cliente"></asp:Label></td>
|
||||||
<td width="135px" runat="server" id="Td5"><b>Enviar Mail:</b></td>
|
<td width="135px" runat="server" id="Td5"><b>Enviar Mail:</b></td>
|
||||||
<td width="85px">
|
<td width="85px">
|
||||||
<asp:CheckBox ID="ChkEnviarFacturaCRM" runat="server" /></td>
|
<asp:CheckBox ID="ChkEnviarFacturaCRM" runat="server" /></td>
|
||||||
</tr>
|
</tr>
|
||||||
@@ -907,6 +907,32 @@
|
|||||||
</div>
|
</div>
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
|
|
||||||
|
<asp:UpdatePanel ID="UpDescripcionVenta" runat="server" class="portlet light xspadding bordered whitoutcol" style="margin-left: auto" UpdateMode="Conditional" Visible="false">
|
||||||
|
<ContentTemplate>
|
||||||
|
<div class="portlet-title">
|
||||||
|
<div class="caption font-green">
|
||||||
|
<i class="icon-pin font-green"></i>
|
||||||
|
<span id="Span1" runat="server" class="caption-subject bold uppercase">Descripción </span>
|
||||||
|
</div>
|
||||||
|
<div class="actions">
|
||||||
|
<div class="btn-group">
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="tools">
|
||||||
|
<a href="javascript:;" class="collapse"></a>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
<div class="portlet-body formnombottom">
|
||||||
|
<table border="0" width="250px">
|
||||||
|
<tr align="left">
|
||||||
|
<td>
|
||||||
|
<asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
</div>
|
||||||
|
</ContentTemplate>
|
||||||
|
</asp:UpdatePanel>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
<asp:UpdatePanel ID="Updatetabs" runat="server" UpdateMode="Conditional">
|
<asp:UpdatePanel ID="Updatetabs" runat="server" UpdateMode="Conditional">
|
||||||
@@ -2578,7 +2604,7 @@
|
|||||||
<div class="row rowpadding">
|
<div class="row rowpadding">
|
||||||
<div class="col-md-2 form-group form-md-line-input" id="DivLblDestino" runat="server" visible="false"><span>Destino:</span></div>
|
<div class="col-md-2 form-group form-md-line-input" id="DivLblDestino" runat="server" visible="false"><span>Destino:</span></div>
|
||||||
<div class="col-md-4 form-group form-md-line-input" id="DivDdlDestino" runat="server" visible="false">
|
<div class="col-md-4 form-group form-md-line-input" id="DivDdlDestino" runat="server" visible="false">
|
||||||
<asp:DropDownList ID="DdlDirecionDestinatario" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="DireccionEnvioContacto" DataValueField="CveDireccionEnvio"></asp:DropDownList>
|
<asp:DropDownList ID="DdlDirecionDestinatario" CssClass="form-control select2me" AppendDataBoundItems="true" Style="width: 100%;" runat="server" DataTextField="DireccionEnvioContacto" DataValueField="CveDireccionEnvio"></asp:DropDownList>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
<div class="row">
|
<div class="row">
|
||||||
@@ -2615,7 +2641,7 @@
|
|||||||
</asp:GridView>
|
</asp:GridView>
|
||||||
</div>
|
</div>
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
</ContentTemplate>
|
</ContentTemplate>
|
||||||
</asp:UpdatePanel>
|
</asp:UpdatePanel>
|
||||||
</div>
|
</div>
|
||||||
|
|||||||
@@ -2280,6 +2280,14 @@ Partial Class Ventas
|
|||||||
ViewState("SaldoLineaAdicional") = value
|
ViewState("SaldoLineaAdicional") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
Private Property SaldoIngresosLineaAdicional As Decimal
|
||||||
|
Get
|
||||||
|
Return (IfNull(ViewState("SaldoIngresosLineaAdicional"), "0", ViewState("SaldoIngresosLineaAdicional"))).ToString().ToDecimal()
|
||||||
|
End Get
|
||||||
|
Set(value As Decimal)
|
||||||
|
ViewState("SaldoIngresosLineaAdicional") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
Private Property CveCategoriaLineaAdicional As Integer
|
Private Property CveCategoriaLineaAdicional As Integer
|
||||||
Get
|
Get
|
||||||
@@ -2298,6 +2306,14 @@ Partial Class Ventas
|
|||||||
ViewState("CveMonedaLineaAdicional") = value
|
ViewState("CveMonedaLineaAdicional") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
|
Private Property HabilitoFacturacionIngresoLineaAdicional As Boolean
|
||||||
|
Get
|
||||||
|
Return If(IsNothing(ViewState("HabilitoFacturacionIngresoLineaAdicional")), False, CType(ViewState("HabilitoFacturacionIngresoLineaAdicional"), Boolean))
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
ViewState("HabilitoFacturacionIngresoLineaAdicional") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
@@ -3447,6 +3463,13 @@ Partial Class Ventas
|
|||||||
UPObservaciones.Update()
|
UPObservaciones.Update()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.CveEmpresa = 13 Then
|
||||||
|
UpDescripcionVenta.Visible = True
|
||||||
|
If CveVenta <= 0 Then
|
||||||
|
TxtDescripcionVenta.Enabled = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -4797,6 +4820,11 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.CveEmpresa = 13 Then
|
||||||
|
UpDescripcionVenta.Visible = True
|
||||||
|
TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
|
HplDownXML.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", DbRowVenta("SerieFolio"), DbRowVenta("TipoDocto"))))
|
||||||
Case "Egs"
|
Case "Egs"
|
||||||
@@ -8839,6 +8867,11 @@ Partial Class Ventas
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
|
||||||
|
Alert("No se puede seleccionar una linea adicional de crédito si no se genera una remisón.", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
'SI TIENE ANTICIPOS Y ESTA AMORTIZADO AL 100% EL DOCUMENTO (SALDO = 0) | NO VALIDA PU DEL CONCEPTO
|
'SI TIENE ANTICIPOS Y ESTA AMORTIZADO AL 100% EL DOCUMENTO (SALDO = 0) | NO VALIDA PU DEL CONCEPTO
|
||||||
If Not (LblAmortizacion.Text.ToDouble > 0 And TxtTotal.Text.ToDouble <= 0) Then
|
If Not (LblAmortizacion.Text.ToDouble > 0 And TxtTotal.Text.ToDouble <= 0) Then
|
||||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "Ant", "DPe") Then
|
If Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "Ant", "DPe") Then
|
||||||
@@ -9057,18 +9090,6 @@ Partial Class Ventas
|
|||||||
Alert("El saldo de la linea adicional debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
|
Alert("El saldo de la linea adicional debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'VERIFICA QUE LA MONEDA DE LA LINEA ADICIONAL SEA LA MISMA QUE LA VENTA
|
|
||||||
If Me.CveMonedaLineaAdicional <> DdlMoneda.SelectedValue.ToEntero() Then
|
|
||||||
Alert("La moneda de la linea adicional de crédito debe ser la misma que la factura.", TipoMensaje.MsgAdvertencia)
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
|
|
||||||
'VERIFICA QUE EL SALDO DISPONIBLE SEA MENOR AL IMPORTE
|
|
||||||
If Me.SaldoLineaAdicional <= TxtTotal.Text.ToDecimal() Then
|
|
||||||
Alert("El saldo de la linea adicional debe ser mayor o igual al de la factura", TipoMensaje.MsgAdvertencia)
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@@ -9406,6 +9427,38 @@ Partial Class Ventas
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso DdlLineaAdicional.SelectedValue.ToEntero() > 0 Then
|
||||||
|
'VERIFICA QUE LA MONEDA DE LA LINEA ADICIONAL SEA LA MISMA QUE LA VENTA
|
||||||
|
If Me.CveMonedaLineaAdicional <> ObjFactura.CveMoneda Then
|
||||||
|
TmpDT = TmpDTError.Copy()
|
||||||
|
CalculaTotalesVenta(RecalcularTotalOriginal:=False)
|
||||||
|
Alert("La moneda de la linea adicional de crédito debe ser la misma que la factura.", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
'VERIFICA QUE EL SALDO DISPONIBLE SEA MENOR AL IMPORTE
|
||||||
|
If ObjFactura.TipoDocto = "Rem" AndAlso Me.SaldoLineaAdicional <= ObjFactura.Total Then
|
||||||
|
TmpDT = TmpDTError.Copy()
|
||||||
|
CalculaTotalesVenta(RecalcularTotalOriginal:=False)
|
||||||
|
Alert("El saldo de la linea adicional debe ser mayor o igual al de la remisión", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjFactura.TipoDocto = "Ing" AndAlso (DtRemisionesPS Is Nothing OrElse DtRemisionesPS.Rows.Count = 0) Then
|
||||||
|
TmpDT = TmpDTError.Copy()
|
||||||
|
CalculaTotalesVenta(RecalcularTotalOriginal:=False)
|
||||||
|
Alert("No se puede generar un ingreso con una linea adicional de credito si este no viene de una remisión", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjFactura.TipoDocto = "Ing" AndAlso Me.SaldoIngresosLineaAdicional <= ObjFactura.Total Then
|
||||||
|
TmpDT = TmpDTError.Copy()
|
||||||
|
CalculaTotalesVenta(RecalcularTotalOriginal:=False)
|
||||||
|
Alert("El saldo de la linea adicional debe ser mayor o igual al de la factura", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
'If Not CveEmpresaCRM > 0 Then
|
'If Not CveEmpresaCRM > 0 Then
|
||||||
' If ObjFactura.Cliente.AplicaComercioExterior Then
|
' If ObjFactura.Cliente.AplicaComercioExterior Then
|
||||||
' If Not ValidaComercioExterior() Then
|
' If Not ValidaComercioExterior() Then
|
||||||
@@ -9742,6 +9795,24 @@ Partial Class Ventas
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto = "Ing" Then
|
||||||
|
Dim RowVenta As DataRow = Nothing
|
||||||
|
If ObjVentas.GetVenta(ObjFactura.CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
|
||||||
|
RowVenta = ObjVentas.DtResultados.Rows(0)
|
||||||
|
Else
|
||||||
|
ErrorList.Add("No se pudieron validar los datos de la venta")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If RowVenta IsNot Nothing Then
|
||||||
|
'SI FUE VENTA DE CONTADO VALIDA QUE SE HAYA PAGADO EN SU TOTALIDAD
|
||||||
|
If RowVenta("CondicionesPago").ToString().ToEntero() = 0 AndAlso RowVenta("Saldo").ToString().ToDecimal() > 0.01D Then
|
||||||
|
ErrorList.Add("La venta no fue pagada en su totalidad")
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
ErrorList.Add("No se pudieron validar los datos de la venta")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
'MARCA PARA NO SURTIR VENTA DE COTNRATO DE CONSIGNACION DE VENTA | [IPP] : PARCHE
|
'MARCA PARA NO SURTIR VENTA DE COTNRATO DE CONSIGNACION DE VENTA | [IPP] : PARCHE
|
||||||
If ErrorList.Count = 0 Then
|
If ErrorList.Count = 0 Then
|
||||||
If ObjFactura.CveVenta > 0 And CveAlmacenExistenciasContrato > 0 And DdlTipoComprobante.SelectedValue = "Ing" Then
|
If ObjFactura.CveVenta > 0 And CveAlmacenExistenciasContrato > 0 And DdlTipoComprobante.SelectedValue = "Ing" Then
|
||||||
@@ -13008,6 +13079,11 @@ Partial Class Ventas
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Dim DescripcionVenta As String = ""
|
||||||
|
If factura.TipoDocto = "Ing" AndAlso UsuarioActual.CveEmpresa = 13 Then
|
||||||
|
DescripcionVenta = TxtDescripcionVenta.Text
|
||||||
|
End If
|
||||||
|
|
||||||
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
|
If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
|
||||||
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
|
factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
|
||||||
factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
|
factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
|
||||||
@@ -13024,7 +13100,7 @@ Partial Class Ventas
|
|||||||
DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
|
DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
|
||||||
Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
|
Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
|
||||||
FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
|
FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
|
||||||
CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero()) Then
|
CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta) Then
|
||||||
ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||||
Else
|
Else
|
||||||
If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
|
If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
|
||||||
@@ -18659,28 +18735,40 @@ Partial Class Ventas
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CalculaLineasAdicionales()
|
Private Sub CalculaLineasAdicionales()
|
||||||
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
|
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "PA") AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
|
||||||
DdlLineaAdicional.DataSource = Nothing
|
DdlLineaAdicional.DataSource = Nothing
|
||||||
|
|
||||||
Using ObjVentas As New ClsVentas
|
Using ObjVentas As New ClsVentas
|
||||||
|
'SI ES VENTA EXISTENTE , SI SE VA EDITAR SOLO MOSTRAR LAS CON SALDO, FECHA DE VENCIMIENTO VIGENTE O LA LINEA ACTUAL
|
||||||
If CveVenta > 0 Then
|
If CveVenta > 0 Then
|
||||||
If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, ConSaldo:=-1, FechaVencimientoConsulta:=MinFecha) Then
|
If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, -1, UsuarioActual.CveEmpresa, ConSaldo:=-1, FechaVencimientoConsulta:=MinFecha) Then
|
||||||
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||||
TrLineaAdicional.Visible = True
|
TrLineaAdicional.Visible = True
|
||||||
DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"(Saldo > 0 AND FechaVencimiento <= '{Now.ToString("dd/MM/yyyy")}') OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}")
|
DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"(Saldo > 0 AND FechaVencimiento <= '{Now.ToString("dd/MM/yyyy")}') OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}")
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, ConSaldo:=1, FechaVencimientoConsulta:=Now) Then
|
'SI SE ESTA FACTURANDO UNA REMISION DEBE SELECCIONAR LA LINEA ADICIONAL DE ESTA
|
||||||
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
If Me.CveLineaAdicionalVenta > 0 Then
|
||||||
TrLineaAdicional.Visible = True
|
If ObjVentas.GetLineasAdicionalesSaldo(Me.CveLineaAdicionalVenta, CveCliente, -1, -1, UsuarioActual.CveEmpresa, ConSaldo:=-1, FechaVencimientoConsulta:=MinFecha) Then
|
||||||
DdlLineaAdicional.DataSource = ObjVentas.DtResultados
|
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||||
|
TrLineaAdicional.Visible = True
|
||||||
|
DdlLineaAdicional.DataSource = ObjVentas.DtResultados
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, -1, UsuarioActual.CveEmpresa, ConSaldo:=1, FechaVencimientoConsulta:=Now) Then
|
||||||
|
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||||
|
TrLineaAdicional.Visible = True
|
||||||
|
DdlLineaAdicional.DataSource = ObjVentas.DtResultados
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Using
|
End Using
|
||||||
|
|
||||||
DdlLineaAdicional.DataBind()
|
DdlLineaAdicional.DataBind()
|
||||||
|
|
||||||
DdlLineaAdicional.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
DdlLineaAdicional.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||||
|
|
||||||
If Me.CveLineaAdicionalVenta > 0 Then
|
If Me.CveLineaAdicionalVenta > 0 Then
|
||||||
@@ -22296,9 +22384,9 @@ Partial Class Ventas
|
|||||||
CargaAnticipos(CveCliente)
|
CargaAnticipos(CveCliente)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If CveVenta <= 0 Then
|
'If CveVenta <= 0 Then
|
||||||
CalculaLineasAdicionales()
|
' CalculaLineasAdicionales()
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub btnBuscarPrecio_Click(sender As Object, e As EventArgs) Handles btnBuscarPrecio.Click
|
Private Sub btnBuscarPrecio_Click(sender As Object, e As EventArgs) Handles btnBuscarPrecio.Click
|
||||||
@@ -31616,6 +31704,13 @@ Partial Class Ventas
|
|||||||
DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
|
DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
|
||||||
DdlMoneda.Enabled = False
|
DdlMoneda.Enabled = False
|
||||||
CambiaMoneda()
|
CambiaMoneda()
|
||||||
|
|
||||||
|
If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
|
||||||
|
Me.CveLineaAdicionalVenta = dtSeleccionadas.FiltroPrimeroValor("CveLineaAdicional", "CveLineaAdicional > 0").ToEntero()
|
||||||
|
CalculaLineasAdicionales()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
DdlUsoCFDI.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveUsoCFDI"))
|
DdlUsoCFDI.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveUsoCFDI"))
|
||||||
DdlMetodoPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveMetodoPago"))
|
DdlMetodoPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveMetodoPago"))
|
||||||
CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
|
CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
|
||||||
@@ -36097,42 +36192,76 @@ Partial Class Ventas
|
|||||||
RBLPago.Enabled = False
|
RBLPago.Enabled = False
|
||||||
|
|
||||||
Using ObjVentas As New ClsVentas
|
Using ObjVentas As New ClsVentas
|
||||||
If ObjVentas.GetLineasAdicionalesSaldo(DdlLineaAdicional.SelectedValue.ToEntero(), CveCliente, -1, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, FechaVencimientoConsulta:=MinFecha) Then
|
If ObjVentas.GetLineasAdicionalesSaldo(DdlLineaAdicional.SelectedValue.ToEntero(), CveCliente, -1, -1, UsuarioActual.CveEmpresa, FechaVencimientoConsulta:=MinFecha) Then
|
||||||
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||||
Dim RowLinea As DataRow = ObjVentas.DtResultados.Rows(0)
|
Dim RowLinea As DataRow = ObjVentas.DtResultados.Rows(0)
|
||||||
If RowLinea IsNot Nothing Then
|
If RowLinea IsNot Nothing Then
|
||||||
TxtFechaPago.Text = RowLinea("FechaVencimiento").ToString().ToDateTime().ToString("dd/MM/yyyy")
|
If CveVenta <= 0 Then
|
||||||
|
TxtFechaPago.Text = RowLinea("FechaVencimiento").ToString().ToDateTime().ToString("dd/MM/yyyy")
|
||||||
|
|
||||||
'AL FACTURAR CON LINEA ADICIONAL TIPO PO, SE SUMARÁN LOS DIAS DE VENCIMIENTO A LA FECHA ACTUAL
|
'AL FACTURAR CON LINEA ADICIONAL TIPO PO, SE SUMARÁN LOS DIAS DE VENCIMIENTO A LA FECHA ACTUAL
|
||||||
If RowLinea("TipoLinea").ToString() = "2" Then
|
If RowLinea("TipoLinea").ToString() = "2" Then
|
||||||
TxtFechaPago.Text = Now.AddDays(RowLinea("DiasVencimiento").ToString().ToEntero()).ToString("dd/MM/yyyy")
|
TxtFechaPago.Text = Now.AddDays(RowLinea("DiasVencimiento").ToString().ToEntero()).ToString("dd/MM/yyyy")
|
||||||
TxtFechaPago.Enabled = False
|
TxtFechaPago.Enabled = False
|
||||||
imgCalendario.Visible = False
|
imgCalendario.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
TxtOrdenCompra.Text = RowLinea("LineaAdicionalComercializador").ToString()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero()
|
Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero()
|
||||||
Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero()
|
Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero()
|
||||||
Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal()
|
Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal()
|
||||||
|
Me.SaldoIngresosLineaAdicional = RowLinea("SaldoIngresos").ToString().ToDecimal()
|
||||||
|
|
||||||
|
If CveVenta <= 0 Then
|
||||||
|
If DdlTipoComprobante.SelectedValue.Contiene("PA") Then
|
||||||
|
'SI NO TIENE LA OPCION DE FACTURAR LA PERMITE
|
||||||
|
If DdlTipoComprobante.Items.FindByValue("Rem") Is Nothing Then
|
||||||
|
DdlTipoComprobante.Items.Insert(0, New ListItem("Remisión", "Rem"))
|
||||||
|
HabilitoFacturacionIngresoLineaAdicional = True
|
||||||
|
End If
|
||||||
|
DdlTipoComprobante.SelectedValueExist("Rem")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
|
Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
|
||||||
Me.SaldoLineaAdicional = 0
|
Me.SaldoLineaAdicional = 0
|
||||||
|
Me.SaldoIngresosLineaAdicional = 0
|
||||||
Me.CveCategoriaLineaAdicional = 0
|
Me.CveCategoriaLineaAdicional = 0
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
|
Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
|
||||||
Me.SaldoLineaAdicional = 0
|
Me.SaldoLineaAdicional = 0
|
||||||
|
Me.SaldoIngresosLineaAdicional = 0
|
||||||
Me.CveCategoriaLineaAdicional = 0
|
Me.CveCategoriaLineaAdicional = 0
|
||||||
End If
|
End If
|
||||||
End Using
|
End Using
|
||||||
Else
|
Else
|
||||||
Me.SaldoLineaAdicional = 0
|
Me.SaldoLineaAdicional = 0
|
||||||
|
Me.SaldoIngresosLineaAdicional = 0
|
||||||
Me.CveCategoriaLineaAdicional = 0
|
Me.CveCategoriaLineaAdicional = 0
|
||||||
TxtFechaPago.Text = Now.ToString("dd/MM/yyyy")
|
|
||||||
|
If CveVenta <= 0 Then
|
||||||
|
TxtFechaPago.Text = Now.ToString("dd/MM/yyyy")
|
||||||
|
TxtOrdenCompra.Text = ""
|
||||||
|
|
||||||
|
'SI SE HABILITO LA FACTURACION DESDE LA LINEA ADICIONAL DEBE QUITARLO
|
||||||
|
If HabilitoFacturacionIngresoLineaAdicional Then
|
||||||
|
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
|
||||||
|
DdlTipoComprobante.SelectedValueExist("PA")
|
||||||
|
|
||||||
|
UpParametros.Update()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
UpParametros.Update()
|
UpParametros.Update()
|
||||||
UPCondicionesPago.Update()
|
UPCondicionesPago.Update()
|
||||||
|
UPObservaciones.Update()
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub LnkUpdateLineaAdicional_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkUpdateLineaAdicional_Click(sender As Object, e As EventArgs)
|
||||||
'VALIDAR LINEAS ADICIONALES
|
'VALIDAR LINEAS ADICIONALES
|
||||||
|
|||||||
Reference in New Issue
Block a user