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

Bancos/Transferencias.aspx.vb

@@ -447,6 +447,20 @@ Partial Class Bancos_Transferencias
             MsgError = "Error al guardar"
         End If
 
+
+
+        If MsgError = "" Then
+            If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                If ObjMov.ValorPolizaDescuadre > 0 Then
+                    MsgError = ObjMov.MensajePolizaDescuadre
+                    GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                End If
+            Else
+                MsgError = "No se pudo validar la prepoliza de cuadre."
+            End If
+        End If
+
+
         If MsgError = "" Then
             ObjIE.Commit()
             Alert(String.Format("El Movimiento se realizo correctamente.<br>{0}", AlertaGlobal), TipoMensaje.MsgInformacion)

Compras/Proveedores.aspx.vb

@@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores
     End Sub
     Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
         Try
-            Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+            Dim PathRoot As String = Server.MapPath("/")
             Dim Documento As String = "CartaProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
-            Dim PathDestino As String = PathRoot & "Temp\" & Documento
+            Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
 
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)
@@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores
     End Sub
     Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
         Try
-            Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+            Dim PathRoot As String = Server.MapPath("/")
             Dim Documento As String = "FormatoEvaluacionProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
-            Dim PathDestino As String = PathRoot & "Temp\" & Documento
+            Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
 
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)

Contratos/Contrato.aspx.vb

@@ -487,6 +487,10 @@ Partial Class Contratos_Default
         End If
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False
 
+        If UsuarioActual.CveEmpresa = 13 Then
+            rpCompra.Visible = False
+        End If
+
     End Sub
 
     Public Sub CargaDireccionesEnvios(CveCliente As Integer)
@@ -728,11 +732,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
 
 
-            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
+            If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveContratoTipo = 25 Then
+            If CveContratoTipo.Contiene(25, 33) Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -749,11 +753,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
             'TxtCantidad.Visible = False
 
-            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
+            If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveContratoTipo = 25 Then
+            If CveContratoTipo.Contiene(25, 33) Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -835,6 +839,48 @@ Partial Class Contratos_Default
                 CargaPlantillas()
                 TrContratoPlantilla.Visible = True
                 TabPres.HeaderText = "Partidas"
+            End If
+
+
+            If CveContratoTipo = 33 Then
+                TabContratosGastos.Visible = False
+                TabAF.Visible = False
+                TabReporteAvance.Visible = False
+                TabAvanveDocumento.Visible = False
+                TabContratosGastos.Visible = False
+                TabAF.Visible = False
+                TabPed.Visible = False
+                TabAddendum.Visible = False
+                TabFacCiclica.Visible = False
+
+                TabPVInsumos.Visible = False
+
+                thOcCliente.Visible = False
+                tdOcCliente.Visible = False
+
+                thLimitar.Visible = False
+                tdLimitar2.Visible = False
+
+                trLicitacion.Visible = False
+                divResponsable.Visible = False
+                'TrPeriodo.Visible = True
+                trIva.Visible = False
+                trAnticipo.Visible = False
+                trAmortizacion.Visible = False
+                trPorGarantia.Visible = False
+                DvMin.Visible = False
+                RowFlexible.Visible = False
+                RowPorcentajeComision.Visible = False
+                DvMax.Visible = False
+                DvTotal.Visible = False
+                'RowEstatus.Visible = False
+                DdlSubProyectoContrato.AutoPostBack = False
+
+                dvAddendum.Visible = False
+
+                DivFianzas.Visible = False
+                Div4.Visible = False
+                DivImpuestosLocales.Visible = False
             End If
 
 
@@ -938,6 +984,27 @@ Partial Class Contratos_Default
 
                     thLimitar.Visible = False
                     tdLimitar2.Visible = False
+
+                    trLicitacion.Visible = False
+                    divResponsable.Visible = False
+                    'TrPeriodo.Visible = True
+                    trIva.Visible = False
+                    trAnticipo.Visible = False
+                    trAmortizacion.Visible = False
+                    trPorGarantia.Visible = False
+                    DvMin.Visible = False
+                    RowFlexible.Visible = False
+                    RowPorcentajeComision.Visible = False
+                    DvMax.Visible = False
+                    DvTotal.Visible = False
+                    RowEstatus.Visible = False
+                    DdlSubProyectoContrato.AutoPostBack = False
+
+                    dvAddendum.Visible = False
+
+                    DivFianzas.Visible = False
+                    Div4.Visible = False
+                    DivImpuestosLocales.Visible = False
                 End If
 
                 If ObjContratos.CveProveedor > 0 Then
@@ -1232,20 +1299,23 @@ Partial Class Contratos_Default
 
     Private Sub CargarFianzas()
 
-        DivFianzas.Visible = True
+        If CveContratoTipo <> 33 Then
-
+            DivFianzas.Visible = True
-        Dim ObjContrato As ClsContratos = New ClsContratos()
+
-
+            Dim ObjContrato As ClsContratos = New ClsContratos()
-        If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
+
-            DtTmpFianzas = ObjContrato.DtResultados
+            If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
-            GvFianzas.DataSource = ObjContrato.DtResultados
+                DtTmpFianzas = ObjContrato.DtResultados
-
+                GvFianzas.DataSource = ObjContrato.DtResultados
-            DtTmpFianzasInicial = DtTmpFianzas.Copy()
+
-
+                DtTmpFianzasInicial = DtTmpFianzas.Copy()
+
+            End If
+
+            ObjContrato.Dispose()
+            GvFianzas.DataBind()
         End If
 
-        ObjContrato.Dispose()
-        GvFianzas.DataBind()
         UpGvFianzas.Update()
 
     End Sub

Ventas/Ventas.aspx

@@ -555,7 +555,7 @@
                                 </td>
                             </tr>
                             <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
-                                <td><b>Descripción de factura:</b></td>
+                                <td><b>Descripción:</b></td>
                                 <td colspan="3">
                                     <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
                             </tr>
@@ -3226,7 +3226,7 @@
                                     </div>
                                 </div>
 
-                                <asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="Seleccione un Contrato Válido" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
+                                <asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="El contrato no tiene productos y/o servicios" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField>
                                             <HeaderTemplate>OC Cliente</HeaderTemplate>