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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2024-12-03 08:09:14 -07:00
parent 90df596abb 437f5b8894
commit a127869ab0
14 changed files with 38795 additions and 265 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -493,14 +493,16 @@ Partial Class Ventas_ActualizarPrecios
DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
DtExcel.Columns("NumeroParte").ColumnName = "Número de parte"
If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(578) = "1" Then 'Empresa Acumuladores
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Or UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
DtExcel.Columns("Número de parte").ColumnName = "Código CPK"
End If
Else
DtExcel.Columns.Remove("Número de parte")
End If
End If
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim FileExcel As New ExcelFile()

10
Ventas/ClientesAbonar.aspx.vb
View File

@@ -1529,7 +1529,11 @@ Partial Class Ventas_ClientesAbonar
ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)
Try
Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion)
If ListaVentasGenerarNC.Count > 0 Then
ObjFacturaDevolucion.Observaciones = String.Format("Descuento por pronto pago. Factura: {0}", ListaVentasGenerarNC(0).SerieFolio)
End If
Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion, Modulo:="Clientes/Abonar")
Retorno.Respuesta = Resp
Catch ex As Exception
OnError("Ocurrió un error al guardar la NC de pronto pago", ex)
@@ -2819,8 +2823,8 @@ Partial Class Ventas_ClientesAbonar
UpDatos.Update()
Else
If SBPagoMAyorASaldo.ToString.Length > 0 Then
Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMAyorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
If SBPagoMayorASaldo.ToString.Length > 0 Then
Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMayorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
End If
End If