diff --git a/AF/AF.aspx b/AF/AF.aspx index ecf2bb86b..45bef88cd 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -428,12 +428,10 @@ -
-
- - - -
+
+
+ +
@@ -2555,8 +2553,8 @@
- - + + <%----%>
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index a9d79c531..8dad34b1f 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -381,7 +381,7 @@ Partial Class AF_AF CargaEstatusActivoFijo() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto) RowProyecto.Visible = DdlProyecto.Visible - CargaCliente() + 'CargaCliente() CargaGrupos() CargaMarcas() CargaTiposAgenda() @@ -471,10 +471,10 @@ Partial Class AF_AF DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo DdlEstadoActivoFijo.DataBind() End Sub - Private Sub CargaCliente() - DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - DdlClientes.DataBind() - End Sub + 'Private Sub CargaCliente() + ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) + ' DdlClientes.DataBind() + 'End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() @@ -667,8 +667,11 @@ Partial Class AF_AF DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString CargaSubProyecto() - DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString - DdlClientes.SelectedValueExist(ObjActivoFijo.CveCliente) + DdlSubProyecto.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveSubProyecto").ToString + Ddlclientes.SelectedValue = ObjActivoFijo.CveCliente.ToString + If ObjActivoFijo.CveCliente > 0 Then + Ddlclientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=ObjActivoFijo.CveCliente).FiltroPrimeroValor("NombreComercial") + End If DdlMarcas.SelectedValueExist(ObjActivoFijo.CveMarcaActivoFijo) CargaModelos(DdlMarcas.SelectedValue.ToEntero) DdlModelos.SelectedValueExist(ObjActivoFijo.CveModeloActivoFijo) @@ -971,10 +974,10 @@ Partial Class AF_AF UpDatos.Update() End Sub Private Sub CargaProveedor() - DdlProveedor.Items.Clear() - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() + 'DdlProveedor.Items.Clear() + 'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + 'DdlProveedor.DataBind() UpAddPolizas.Update() End Sub @@ -1009,7 +1012,7 @@ Partial Class AF_AF UpDatos.Update() BtnAgregarPoliza.Text = "Agregar" LabelPolizas.InnerText = "Agregar Póliza de seguro" - DdlProveedor.SelectedIndex = 0 + 'DdlProveedor.SelectedIndex = 0 TxtPolizaSeguro.Text = "" TxtFechaExpPoliza.Text = "" TxtFechaVenPoliza.Text = "" diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 364a870bc..b7b8d93d5 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -128,7 +128,8 @@ Public Class ClsClientes Public Property CveFormaPago33 As Integer Public Property CveMetodoPago33 As Integer Public Property CveClienteCorporativo As String - Public Property DesglosaIEPS As Boolean + Public Property DesglosaIEPS As Boolean + Public Property NoDesglosaIVA As Boolean Public Property AplicaComercioExterior As Boolean Public Property CveTipoOperacion As Integer Public Property CvePedimento As Integer @@ -385,6 +386,7 @@ Public Class ClsClientes _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean) + _NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean) _AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean) _CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero @@ -513,18 +515,22 @@ Public Class ClsClientes 'SqlAdapter.Dispose() Return Retorno End Function - Public Function GetHistorialVentas(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean + Public Function GetHistorialVentas(CveCliente As Integer, CveEmpresa As Integer, Optional SelectTop As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1", Optional CveEstatusFactura As Integer = -1, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClienteHistorialVentas") - SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - SqlAdapter.SelectCommand.Parameters.Add("@SelectTop", SqlDbType.Int).Value = SelectTop - SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal - SqlAdapter.SelectCommand.Parameters.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto - SqlAdapter.SelectCommand.Parameters.Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura - SqlAdapter.SelectCommand.Parameters.Add("@FechaI", SqlDbType.DateTime).Value = FechaI - SqlAdapter.SelectCommand.Parameters.Add("@FechaF", SqlDbType.DateTime).Value = FechaF - + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@SelectTop", SqlDbType.Int).Value = SelectTop + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto + .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try SqlAdapter.Fill(Data) Retorno = True @@ -757,7 +763,7 @@ Public Class ClsClientes Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", - Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean + Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -878,6 +884,7 @@ Public Class ClsClientes .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) + .Add("@NoDesglosaIVA", SqlDbType.Bit).Value = If(NoDesglosaIVA, 1, 0) .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 4aa180e78..d52811978 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -438,12 +438,12 @@ Public Class ClsCompras End Function Public Function AddCompraDetalle(CveCompra As Integer, CveUM As Integer, CvePS As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveActivoFijo As Integer, - Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveOCDetalle As Integer, + Cantidad As Decimal, PU As Decimal, IVA As Decimal, Total As Decimal, Descuento As Decimal, Observaciones As String, CveOCDetalle As Integer, Optional TipoRecepcion As Integer = -1, Optional CveContrato As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional AplicaCostoIndirecto As Integer = -1, Optional EstatusAlmacen As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0, - Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0, - Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, + Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0, + Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, Optional IEPSPSIVAPorcentaje As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -457,12 +457,12 @@ Public Class ClsCompras .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo - .Add("@Cantidad", SqlDbType.Float).Value = Cantidad - .Add("@PU", SqlDbType.Float).Value = PU - .Add("@IVA", SqlDbType.Float).Value = IVA - .Add("@Total", SqlDbType.Float).Value = Total - .Add("@Descuento", SqlDbType.Float).Value = Descuento - .Add("@OtrosGastos", SqlDbType.Float).Value = OtrosGastos + .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad + .Add("@PU", SqlDbType.Decimal).Value = PU + .Add("@IVA", SqlDbType.Decimal).Value = IVA + .Add("@Total", SqlDbType.Decimal).Value = Total + .Add("@Descuento", SqlDbType.Decimal).Value = Descuento + .Add("@OtrosGastos", SqlDbType.Decimal).Value = OtrosGastos .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveOCDetalle", SqlDbType.Int).Value = CveOCDetalle .Add("@TipoRecepcion", SqlDbType.Int).Value = TipoRecepcion @@ -476,16 +476,16 @@ Public Class ClsCompras .Add("@AF_TipoMantenimiento", SqlDbType.Int).Value = AF_TipoMantenimiento .Add("@Referencia", SqlDbType.VarChar).Value = Referencia .Add("@CveCompraDetalle", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@RetIVA", SqlDbType.Float).Value = RetIVA - .Add("@RetISR", SqlDbType.Float).Value = RetISR - .Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS - .Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA + .Add("@RetIVA", SqlDbType.Decimal).Value = RetIVA + .Add("@RetISR", SqlDbType.Decimal).Value = RetISR + .Add("@IEPSPS", SqlDbType.Decimal).Value = IEPSPS + .Add("@IEPSPSIVA", SqlDbType.Decimal).Value = IEPSPSIVA - .Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje - .Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje - .Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje - .Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje - .Add("@IEPSPSIVAPorcentaje", SqlDbType.Float).Value = IEPSPSIVAPorcentaje + .Add("@IVAPorcentaje", SqlDbType.Decimal).Value = IVAPorcentaje + .Add("@RetIVAPorcentaje", SqlDbType.Decimal).Value = RetIVAPorcentaje + .Add("@RetISRPorcentaje", SqlDbType.Decimal).Value = RetISRPorcentaje + .Add("@IEPSPSPorcentaje", SqlDbType.Decimal).Value = IEPSPSPorcentaje + .Add("@IEPSPSIVAPorcentaje", SqlDbType.Decimal).Value = IEPSPSIVAPorcentaje .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 728d1d200..5615d03b2 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6229,30 +6229,6 @@ Public Class ClsContabilidad #End Region -#Region "IDisposable Support" - ' IDisposable - Protected Overridable Sub Dispose(disposing As Boolean) - If Not Me.disposedValue Then - If disposing Then - - If Not Data Is Nothing Then Data.Dispose() : Data = Nothing - If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing - If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing - If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing - If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing - If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() - If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing - - End If - End If - Me.disposedValue = True - End Sub - Public Sub Dispose() Implements IDisposable.Dispose - ConexionClose() - Dispose(True) - GC.SuppressFinalize(Me) - End Sub -#End Region #Region "Periodos Bloqueo Meses" Public Function GetPeriodosBloqueo(CveEmpresa As Integer) As Boolean Dim Retorno = False @@ -6376,8 +6352,6 @@ Public Class ClsContabilidad End Function #End Region - - #Region "ESTADO RESULTADOS HORIZONTAL" @@ -6567,4 +6541,32 @@ Public Class ClsContabilidad Return Retorno End Function + + +#Region "IDisposable Support" + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + + End If + End If + Me.disposedValue = True + End Sub + Public Sub Dispose() Implements IDisposable.Dispose + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + + End Class \ No newline at end of file diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 54e7cf9ff..13064ce48 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -490,6 +490,30 @@ Public Class ClsContratos End Try Return Retorno + End Function + + 'Usado en conrtatos Obra + Public Function AbrirCerrarContrato(CveContrato As Integer, CveEmpresa As Integer, Cerrar As Boolean, CveUsuario As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Con_ContratosObraAbrirCerrar") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Cerrar", SqlDbType.Bit).Value = Cerrar + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al abrir o cerrar el contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function 'Public Function AddContratosTipo1(NumeroContrato As String, DescripcionContrato As String, CveProveedor As Integer, CveCliente As Integer, FechaInicial As DateTime, FechaFinal As DateTime, @@ -550,7 +574,8 @@ Public Class ClsContratos Geom As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer, Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, - Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0) As Integer + Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0, + Optional ImporteSubTotal As Decimal = 0) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Con_ContratosObraAdd") @@ -603,6 +628,7 @@ Public Class ClsContratos .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev .Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto + .Add("@ImporteSubTotal", SqlDbType.Money).Value = ImporteSubTotal .Add("@CveContrato", SqlDbType.Int).Direction = ParameterDirection.Output @@ -629,7 +655,8 @@ Public Class ClsContratos CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer, Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1.0, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, - Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0) As Boolean + Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0, + Optional ImporteSubTotal As Decimal = 0) As Boolean Dim Retorno = False DataAdapter("PA_Con_ContratosObraUpdate") @@ -680,7 +707,8 @@ Public Class ClsContratos .Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0) .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev .Add("@Lugar", SqlDbType.VarChar).Value = Lugar - .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto + .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto + .Add("@ImporteSubTotal", SqlDbType.Money).Value = ImporteSubTotal End With @@ -1821,14 +1849,35 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function + + 'Es usando en ContratoObra para validar la actualizacion de cantidad de avance + Public Function GetContratosDetalleAvance(CveContratoDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Con_ContratosDetalleAvanceGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el avance de los detalles", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + #End Region - + #Region "S U B - T O T A L E S" - - + + Public Function GetSubTotalesConDetalle(CveEmpresa As Integer) As Boolean Dim Retorno = False diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 0c36234e9..a84761df1 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2527,7 +2527,7 @@ Public Class ClsGenerales CveEmpresa As Integer, Optional CveUsuario As Integer = -1, Optional CvePersonal As Integer = -1, Optional IdPoliza As Integer = -1, Optional CvePrePoliza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveConceptoNomina As Integer = -1, Optional CvePromocion As Integer = -1, Optional CveAsistencia As Integer = -1, Optional CveAsistenciaDetalle As Integer = -1, Optional CveTipoBitacora As Integer = -1, - Optional FechaInicio As String = "", Optional FechaFin As String = "") As Boolean + Optional FechaInicio As String = "", Optional FechaFin As String = "", Optional Fecha As Date = MinFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_HistorialBitacoraGet") @@ -2554,6 +2554,8 @@ Public Class ClsGenerales .Add("@CveTipoBitacora", SqlDbType.Int).Value = CveTipoBitacora .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin + .Add("@Fecha", SqlDbType.Date).Value = Fecha + End With 'SqlTypes.SqlDateTime.Null diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c256e98fe..03880cf97 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1279,7 +1279,7 @@ Public Class ClsInventarios Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "", Optional Lote As String = "", Optional FechaCaducidad As Date = MinFecha, Optional Observaciones As String = "", Optional CveMovimientoDetalleEntrada As Integer = -1, Optional PUTC As Decimal = -1, Optional CostoIndirecto As Decimal = 0, Optional CveCompraDetalle As Integer = -1, Optional CveOrdenCompraDetalle As Integer = -1, Optional CveVentaDetalle As Integer = -1, - Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1) As Boolean + Optional CveContratoDetalle As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional EsInterno As Integer = -1, Optional CveVentaDetallePadre As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleAdd") @@ -1305,6 +1305,7 @@ Public Class ClsInventarios .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@EsInterno", SqlDbType.Int).Value = EsInterno + .Add("@CveVentaDetallePadre", SqlDbType.Int).Value = CveVentaDetallePadre .Add("@CveMovimientoDetalle", SqlDbType.Int).Direction = ParameterDirection.Output End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 49aab559a..555f3d41d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1157,7 +1157,7 @@ Public Class ClsPaginas Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa) If Application(AppNombre) Is Nothing Then Dim ObjSubProyectos As New ClsSubProyectos() - If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) + If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError) ObjSubProyectos.Dispose() GuardaLog("Se Cargo GlobalDTProyectosUsuarios") End If @@ -1352,7 +1352,7 @@ Public Class ClsPaginas End Get End Property Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, - Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1") As DataTable + Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1, Optional Codigo As String = "-1", Optional CodigoSATPS As String = "-1") As DataTable Get Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa) If CveEmpresa <> -1 Then @@ -1367,7 +1367,7 @@ Public Class ClsPaginas Dim Cons = DirectCast(Application(AppNombre), EnumerableRowCollection(Of DataRow)) - Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) + 'Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEmpresa) = CveEmpresa)) If CveClasificacion >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveClasificacion) = CveClasificacion)) If PSCodigo <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!PSCodigo) = PSCodigo)) Codigo = Codigo.ToUpper().Trim() @@ -1375,6 +1375,7 @@ Public Class ClsPaginas If Estatus >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CveEstado) = Estatus)) If AplicaParaVenta >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!AplicaParaVenta) = AplicaParaVenta)) If CvePS >= 0 Then Cons = Cons.Where((Function(a) Convert.ToInt32(a!CvePS) = CvePS)) + If CodigoSATPS <> "-1" Then Cons = Cons.Where((Function(a) Convert.ToString(a!SATClavePS) = CodigoSATPS)) Try GlobalDTPSSimplificado = Cons.OrderBy(Function(a) a!PSCodigo).CopyToDataTable @@ -5706,6 +5707,7 @@ Public Class ClsPaginas Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) wsreport = Nothing params = Nothing + ds.Dispose() : ds = Nothing Else If IsNothing(MR) Then MR = New ReportViewer Try @@ -5735,6 +5737,7 @@ Public Class ClsPaginas 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") End Try MR.Dispose() + MR = Nothing 'Dim ruta = wsreport.StreamPDF(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) 'If File.Exists(ruta) Then ' Bytes = File.ReadAllBytes(ruta) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7bd11e2fc..31a54c57f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -6582,6 +6582,8 @@ Namespace Modelos Me.ClienteSucursal.Sucursal = Cliente.Sucursal Me.ClienteSucursal.ImprimeNombreSucursal = Cliente.ImprimeNombreSucursal.ToString() End If + Else + Cliente = New Modelos.ClienteModel() End If End Sub Public Sub SetMoneda() @@ -9791,6 +9793,9 @@ Namespace Modelos Inherits Modelos.EntityModel Protected Overloads Sub SetDefaultValues() CveCliente = -1 + Nombre = "" + RFC = "" + Codigo = "" EnviarFactura = "Si" Estatus = "Activo" NoExt = "" diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 625017e87..eb7963a0e 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3658,6 +3658,7 @@ Public Class Timbrado + End If #Region "Complemento Pago" @@ -3780,6 +3781,159 @@ Public Class Timbrado End If #End Region + +#Region "C O M P L E M E N T O C A R T A P O R T E" + + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then + + Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte + + + + ''DATOS GENERALES + Dim ComCartaPorte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorte() + Dim Transp As Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteTranspInternac + ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí) + ComCartaPorte.EntradaSalidaMercSpecified = False + ComCartaPorte.ViaEntradaSalidaSpecified = False + ComCartaPorte.TotalDistRecSpecified = False + + 'UBICACIONES + If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Ubicaciones = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion(Carta.Ubicaciones.Count - 1) {} + For Each ubica As CFDICartaPorteUbicaciones In Carta.Ubicaciones + 'origen + ComCartaPorte.Ubicaciones(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacion + ComCartaPorte.Ubicaciones(i).TipoEstacionSpecified = False + ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida + ComCartaPorte.Ubicaciones(i).Origen = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionOrigen With {.IDOrigen = ubica.Origen.IDOrigen, + .RFCRemitente = ubica.Origen.RFCRemitente, + .NombreRemitente = ubica.Origen.NombreRemitente, + .FechaHoraSalida = ubica.Origen.FechaHoraSalida.ToDate} + ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Origen.Domicilio.Calle, + .NumeroExterior = ubica.Origen.Domicilio.NumeroExterior, + .NumeroInterior = ubica.Origen.Domicilio.NumeroInterior, + .Colonia = ubica.Origen.Domicilio.Colonia, + .Localidad = ubica.Origen.Domicilio.Localidad, + .Referencia = ubica.Origen.Domicilio.Referencia, + .Municipio = ubica.Origen.Domicilio.Municipio, + .Estado = ubica.Origen.Domicilio.Estado, + .CodigoPostal = ubica.Origen.Domicilio.CP} + 'falta pais + + + + ComCartaPorte.Ubicaciones(i).Destino = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDestino With {.IDDestino = ubica.Destino.IDDestino, + .RFCDestinatario = ubica.Destino.RFCDestinatario, + .NombreDestinatario = ubica.Destino.NombreDestinatario, + .FechaHoraProgLlegada = ubica.Destino.FechaHoraProgLlegada.ToDate} + + ComCartaPorte.Ubicaciones(i).Domicilio = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteUbicacionDomicilio With {.Calle = ubica.Destino.Domicilio.Calle, + .NumeroExterior = ubica.Destino.Domicilio.NumeroExterior, + .NumeroInterior = ubica.Destino.Domicilio.NumeroInterior, + .Colonia = ubica.Destino.Domicilio.Colonia, + .Localidad = ubica.Destino.Domicilio.Localidad, + .Referencia = ubica.Destino.Domicilio.Referencia, + .Municipio = ubica.Destino.Domicilio.Municipio, + .Estado = ubica.Destino.Domicilio.Estado, + .CodigoPostal = ubica.Destino.Domicilio.CP} + + + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.Origen.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida) + 'cfdi.CartaPorteDomicilio(ubica.Origen.Domicilio.Calle, ubica.Origen.Domicilio.NumeroExterior, ubica.Origen.Domicilio.NumeroInterior, ubica.Origen.Domicilio.Colonia, ubica.Origen.Domicilio.Localidad, ubica.Origen.Domicilio.Referencia, ubica.Origen.Domicilio.Municipio, ubica.Origen.Domicilio.Estado, ubica.Origen.Domicilio.Pais, ubica.Origen.Domicilio.CP) + 'destino + 'cfdi.CartaPorteUbicacion(ubica.TipoEstacion, ubica.DistanciaRecorrida) + 'cfdi.CartaPorteDestino(ubica.Destino.IDDestino, ubica.Destino.RFCDestinatario, ubica.Destino.NombreDestinatario, ubica.Destino.NumRegIdTrib, ubica.Destino.ResidenciaFiscal, ubica.Destino.NumEstacion, ubica.Destino.NombreEstacion, ubica.Destino.NavegacionTrafico, ubica.Destino.FechaHoraProgLlegada) + 'cfdi.CartaPorteDomicilio(ubica.Destino.Domicilio.Calle, ubica.Destino.Domicilio.NumeroExterior, ubica.Destino.Domicilio.NumeroInterior, ubica.Destino.Domicilio.Colonia, ubica.Destino.Domicilio.Localidad, ubica.Destino.Domicilio.Referencia, ubica.Destino.Domicilio.Municipio, ubica.Destino.Domicilio.Estado, ubica.Destino.Domicilio.Pais, ubica.Destino.Domicilio.CP) + Next + + End If + + 'MERCANCIAS + If Carta.Mercancias IsNot Nothing Then + ComCartaPorte.Mercancias = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercancias + ComCartaPorte.Mercancias.PesoBrutoTotal = Carta.Mercancias.PesoBrutoTotal.ToDecimal + ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal + ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias + ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal + ' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso + + If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then + Dim i As Integer = 0 + ComCartaPorte.Mercancias.Mercancia = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia(Carta.Mercancias.Mercancias.Count - 1) {} + For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias + ComCartaPorte.Mercancias.Mercancia(i) = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteMercanciasMercancia + ComCartaPorte.Mercancias.Mercancia(i).BienesTranspSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).ClaveSTCCSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción + ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad + ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidadSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad + ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones + ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje + ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg + ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).MonedaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).FraccionArancelariaSpecified = False + ComCartaPorte.Mercancias.Mercancia(i).UUIDComercioExt = concep.UUIDComercioExt + + 'cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + Next + End If + End If + + ' + If Carta.FiguraTransporte IsNot Nothing Then + + If Carta.FiguraTransporte.AutoTransporteFederal IsNot Nothing Then + ComCartaPorte.FiguraTransporte = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporte + + ComCartaPorte.FiguraTransporte.CveTransporte = Profact.TimbraCFDI33.Complementos.CartaPorte10.c_CveTransporte.Item02 + 'ComCartaPorte.FiguraTransporte.CveTransporte. + + 'cfdi.CartaPorteAutotransporteFederal(Carta.FiguraTransporte.AutoTransporteFederal.PermSCT, Carta.FiguraTransporte.AutoTransporteFederal.NumPermisoSCT, Carta.FiguraTransporte.AutoTransporteFederal.NombreAseg, Carta.FiguraTransporte.AutoTransporteFederal.NumPolizaSeguro) + + 'cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporteFederal.Vehiculo.AnioModeloVM) + + 'If Carta.FiguraTransporte.AutoTransporteFederal.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporteFederal.Remolques.Count > 0 Then + 'For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporteFederal.Remolques + 'cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa) + ' Next + ' + 'End If + End If + + + 'If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then + ' Dim i As Integer = 0 + ' ComCartaPorte.FiguraTransporte.Operadores = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador(Carta.FiguraTransporte.Operadores.Count - 1)() {} + ' For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores + ' Dim Oper = New Profact.TimbraCFDI33.Complementos.CartaPorte10.CartaPorteFiguraTransporteOperadoresOperador() + ' Oper.RFCOperador = concep.RFCOperador + ' Oper.NumLicencia = concep.NumLicencia + ' Oper.NombreOperador = concep.NombreOperador + ' Oper.NumRegIdTribOperador = concep.NumRegidTribOperador + ' 'Oper.ResidenciaFiscalOperador = concep.ResidenciaFiscalOperador + ' ComCartaPorte.FiguraTransporte.Operadores + ' 'cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador) + ' Next + 'End If + + End If + + End If + + End If + +#End Region + + #Region "Nomina12" If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then Dim Nom = New Profact.TimbraCFDI33.Complementos.Nomina12.Nomina() diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 57248f917..5f30eea0e 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -600,6 +600,15 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then + Dim i As Integer = 0 'limpieza de columnas + While i < DtRetorno.Columns.Count + If Not DtRetorno.Columns(i).ColumnName.Contiene("CveCliente", ColumnaNombre) Then + DtRetorno.Columns.RemoveAt(i) + Else + i = i + 1 + End If + End While + DtRetorno.Columns("CveCliente").ColumnName = "id" DtRetorno.Columns(ColumnaNombre).ColumnName = "text" retorno = JsonConvert.SerializeObject(DtRetorno).ToString @@ -913,7 +922,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState DtPSRetorno = DTTmp.Copy Else - 'no regresar datos herror al consultar + 'no regresar datos error al consultar DtPSRetorno.Clear() End If DTTmp.Dispose() diff --git a/Bancos/RepComplementoPago.aspx b/Bancos/RepComplementoPago.aspx index 06af838af..74cdfbed1 100644 --- a/Bancos/RepComplementoPago.aspx +++ b/Bancos/RepComplementoPago.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComplementoPago.aspx.vb" Inherits="Bancos_RepComplementoPago" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="true" EnableEventValidation = "false" CodeFile="RepComplementoPago.aspx.vb" Inherits="Bancos_RepComplementoPago" %> @@ -10,15 +10,19 @@ - +
  • - PDF + <%--PDF--%> +
    • + + +     diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index 79693c956..2669c672c 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -1,8 +1,10 @@ Option Explicit On Option Strict On Imports System.Data +Imports System.IO Imports Extensiones - +Imports GemBox.Spreadsheet + Partial Class Bancos_RepComplementoPago Inherits ClsPaginas @@ -33,16 +35,26 @@ Partial Class Bancos_RepComplementoPago Private Sub CargaDatos() Dim CveCliente As Integer = If(DdlCliente.SelectedValue.ToEntero > 0, DdlCliente.SelectedValue.ToEntero, -1) Dim Banco As New ClsBancos + LnkExcel.Visible = False If Banco.GetComplementoPagosRep(CveCliente, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, -1, -1, DdlOpcion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero) Then GvD.DataSource = Banco.DtResultados '.FiltraParametros("CveComplementoPago is null") + + + + If Banco.DtResultados.Rows.Count > 0 Then + LnkExcel.Visible = True + End If + End If Banco.Dispose() If DdlOpcion.SelectedValue = "2" Then GvD.Columns(8).Visible = True Else GvD.Columns(8).Visible = False GvD.DataBind() - UpDatos.Update() + UpDatos.Update() + UpAcciones.Update() + End Sub Private Sub GeneraTimbre() @@ -125,16 +137,16 @@ Partial Class Bancos_RepComplementoPago If e.Row.DBCampo("BloqueadoUtilerias") = "1" Then Mensaje = "Bloqueado Timbrando por aplicacion" End If - e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("PagoAbreviaturaSAT") - - If Not Mensaje.Length = 0 Then - e.Row.ForeColor = Drawing.Color.Red - e.Row.FCCheckBox("Chk").Enabled = False - e.Row.FCCheckBox("Chk").ToolTip = Mensaje - End If - - Else - e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString))) + e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("PagoAbreviaturaSAT") + + If Not Mensaje.Length = 0 Then + e.Row.ForeColor = Drawing.Color.Red + e.Row.FCCheckBox("Chk").Enabled = False + e.Row.FCCheckBox("Chk").ToolTip = Mensaje + End If + + Else + e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString))) e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioPago").ToString.Replace("&", "%26%"), e.Row.DBCampo("CveIE").ToString))) e.Row.FCLinkButton("LnkSendMail").Visible = True @@ -378,8 +390,8 @@ Partial Class Bancos_RepComplementoPago End If Else respuesta = False - End If - + End If + Return respuesta End Function @@ -390,5 +402,134 @@ Partial Class Bancos_RepComplementoPago TxtParaMail.Text = gvRow.DataKey("CobranzaCorreo").ToString UpSendMail.Update() RegistraScript("$('#ModalDivMail').modal('show');") + End Sub + + Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) + + ' GvD.ExportToExcelG("ReporteComplementos", "Reporte Complementos", UsuarioActual) + 'GvD.ExportToExcelx("ReporteComplementos.xlsx") + ' GvD.ExportToExcel("ReporteComplementos.xlsx") + + + Imprimir("Excel") + + + + End Sub + + + + Private Sub Imprimir(Optional reporte As String = "PDF") + If GvD.Rows.Count > 0 Then + Dim StrFiltro As New StringBuilder + 'If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText) + 'If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText) + If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0} ", txtFechaI.Text) + If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text) + ExportToExcelG(GvD, "ReporteComplementos.xlsx", "Reporte complementos de pago", UsuarioActual, StrFiltro.ToString, 100, 150) + Else + Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia) + End If + End Sub + + Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) + Dim sw As New StringWriter() + Dim htw As New HtmlTextWriter(sw) + Gv.RenderControl(htw) + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8") + + Dim excel As GemBox.Spreadsheet.ExcelFile + Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault + Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString())) + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options) + If Usuario IsNot Nothing Then + Dim TotalRowHeader As Integer = 8 + Dim TotalRowFooter As Integer = 2 + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex) + RangoFiltros.Merged = True + RangoFiltros.Value = Filtros + RangoFiltros.Style.Font.Size = 15 * 20 + RangoFiltros.Style.Font.Name = "Calibri Light" + RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + worksheet.Columns("C").Width = 20000 + worksheet.Columns("D").Width = 4000 + worksheet.Columns("E").Width = 6000 + worksheet.Columns("F").Width = 6000 + worksheet.Columns("G").Width = 4000 + worksheet.Columns("H").Width = 12000 + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + Next + + Dim IndexEndTable As Integer = Gv.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre + + worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + End If + + End Using + htw.Dispose() + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + + End Sub + + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub + + End Class diff --git a/Compras/PopUpBuscarFolioC.aspx b/Compras/PopUpBuscarFolioC.aspx index 041743b15..77b5be834 100644 --- a/Compras/PopUpBuscarFolioC.aspx +++ b/Compras/PopUpBuscarFolioC.aspx @@ -46,7 +46,7 @@ Proveedor: - + diff --git a/Compras/PopUpBuscarFolioC.aspx.vb b/Compras/PopUpBuscarFolioC.aspx.vb index de4e0e45b..3b95e36c9 100644 --- a/Compras/PopUpBuscarFolioC.aspx.vb +++ b/Compras/PopUpBuscarFolioC.aspx.vb @@ -31,9 +31,9 @@ Partial Class Compras_PopUpBuscarFolioC End Sub Protected Sub CargaProveedor() - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + 'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + 'DdlProveedor.DataBind() + 'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) End Sub @@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC If ValidarUnFiltroSeleccionado() Then Dim ObjCompras As New ClsCompras() If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs, - CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then + CveProveedor:=DdlProveedores.SelectedValue.ToEntero, TopSelect:=100) Then If ObjCompras.DtResultados.Rows.Count > 0 Then LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0) GV.DataSource = ObjCompras.DtResultados @@ -112,7 +112,7 @@ Partial Class Compras_PopUpBuscarFolioC If TxtDescripcion.Text.Trim.Length > 0 Then Return True If TxtObservaciones.Text.Trim.Length > 0 Then Return True If DdlTipoDocto.SelectedValue <> "-1" Then Return True - If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True + If DdlProveedores.SelectedValue.ToEntero <> 0 Then Return True Return False End Function End Class diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9b63a00ee..2ce35856c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1810,6 +1810,18 @@ Partial Class PopUpVerFactura End If End If + 'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS + If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then + Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}") + + Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString() + Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString() + + If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then + Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL") + End If + End If + 'End If 'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index cd4a6e804..419a93c51 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -143,7 +143,7 @@
    - +
    diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index cc089bec4..747c43556 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -26,14 +26,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End Sub - Private Sub CargaDatos() - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjConta.DtResultados - End If - ObjConta.Dispose() - GvDatos.DataBind() - End Sub + 'Private Sub CargaDatos() + ' Dim ObjConta As New ClsContabilidad + ' If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then + ' GvDatos.DataSource = ObjConta.DtResultados + ' End If + ' ObjConta.Dispose() + ' GvDatos.DataBind() + 'End Sub Private Sub CargaDatosSistema() Dim ObjConta As New ClsContabilidad @@ -58,7 +58,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjConta As New ClsContabilidad If ObjConta.GetConta_ConceptosContables() Then - DdlCconceptosContables.DataSource = ObjConta.DtResultados + DdlCconceptosContables.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True ") DdlConceptoGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("EsCuentaUnica = false AND EsSistema = True AND EsGlobal = True") End If @@ -67,8 +67,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCuentaGlobal.DataSource = ObjConta.DtResultados End If ObjConta.Dispose() - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - + DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlClientes.setEsWebService(True) DdlPersonal.setEsWebService(True) @@ -102,7 +102,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -123,7 +123,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable")) DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta")) DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero) - DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor")) + DdlProveedor.ddl.SelectedValueExist(GvRow.DataKey("CveProveedor")) DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen")) TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") @@ -151,41 +151,22 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Dr IsNot Nothing Then - If Dr("AplicaCliente").ToString = "True" Then - divCliente.Visible = True - DdlClientes.setEsWebService(True) - End If - If Dr("AplicaProveedor").ToString = "True" Then - divProveedor.Visible = True - End If + divCliente.Visible = Dr("AplicaCliente").ToString = "True" - If Dr("AplicaPersonal").ToString = "True" Then - divPersonal.Visible = True - DdlPersonal.setEsWebService(True) + divProveedor.Visible = Dr("AplicaProveedor").ToString = "True" - End If + divPersonal.Visible = Dr("AplicaPersonal").ToString = "True" - If Dr("AplicaImpuesto").ToString = "True" Then - divPorcentajeIVA.Visible = True - End If + divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True" + divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True" - If Dr("AplicaClasificacion").ToString = "True" Then - divClasificacion.Visible = True - End If + divBancos.Visible = Dr("AplicaBancos").ToString = "True" - If Dr("AplicaBancos").ToString = "True" Then - divBancos.Visible = True - End If + divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True" - If Dr("AplicaAlmacen").ToString = "True" Then - divAlmacen.Visible = True - End If - - If Dr("AplicaSubProyecto").ToString = "True" Then - divSubProyectos.Visible = True - End If + divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True" If Dr("AplicaActivoFijo").ToString = "True" Then divActivoFijo.Visible = True @@ -194,9 +175,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo")) End If - If Dr("AplicaNomina").ToString = "True" Then - divConceptoNomina.Visible = True - End If + divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True" End If End Sub diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index e14f9b4a6..546f57bcf 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -106,6 +106,15 @@ Agregar Maquinaria-Flotilla-Herramienta + +
  • + Abrir Contrato +
    • + +
  • + Cerrar Contrato +
    • + @@ -163,11 +172,8 @@
    -
    -
    - @@ -735,7 +741,7 @@ Descargar - + @@ -803,7 +809,7 @@
    @@ -1085,6 +1091,7 @@ + @@ -1181,7 +1188,8 @@
    +
    @@ -1287,35 +1295,35 @@ - - + + - + - + - - + + - + - + @@ -2220,7 +2228,9 @@ - + + +   @@ -2773,7 +2783,9 @@
    - + + +
    diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 8e7140752..c3735a602 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -389,6 +389,19 @@ Partial Class Contratos_ContratoObra End Property + Property BloquearTodo As Boolean + Get + If ViewState("BloquearTodo") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("BloquearTodo").ToString) + End If + End Get + Set(value As Boolean) + ViewState("BloquearTodo") = value + End Set + End Property + #End Region @@ -483,6 +496,9 @@ Partial Class Contratos_ContratoObra CargaDLLCargaGVCentrosConsto() tabalCentrosdecotso() + + BloquearControles() + End If @@ -626,12 +642,38 @@ Partial Class Contratos_ContratoObra 'DdlProyecto.SelectedValue = "-1" TxtCantidad.Text = "" + RGVControlCantidadVentas.Visible = False TxtPU.Text = "" TmpDT.Clear() CargaGVPresupuestos(TmpDT) CargaGVPresupuestosInsumos(TmpDT) LbTotalGeneral.Text = "0.00" End Sub + + Private Sub BloquearControles() + + If BloquearTodo Then + + + LnkModalAddPSVentas.Visible = False + LnkModalAddPSControl.Visible = False + LnkModalAddPresupuestoVentas.Visible = False + LnkModalAddPresupuestoControl.Visible = False + LnkModalAddGastos.Visible = False + LnkModalAddMaquinariaFlotilla.Visible = False + + BtnDescargar.Enabled = False + A1.Visible = False + + BtnGuardar.Enabled = False + BtnEliminar.Enabled = False + BtnCancelar.Enabled = False + + + End If + + End Sub + #End Region #Region " CONFIGURA TIPOS CONTRATO " @@ -739,6 +781,24 @@ Partial Class Contratos_ContratoObra DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString DdlCliente.SelectedText = ObjContratos.NombreComercial.ToString + + + LnkAbrirContrato.Visible = False + LnkCerrarContrato.Visible = False + + If UsuarioActual.TienePermisoProceso(330) Then + + If ObjContratos.TipoEstatus = 1 Then + LnkCerrarContrato.Visible = True + Else + LnkAbrirContrato.Visible = True + BloquearTodo = True + End If + + End If + + + If ObjContratos.CveProveedor > 0 Then ' TrProveedor.Visible = True TrCliente.Visible = False @@ -873,6 +933,11 @@ Partial Class Contratos_ContratoObra Alert("El Contrato Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False End If + + + + + Else CveContrato = -1 Alert("Ocurrió un error al cargar el Contrato. Por favor vuelva a intentar.", TipoMensaje.MsgError) @@ -1000,10 +1065,14 @@ Partial Class Contratos_ContratoObra TipoContrato = DdlTipoContratoObra.SelectedValue.ToEntero 'Crear Contrato + Dim ImporteSubTotal As Decimal = TmpDT.SUM("Total", " CveContratoDetalle > 0 AND CveTipoPresupuesto=2 ").ToDecimal If Not CveContrato > 0 Then Dim EstatusContrato As Integer = 1 + + + CveContrato = ObjContratos.AddContratosObra(TxtNumeroContrato.Text, TxtDescripcionContrato.Text, TxtNumeroLicitacion.Text.Trim, DdlContratista.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, -1, TxtFechaInicial.Text.ToDate, TxtFechaFinal.Text.ToDate, TxtUbicacion.Text, TxtResponsable.Text, DdlProyecto.SelectedValue.ToEntero, TxtPorIVA.Text.ToDouble, TxtPorAnticipo.Text.ToDouble, TxtPorAmortizacionAnticipo.Text.ToDouble, TxtPorGarantia.Text.ToDouble, "." & Session("FileExtension").ToString, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, Minimo, Maximo, Total, @@ -1011,7 +1080,7 @@ Partial Class Contratos_ContratoObra TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0, TipoGarantia:=-1, Folio:=0, FechaVenc:=Nothing, EstatusFianza:=1, CvePeriodo:=-1, CveCuentaEquipo:=-1, CveContratoPlantilla:=-1, CveVendedor:=-1, - Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble) + Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble, ImporteSubTotal:=ImporteSubTotal) TieneError = Not GuardaFianzas(ObjContratos) @@ -1074,7 +1143,7 @@ Partial Class Contratos_ContratoObra CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0, TipoGarantia:=-1, Folio:=-1, FechaVenc:=Nothing, EstatusFianza:=-1, CveContratoPlantilla:=-1, CveCuentaEquipo:=-1, CveVendedor:=-1, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, - CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble) Then + CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble, ImporteSubTotal:=ImporteSubTotal) Then TieneError = Not GuardaFianzas(ObjContratos) @@ -1698,6 +1767,21 @@ Partial Class Contratos_ContratoObra End If + + If e.Row.RowType = DataControlRowType.DataRow Then + + If BloquearTodo Then + e.Row.FCLinkButton("LnkEditarPresupuestoVentaDetalle").Visible = False + e.Row.FCLinkButton("imgD").Visible = False + End If + + If e.Row.DataKey("CveContratoDetalle").ToEntero <= 0 Then + e.Row.FCLinkButton("LnkEditarPresupuestoVentaDetalle").Visible = False + e.Row.FCLinkButton("imgD").Visible = False + End If + + End If + If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then e.Row.FCDropDownList("DdlUMEdit").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DataKey("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlUMEdit").DataBind() @@ -2078,6 +2162,23 @@ Partial Class Contratos_ContratoObra e.Row.FCDropDownList("DdlUMEdit").SelectedValue = e.Row.DataKey("CveUM") End If + + If e.Row.RowType = DataControlRowType.DataRow Then + If BloquearTodo Then + e.Row.FCLinkButton("LnkEditarPresupuestoControlDetalle").Visible = False + e.Row.FCLinkButton("imgD").Visible = False + End If + + + If e.Row.DataKey("CveContratoDetalle").ToEntero <= 0 Then + + e.Row.FCLinkButton("LnkEditarPresupuestoControlDetalle").Visible = False + e.Row.FCLinkButton("imgD").Visible = False + + End If + + End If + End Sub Protected Sub GVInsumos_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvInsumos.RowEditing GvInsumos.EditIndex = e.NewEditIndex @@ -2726,8 +2827,8 @@ Partial Class Contratos_ContratoObra End Sub Protected Sub GvContratoGastos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvContratosGastos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Or e.Row.DBCampo("CveVenta").ToString.ToEntero > 0 Then If e.Row.DBCampo("CveContrato").ToString.ToEntero = 0 Then e.Row.CssClass = "SubTotales" : e.Row.Cells(0).Text = e.Row.DBCampo("Cantidad").FormatoNumero(0) e.Row.FCLinkButton("imgE").Visible = False @@ -2738,6 +2839,16 @@ Partial Class Contratos_ContratoObra ScriptManager.GetCurrent(Me).RegisterAsyncPostBackControl(lb) End If End If + + + If e.Row.RowType = DataControlRowType.DataRow Then + If BloquearTodo Then + e.Row.FCLinkButton("imgU").Visible = False + e.Row.FCLinkButton("imgE").Visible = False + e.Row.FCLinkButton("imgD").Visible = False + End If + End If + End Sub Protected Sub GvContratoGastos_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvContratosGastos.RowDeleting @@ -3185,6 +3296,15 @@ Partial Class Contratos_ContratoObra End If End If + + + If e.Row.RowType = DataControlRowType.DataRow Then + If BloquearTodo Then + e.Row.FCLinkButton("LinkEliminarBitacora").Visible = False + End If + End If + + End Sub Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click @@ -4181,12 +4301,38 @@ Partial Class Contratos_ContratoObra + Dim CantidadMinimo As Integer = 0 + Dim ObjContrtato As New ClsContratos + + If ObjContrtato.GetContratosDetalleAvance(CveContratoDetalleEditar) Then + CantidadMinimo = ObjContrtato.DtResultados.Rows(0)(0).ToString.ToEntero + + + If CantidadMinimo = 0 Then + RGVControlCantidadVentas.Visible = False + Else + RGVControlCantidadVentas.Visible = True + RGVControlCantidadVentas.MinimumValue = CantidadMinimo.ToString + End If + + + End If + + + ObjContrtato.Dispose() + + + ModalVentasPSAdd = False ChkContinualAgregandoVentas.Visible = False ChkContinualAgregandoVentas.Checked = False + UpModalVentasAddPS.Update() RegistraScript("$('#ModalVentasAddPS').modal('show')") + + + End Sub Protected Sub LnkEditarPresupuestoControlDetalle_Click(sender As Object, e As EventArgs) @@ -4276,6 +4422,7 @@ Partial Class Contratos_ContratoObra 'TxtOCInterna.Text = "" TxtCantidad.Text = "" + RGVControlCantidadVentas.Visible = False 'ChkLimitarVenta.Checked = False 'TxtNoIdentificacionv.Text = "" DdlClasificacionAdd.SelectedValueExist(-1) @@ -5088,7 +5235,6 @@ Partial Class Contratos_ContratoObra Private Sub GvGastosVeiculos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosVeiculos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DataKey("ORDEN").ToEntero = 1 Then e.Row.CssClass = "Totales" e.Row.Cells(1).Text = "Total" @@ -5097,8 +5243,16 @@ Partial Class Contratos_ContratoObra End If - End If + + + + If e.Row.RowType = DataControlRowType.DataRow Then + If BloquearTodo Then + e.Row.FCLinkButton("LnkEliminarGasto").Visible = False + End If + End If + End Sub @@ -5433,6 +5587,39 @@ Partial Class Contratos_ContratoObra AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal) End Sub + Protected Sub LnkAbrirContrato_Click(sender As Object, e As EventArgs) + AbrirCerrarContrto(False) + End Sub + Protected Sub LnkCerrarContrato_Click(sender As Object, e As EventArgs) + AbrirCerrarContrto(True) + End Sub + + + Private Sub AbrirCerrarContrto(Cerrar As Boolean) + + + Dim ObjConrtato As New ClsContratos + + If ObjConrtato.AbrirCerrarContrato(CveContrato, UsuarioActual.CveEmpresa, Cerrar, UsuarioActual.CveUsuario) Then + Alert($"Contrato { If(Cerrar, "Cerrado", "Abierto")} Correctamente", TipoMensaje.MsgInformacion, $"window.location.href=""./ContratoObra.aspx?CveContrato={CveContrato}"";") + End If + + + End Sub + + Private Sub GvInt_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInt.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + If BloquearTodo Then + + 'e.Row.FCLinkButton("LinkButton1").Enabled = False + 'e.Row.FCLinkButton("LinkButton2").Enabled = False + e.Row.FCLinkButton("LinkButton3").Visible = False + e.Row.FCLinkButton("LinkButton4").Visible = False + + End If + End If + End Sub End Class diff --git a/Contratos/RepContratosObraAvances.aspx b/Contratos/RepContratosObraAvances.aspx index dc16ca9f5..525fc4072 100644 --- a/Contratos/RepContratosObraAvances.aspx +++ b/Contratos/RepContratosObraAvances.aspx @@ -70,8 +70,8 @@
    Cliente:
    -
    - +
    +
    @@ -106,7 +106,7 @@
    Contratos

    - +

    @@ -115,7 +115,7 @@
    Total

    - $ + $

    @@ -140,7 +140,7 @@ Avance

    - + @@ -150,7 +150,7 @@ Porcentaje

    - + @@ -192,7 +192,7 @@ Faltante

    - + @@ -202,7 +202,7 @@ Porcentaje

    - + @@ -309,7 +309,7 @@ - + diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb index 1ee3aa59b..15f33d2b3 100644 --- a/Contratos/RepContratosObraAvances.aspx.vb +++ b/Contratos/RepContratosObraAvances.aspx.vb @@ -19,12 +19,15 @@ Partial Class RepContratosObraAvances Private Sub CargaDatos() + Dim CveCliente As Integer = -1 Dim Con As New ClsContratos - Dim DTDatos As New DataTable + If DdlCliente.SelectedValue.ToEntero > 0 Then CveCliente = DdlCliente.SelectedValue.ToEntero - If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, CveCliente, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GVDatos.DataSource = Con.DtResultados - DTDatos = Con.DtResultados + If Con.DtResultados.Rows.Count > 0 Then + Indicadores(Con.DtResultados) + End If Else GVDatos.DataSource = Nothing End If @@ -35,9 +38,7 @@ Partial Class RepContratosObraAvances UpDatos.Update() - If DTDatos.Rows.Count > 0 Then - Indicadores(DTDatos) - End If + End Sub @@ -47,7 +48,10 @@ Partial Class RepContratosObraAvances Dim NumeroContratos As Integer = DTDatos.Rows.Count - Dim TotalContratos As Decimal = DTDatos.SUM("Importe") + 'Dim TotalContratos As Decimal = DTDatos.SUM("Importe") + Dim TotalContratos As Decimal = DTDatos.SUM("ImporteSubTotal") + + Dim TotalAvance As Decimal = DTDatos.SUM("AvanceImporte") Dim TotalFaltante As Decimal = TotalContratos - TotalAvance @@ -85,15 +89,15 @@ Partial Class RepContratosObraAvances End Sub Private Sub CargaClientes() - Dim dt As DataTable = Nothing - Dim Cli As New ClsClientes - If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - dt = Cli.DtResultados - End If - Cli.Dispose() - DdlCliente.DataSource = dt - DdlCliente.DataBind() - DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) + 'Dim dt As DataTable = Nothing + 'Dim Cli As New ClsClientes + 'If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + ' dt = Cli.DtResultados + 'End If + 'Cli.Dispose() + 'DdlCliente.DataSource = dt + 'DdlCliente.DataBind() + 'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) End Sub #End Region diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx b/Contratos/RepContratosObraAvancesDetalle.aspx index 88c16a484..dcbf5b694 100644 --- a/Contratos/RepContratosObraAvancesDetalle.aspx +++ b/Contratos/RepContratosObraAvancesDetalle.aspx @@ -29,7 +29,7 @@
    Numero Estimaciones

    - +

    @@ -38,7 +38,7 @@
    Numero Estimaciones

    - +

    @@ -63,7 +63,7 @@ Avance

    - + @@ -73,7 +73,7 @@ Porcentaje

    - + @@ -115,7 +115,7 @@ Fecha Fin

    - + @@ -125,7 +125,7 @@ Dias Restantes

    - + diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx.vb b/Contratos/RepContratosObraAvancesDetalle.aspx.vb index 384ff2da2..1c1ede262 100644 --- a/Contratos/RepContratosObraAvancesDetalle.aspx.vb +++ b/Contratos/RepContratosObraAvancesDetalle.aspx.vb @@ -87,7 +87,7 @@ Partial Class RepContratosObraAvancesDetalle Dim AvanceImporte As Decimal = DTDatos(0)("AvanceImporte").ToString.ToDecimal - Dim TotalContratos As Decimal = DTDatos(0)("Importe").ToString.ToDecimal + Dim TotalContratos As Decimal = DTDatos(0)("ImporteSubTotal").ToString.ToDecimal Dim TotalAvancePorcentaje As Decimal = 0 If TotalContratos > 0 Then @@ -100,6 +100,8 @@ Partial Class RepContratosObraAvancesDetalle Dim FechaFinal As Date = DTDatos(0)("FechaFinal").ToString.ToDate Dim Dias As Integer = (FechaFinal - Now).Days + + Dias = If(Dias < 0, 0, Dias) LtlAvanceImporte.Text = $"$ {AvanceImporte.ToString("###,###,###.00")}" @@ -109,7 +111,7 @@ Partial Class RepContratosObraAvancesDetalle SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") LtlFechaFin.Text = FechaFinal.ToString("dd/MM/yyyy") - LtlDiasRestantes.Text = Dias.ToString("###,###") + LtlDiasRestantes.Text = If(Dias <= 0, "0", Dias.ToString("###,###")) UpGrafica.Update() diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 733c5c817..a3358cfb6 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -1,5 +1,5 @@ - + 0 @@ -2127,7 +2127,26 @@ - Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 + Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - + + + + Portillo (662) 688-5349 + + + + - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - - - - - - - - Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 + Sanalona (667) 713-667 - Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 Mexicali3 (686) 326 02 79 - Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 - - - -