From 792179ab250ee185b9a422e4c1a1ca920953519d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 15 Apr 2021 18:26:30 -0700 Subject: [PATCH] Contratos --- Contratos/ContratoObra.aspx | 68 ++-------------------- Contratos/ContratoObra.aspx.vb | 80 +++++++++++++++++++------- Contratos/RepContratosObraAvances.aspx | 3 +- OC/OC.aspx.vb | 1 + 4 files changed, 66 insertions(+), 86 deletions(-) diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 01c9dc2b5..bfdd2c2cc 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -351,7 +351,7 @@ -
+
@@ -841,7 +841,7 @@ - + @@ -974,67 +974,7 @@ - <%-- - - - - -
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
- - - - - - - - - - - - - - - - - - - - - - - - - -
CantidadLimitarClave InternaProducto/ServicioU. M.Precio UnitarioTotalPermite AvanceComandos
- - - - - - - - - -
- -
- -
- 		- - - - - - -
- - - - --%> + @@ -1063,7 +1003,7 @@ - + diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 9cff21ef1..a6b9a134c 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -738,8 +738,8 @@ Partial Class Contratos_ContratoObra TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString DdlCliente.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CveCliente").ToString) - If ObjContratos.CveProveedor > 0 Then - TrProveedor.Visible = True + If ObjContratos.CveProveedor > 0 Then + ' TrProveedor.Visible = True TrCliente.Visible = False CargaContratista() DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString @@ -1621,6 +1621,7 @@ Partial Class Contratos_ContratoObra End Sub #Region "GV PRESUPUESTOS" + Protected Sub EstClick(sender As Object, e As System.EventArgs) 'Get the button that raised the event Dim btn As CheckBox = DirectCast(sender, CheckBox) @@ -2420,19 +2421,12 @@ Partial Class Contratos_ContratoObra Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) - - - - Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero Dim CodigoPS As String = GvRow.DataKey("CodigoPS") Dim Clasificacion As String = GvRow.DataKey("Clasificacion") Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero - - - GvDatosVentasAvance.Visible = False If CveRubro = 3 Then @@ -3308,17 +3302,21 @@ Partial Class Contratos_ContratoObra - Private Function GetPS(Opt As String, Valor As String) As String + Private Function GetPS(Opt As String, Valor As String) As String + Dim StrReturn As String = String.Empty Dim CvePS As Integer = 0 + CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero + If CvePS > 0 Then StrReturn = "True|" & CvePS.ToString Else - StrReturn = "False|" & Valor & " en la fila " & NumRow & ", columna " & Opt End If + Return StrReturn + End Function Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click @@ -4503,7 +4501,7 @@ Partial Class Contratos_ContratoObra { .ColumnHeaders = True, .StartRow = 0, - .NumberOfColumns = 4, + .NumberOfColumns = 5, .NumberOfRows = worksheet.Rows.Count, .Resolution = ColumnTypeResolution.AutoPreferStringCurrentCulture }) @@ -4543,10 +4541,6 @@ Partial Class Contratos_ContratoObra Dim ErrorProceso = False - - - - Dim DTPS = New DataTable DTPS.Columns.Add("CveContratoDetalle", GetType(Integer)) DTPS.Columns.Add("Cantidad", GetType(Double)) @@ -4584,21 +4578,65 @@ Partial Class Contratos_ContratoObra Dim RowNoEncontrados As String = "" If Not DTPresupuesto Is Nothing Then + For Each DrowPS As DataRow In DTPresupuesto.Rows + Dim CvePS As Integer = -1 + Dim CveUM As Integer = -1 + Dim StrArray() As String - Dim StrArray() As String = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) - Dim CvePS As Integer - Dim CveUM As Integer + + StrArray = GetPS("Codigo", DrowPS("Codigo").ToString).Split("|"c) If StrArray.Length > 0 Then + If CBool(StrArray(0)) = True Then CvePS = StrArray(1).ToEntero - Else - RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>" + End If + End If + + If CvePS = -1 Then + + StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) + + If StrArray.Length > 0 Then + If CBool(StrArray(0)) = True Then + CvePS = StrArray(1).ToEntero + + + End If + End If + + If CvePS = -1 Then + + Dim ObjPS As New ClsProductosServicios + + + Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveClasificacion").ToString.ToEntero + Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{ DrowPS("UnidadMedida").ToString}' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString}'").ToString.ToEntero + + If Not CveUnidadMedida > 0 Then + CveUnidadMedida = GlobalDTUnidadesMedida(CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("CveUnidadMedida").ToString.ToEntero + End If + + If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, DrowPS("Codigo").ToString.Trim, "", "", DrowPS("Producto").ToString, DrowPS("PU").ToString.ToDouble, -1, 0, False, 0, False, If(TipoCargaPresupuesto = EnumTipoCargaPresupuesto.Ventas, True, False), + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, CveTipoPS:=2, CveSATPS:=-1, CveMarca:=-1, CveTamaño:=-1, CveMedida:=-1, CveRinTamaño:=-1, CveModelo:=-1, Litraje:=-1, IEPSPorcentaje:=-1, CveClasificacion2:=-1, CveClasificacionDetalle:=-1) > 0 Then + CvePS = ObjPS.CvePS + Else + CvePS = -1 + RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>" + End If + + ObjPS.Dispose() + + End If + + End If + + If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then CveUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $" UnidadMedida = '{ DrowPS("UnidadMedida").ToString.Trim }' OR Abreviatura = '{ DrowPS("UnidadMedida").ToString.Trim }'").ToEntero diff --git a/Contratos/RepContratosObraAvances.aspx b/Contratos/RepContratosObraAvances.aspx index 9762001bb..dc16ca9f5 100644 --- a/Contratos/RepContratosObraAvances.aspx +++ b/Contratos/RepContratosObraAvances.aspx @@ -277,7 +277,8 @@ - + + diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 78a0390c4..d7347f05c 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -568,6 +568,7 @@ Partial Class OC Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then CargaDatosAgregarPS()