ordenes de trabajo update

OC/OC.aspx.vb

@@ -167,7 +167,14 @@ Partial Class OC
     End Property
     Private Property NumCotizaciones As Integer
         Get
-            NumCotizaciones = ViewState("NumCotizaciones").ToString.ToEntero
+
+            If ViewState("NumCotizaciones") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("NumCotizaciones").ToString.ToEntero
+            End If
+
+
         End Get
         Set(value As Integer)
             ViewState("NumCotizaciones") = value
@@ -524,6 +531,22 @@ Partial Class OC
         End Set
     End Property
 
+
+
+
+    Private Property CveOrdenTrabajo As Integer
+        Get
+            If ViewState("CveOrdenTrabajo") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveOrdenTrabajo").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveOrdenTrabajo") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -672,6 +695,14 @@ Partial Class OC
                 'ASIGNA ESTATUS OC
                 CboE_SelectedIndexChanged(New Object, New EventArgs)
 
+
+                If Request("CveOrdenTrabajo") IsNot Nothing AndAlso Request("CveOrdenTrabajo").ToString.ToEntero > 0 Then
+                    CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
+                    CargaOT()
+                End If
+
+
+
             End If
 
 
@@ -2548,6 +2579,20 @@ Partial Class OC
                 Else
                     TieneError = True
                 End If
+
+
+
+                If CveOrdenTrabajo > 0 Then
+
+                    Dim ObjAF As New ClsAF(OC.IniciaTransacSQL)
+                    If Not ObjAF.UpdateOrdenesTrabajoOC(CveOrdenTrabajo, CveOrdenCompra, UsuarioActual.CveEmpresa) Then
+                        TieneError = True
+                    End If
+
+                End If
+
+
+
             End If
 
 
@@ -8076,4 +8121,112 @@ Partial Class OC
     '    End If
     '    ObjVentas.Dispose()
     'End Sub
+
+
+    Private Sub CargaOT()
+
+        If CveOrdenTrabajo > 0 Then
+
+            Dim ObjAF As New ClsAF
+
+            Dim CveSubProyecto As Integer = 0
+            Dim SubProyecto As String = ""
+
+            Dim CveProyecto As Integer = 0
+            Dim Proyecto As String = ""
+
+            If ObjAF.GetOrdenesTrabajo(CveOrdenTrabajo, -1, -1, -1, -1, -1, MinFecha, MaxFecha, Nothing, -1, UsuarioActual.CveEmpresa) Then
+
+                If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then
+
+                    lblFolio.Text = $"Folio OT:  {ObjAF.DtResultados(0)("Folio").ToString}"
+
+                    CveSubProyecto = ObjAF.DtResultados(0)("CveSubProyecto").ToString.ToEntero
+                    SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("SubProyecto").ToString
+
+                    CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero
+                    Proyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("Proyecto").ToString
+
+                    'DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
+                    'DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
+                    'TxtServicio.Text = ObjAF.DtResultados(0)("Servicio").ToString
+                    DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString)
+                    'txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy")
+
+                    If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then
+                        'txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy")
+                    End If
+
+                    'txtFechaFinReal.Text     ""
+                    'DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString)
+                Else
+                    Alert("No se encontro la orden de trabajo", TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
+            If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
+
+
+                For Each DRow As DataRow In ObjAF.DtResultados.Rows
+
+                    Dim Cantidad As Decimal = DRow("Faltante").ToString.ToDecimal
+
+                    If Cantidad > 0 Then
+
+
+                        Dim CvePS As Integer = DRow("CvePS").ToString.ToEntero
+                        Dim PrecioUnitario As Double = 0
+
+                        Dim dr As DataRow = DtDetalle.NewRow
+                        Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")
+                        If DrPS Is Nothing Then
+                            Alert("Ocurrió un error al cargar la información de los productos del archivo. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                            Continue For
+                        End If
+                        Dim RetIVA As Double = DrPS("RetIVA").ToString.ToDouble
+                        Dim RetISR As Double = DrPS("RetISR").ToString.ToDouble
+                        Dim PS As String = DrPS("PS").ToString
+                        Dim TotalPS As Double = If(PrecioUnitario > 0, PrecioUnitario * Cantidad, 0)
+                        Dim CveUnidadMedida As Integer = DrPS("CveUnidadMedida").ToString.ToEntero
+                        Dim UM As String = DrPS("UnidadMedida").ToString
+                        Dim IvaPS As Double = DrPS("IVA").ToString.ToDouble
+                        'If IvaPS = -1 Then
+                        '    Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        '    IvaPS = Drr("IVA").ToString().ToDouble()
+                        'End If
+                        Dim IEPSPS As Double = DrPS("IEPSPorcentaje").ToString.ToDouble
+                        Dim IEPSPSIVA As Double = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
+                        Dim CveClasificacion As Integer = DrPS("CveClasificacion").ToString.ToEntero
+                        Dim Clasificacion As String = DrPS("Clasificacion").ToString
+                        Dim CveActivoFijo = HdnCveActivoFijo.Value.ToEntero
+                        Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero)
+                        Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
+                        Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
+
+                        AddPS(Cantidad, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text,
+                    CveActivoFijo, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
+                     DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR)
+
+                    End If
+
+
+                Next
+
+            End If
+
+
+
+
+            ObjAF.Dispose()
+
+            GvD.DataSource = DtDetalle
+            GvD.DataBind()
+
+        End If
+
+
+    End Sub
+
+
+
 End Class