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

Error al actualizar PS en refacturacion

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-11-25 17:03:27 -07:00
parent 637123f48a
commit 7aacf563b8
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/Ventas.aspx.vb
View File

@@ -4193,7 +4193,6 @@ Partial Class Ventas
tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot") tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
tdFechaVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot") tdFechaVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
If DbRowVenta("TipoDocto").ToString = "Rem" Then If DbRowVenta("TipoDocto").ToString = "Rem" Then
'CANTIDAD FACTURADA 'CANTIDAD FACTURADA
If TmpDT.SUM("CantidadFacturadaRem") > 0 Then If TmpDT.SUM("CantidadFacturadaRem") > 0 Then
@@ -4228,8 +4227,6 @@ Partial Class Ventas
End If End If
End If End If
End If
'Si es Empresa de Acumuladores 'Si es Empresa de Acumuladores
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
'Si ya se surtió y recibió 'Si ya se surtió y recibió
@@ -4242,7 +4239,6 @@ Partial Class Ventas
End If End If
If DbRowVenta("TipoDocto").ToString.Contiene("Cot", "Pd2") Then If DbRowVenta("TipoDocto").ToString.Contiene("Cot", "Pd2") Then
'CANTIDAD FACTURADA 'CANTIDAD FACTURADA
If TmpDT.SUM("CantidadFacturadaCot") > 0 Then If TmpDT.SUM("CantidadFacturadaCot") > 0 Then
@@ -14348,6 +14344,7 @@ Partial Class Ventas
TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String)) TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
TmpDT.Columns.Add("CveTamaño", GetType(Integer)) TmpDT.Columns.Add("CveTamaño", GetType(Integer))
TmpDT.Columns.Add("CveConcepto", GetType(Integer))
End Sub End Sub
Private Sub CreaDTmpC() Private Sub CreaDTmpC()
@@ -15458,7 +15455,7 @@ Partial Class Ventas
Dim ContadorMovtosDetalles = 0 Dim ContadorMovtosDetalles = 0
'Creamos el movimiento 'Creamos el movimiento
Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado) Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, ConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, -1, -1, CveMovimientoRelacionado:=CveMovimientoRelacionado, Modulo:="Ventas/Ventas.aspx")
If CveMovimientoInventario > 0 Then If CveMovimientoInventario > 0 Then