diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 594d3d247..9c0166f39 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6932,6 +6932,78 @@ Public Class ClsVentas #End Region +#Region "VENTAS MEDICAS COMISIONES ESPECIALES" + + Public Function GetComisionesMedicasEsPeciales(CveMedico As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ComisionesMedicasEspecialesGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las comisiones especiales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function AddComisionesMedicasEspeciales(CveMedico As Integer, CvePS As Integer, TipoComision As Integer, Comision As Decimal, CveUsuario As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ComisionesMedicasEspecialesAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@TipoComision", SqlDbType.Int).Value = TipoComision + .Add("@Comision", SqlDbType.Money).Value = Comision + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agegar la comisión especial", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function RemoveComisionesMedicasEspeciales(CveMedicoComision As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ComisionesMedicasEspecialesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMedicoComision", SqlDbType.Int).Value = CveMedicoComision + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la comision especial.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + +#End Region + #Region "DEVOLUICON" Public Function UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle As Integer, CantidadDevolucion As Decimal) As Boolean diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 1e7945306..1f8fa17e7 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -67,7 +67,7 @@
T.C.: - + diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index a1791b726..3c3ba9bb5 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -327,9 +327,21 @@ Partial Class Bancos_ProveedoresAbonar Private Sub CambiaTipoMoneda() If DivTC.Visible Then + TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4) - If ChkPagarDolares.Checked Then RegistraScript("CambiaPesosDolares();") - If ChkPagarPesos.Checked Then RegistraScript("CambiaDolaresPesos();") + + If ChkPagarDolares.Checked Then + 'RegistraScript("CambiaPesosDolares();") + RegistraScript("CambiaDolaresPesos();") + + End If + + If ChkPagarPesos.Checked Then + 'RegistraScript("CambiaDolaresPesos();") + RegistraScript("CambiaPesosDolares();") + + End If + End If UpDatos.Update() End Sub @@ -1343,6 +1355,7 @@ Partial Class Bancos_ProveedoresAbonar CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4) + TxtTC.Attributes.Add("onblur", "CambiaPesosDolares()") Else DivTC.Visible = False CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) @@ -1362,6 +1375,7 @@ Partial Class Bancos_ProveedoresAbonar CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4) + TxtTC.Attributes.Add("onblur", "CambiaDolaresPesos()") Else 'DivDolaresDolares.Visible = False CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 6e0db8830..8034c63ca 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -187,8 +187,8 @@
- - + +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index f3cc6a70e..c8c47d2f5 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -324,7 +324,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy") TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy") TxtConcepto.Enabled = True - TxtUsuarioElaboro.Text = UsuarioActual.Nombre + LblUsuarioElaboro.Text = UsuarioActual.Nombre End If @@ -352,7 +352,7 @@ Partial Class ContabilidadC_RegPrePolizaS TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy") TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy") TxtConcepto.Enabled = True - TxtUsuarioElaboro.Text = UsuarioActual.Usuario + LblUsuarioElaboro.Text = UsuarioActual.Usuario End If @@ -453,13 +453,13 @@ Partial Class ContabilidadC_RegPrePolizaS Folio = dr("FolioPoliza").ToString TxtFolio.Text = dr("FolioPoliza").ToString - TxtUsuarioElaboro.Text = dr("UsuarioNombre").ToString + LblUsuarioElaboro.Text = dr("UsuarioNombre").ToString TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy") TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss") CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero DdlPlantilla.SelectedValueExist(CvePlantillaPoliza) - If UsuarioActual.CveRol = 1 Then TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString + LblUsuarioElaboro.ToolTip = dr("Modulo").ToString If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then LnkAddConcepto.Visible = True diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx index 90ecbd1d1..06a549484 100644 --- a/Ventas/RepComisionesSMS.aspx +++ b/Ventas/RepComisionesSMS.aspx @@ -19,6 +19,9 @@
  • +
    • +
  • +
  • Excel @@ -280,6 +283,79 @@ + + + + + diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb index ebee4433a..2e95951d9 100644 --- a/Ventas/RepComisionesSMS.aspx.vb +++ b/Ventas/RepComisionesSMS.aspx.vb @@ -248,4 +248,26 @@ Partial Class Ventas_RepComisionesSMS End If End Sub + +#Region "COMISIONES ESPECIALES" + + Protected Sub LnkComisionesEspeciales_Click(sender As Object, e As EventArgs) + + CargaComisionesEspeciales() + RegistraScript("$('#DvModalComisionesEspeciales').modal('show');") + + End Sub + + Private Sub CargaComisionesEspeciales() + + End Sub + + Protected Sub LnkEliminarComisionEspecial_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + End Sub + +#End Region + + + End Class