AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-07-17 20:59:03 -07:00
parent b706dc9b2c f1736c4e53
commit a3f9c0eaf4
7 changed files with 62 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsPaginas.vb
View File

@@ -6183,7 +6183,9 @@ Public Class ClsPaginas
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte") namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20") namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30") namespaces.AddNamespace("cartaporte30", "http://www.sat.gob.mx/CartaPorte30")
namespaces.AddNamespace("cartaporte31", "http://www.sat.gob.mx/CartaPorte31")
Dim Nodos31 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte31:CartaPorte", namespaces)
Dim Nodos30 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces) Dim Nodos30 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte30:CartaPorte", namespaces)
Dim Nodos20 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces) Dim Nodos20 As XmlNode = XMLDoc.SelectSingleNode("//cartaporte20:CartaPorte", namespaces)
@@ -6197,6 +6199,11 @@ Public Class ClsPaginas
PrefijoCCP = "cartaporte20" PrefijoCCP = "cartaporte20"
End If End If
If Nodos31 IsNot Nothing Then
VersionCCP = "3.1"
PrefijoCCP = "cartaporte31"
End If
params.Add(New ReportParameter("CartaPorteVersion", VersionCCP)) params.Add(New ReportParameter("CartaPorteVersion", VersionCCP))
Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces) Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)

11
App_Code/Timbrado.vb
View File

