diff --git a/AC/RepPresupuestoIngresosDetalle.aspx b/AC/RepPresupuestoIngresosDetalle.aspx index e887f1955..0a4ca9ee3 100644 --- a/AC/RepPresupuestoIngresosDetalle.aspx +++ b/AC/RepPresupuestoIngresosDetalle.aspx @@ -15,11 +15,11 @@ -
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
+
diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index 3c894d746..c7a483fa0 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -149,11 +149,11 @@
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
+
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 46ca6341d..d2b74dfa7 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -926,7 +926,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function DistribuidorMovtosGet(CveCliente As Integer, CveEmpresa As Integer, Optional FechaI As Date = MinFecha, Optional FechaF As Date = MaxFecha) As Boolean + Public Function DistribuidorMovtosGet(CveCliente As Integer, CveEmpresa As Integer, Optional FechaI As Date = MinFecha, Optional FechaF As Date = MaxFecha, Optional CveVentaRNCCargo As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -937,6 +937,7 @@ Public Class ClsAcumuladores .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveVentaRNCCargo", SqlDbType.Int).Value = CveVentaRNCCargo End With Try diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 911f89a07..4085f9b24 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -253,7 +253,7 @@ Public Class ClsContabilidad Public Function UpdatePrepolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1") As Boolean + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -274,6 +274,7 @@ Public Class ClsContabilidad .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try @@ -1360,7 +1361,7 @@ Public Class ClsContabilidad End If If Not OcurrioError Then - If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa) Then + If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa, CveUsuarioModifico:=CveUsuario) Then OcurrioError = True End If End If @@ -1506,7 +1507,8 @@ Public Class ClsContabilidad End Function - Public Function UpdatePrePoliza(FechaConta As Date, FolioPoliza As Integer, CveTipoPoliza As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer, Optional Concepto As String = "-1", Optional FechaPoliza As Date = MinFecha, Optional xxx As Integer = -1) As Boolean + Public Function UpdatePrePoliza(FechaConta As Date, FolioPoliza As Integer, CveTipoPoliza As Integer, IdPoliza As Integer, CvePrePoliza As Integer, CveEmpresa As Integer, + Optional Concepto As String = "-1", Optional FechaPoliza As Date = MinFecha, Optional xxx As Integer = -1, Optional CveUsuarioModifico As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1521,6 +1523,7 @@ Public Class ClsContabilidad .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@Concepto", SqlDbType.VarChar).Value = Concepto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 45ff1f778..da59d111c 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5612,6 +5612,7 @@ Namespace Modelos Public Property RefacturacionGeneroNC As Boolean = False Public Property Pagado As Decimal Public Property DescuentoProntoPago As Decimal + Public Property CveVentaRNCCargo As Integer 'Public Property Sucursal As SucursalModel Public Property SubProyecto As Modelos.SubProyectoModel diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index af213df24..fe81513fa 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -43,18 +43,56 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState ActualizaPrePoliza(context) Case "getpersonal" getpersonal(context) + Case "getcontratos" + GetContratos(context) Case "GettingCURP" context.Response.Write(GettingCURP(context.Request("Curp").ToString(), context.Request("year").ToString().ToEntero())) Case "ValidaCURP" context.Response.Write(ValidaCURP(context.Request("Curp").ToString())) Case "sendMail" context.Response.Write(sendMail(context)) + Case "sendMailLPM" + context.Response.Write(sendMail(context)) End Select Catch ex As Exception ex.GuardaLog(ex.Message) End Try End Sub + + Private Function sendMailLPM(context As HttpContext) As String + Dim retorno As String = "true" + Dim nombre As String = "" + Dim correo As String = "" + Dim asunto As String = "" + Dim cuerpo As String = "" + Dim obj = context.Request("Nombre") 'Nombre=' + $('#Nombre').val() +'Correo=' + $('#Correo').val() +'Sitio=' + $('#Sitio').val() +'Cuerpo=' + $('#Cuerpo').val() + + If Not IsNothing(obj) Then + nombre = obj.ToString() + End If + obj = context.Request("Correo") + If Not IsNothing(obj) Then + correo = obj.ToString() + End If + obj = context.Request("Asunto") + If Not IsNothing(obj) Then + asunto = obj.ToString() + End If + obj = context.Request("Cuerpo") + If Not IsNothing(obj) Then + cuerpo = obj.ToString().Replace("< ", "<") + End If + Dim Body As String = String.Format("Prospecto : {0}
Correo : {1}
Asunto : {2}

{3}", nombre, correo, asunto, cuerpo) + Dim para As String = "contacto@localizacionprecisa.com;caudillo.90d@gmail.com;" + 'para = "" + Dim Mail As New ClsSisMail() + If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, "NotificaciónProspecto", Body) Then + retorno = "true" + Else + retorno = "false" + End If + Return retorno + End Function Private Function sendMail(context As HttpContext) As String Dim retorno As String = "true" Dim nombre As String = "" @@ -1080,4 +1118,38 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Return retorno End Function #End Region + +#Region "Get Contratos" + Private Function GetContratos(ByVal context As HttpContext) As String + Dim retorno As String = "" + Dim DtRetorno As DataTable = Nothing + + Dim usuario As Usuario = UsuarioActual(context) + Dim CveEmpresa As String + If IsNothing(usuario) Then + context.Response.Write("") + Else + CveEmpresa = usuario.CveEmpresa + Dim Name = IfNull(context.Request("Name"), "-1").ToString + + Dim dt As DataTable = DirectCast(context.Application("GlobalDTContratos"), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + DtRetorno = dt.FiltraParametros(String.Format("NumeroContrato like '%{0}%'", Name)) + End If + dt.Dispose() + End If + + If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then + DtRetorno.Columns("CveContrato").ColumnName = "id" + DtRetorno.Columns("NumeroContrato").ColumnName = "text" + retorno = JsonConvert.SerializeObject(DtRetorno).ToString + context.Response.Write(retorno) + Else + context.Response.Write("[]") + End If + + DtRetorno.Dispose() + Return retorno + End Function +#End Region End Class \ No newline at end of file diff --git a/Compras/CatProveedores.aspx b/Compras/CatProveedores.aspx index 54e4c06be..3599a49e7 100644 --- a/Compras/CatProveedores.aspx +++ b/Compras/CatProveedores.aspx @@ -100,7 +100,7 @@
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 41f08a93f..2edbabca2 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -37,9 +37,6 @@
  • Agregar Otros Gastos
    • -
  • - Gastos y Servicios -
  • Costo Indirecto/Importaciones
    • @@ -147,6 +144,17 @@ border: 1px solid black; width: 85%; } + + .GastoIndirectoOpciones { + margin-left:auto; + margin-right:auto; + width:400px; + } + + .GastoIndirectoOpciones td + { + text-align:right /* Or any other value */ + } /*IPP*/ @@ -3297,195 +3305,6 @@ - <%--MODAL VINCULAR FLETES Y SERVICIOS--%> - - - - - - <%-- MODAL SERIE-LOTE ALMACEN --%>
    -
    +
    +
    + + + + +
    +
    +
    + <%--
    + + +
    +
    +
    + + <%--"> + +
    +
    +
    +
    Tipo:
    +
    + + <%-- + + <%-- + + + +
    + + +
    +
    +
    +
    +     +     +
    --%> +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + +
    + + + + +
    + + Agregar Facturas +
    +
    +
    +
    +
    +
    + +
    + +
    + + + + + + + + + + + + +
    Proveedor: + +
    Folio: + + + +
    + +
    +
    + +
    +     +     +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +

    Los cambios se realizaran al dar click en vincular

    @@ -5113,8 +5100,14 @@
    - - +
    + + +
    +
    + + +
    diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 594394245..64bc81a2b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1533,7 +1533,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.CvePlataforma = 2 Then TabActivosFijos.Visible = False VerRefacturacion.Visible = False - liServicios.Visible = False + 'liServicios.Visible = False DivConsignaciones.Visible = False End If CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader) @@ -9545,7 +9545,7 @@ Partial Class Compras_Compras Retorno = False End If - If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa) Then + If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, Nothing, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then Retorno = False End If End If @@ -9987,7 +9987,7 @@ Partial Class Compras_Compras Retorno = False End If - If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa) Then + If Not ObjContabilidad.UpdatePrePoliza(MinFecha, -1, -1, IdPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then Retorno = False End If End If @@ -14642,7 +14642,7 @@ Partial Class Compras_Compras dt = ObjContabilidad.DtResultados For Each dr As DataRow In dt.Rows - If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0) Then + If Not ObjContabilidad.UpdatePrepolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then ErrorCancelar = True : Exit For End If Next @@ -15892,71 +15892,71 @@ Partial Class Compras_Compras End Sub Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs) - If DdlTipo.SelectedValue.ToEntero = 1 Then + 'POR SI LLEGARA A TRONAR + If DtServicios Is Nothing Then CreaDTServicios() + DtServicios.Rows.Clear() - 'POR SI LLEGARA A TRONAR - If DtServicios Is Nothing Then CreaDTServicios() - DtServicios.Rows.Clear() + Dim objps As New ClsProductosServicios + Dim dr As DataRow + dvFacturas.Visible = False + GvFacturas.Visible = False - Dim objps As New ClsProductosServicios - Dim dr As DataRow - dvFacturas.Visible = False - GvFacturas.Visible = False - - For Each DrGv As DataRow In TmpDT.Rows - If DrGv("CvePS").ToString.ToEntero > 0 Then - If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then - If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then - dr = DtServicios.NewRow() - dr("Consec") = DrGv("Consec").ToString.ToEntero - dr("Total") = DrGv("Total").ToString.ToDecimal - dr("CvePS") = DrGv("CvePS").ToString.ToEntero - dr("PS") = DrGv("PS").ToString - DtServicios.Rows.Add(dr) - End If + For Each DrGv As DataRow In TmpDT.Rows + If DrGv("CvePS").ToString.ToEntero > 0 Then + If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then + If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then + dr = DtServicios.NewRow() + dr("Consec") = DrGv("Consec").ToString.ToEntero + dr("Total") = DrGv("Total").ToString.ToDecimal + dr("CvePS") = DrGv("CvePS").ToString.ToEntero + dr("PS") = DrGv("PS").ToString + DtServicios.Rows.Add(dr) End If End If - Next - - '[IPP] COMENTADO - MIRAS DE ELIMINAR - 8/FEBRERO/2018 - 'For Each gvr As GridViewRow In GvPS.Rows - ' If objps.GetPS(gvr.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) Then - ' If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then - ' dr = DtServicios.NewRow() - ' dr("Consec") = gvr.FCLabel("LtlConsecutivo").Text.ToEntero - ' dr("Total") = gvr.FCLiteral("LtlTotal").Text.ToDecimal - ' dr("PS") = gvr.DataKey("PS").ToString - ' DtServicios.Rows.Add(dr) - ' End If - ' End If - 'Next - objps.Dispose() - - If DtServicios.Rows.Count > 0 Then - GVServicios.DataSource = DtServicios - GVServicios.DataBind() - GVServicios.Visible = True - Else - GVServicios.DataSource = Nothing - GVServicios.DataBind() End If + Next - UpGVServicios.Update() - UpFacturas.Update() - UPGVFacturas.Update() - - ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then - GVServicios.Visible = False - dvFacturas.Visible = True - DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) - UpFacturas.Update() - UpGVServicios.Update() - + '[IPP] COMENTADO - MIRAS DE ELIMINAR - 8/FEBRERO/2018 + 'For Each gvr As GridViewRow In GvPS.Rows + ' If objps.GetPS(gvr.DataKey("CvePS").ToEntero, -1, UsuarioActual.CveEmpresa) Then + ' If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then + ' dr = DtServicios.NewRow() + ' dr("Consec") = gvr.FCLabel("LtlConsecutivo").Text.ToEntero + ' dr("Total") = gvr.FCLiteral("LtlTotal").Text.ToDecimal + ' dr("PS") = gvr.DataKey("PS").ToString + ' DtServicios.Rows.Add(dr) + ' End If + ' End If + 'Next + objps.Dispose() + If DtServicios.Rows.Count > 0 Then + GVServicios.DataSource = DtServicios + GVServicios.DataBind() + GVServicios.Visible = True + Else + GVServicios.DataSource = Nothing + GVServicios.DataBind() End If + UpGVServicios.Update() + UpFacturas.Update() + UPGVFacturas.Update() + 'If DdlTipo.SelectedValue.ToEntero = 1 Then + + + 'ElseIf DdlTipo.SelectedValue.ToEntero = 2 Then + ' GVServicios.Visible = False + ' dvFacturas.Visible = True + ' DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + ' DdlProveedores.DataBind() + ' DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' UpFacturas.Update() + ' UpGVServicios.Update() + + + 'End If + End Sub Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click @@ -16212,7 +16212,7 @@ Partial Class Compras_Compras End If If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then - liServicios.Visible = True + 'liServicios.Visible = True liFletesImportaciones.Visible = True End If @@ -20040,6 +20040,17 @@ Partial Class Compras_Compras End If End Sub + Protected Sub RblGastosVincularCrear_Click(sender As Object, e As EventArgs) + Dim MostrarGastosServicios As Boolean = RblGastosVincularCrear.SelectedValue = "1" + + DivGastosyServicios.Visible = MostrarGastosServicios + DivGastosyServiciosFooter.Visible = MostrarGastosServicios + + DivVincularCrear.Visible = Not MostrarGastosServicios + DivVincularCrearFooter.Visible = Not MostrarGastosServicios + + End Sub + End Class diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 929b552c4..5673f5984 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2186,7 +2186,7 @@
    -
    +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    diff --git a/Compras/ProveedoresAuxiliar.aspx b/Compras/ProveedoresAuxiliar.aspx index 4ef950a21..e2fd78ef7 100644 --- a/Compras/ProveedoresAuxiliar.aspx +++ b/Compras/ProveedoresAuxiliar.aspx @@ -142,12 +142,12 @@
    -
    +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    -
    +
    diff --git a/Compras/RepDocumentacionProveedor.aspx b/Compras/RepDocumentacionProveedor.aspx index 14fed4ef1..0d1a20e7b 100644 --- a/Compras/RepDocumentacionProveedor.aspx +++ b/Compras/RepDocumentacionProveedor.aspx @@ -129,15 +129,15 @@ -
    +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    +
    -
    -
    -     +
    +
    diff --git a/Compras/RepEvaluacionProveedor.aspx b/Compras/RepEvaluacionProveedor.aspx index 6ac634124..05fb324f6 100644 --- a/Compras/RepEvaluacionProveedor.aspx +++ b/Compras/RepEvaluacionProveedor.aspx @@ -1,15 +1,15 @@ <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEvaluacionProveedor.aspx.vb" Inherits="RepEvaluacionProveedor" %> - - + @@ -46,7 +45,7 @@ Reporte Evaluación de Proveedor -
  • +
  • Excel
    • @@ -62,13 +61,15 @@
    - +
    Proveedor
    Clasificación
    -
    +
    + +
    Fecha Inicio
    @@ -102,7 +103,6 @@
    -
    @@ -111,27 +111,38 @@ -
    -
    +
    +
    -
    -
    Número de registros encontrados:
    -
    +
    +
    + Número de registros encontrados: + + + + + + + +
    +
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    -
    - - - + + + @@ -207,23 +218,23 @@ - -
    - + +
    + - - + + var ancho = 0 + ancho += celdas[0]; + //console.log('ancho pro ' + ancho); + $('#dvPro').width(ancho); + ancho = 0; + + ancho += celdas[1]; + ancho += celdas[2]; + ancho += celdas[3]; + ancho += celdas[4]; + // console.log('ancho req ' + ancho); + $('#dvReq').width(ancho); + ancho = 0; + + ancho += celdas[5]; + ancho += celdas[6]; + ancho += celdas[7]; + + // console.log('ancho req ' + ancho); + $('#dvOc').width(ancho); + ancho = 0; + + ancho += celdas[8]; + ancho += celdas[9]; + ancho += celdas[10]; + + // console.log('ancho req ' + ancho); + $('#dvCo').width(ancho); + ancho = 0; + + $('#dvCa').css('visibility', 'visible'); + + return false; + }); + } + + diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 4aa040ece..42de3dde7 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1143,7 +1143,7 @@ Partial Class RegPoliza End If End If - If Not ObjContabilidad.UpdatePrePoliza(TxtFechaPoliza.Text.ToDate, TxtNumeroPoliza.Text.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, IDPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, TxtConcepto.Text.Trim, TxtFechaPoliza.Text.ToDate) Then + If Not ObjContabilidad.UpdatePrePoliza(TxtFechaPoliza.Text.ToDate, TxtNumeroPoliza.Text.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, IDPoliza, CvePrePoliza, UsuarioActual.CveEmpresa, TxtConcepto.Text.Trim, TxtFechaPoliza.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True End If diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 09254260e..914c95ef6 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -464,9 +464,10 @@ Partial Class ContabilidadC_RegPrePoliza End If End If - + CargaGvBitacora() ObjContabilidad.Dispose() UpPoliza.Update() + UpBitacora.Update() End Sub Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound @@ -537,7 +538,7 @@ Partial Class ContabilidadC_RegPrePoliza End Sub Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged - If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then + If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 205, 206, 14, 15, 16, 19, 25, 26, 21) Then CargaProveedores() DdlProveedores.Visible = True DdlCompras.Visible = True @@ -1012,7 +1013,7 @@ Partial Class ContabilidadC_RegPrePoliza - If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) Then + If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then @@ -1020,7 +1021,7 @@ Partial Class ContabilidadC_RegPrePoliza If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero)) Then + row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True Exit For End If diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb index cee888e0f..bfa0a695d 100644 --- a/Contabilidad/RegPrePoliza1.aspx.vb +++ b/Contabilidad/RegPrePoliza1.aspx.vb @@ -926,7 +926,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjContabilidad As New ClsContabilidad ObjContabilidad.IniciaTransacSQL() - ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) + ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then @@ -934,7 +934,7 @@ Partial Class ContabilidadC_RegPrePoliza row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text) Then + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True Exit For End If diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 55009d5a3..074017309 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -914,7 +914,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjContabilidad As New ClsContabilidad ObjContabilidad.IniciaTransacSQL() - ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate) + ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then @@ -922,7 +922,7 @@ Partial Class ContabilidadC_RegPrePolizaS row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text) Then + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then OcurrioError = True Exit For End If diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 969d38b25..7593aa05d 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -215,9 +215,20 @@ public partial class Contabilidad_RepIVA : ClsPaginas string Formato = TT.ActiveTabIndex == 0 ? "RepIVA.rpt" : (Opcion == "EXCEL2" ? "RepIVAAcreditable2.rpt" : "RepIVAAcreditable.rpt"); Opcion = (Opcion == "EXCEL2" ? "EXCEL" : Opcion); para.Add(new CrystalParametro("Excel", Formato)); - string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"); + System.IO.FileInfo Archivo = new System.IO.FileInfo(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato)); + string Ruta;// = (Archivo.Exists ? string.Format("{0}/{1}", UsuarioActual.Empresa.Ruta, Formato ): ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"); + + Alert(string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato)); + if (Archivo.Exists) + { + Ruta = string.Format("{0}/Formatos/{1}", UsuarioActual.Empresa.Ruta, Formato); + ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + }else + { + Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}"; + ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); + } Ruta.GuardaLogAD(); - ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion); } else diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index 0bb5d7b3a..4b9616588 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -1,2476 +1,2495 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Contrato.aspx.vb" Inherits="Contratos_Default" %> - - - - - - - - - - - -
  • - Concluir Contrato -
    • -
  • - Cancelar Contrato -
    • -
  • - Reactivar Contrato -
    • -
  • - Descargar Formato -
    • -
  • - Crear A Partir De -
    • - -
  • - Importar Listado -
    • - - -
  • - Agregar Gastos -
    • - - -
  • - Avance por Documento PDF -
    • - - -
  • - Descargar Contrato -
    • - -
  • - Informacion PDF -
    • - - -
  • - Gastos PDF -
    • - - -
  • - Suministros PDF -
    • -
  • - Avance PDF -
    • - -
  • - Presupuesto PDF -
    • - -
  • - Activos Fijos PDF -
    • - -
  • - Activos Fijos Excel -
    • -
  • - Pedidos / Devoluciones PDF -
    • - -
  • - Pedidos / Devoluciones Excel -
    • - - - - - - -
  • - Habilitar Ajuste A.F. -
    • -     -     - - - - - -     - - - - - - - - - - - - - -     -     - -   - - - - - - - - -
    -
    - -
    -
    -
    - -

    Tipo de Contrato

    -     -
    -
    -
    -
    -
    -
    -
    -
    -
    - -
    -
    - -
    -
    -
    -
    -
    Tipo Contrato:
    -
    - - -
    -
    -
    -
    -
    - -
    -
    -
    -
    - -
    -
    -
    -
    - -
    - -
    - -
    - -
    - -
    -
    -     -     - - - - -
    - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Contrato.aspx.vb" Inherits="Contratos_Default" %> + + + + + + + + + + + +
  • + Concluir Contrato +
    • +
  • + Cancelar Contrato +
    • +
  • + Reactivar Contrato +
    • +
  • + Descargar Formato +
    • +
  • + Crear A Partir De +
    • + +
  • + Importar Listado +
    • + + +
  • + Agregar Gastos +
    • + + +
  • + Avance por Documento PDF +
    • + + +
  • + Descargar Contrato +
    • + +
  • + Informacion PDF +
    • + + +
  • + Gastos PDF +
    • + + +
  • + Suministros PDF +
    • +
  • + Avance PDF +
    • + +
  • + Presupuesto PDF +
    • + +
  • + Activos Fijos PDF +
    • + +
  • + Activos Fijos Excel +
    • +
  • + Pedidos / Devoluciones PDF +
    • + +
  • + Pedidos / Devoluciones Excel +
    • + + + + + + +
  • + Habilitar Ajuste A.F. +
    • +     +     + + + + + +     + + + + + + + + + + + + + +     +     + +   + + + + + + + + +
    +
    + +
    +
    +
    + +

    Tipo de Contrato

    +     +
    +
    +
    +
    +
    +
    +
    +
    +
    + +
    +
    + +
    +
    +
    +
    +
    Tipo Contrato:
    +
    + + +
    +
    +
    +
    +
    + +
    +
    +
    +
    + +
    +
    +
    +
    + +
    + +
    + +
    + +
    + +
    +
    +     +     + + + + +
    + + + +
    + + + + + - + + + - -
    Importe Contratado: $ - Facturado: $ - Por Facturar: $ - Descargar ContratoDescargar ContratoDescargar ContratoDescargar Contrato Utilidad: -
    -     -     - - - - - -
    -
    -
    -
    -
    - -
    -
    Datos del Contrato
    -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - -
    -
    -
    -
    - - - -
    -
    - -
    - -
    - -
    -
    -
    - -
    - -
    -
    - -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - -
    -
    -
    -
    -
    - -
    - - -
    -
    -
    - -
    -
    Centro de Costos
    -
    -
    -
    - Proyecto: -
    - - - -
    -
    -
    -
    - - - - - -
    -
    -
    - -
    - -
    -
    -
    -
    -     -     -
    - -
    - -
    -
    -
    -
    -
    - -
    -
    Información
    -
    -
    -
    -
    - - - -
    -
    - - -
    -
    - - - -
    -
    -     -     - - - - -
    -
    - - - -
    -
    -     -     - - - - -
    -
    - - - -
    -
    -     -     - - - - -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    - -
    - -
    -
    - -
    - - - - -
    -
    -
    - -
    -
    - -
    - - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    - - -
    - -
    - -
    -
    -
    - -
    -
    - -
    - -
    -
    -
    -
    -
    - -
    -
    Estatus
    -
    -
    -
    - -
    - -
    -
    -
    - -
    - - - - - - -
    -
    - - - +
    +
    +
    +
    +
    +
    +
    +
    + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + +
    +
    + + Impuestos Locales: + +
    +
    + + +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    - - -     - - - - - -
    - - - - - - - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - - - <%-- --%> - - - - - - - - - - - - - - - - - - - - - - - -
    - - Cantidad - - Producto/ServicioU. M.ObservaciónPrecio UnitarioTotalPermite AvancePermite Estimación Comandos
    - - - - - - - - - - -
    - -
    - -
    -     		- - - - - - - -
    -     - -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + +     + + + + +
    + + + + + + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + <%-- --%> + + + + + + + + + + + + + + + + + + + + + + + +
    + + Cantidad + + Producto/ServicioU. M.ObservaciónPrecio UnitarioTotalPermite AvancePermite Estimación Comandos
    + + + + + + + + + + +
    + +
    + +
    +     		+ + + + + + + +
    +     + +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- - --%> - - -
    - -
    -     - - - -     - - - - - -     -     - - - - - - - - -
    Total General: -
    - - - -
    - - - - -
    - - - - -
    - Cerrar
    -
    -
    -     -     - -     -     - -     -     - - - - - - - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - <%-- --%> - - - - - - - - - - - - - -
    CantidadLimitarClave InternaProducto/ServicioU. M.Precio UnitarioTotalPermite AvancePermite Estimación Comandos
    - - - - - - - - - -
    - -
    - -
    -     		- - - - - - -
    -     - -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + --%> + + +
    + +
    +     + + + +     + + + + + +     +     + + + + + + + + +
    Total General: +
    + + + +
    + + + + +
    + + + + +
    + Cerrar
    +
    +
    +     +     + +     +     + +     +     + + + + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + <%-- --%> + + + + + + + + + + + + + +
    CantidadLimitarClave InternaProducto/ServicioU. M.Precio UnitarioTotalPermite AvancePermite Estimación Comandos
    + + + + + + + + + +
    + +
    + +
    +     		+ + + + + + +
    +     + +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- - --%> - - -
    - -
    -     - - - -     - - - - - -     -     - - - - - - - - -
    Total General: -
    - - - -
    - - - - -
    - - - - -
    - Cerrar
    -
    -
    -     -     - -     -     - -     -     - - - Interno - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    CantidadProducto/ServicioU.M.Precio UnitarioTotalautorizadoComandos
    - - - -
    -
    - - - -
    -     		- - - - CantidadPrecio UnitarioTotal -
    -     -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -
    -     - - - -     - - - - - -     -     - - - - - - -
    Total General: -
    - - -
    - - - - -
    - - - - -
    - Cerrar
    -
    -
    -     -     -     -     - -     -     - -     - -
    - -
    - -
    - -
    - -
    Se deben guardar la informacion General para poder editar el presupuesto
    - -     - - -     - - - - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - -
    - - - - - - - - - -
    Clasificación Contratado Avance Faltante Avance Por Facturar Anticipo
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     - -     -     - - - - -
    -
    -
    -
    -
    -
    -
    - - - - - - -
    -
    -
    - -
    -
    - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - <%----%> - - - - - - - - - - - - -     -     - - - - -
    -
    -
    -
    + --%> + + +
    + +
    +     + + + +     + + + + + + + + + + + + + + + +
    Total General: +
    + + + +
    + + + + +
    + + + + +
    + Cerrar
    +
    +
    +     +     + + + + + + + + + Interno + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    CantidadProducto/ServicioU.M.Precio UnitarioTotalautorizadoComandos
    + + + +
    +
    + + + +
    +     		+ + + + CantidadPrecio UnitarioTotal +
    +     +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    +     + + + +     + + + + + +     +     + + + + + + +
    Total General: +
    + + +
    + + + + +
    + + + + +
    + Cerrar
    +
    +
    +     +     +     +     + +     +     + + + +
    + +
    + +
    + +
    + +
    Se deben guardar la informacion General para poder editar el presupuesto
    + + + + + + + + + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + +
    + + + + + + + + + +
    Clasificación Contratado Avance Faltante Avance Por Facturar Anticipo
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     + +     +     + + + + +
    +
    +
    +
    +
    +
    +
    + + + + + + +
    +
    +
    + +
    +
    + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + <%----%> + + + + + + + + + + + + +     +     + + + + +
    +
    +
    +
    Nota: Incluye gastos manuales, salidas de almacén de suministros y de facturas. -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - - - - -
    - - - - - - -     -     - - - -   - - - - - - - - - - - - - - - -     -     -     -     - -     -     - - - - - - -
    -
    -
    -
    -
    -
    -
    - - - - - -
    -
    - - - -
    -
    -
    - -
    -
    - -
    - - - - - - - - - - - - - - - - - - + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + + +
    + + + + + + +     +     + + + +   + + + + + + + + + + + + + + + +     +     +     +     + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + + + +
    +
    +
    + +
    +
    + +
    + + + + + + +
    Total: - Internos: - Externos - Varlor Activo: $ -
    + + + + + + + + + + + - - - -
    Total: + Internos: + Externos + Varlor Activo: $ + Es Interno: - - - Todos - Es Interno - Es Externo - - - -
    - -     -     - - -
    - - - -
    + + + + Todos + Es Interno + Es Externo + + + + + + + + + + + + +
    + + + +
    Tipo: - - Es Interno - Es Externo - - -
    -     -     - - -
    + + + Es Interno + Es Externo + + +
    + + + + +
    Aun no se han registrado Activos Fijos. -
    -
    - - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    - - - - -
    -
    -
    - - - - - - - - -
    -
    -
    - Pedidos -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    - Devoluciones -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    - - - - - -
    -     -     -
    -
    -
    -     -     - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    - Sistema - - - - - - - - - - - - - -
    Fecha de Captura: -
    Usuario Capturó: -
    Estatus: -
    -
    -
    -
    - -     -     - - - - -
    - - - - - - - - + +
    +
    + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    + +     +     + +
    +
    +
    + + + + + + + + +
    +
    +
    + Pedidos +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + Devoluciones +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    + + + + + +
    +     +     +
    +
    +
    +     +     + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    + Sistema + + + + + + + + + + + + + +
    Fecha de Captura: +
    Usuario Capturó: +
    Estatus: +
    +
    +
    +
    + +     +     + + + + +
    + + + + + + + +   - - -
    - -
    - - - <%-- BITACORA--%> -
    -
    -
    - -
    -
    - Bitácora -
    -
    -
    -
    - -
    -
    -
    - -
    - - - - - - - Fecha - - - - - - Fecha Agenda - - - - - - Usuario - - - - - - Descripción - - - - - - Archivo - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    - -
    -
    - - <%--MODAL BITACORA--%> - +
    +
    + +
    + + + + <%-- MODAL FIANZA --%> + + + + <%--MODAL UPLOAD--%> + + + + <%--VENTAS AVANCE--%> + + + + + + + + <%--CARGA EXCEL--%> + + + + + + + + + + + + + + + + + - + + diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 59f211c7d..75be99a9c 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1199,13 +1199,16 @@ Partial Class Contratos_Default GvFianzas.DataBind() UpGvFianzas.Update() - End Sub + End Sub #End Region - + #Region " GUARDAR " - Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - Dim ObjContratos As New ClsContratos - Dim ObjInventarios As New ClsInventarios(ObjContratos.IniciaTransacSQL) + Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + + If DdlContratista.SelectedValue.ToEntero = -1 And DdlCliente.SelectedValue.ToEntero = -1 Then + Alert("Debe seleccionar con quién está haciendo el contrato. Proveedor o Cliente", TipoMensaje.MsgAdvertencia) + Exit Sub + End If Dim TieneError = False Dim Modificado = False @@ -1221,21 +1224,30 @@ Partial Class Contratos_Default Maximo = txtMaximo.Text.ToDouble Total = TxtTotal.Text.ToDouble + If DdlTipoContrato.SelectedValue = "25" AndAlso DdlPeriodo.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar el periodo de facturación.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If If DdlMoneda.SelectedIndex > 0 Then If TxtTipoCambio.Text.Trim.Length = 0 Or TxtTipoCambio.Text.Trim.ToDouble = 0.0 Then Alert("Cuando seleccione una moneda diferente a peso debe especificar el tipo de cambio.", TipoMensaje.MsgAdvertencia) Exit Sub End If - End If - - - 'Crear Contrato - If Not CveContrato > 0 Then + End If + + If CveContrato > 0 Then If DdlContratista.SelectedValue.ToEntero = -1 And DdlCliente.SelectedValue.ToEntero = -1 Then Alert("Debe seleccionar con quién está haciendo el contrato. Proveedor o Cliente", TipoMensaje.MsgAdvertencia) Exit Sub - End If + End If + End If + + Dim ObjContratos As New ClsContratos + Dim ObjInventarios As New ClsInventarios(ObjContratos.IniciaTransacSQL) + + 'Crear Contrato + If Not CveContrato > 0 Then CveContrato = ObjContratos.AddContratos(TxtNumeroContrato.Text, TxtDescripcionContrato.Text, TxtNumeroLicitacion.Text.Trim, DdlContratista.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, -1, TxtFechaInicial.Text.ToDate, TxtFechaFinal.Text.ToDate, TxtUbicacion.Text, TxtResponsable.Text, DdlSubProyectoContrato.SelectedValue.ToEntero, TxtPorIVA.Text.ToDouble, TxtPorAnticipo.Text.ToDouble, TxtPorAmortizacionAnticipo.Text.ToDouble, @@ -1323,18 +1335,9 @@ Partial Class Contratos_Default TieneError = True End If - - - - - - Else Modificado = True - If DdlContratista.SelectedValue.ToEntero = -1 And DdlCliente.SelectedValue.ToEntero = -1 Then - Alert("Debe seleccionar con quién está haciendo el contrato. Proveedor o Cliente", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + Dim ArchivoUpdate As String = "-1" If Session("FileExtension").ToString <> "" Then @@ -1433,16 +1436,8 @@ Partial Class Contratos_Default End If - - - - End If - 'If Not TieneError Then - ' TieneError = GuardarAlmacen(ObjInventarios) - 'End If - If TieneError Then ObjContratos.RollBack() Else @@ -1461,12 +1456,11 @@ Partial Class Contratos_Default End If - UpGral.Update() ObjContratos.Dispose() - End Sub + End Sub #End Region - + #Region " ELIMINAR " Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim objContratos As New ClsContratos diff --git a/Contratos/FacturacionMasiva.aspx b/Contratos/FacturacionMasiva.aspx index ad378c4fb..431aa81db 100644 --- a/Contratos/FacturacionMasiva.aspx +++ b/Contratos/FacturacionMasiva.aspx @@ -34,14 +34,11 @@
    • Cliente: - - - +
    • Contrato: - - - + +
    • Sucursal: diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index d43c26fc3..d4d6f5fd4 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -111,8 +111,9 @@ Partial Class Contratos_FacturacionMasiva If Not IsPostBack Then FolioVigentes = False CargaCombos() - txtFechaI.Text = DateTime.Today.ToString("d") - txtFechaF.Text = DateTime.Today.ToString("d") + Dim FechaRef = DateTime.Now + txtFechaI.Text = $"01/{FechaRef.Month}/{FechaRef.Year}" + txtFechaF.Text = txtFechaI.Text.ToDate().AddMonths(1).ToString("dd/MM/yyyy") CargaDatos(-1, -1) CreaDTVentas() Mensaje = "" @@ -131,11 +132,44 @@ Partial Class Contratos_FacturacionMasiva ValidaFolio() Dim ObjContratos As New ClsContratos - If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then - DTCicloComercial = ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0") - GvCiclosComerciales.DataSource = DTCicloComercial - End If - ObjContratos.Dispose() + Try + If ObjContratos.CicloComercialGet(CveContrato, CveCliente, -1, UsuarioActual.CveEmpresa, txtFechaI.Text.ToDateTime, txtFechaF.Text.ToDateTime, DdlSucursal.SelectedValue.ToEntero) Then + DTCicloComercial = ObjContratos.DtResultados.Clone + + For Each Row As DataRow In ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0").Rows + + If Row("Observaciones").ToString().Contains("{DIA}") Then + Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", DateTime.Now.Day.ToString()) + End If + + If Row("Observaciones").ToString().Contains("{MES}") Then + Dim fecha As DateTime = DateTime.Now + Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat + Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + + Row("Observaciones") = Row("Observaciones").ToString().Replace("{MES}", nombreMes) + End If + + If Row("Observaciones").ToString().Contains("{AÑO}") Then + Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString()) + End If + + If Row("Observaciones").ToString().Contains("{TC}") Then + Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero) + End If + + DTCicloComercial.Rows.Add(Row.ItemArray) + Next + + + End If + Catch ex As Exception + DTCicloComercial = Nothing + OnError("Ocurrió un error al obtener las facturas a realizar", ex) + End Try + ObjContratos.Dispose() + + GvCiclosComerciales.DataSource = DTCicloComercial GvCiclosComerciales.DataBind() UpGv.Update() End Sub @@ -174,14 +208,9 @@ Partial Class Contratos_FacturacionMasiva Dim sb As New StringBuilder() For Each row As GridViewRow In GvCiclosComerciales.Rows - If row.FCCheckBox("chkDis").Checked Then - Dim fecha As DateTime = DateTime.Now ', row.DataKey("FechaVenc").ToString.ToDateTime() - Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat - Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper() + If row.FCCheckBox("chkDis").Checked Then - Dim Etiqueta As String = String.Format("{0} - {1}", nombreMes, fecha.Year) - - Dim Resp = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero, Etiqueta) + Dim Resp = EmitirImprimir(row.DataKey("CveCicloComercial").ToString.ToEntero) For Each Msg In Resp.Mensajes sb.AppendFormat("{0}

      ", Msg) @@ -212,10 +241,10 @@ Partial Class Contratos_FacturacionMasiva EjecutarFacturacion() End Sub - Private Function EmitirImprimir(pCveCicloComercial As Integer, Etiqueta As String) As Modelos.Factura.MMensajeFactura + Private Function EmitirImprimir(pCveCicloComercial As Integer) As Modelos.Factura.MMensajeFactura Dim Resp As New Modelos.Factura.MMensajeFactura ViewState("CveCicloComercial") = pCveCicloComercial - CreaObjetosVenta(Etiqueta) + CreaObjetosVenta() If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then Alert("Ocurrió un error al procesar los datos de la Venta.", TipoMensaje.MsgError) ObjFactura = Nothing @@ -438,7 +467,7 @@ Partial Class Contratos_FacturacionMasiva TmpDT.Columns.Add("CveTamaño", GetType(Integer)) TmpDT.Columns.Add("EsCargo", GetType(Boolean)) End Sub - Private Sub CreaObjetosVenta(Etiqueta As String, Optional VistaPrevia As Boolean = False) + Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False) Dim ObjFolios As New ClsGralFolios() Dim Folio As String = "" Dim Serie As String = "" @@ -472,7 +501,7 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.MetodoPago = "Efectivo" ObjFactura.FechaPago = DateTime.Today ObjFactura.MotivoDescuento = "" - ObjFactura.Observaciones = Etiqueta + " " + TxtObservaciones.Text + " " + DR("Observaciones").ToString + ObjFactura.Observaciones = TxtObservaciones.Text + " " + DR("Observaciones").ToString ObjFactura.FechaEjecucion = DateTime.Today 'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {1}") ObjFactura.UsuarioCreo = UsuarioActual.Usuario @@ -553,9 +582,9 @@ Partial Class Contratos_FacturacionMasiva DtR("CodigoPS") = row("CodigoPS") DtR("SATClaveProdServ") = row("SATClaveProdServ") DtR("NoIdentificacion") = row("NoIdentificacion") - DtR("CveTipoPS") = DrPS("CveTipoPS") - DtR("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario") - DtR("Obs") = Etiqueta + " " + TxtObservaciones.Text + " " + row("Observacion").ToString + DtR("CveTipoPS") = drPS("CveTipoPS") + DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario") + DtR("Obs") = TxtObservaciones.Text + " " + row("Observacion").ToString DtR("PU") = row("PU") DtR("IVA") = row("PorcentajeIVA") DtR("PorcentajeIVA") = row("PorcentajeIVA") diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 5d912970f..659934309 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4196,7 +4196,7 @@ Partial Class Inventarios_EntradasSalidas ElProductoChange() TxtnSerie.Text = Serie TxtnLote.Text = Lote - DdlSeccionAlmacen.SelectedValue = CveSeccionAlmacen.ToString + DdlSeccionAlmacen.SelectedValueExist(CveSeccionAlmacen.ToString) TxtnFechaCaducidad.Text = If(Caducidad = "", MinFecha.ToString, Caducidad) AgregarPS() txtPrecio.Text = "" diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 8d4ff3ea1..f3198fa5e 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntregaAlmacen.aspx.vb" Inherits="Inventarios_EntregaAlmacen" enableEventValidation="false" %> diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 8ad38121e..b71e823e5 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -95,7 +95,7 @@ Partial Class Inventarios_Default End Sub Private Sub CargaDatos(CvePS As Integer, Tipo As Integer) - If ValidarFiltrosSeleccionados() Then + If ValidarFiltrosSeleccionados() OrElse CvePS > 0 Then Dim ObjInventarios As New ClsInventarios() If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 392b44f2c..b347d8638 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -164,7 +164,7 @@
    -