Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContratos.vb

@@ -1198,6 +1198,26 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
+
+    Public Function GetPSContratoDetalle(CveContrato As Integer, DtPS As String) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_GetPSContratoDetalle")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@DtPS", SqlDbType.VarChar).Value = DtPS
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cargar los Detalles del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "Contratos detalles Avance"

Compras/Compras.aspx.vb

@@ -18089,6 +18089,22 @@ Partial Class Compras_Compras
             End If
         End If
 
+        Dim DtpsTemp As DataTable = Nothing
+        Dim CveContratoDetalle As Integer = -1
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToString.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
+        If CveContrato > 0 Then
+            Dim dttemp As New DataTable
+            dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
+            dttemp.Columns.Add("CvePS", GetType(Integer))
+            Dim DrPS = dttemp.NewRow
+            DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
+            DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero
+            dttemp.Rows.Add(DrPS)
+            DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
+            If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                CveContratoDetalle = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString.ToEntero)).ToEntero
+            End If
+        End If
 
         'If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
         '    Dim drContrato As DataRow = dttemp.Rows(0)
@@ -18123,8 +18139,6 @@ Partial Class Compras_Compras
         '    End If
         'End If
 
-
-
         Select Case Modalidad
             Case "A" 'ADD
 
@@ -18142,7 +18156,7 @@ Partial Class Compras_Compras
                 AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
                                   TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
-                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
+                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -18154,7 +18168,7 @@ Partial Class Compras_Compras
                 End If
 
             Case "U" 'UPDATE
-                UpdatePS()
+                UpdatePS(CveContratoDetalle)
                 Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
         End Select
@@ -18353,7 +18367,7 @@ Partial Class Compras_Compras
         End If
 
     End Sub
-    Private Sub UpdatePS()
+    Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1)
         Dim DrPS As DataRow = Nothing
         Try
             DrPS = TmpDT.Select($"Consec = {Index}")(0)
@@ -18376,6 +18390,7 @@ Partial Class Compras_Compras
         DrPS("CveProyecto") = DdlProyecto.SelectedValue.ToEntero
         DrPS("SubProyecto") = DdlSubProyecto.SelectedItem.Text
         DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToEntero
+        DrPS("CveContratoDetalle") = CveContratoDetalle
 
         'IMPORTES - [CANTIDAD Y PRECIO]
         Dim Cantidad = DrPS("Cantidad").ToString.ToDouble
@@ -18616,13 +18631,26 @@ Partial Class Compras_Compras
             CveProyecto = DdlAsignarProyecto.SelectedValue.ToEntero()
         End If
 
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlAsignaSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
+        Dim DtpsTemp As DataTable = Nothing
+        If CveContrato > 0 Then
+            DtpsTemp = GetPSContratoDetalle(CveContrato, TmpDT.FiltraParametros("", "", {"CveSubProyecto", "CvePS"}))
+        End If
+
         For Each Dr As DataRow In TmpDT.Rows
             Dr("CveProyecto") = CveProyecto
             Dr("Proyecto") = If(CveSubProyecto = -1, "SE", DdlAsignarProyecto.SelectedItem.Text)
             Dr("CveSubProyecto") = CveSubProyecto
             Dr("SubProyecto") = If(CveSubProyecto = -1, "SE", DdlAsignaSubProyecto.SelectedItem.Text)
+
+            If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                Dr("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", Dr("CvePS"))).ToEntero
+            End If
+
         Next
 
+
+
         GvPS.DataSource = TmpDT.FiltraParametros("", "Consec")
         GvPS.DataBind()
         UpPS.Update()
@@ -18685,9 +18713,22 @@ Partial Class Compras_Compras
         Dim PS As New ClsProductosServicios
         Dim CvePS = -1
         Dim tPS = ""
-
+        Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
         CvePS = DdlPSAlias2.SelectedValue.ToEntero
         tPS = DdlPSAlias2.SelectedText
+        Dim DtpsTemp As DataTable = Nothing
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero
+        If CveContrato > 0 Then
+            Dim dttemp As New DataTable
+            dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
+            dttemp.Columns.Add("CvePS", GetType(Integer))
+            Dim DrPS = dttemp.NewRow
+            DrPS("CveSubProyecto") = CveSubProyecto
+            DrPS("CvePS") = CvePS
+            dttemp.Rows.Add(DrPS)
+            DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
+        End If
+
 
         If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
             GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
@@ -18702,6 +18743,9 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0
+            If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", CvePS)).ToEntero
+            End If
 
             'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
             For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
@@ -18715,7 +18759,9 @@ Partial Class Compras_Compras
                 drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                 drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
                 drt("CveSATPSActualizado") = 0
-
+                If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                    drt("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", drt("CvePS"))).ToEntero
+                End If
 
             Next
             TmpDT.AcceptChanges()
@@ -20917,17 +20963,33 @@ Partial Class Compras_Compras
         End If
         objContratos.Dispose()
 
-        If MensajeProducto.Length <> 64 Then
+        If MensajeProducto.Length > 64 Then
             Retorno = MensajeProducto
-        ElseIf MensajeCantidad.Length <> 84 Then
+        ElseIf MensajeCantidad.Length > 84 Then
             Retorno = MensajeCantidad
-        ElseIf MensajeImporte.Length <> 86 Then
+        ElseIf MensajeImporte.Length > 86 Then
             Retorno = MensajeImporte
+        Else
+            Retorno = ""
         End If
 
         Return Retorno
 
     End Function
+    Private Function GetPSContratoDetalle(CveContrato As Integer, DtPS As DataTable) As DataTable
+        Dim ObjContratos As New ClsContratos
+        Dim DtpsTemp As DataTable = Nothing
+
+        If DtPS.MAX("CveSubProyecto", "CveSubProyecto IS NOT NULL").ToEntero > 0 AndAlso DtPS.MAX("CvePS", "CvePS IS NOT NULL").ToEntero > 0 Then
+            Dim TempPS As String = JsonConvert.SerializeObject(DtPS).ToString
+            If ObjContratos.GetPSContratoDetalle(CveContrato, TempPS) Then
+                DtpsTemp = ObjContratos.DtResultados
+            End If
+            ObjContratos.Dispose()
+        End If
+
+        Return DtpsTemp
+    End Function
 
 #End Region
 

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -746,9 +746,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
         TxtLoteEdit.Text = If(Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString), GvRow.DataKey("Lote").ToString, "")
         TxtFechaCaducida.Text = If(Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString), If(GvRow.DataKey("FechaCaducidad").ToString <> "", GvRow.DataKey("FechaCaducidad").ToString.ToDate.ToShortDateString, ""), "")
 
-        TxtSerieLote.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaSerie").ToString)
-        TxtLoteEdit.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
-        TxtFechaCaducida.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
+        DivSerieEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaSerie").ToString)
+        DivLoteEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
+        DivFechaEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
         TxtCantidad.Text = GvRow.DataKey("Cantidad").ToString
         UpEditarPS.Update()
 

OC/OC.aspx

@@ -2707,7 +2707,7 @@
     </div>
 
         <div id="DivmodalConmtrato" class="modal ADS fade">
-        <div class="modal-dialog">
+        <div class="modal-dialog" style="width: 650px; min-width: 470px;">
             <asp:UpdatePanel ID="UpModalContrato" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
                 <ContentTemplate>
                     
@@ -2761,7 +2761,7 @@
 
                                         <asp:TemplateField HeaderText="Producto">
                                             <ItemTemplate>
-                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Width="250px"></asp:Label>
+                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
                                             </ItemTemplate>
                                         </asp:TemplateField>