@@ -1050,7 +1050,7 @@ Public Class Timbrado
If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
AmbienteProductivo = False AmbienteProductivo = False
Clave = "12345678a" Clave = "12345678a"
EmisorRFC = "EKU9003173C9" EmisorRFC = "EKU9003173C9"
@@ -2552,7 +2552,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
If UsuarioActual.CveEmpresa = 1 Then If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
''DATOS GENERALES ''DATOS GENERALES
cfdi.CartaPorte31("", Carta.TranspInternac, Carta.EntradaSalidaMercancia, Carta.PaisOrigenDestino, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino) cfdi.CartaPorte31("", Carta.TranspInternac, Carta.EntradaSalidaMercancia, Carta.PaisOrigenDestino, Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroISTMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
@@ -2934,8 +2934,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
EmisorRFC = "EKU9003173C9" EmisorRFC = "EKU9003173C9"
UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key"
@@ -3164,9 +3163,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
Dim TimbraProduccion As Boolean = True Dim TimbraProduccion As Boolean = True
If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
If Not ClsPaginas.EsProduccion AndAlso (Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then
If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then
EmisorRFC = "EKU9003173C9" EmisorRFC = "EKU9003173C9"
UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE"
ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key" ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}\1\Certificados\EKU9003173C9.key"

7
Ashx/E141.ashx
View File

@@ -373,6 +373,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim Mail As String = "-1" Dim Mail As String = "-1"
Dim DtSucursales As DataTable = Nothing Dim DtSucursales As DataTable = Nothing
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
Using ObjClientes As New ClsClientes Using ObjClientes As New ClsClientes
If ObjClientes.GetListaSucursales(RFC, CveEmpresa) Then If ObjClientes.GetListaSucursales(RFC, CveEmpresa) Then
@@ -1764,6 +1765,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim Retorno As Boolean = True Dim Retorno As Boolean = True
Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
Dim DtPS As DataTable = Nothing Dim DtPS As DataTable = Nothing
Using ObjPS As New ClsProductosServicios Using ObjPS As New ClsProductosServicios
@@ -1796,6 +1798,8 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
Dim DtPS As DataTable = Nothing Dim DtPS As DataTable = Nothing
Using ObjPS As New ClsProductosServicios Using ObjPS As New ClsProductosServicios
'OBTERNER PRECIOS DE PUBLICO GENERAL 'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -1889,7 +1893,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim payload = New JObject() Dim payload = New JObject()
Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
Dim DtPS As DataTable = Nothing Dim DtPS As DataTable = Nothing
Using ObjPS As New ClsProductosServicios Using ObjPS As New ClsProductosServicios
'OBTERNER PRECIOS DE PUBLICO GENERAL 'OBTERNER PRECIOS DE PUBLICO GENERAL
@@ -1966,6 +1970,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0 Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa) Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
Dim DtPS As DataTable = Nothing Dim DtPS As DataTable = Nothing
Using ObjPS As New ClsProductosServicios Using ObjPS As New ClsProductosServicios
'OBTERNER PRECIOS DE PUBLICO GENERAL 'OBTERNER PRECIOS DE PUBLICO GENERAL

13
Transportes/RepContratosCalendario.aspx
View File

@@ -102,7 +102,7 @@
</div> </div>
<%-- Estatus --%> <%-- Estatus --%>
<label class="col-md-1 ">Estatus:</label> <label class="col-md-1 ">Estatus:</label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlEstatusConsulta" data-text="Todos" AppendDataBoundItems="true" <asp:DropDownList ID="DdlEstatusConsulta" data-text="Todos" AppendDataBoundItems="true"
DataTextField="ContratoEstatus" DataTextField="ContratoEstatus"
DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me Widthall"
@@ -116,7 +116,7 @@
<div class="portlet-body row" style="display: none"> <div class="portlet-body row" style="display: none">
<%-- Centro de Costos --%> <%-- Centro de Costos --%>
<label class="col-md-1 truncate ">Centro de Costos</label> <label class="col-md-1 truncate ">Centro de Costos</label>
<div class="col-md-3"> <div class="col-md-1">
<asp:DropDownList ID="DdlSubProyectos" data-text="Todos" AppendDataBoundItems="true" <asp:DropDownList ID="DdlSubProyectos" data-text="Todos" AppendDataBoundItems="true"
DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server"> Style="width: 100%;" runat="server">
@@ -124,7 +124,7 @@
</div> </div>
<%-- Tipo de Unidad --%> <%-- Tipo de Unidad --%>
<label class="col-md-1 ">Tipo de Unidad</label> <label class="col-md-1 ">Tipo de Unidad</label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true" <asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall"
Style="width: 100%;" runat="server"> Style="width: 100%;" runat="server">
@@ -248,28 +248,24 @@
<asp:TemplateField HeaderText="Unidad"> <asp:TemplateField HeaderText="Unidad">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlAF" runat="server" Text='<%# Eval("NombreAF") %>'></asp:Literal> <asp:Literal ID="LtlAF" runat="server" Text='<%# Eval("CodigoAF") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Final" ItemStyle-Width="100px"> <asp:TemplateField HeaderText="Fecha Final" ItemStyle-Width="100px">
<HeaderTemplate> <HeaderTemplate>
Fecha<br /> Fecha<br />
Regreso Regreso
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Estatus"> <asp:TemplateField HeaderText="Estatus">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'> <asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'>
</asp:Label> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal" <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal"
@@ -429,7 +425,6 @@
<asp:DropDownList ID="DdlChofer" AppendDataBoundItems="true" DataValueField="CvePersonal" <asp:DropDownList ID="DdlChofer" AppendDataBoundItems="true" DataValueField="CvePersonal"
DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me" DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
Width="100%" runat="server"> Width="100%" runat="server">
<asp:ListItem Value="-1" Selected="True">-</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>

44
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -57,7 +57,13 @@ Partial Class RepContratosCalendario
Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
If CveCliente = 0 Then CveCliente = -1 If CveCliente = 0 Then CveCliente = -1
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
DdlCliente.SelectedValue.ToEntero,
CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero,
CveTipoContrato:=34,
CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero,
CveChofer:=DdlChoferFiltro.SelectedValue.ToEntero) Then
DtAvance = ObjContratos.DtResultados.Copy() DtAvance = ObjContratos.DtResultados.Copy()
CargaCronograma(DdlTipoVista.SelectedValue.ToEntero) CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
End If End If
@@ -77,7 +83,10 @@ Partial Class RepContratosCalendario
Private Sub CargaCronograma(Optional TipoVista As Integer = -1) Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
If DtAvance IsNot Nothing Then If DtAvance IsNot Nothing Then
Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"}) Dim StrFiltro As String = ""
If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
'For Each Row As DataRow In DtAvance.Rows 'For Each Row As DataRow In DtAvance.Rows
' If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then ' If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
@@ -138,37 +147,36 @@ Partial Class RepContratosCalendario
Private Sub InicializaCombos() Private Sub InicializaCombos()
'Lista de Tipos de activo fijos 'Lista de Tipos de activo fijos
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) Dim dttipoaf As DataTable = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
DdlTipoAF.Items.Insert(0, New ListItem("-", "")) DdlTipoAF.DataSource = dttipoaf
DdlTipoAF.Items.Insert(0, New ListItem("-", "-1"))
DdlTipoAF.DataBind() DdlTipoAF.DataBind()
DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTipoUnidad.DataSource = dttipoaf
DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTipoUnidad.DataBind() DdlTipoUnidad.DataBind()
DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
'Lista de Activos fijos 'Lista de Activos fijos
DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlAF.DataBind() DdlAF.DataBind()
DdlAF.Items.Insert(0, New ListItem("-", "")) DdlAF.Items.Insert(0, New ListItem("-", "-1"))
'Lista Chofer' 'Lista Chofer'
DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") Dim dtchofer As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CvePuesto = 702 and CveEstatusPersonal = 1", "NombreCompleto")
DdlChofer.DataSource = dtchofer
DdlChofer.DataBind() DdlChofer.DataBind()
DdlChofer.Items.Insert(0, New ListItem("-", "-1")) DdlChofer.Items.Insert(0, New ListItem("-", "-1"))
DdlChofer.SelectedValueExist(-1) DdlChofer.SelectedValueExist(-1)
DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlChofer2.DataSource = dtchofer
DdlChofer2.DataBind() DdlChofer2.DataBind()
DdlChofer2.Items.Insert(0, New ListItem("-", "-1")) DdlChofer2.Items.Insert(0, New ListItem("-", "-1"))
DdlChofer2.SelectedValueExist(-1) DdlChofer2.SelectedValueExist(-1)
DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlChoferFiltro.DataSource = dtchofer
DdlChoferFiltro.DataBind() DdlChoferFiltro.DataBind()
DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1")) DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
DdlTipoUnidad.DataBind()
DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
DdlEstatusConsulta.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) DdlEstatusConsulta.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
DdlEstatusConsulta.DataBind() DdlEstatusConsulta.DataBind()
DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1")) DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -208,16 +216,12 @@ Partial Class RepContratosCalendario
RegistraScript("$('#ModalActualizar').modal('show');") RegistraScript("$('#ModalActualizar').modal('show');")
End Sub End Sub
Protected Sub UpdateContrato(sender As Object, e As EventArgs) Protected Sub UpdateContrato(sender As Object, e As EventArgs)
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
ObjContratos.IniciaTransacSQL()
If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then
ObjContratos.Commit() RegistraScript("$('#ModalActualizar').modal('hide');")
Alert("Actualizado Correctamente.") Alert("Actualizado Correctamente.")
Else
ObjContratos.RollBack()
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
@@ -243,7 +247,7 @@ Partial Class RepContratosCalendario
DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus") DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
CveContrato = GvRow.DataKey("CveContrato").ToEntero CveContrato = GvRow.DataKey("CveContrato").ToEntero
UpCommando.Update()
UpModal.Update() UpModal.Update()
RegistraScript("$('#ModalActualizar').modal('show');") RegistraScript("$('#ModalActualizar').modal('show');")
End Sub End Sub

5
Ventas/RepProductosServicios.aspx.vb
View File

@@ -60,7 +60,9 @@ Partial Class Ventas_RepProductosServicios
#Region " CARGA DATOS INICIALES " #Region " CARGA DATOS INICIALES "
Private Sub CargaGrupo() Private Sub CargaGrupo()
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1")) Dim TextoProyecto = "Proyecto"
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then TextoProyecto = UsuarioActual.Empresa.Funcionalidad(307)
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem(TextoProyecto, "1"))
DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2")) DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
DdlGrupo.Items.Add(New ListItem("Categoria", "3")) DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
DdlGrupo.Items.Add(New ListItem("Clasificación", "4")) DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
@@ -84,6 +86,7 @@ Partial Class Ventas_RepProductosServicios
DdlGrupo.Items.Add(New ListItem("Marca", "24")) DdlGrupo.Items.Add(New ListItem("Marca", "24"))
DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26")) DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
DdlGrupo.Items.Add(New ListItem("Giro", "27")) DdlGrupo.Items.Add(New ListItem("Giro", "27"))
If UsuarioActual.CveEmpresa = 119 Then DdlGrupo.Items.Add(New ListItem("Proveedor", "29"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")

4
Ventas/Ventas.aspx.vb
View File

@@ -8426,7 +8426,7 @@ Partial Class Ventas
ObjClientes.Dispose() ObjClientes.Dispose()
Me.ObjFacturaNC = Nothing Me.ObjFacturaNC = Nothing
Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False) Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False, VerificaAlmacen:=False)
DdlNCFactura.DataSource = DTFacNC DdlNCFactura.DataSource = DTFacNC
DdlNCFactura.DataBind() DdlNCFactura.DataBind()
@@ -25394,6 +25394,8 @@ Partial Class Ventas
End If End If
Else Else
PermiteCancelar = False PermiteCancelar = False
'si hay error para obtener información que no continue.
Exit Sub
End If End If
End Using End Using