Contratos
This commit is contained in:
rakcsle
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user