Mostrar movimientos de almacen en devoluciones, editar uso cfdi de ventas no timbradas
This commit is contained in:
@@ -23661,7 +23661,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
#Region " INVENTARIO POR ENTREGA"
|
#Region " INVENTARIO POR ENTREGA"
|
||||||
Private Sub InventarioMov(Optional CveVentaPadre As Integer = -1)
|
Private Sub InventarioMov(Optional CveVentaPadre As Integer = -1)
|
||||||
If CveVentaPadre > 0 Then
|
If CveVentaPadre > 0 AndAlso DdlTipoComprobante.SelectedValue <> "Dev" Then
|
||||||
Dim RowVentas As DataRow = Nothing
|
Dim RowVentas As DataRow = Nothing
|
||||||
Using ObjVentas As New ClsVentas
|
Using ObjVentas As New ClsVentas
|
||||||
If ObjVentas.GetVenta(CveVentaPadre, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
|
If ObjVentas.GetVenta(CveVentaPadre, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
|
||||||
@@ -34657,6 +34657,10 @@ Partial Class Ventas
|
|||||||
CalculaLineasAdicionales()
|
CalculaLineasAdicionales()
|
||||||
DdlLineaAdicional.Enabled = True
|
DdlLineaAdicional.Enabled = True
|
||||||
|
|
||||||
|
If UsuarioActual.TienePermisoProceso(357) AndAlso LblSeTimbro.Text = "No" Then
|
||||||
|
DdlUsoCFDI.Enabled = True
|
||||||
|
End If
|
||||||
|
|
||||||
UpParametros.Update()
|
UpParametros.Update()
|
||||||
UPObservaciones.Update()
|
UPObservaciones.Update()
|
||||||
UpFacturar.Update()
|
UpFacturar.Update()
|
||||||
|
|||||||
Reference in New Issue
Block a user