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

Errores en ventas

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-06-22 20:29:50 -07:00
parent b7db48ac89
commit 329661a456
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Ventas.aspx.vb
View File

@@ -15450,9 +15450,10 @@ Partial Class Ventas
' Dim DtTest = ObjConta.DtResultados ' Dim DtTest = ObjConta.DtResultados
'End If 'End If
End If End If
Else
ErrorPrepoliza = True
End If End If
Return ErrorPrepoliza Return ErrorPrepoliza
Catch ex As Exception Catch ex As Exception
GuardaLog("GuardaPreP." & ex.ToString()) GuardaLog("GuardaPreP." & ex.ToString())
@@ -15675,7 +15676,7 @@ Partial Class Ventas
If DebeGenerarMovimiento Then If DebeGenerarMovimiento Then
Dim CveAlmacenSalida As Integer = ddlAlmacen.SelectedValue.ToEntero() Dim CveAlmacenSalida As Integer = ddlAlmacen.SelectedValue.ToEntero()
Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={DdlSubProyecto.SelectedValue}").ToEntero() Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}").ToEntero()
Dim CveRemision As Integer = factura.CveVenta Dim CveRemision As Integer = factura.CveVenta
Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero() Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero()