diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index 2d5d2f14d..51cb4c675 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -65,6 +65,7 @@ Public Class ClsCompProveedores Public Property Situacion As String = "" Public Property DIOTNacionalidad As String Public Property CveRegimenFiscal As Integer = -1 + Public Property PorcentajeProntoPago As Decimal = 0D Public ReadOnly Property DtResultados() As DataTable Get @@ -300,6 +301,7 @@ Public Class ClsCompProveedores Me.Situacion = Data.Rows(0)("Situacion").ToString Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero + Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal End If @@ -317,7 +319,7 @@ Public Class ClsCompProveedores CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", - Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean + Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean Dim Retorno As Boolean = False @@ -367,6 +369,7 @@ Public Class ClsCompProveedores .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -402,7 +405,7 @@ Public Class ClsCompProveedores CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1, Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", - Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean + Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_ProveedorUpdate") @@ -455,6 +458,7 @@ Public Class ClsCompProveedores .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal + .Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago ''Proveedores '.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e88aa9031..5260ef910 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6772,7 +6772,7 @@ Public Class ClsVentas End Function - Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer) As Boolean + Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ComisionesMedicasRepGet") @@ -6786,6 +6786,8 @@ Public Class ClsVentas .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta + End With Try diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index be4a3e3bf..5be9478c4 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -20297,6 +20297,22 @@ Partial Class Compras_Compras Select row + + + + 'Dim dataTable As New DataTable + 'Dim rowFilter As String = "" + 'Dim orderby As String = "" + 'Dim groupByColumns As String()() = {New String() {"SubProyecto", "CveSubProyecto", "Clasificacion", "CveClasificacion", "TipoGasto", "CveTipoGasto"}} + 'Dim sumColumns As String() = {"Total"} + + + 'Dim resultDataTable As DataTable = GroupByDT(TmpDT, rowFilter, orderby, groupByColumns, sumColumns) + + + + + If resultadosFiltrados.Count > 0 Then Dim EnumAgrupado = (From row In TmpDT.AsEnumerable() diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 22104def6..60c46cc56 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -344,8 +344,8 @@
-
-
+
+
@@ -356,7 +356,14 @@
+
+
+
+ + +
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index d4b2ccf60..ea2e659fe 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -640,9 +640,9 @@ Partial Class Compras_Proveedores GvA.Columns(5).Visible = True End If - - - + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then + DVPorcentajeProntoPago.Visible = True + End If End If @@ -920,7 +920,7 @@ Partial Class Compras_Proveedores ChkEstado.Checked = ObjProveedor.Estatus = "Activo" LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString LblUsuarioCapturo.Text = ObjProveedor.Usuario - TxtObservaciones.Text = ObjProveedor.Observaciones + TxtObservaciones.Text = ObjProveedor.Observaciones.ToString CargaCombos() @@ -950,6 +950,8 @@ Partial Class Compras_Proveedores Retorno = True + TxtPorcentajeProntoPago.Text = (100 * ObjProveedor.PorcentajeProntoPago).ToString("###.00") + ' enviaractivacion() CargaEventoBitacora() @@ -1403,6 +1405,11 @@ Partial Class Compras_Proveedores Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1) + Dim PorcentajeProntoPago As Decimal = 0 + If TxtPorcentajeProntoPago.Text.ToDecimal > 0 Then + PorcentajeProntoPago = TxtPorcentajeProntoPago.Text.ToDecimal / 100 + End If + If CveProveedor = -1 Then Dim ObjProveedores As New ClsCompProveedores() @@ -1414,7 +1421,7 @@ Partial Class Compras_Proveedores DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, - CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then + CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor @@ -1525,7 +1532,7 @@ Partial Class Compras_Proveedores DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, - CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then + CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb index 8ff278a69..64171fd7e 100644 --- a/Transportes/CatRutas.aspx.vb +++ b/Transportes/CatRutas.aspx.vb @@ -99,6 +99,7 @@ Partial Class CatRutas DdlDestinoEstatus.SelectedValue = GvRow.DataKey("Estatus") DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional") + DdlEstado.Items.Clear() If Convert.ToBoolean(DdlEsNacional.SelectedValue) Then DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind() Else diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index b23901098..8591d596e 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -7,11 +7,14 @@ Detalles del Contrato + +
  • + Imprimir Contrato +
  • +
    +