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

Correciones de rutas de inventarios

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-04 10:23:04 -07:00
parent af53c90208
commit f31ebb44bf
3 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/PopUpVerFactura.aspx.vb
View File

@@ -4437,7 +4437,7 @@ Partial Class PopUpVerFactura
RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos\EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
End If
End Sub

2
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -899,7 +899,7 @@ Partial Class Inventarios_TrasladoSolicitud
End If
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
ImprimirPDF(String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
Else
ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
End If

5
Ventas/Ventas.aspx.vb
View File

@@ -17073,6 +17073,10 @@ Partial Class Ventas
End If
End If
If NuevaFactura <> 1 Then
End If
'verifica si tiene ventaminima
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
@@ -17081,7 +17085,6 @@ Partial Class Ventas
Return False
End If
End If
'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS
Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS))