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

2023-02-15 14:03:28 -07:00
parent 3540e12580 2cbe246cf8
commit ef9c727c65
4 changed files with 106 additions and 22 deletions
--- a/Bancos/Transferencias.aspx.vb
+++ b/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)
--- a/Compras/Proveedores.aspx.vb
+++ b/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)
--- a/Contratos/Contrato.aspx.vb
+++ b/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
-
-        Dim ObjContrato As ClsContratos = New ClsContratos()
-
-        If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
-            DtTmpFianzas = ObjContrato.DtResultados
-            GvFianzas.DataSource = ObjContrato.DtResultados
-
-            DtTmpFianzasInicial = DtTmpFianzas.Copy()
-
+        If CveContratoTipo <> 33 Then
+            DivFianzas.Visible = True
+
+            Dim ObjContrato As ClsContratos = New ClsContratos()
+
+            If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
+                DtTmpFianzas = ObjContrato.DtResultados
+                GvFianzas.DataSource = ObjContrato.DtResultados
+
+                DtTmpFianzasInicial = DtTmpFianzas.Copy()
+
+            End If
+
+            ObjContrato.Dispose()
+            GvFianzas.DataBind()
        End If

-        ObjContrato.Dispose()
-        GvFianzas.DataBind()
        UpGvFianzas.Update()

    End Sub
--- a/Ventas/Ventas.aspx
+++ b/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>