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

--Puntos gdiaz

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-12-10 18:43:20 -07:00
parent f90f4dbe79
commit d922efcd6c
2 changed files with 5461 additions and 1178 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6633
Empresas/189/Formatos/Factura.mrt
View File

File diff suppressed because it is too large Load Diff

6
Ventas/Ventas.aspx.vb
View File

@@ -9863,7 +9863,9 @@ Partial Class Ventas
Exit Sub Exit Sub
End If End If
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then ' SMS. vendedor requerido Dim RequiereVendedor As Boolean = UsuarioActual.Empresa.Funcionalidad(578) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1"
If RequiereVendedor AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then ' SMS. vendedor requerido
Alert("El Vendedor es requerido. Favor de seleccionarlo", TipoMensaje.MsgAdvertencia) Alert("El Vendedor es requerido. Favor de seleccionarlo", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -26047,7 +26049,7 @@ Partial Class Ventas
Dim ObjInventarios As New ClsInventarios() Dim ObjInventarios As New ClsInventarios()
If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=-1,
ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
GvVerExistencias.DataSource = ObjInventarios.DtResultados.Copy() GvVerExistencias.DataSource = ObjInventarios.DtResultados.Copy()
End If End If