From 091fee6e0ba928e462697871f5495836f63f9a9c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 2 Jan 2024 13:18:11 -0700 Subject: [PATCH] --fix ventas --- Ventas/Ventas.aspx.vb | 107 ++++++++++++++++++++++-------------------- 1 file changed, 57 insertions(+), 50 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 356855766..6deea8049 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -24722,7 +24722,7 @@ Partial Class Ventas End If If Not dt.Columns(8).ColumnName = "Tiempo Entrega" Then - Alert("El nombre de la octava columna debe ser 'Tiempo Entrega'. Favor de corregirlo", TipoMensaje.MsgError) + Alert("El nombre de la novena columna debe ser 'Tiempo Entrega'. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If @@ -24767,57 +24767,64 @@ Partial Class Ventas CveSubProyecto = -1 End If - If Codigo <> "" Then - - Using ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then - If ObjPS.CvePS > 0 Then - CvePS = ObjPS.CvePS - CveUM = ObjPS.CveUnidadMedida - CveClasificacion = ObjPS.CveClasificacion - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - End Using - - ElseIf CodigoBarras <> "" Then - - Using ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then - If ObjPS.CvePS > 0 Then - CvePS = ObjPS.CvePS - CveUM = ObjPS.CveUnidadMedida - CveClasificacion = ObjPS.CveClasificacion - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - End Using - - ElseIf ProductoServicio <> "" Then - - Using ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then - If ObjPS.CvePS > 0 Then - CvePS = ObjPS.CvePS - CveUM = ObjPS.CveUnidadMedida - CveClasificacion = ObjPS.CveClasificacion - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - Else - RowNoEncontrados = String.Format("{3}    - No se encontró {0} en la fila {1}, columna {2}<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) - End If - End Using - Else - RowNoEncontrados &= "<\BR>    - En la fila " & NumRow & " no se especificó código, código de barras ó descripción." + If CveSubProyecto <= 0 Then + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Proyecto, NumRow, "Proyecto", RowNoEncontrados) End If + If CveSubProyecto > 0 Then + If Codigo <> "" Then + + Using ObjPS As New ClsProductosServicios + If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then + If ObjPS.CvePS > 0 Then + CvePS = ObjPS.CvePS + CveUM = ObjPS.CveUnidadMedida + CveClasificacion = ObjPS.CveClasificacion + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + End Using + + ElseIf CodigoBarras <> "" Then + + Using ObjPS As New ClsProductosServicios + If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then + If ObjPS.CvePS > 0 Then + CvePS = ObjPS.CvePS + CveUM = ObjPS.CveUnidadMedida + CveClasificacion = ObjPS.CveClasificacion + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + End Using + + ElseIf ProductoServicio <> "" Then + + Using ObjPS As New ClsProductosServicios + If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then + If ObjPS.CvePS > 0 Then + CvePS = ObjPS.CvePS + CveUM = ObjPS.CveUnidadMedida + CveClasificacion = ObjPS.CveClasificacion + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + Else + RowNoEncontrados = String.Format("{3}    - No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados) + End If + End Using + Else + RowNoEncontrados &= "<\BR>    - En la fila " & NumRow & " no se especificó código, código de barras ó descripción." + End If + End If + + If CvePS > 0 Then If PrecioUnitario <= 0 Then