AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SMS - Comisiones

Browse Source
This commit is contained in:
rakcsle
2024-03-19 23:46:36 -07:00
parent 8c29bbe293
commit d18f500605
7 changed files with 164 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/Proveedores.aspx.vb
View File

@@ -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