OS Corecion tipo docto remision

This commit is contained in:
rakcsle
2023-12-22 17:56:45 -07:00
parent cecf91c547
commit 2c41cd63bc

View File

@@ -3351,7 +3351,7 @@ Partial Class OS_OrdenesServicios
CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero()
End If
Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Ped")
Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Rem")
If ObjFactura IsNot Nothing Then