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-05-20 13:12:06 -07:00
parent 3c1523d6a7 0065de5448
commit 02678b3f8d
12 changed files with 86 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
App_Code/ClsAcumuladores.vb
View File

@@ -7,10 +7,10 @@ Imports Extensiones
Public Class ClsAcumuladores Public Class ClsAcumuladores
Implements IDisposable Implements IDisposable
#Region "Campos" #Region "Campos"
'SQL 'SQL
Private SqlConexion As SqlConnection Private SqlConexion As SqlConnection
Private SqlAdapter As SqlDataAdapter Private SqlAdapter As SqlDataAdapter
Private SqlTransacc As SqlTransaction Private SqlTransacc As SqlTransaction
@@ -68,9 +68,9 @@ Public Class ClsAcumuladores
SqlAdapter = New SqlDataAdapter("", SqlConexion) SqlAdapter = New SqlDataAdapter("", SqlConexion)
ConexionAdd() ConexionAdd()
End Sub End Sub
#Region "Conexiones" #Region "Conexiones"
Private Sub ConexionAdd() Private Sub ConexionAdd()
If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
Try Try
@@ -103,18 +103,18 @@ Public Class ClsAcumuladores
CveConexion = 0 CveConexion = 0
End If End If
End Sub End Sub
#End Region #End Region
Public ReadOnly Property DtResultados() As DataTable Public ReadOnly Property DtResultados() As DataTable
Get Get
DtResultados = Data DtResultados = Data
End Get End Get
End Property End Property
#End Region #End Region
#Region " TAMAÑOS " #Region " TAMAÑOS "
Public Function TamañoGet(CveTamaño As Integer, CveEmpresa As Integer) As Boolean Public Function TamañoGet(CveTamaño As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -270,13 +270,13 @@ Public Class ClsAcumuladores
Return retorno Return retorno
End Function End Function
#End Region #End Region
#Region " TIPOS DEFECTO " #Region " TIPOS DEFECTO "
Public Function TiposDefectoGet(CveTipoDefecto As Integer, CveEmpresa As Integer) As Boolean Public Function TiposDefectoGet(CveTipoDefecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -375,12 +375,12 @@ Public Class ClsAcumuladores
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region " TIPOS USO " #Region " TIPOS USO "
Public Function TiposUsoGet(CveTipoUso As Integer, CveEmpresa As Integer) As Boolean Public Function TiposUsoGet(CveTipoUso As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -479,12 +479,12 @@ Public Class ClsAcumuladores
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region " FOLIOS GARANTÍA " #Region " FOLIOS GARANTÍA "
Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoFolio As String = "-1", Optional Area As Integer = 1) As Boolean Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoFolio As String = "-1", Optional Area As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'Data = New DataTable 'Data = New DataTable
@@ -559,7 +559,6 @@ Public Class ClsAcumuladores
.Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
.Add("@Limite", SqlDbType.Int).Value = Limite .Add("@Limite", SqlDbType.Int).Value = Limite
.Add("@Area", SqlDbType.Int).Value = Area .Add("@Area", SqlDbType.Int).Value = Area
End With End With
Try Try
@@ -724,12 +723,12 @@ Public Class ClsAcumuladores
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "GARANTIAS DETALLES" #Region "GARANTIAS DETALLES"
Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
CveTipoDefecto As Integer, CodigoTD As String, TipoComprobante As Integer, Comprobante As String, Importe As Double, CveTipoDefecto As Integer, CodigoTD As String, TipoComprobante As Integer, Comprobante As String, Importe As Double,
@@ -834,12 +833,12 @@ Public Class ClsAcumuladores
OnError("Ocurrió un error a eliminar de garantia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error a eliminar de garantia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
#End Region #End Region
#Region "P O L I Z A - V I R T U A L" #Region "P O L I Z A - V I R T U A L"
Public Function AddPolizaVirtual(CveVenta As Integer, CveVentaDetalle As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Descuento As Decimal, Total As Decimal, Public Function AddPolizaVirtual(CveVenta As Integer, CveVentaDetalle As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Descuento As Decimal, Total As Decimal,
TipoServicio As Integer, TipoPoliza As Integer, CveModeloAuto As Integer, AnioVehiculo As Integer, TieneUsado As Boolean, FechaUsado As DateTime, TipoServicio As Integer, TipoPoliza As Integer, CveModeloAuto As Integer, AnioVehiculo As Integer, TieneUsado As Boolean, FechaUsado As DateTime,
@@ -1398,7 +1397,7 @@ Public Class ClsAcumuladores
ConexionClose() ConexionClose()
Dispose(True) Dispose(True)
GC.SuppressFinalize(Me) GC.SuppressFinalize(Me)
End Sub End Sub
#End Region #End Region
End Class End Class

4
App_Code/ClsCompras.vb
View File

@@ -1921,12 +1921,12 @@ Public Class ClsCompras
Return Retorno Return Retorno
End Function End Function
Public Function GetCompraDetalleAlmacen(CveEmpresa As Integer, CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean
Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_DetalleAlmacen") DataAdapter("PA_Comp_DetalleAlmacen")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
End With End With

4
App_Code/ClsContabilidad.vb
View File

@@ -3980,21 +3980,19 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function GetPolizasDescuadre(Optional Ejercicio As Integer = -1, Optional Periodo As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Public Function GetPolizasDescuadre(Optional Ejercicio As Integer = -1, Optional Periodo As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Sis_PolizasConDescuadreGet") DataAdapter("PA_Sis_PolizasConDescuadreGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.Add("@Periodo", SqlDbType.Int).Value = Periodo .Add("@Periodo", SqlDbType.Int).Value = Periodo
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception

3
Compras/Compras.aspx.vb
View File

@@ -13105,14 +13105,13 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged
If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
DivAlmacenDev.Visible = True DivAlmacenDev.Visible = True
End If End If
Dim objcompras As New ClsCompras() Dim objcompras As New ClsCompras()
If objcompras.GetCompraDetallealmacen(DDLDevolucion.SelectedValue.ToEntero) Then If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
GVDevolucion.DataSource = objcompras.DtResultados GVDevolucion.DataSource = objcompras.DtResultados
GVDevolucion.DataBind() GVDevolucion.DataBind()
End If End If

6
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2095,12 +2095,12 @@ Partial Class Inventarios_EntregaAlmacen
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5 'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 Then If CveCliente = 819998 Then
If NumRegistros > 5 Then If NumRegistros > 5 Then
Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia) Alert("Solo se pueden recibir máximo 5 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Else Else
If NumRegistros > 10 Then If NumRegistros > 10 Then
Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia) Alert("Solo se pueden recibir máximo 10 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
End If End If
@@ -4351,7 +4351,7 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub RecargaporAlmacenes() Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then If DdlAlmacen.SelectedValue <> "-1" Then
CargaGvDatos() CargaGvDatos()
End If End If
End Sub End Sub

8
OC/RepOC.aspx
View File

@@ -266,6 +266,14 @@
<asp:ListItem Text="Si" Value="1"/> <asp:ListItem Text="Si" Value="1"/>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="colf-1">Método Pago</label>
<div class="colf-2">
<asp:DropDownList ID="DdlMetodoPago" runat="server" CssClass="form-control input-sm select2me" Style="width: 95px; height: 30px; display: inline-block;">
<asp:ListItem selected="True" Text="Todos" Value="-1"/>
<asp:ListItem Text="Contado" Value="0"/>
<asp:ListItem Text="Crédito" Value="1"/>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>

3
OC/RepOC.aspx.vb
View File

@@ -386,7 +386,8 @@ Partial Class RepOC
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero) Then
GvConsultar.DataSource = OC.DtResultados GvConsultar.DataSource = OC.DtResultados
DtOC = OC.DtResultados DtOC = OC.DtResultados

3
Site.master
View File

@@ -168,7 +168,8 @@
</a> </a>
</li> </li>
<li id="tdVentas" runat="server" visible="false"> <li id="tdVentas" runat="server" visible="false">
<a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarFolio.aspx');"> <a onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarFolio.aspx',890,577,'N');
">
<i class="fa fa-money"></i> <i class="fa fa-money"></i>
Buscar Venta Buscar Venta
</a> </a>

6
Ventas/PVCobranza.aspx.vb
View File

@@ -761,6 +761,12 @@ Partial Class Ventas_PVCobranza
ObjPVenta.Dispose() ObjPVenta.Dispose()
End Sub End Sub
Private Sub BtnCerrarTurno_Click(sender As Object, e As EventArgs) Handles BtnCerrarTurno.Click Private Sub BtnCerrarTurno_Click(sender As Object, e As EventArgs) Handles BtnCerrarTurno.Click
'validar.
' que no existan movimientos pendientes de pago.
' que no halla facturas pendientes de cancelación.
' no facturar remisiones de días anteriores
Dim ObjPVenta As New ClsPuntoVenta Dim ObjPVenta As New ClsPuntoVenta
If TxtEfectivoEnCaja.Text.Trim <> "" Then If TxtEfectivoEnCaja.Text.Trim <> "" Then
If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then

37
Ventas/PopUpBuscarFolio.aspx
View File

@@ -12,7 +12,7 @@
} }
.tooltip-inner { .tooltip-inner {
max-width: 750px !important; max-width: 800px !important;
font-size: 14px; font-size: 14px;
} }
</style> </style>
@@ -27,7 +27,7 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:Panel ID="PnlPrincipal" runat="server" HorizontalAlign="Center" DefaultButton="BtnBuscar" Width="750px"> <asp:Panel ID="PnlPrincipal" runat="server" HorizontalAlign="Center" DefaultButton="BtnBuscar" Width="850px">
<table class="Widthall"> <table class="Widthall">
<tr> <tr>
<td class="Titulos" colspan="4">Filtros para búsqueda</td> <td class="Titulos" colspan="4">Filtros para búsqueda</td>
@@ -154,7 +154,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<tr align="left"> <tr align="left" style="display:none;">
<td class="text-right"><b>Pedido:</b></td> <td class="text-right"><b>Pedido:</b></td>
<td> <td>
<asp:TextBox ID="TxtPedidoContrato" runat="server" CssClass="form-control" Width="230px" Height="30px" style="padding: 0px"></asp:TextBox> <asp:TextBox ID="TxtPedidoContrato" runat="server" CssClass="form-control" Width="230px" Height="30px" style="padding: 0px"></asp:TextBox>
@@ -182,16 +182,16 @@
</tr> </tr>
<tr> <tr>
<td> <td>
<div id="DivFacturas" style="overflow-y: auto; width: 760px; max-height: 165px;"> <div id="DivFacturas" style="overflow-y: auto; width: 850px; max-height: 165px;">
<asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"> <asp:GridView ID="GV" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField ItemStyle-Width="50px">
<HeaderTemplate>Tipo</HeaderTemplate> <HeaderTemplate>Tipo</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlTipo" runat="server"></asp:Literal> <asp:Literal ID="LtlTipo" runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-CssClass="truncate" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField ItemStyle-Width="95px" ItemStyle-CssClass="truncate" ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>Folio</HeaderTemplate> <HeaderTemplate>Folio</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFolio" runat="server"></asp:Literal> <asp:Literal ID="LtlFolio" runat="server"></asp:Literal>
@@ -232,23 +232,16 @@
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server"></asp:Literal> <asp:Literal ID="LtlEstatus" runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField ItemStyle-Width="70px">
<HeaderTemplate>Pedido/OC</HeaderTemplate> <HeaderTemplate>...</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlPedidoContrato" runat="server"></asp:Literal> <table border="0">
</ItemTemplate> <tr>
</asp:TemplateField> <td><asp:Literal ID="LtlXML" runat="server"></asp:Literal></td>
<asp:TemplateField> <td><asp:Literal ID="LtlPDF" runat="server"></asp:Literal></td>
<HeaderTemplate>XML</HeaderTemplate> </tr>
<ItemTemplate> </table>
<asp:Literal ID="LtlXML" runat="server"></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>PDF</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlPDF" runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>

19
Ventas/PopUpBuscarFolio.aspx.vb
View File

@@ -16,7 +16,7 @@ Partial Class PopUpBuscarFolio
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
CType(Me.Master, BaseMasterPage).EsPopup = True CType(Me.Master, BaseMasterPage).EsPopup = True
CType(Me.Master, BaseMasterPage).PopupWidth = 800 CType(Me.Master, BaseMasterPage).PopupWidth = 850
txtFechaI.Text = NowADS().AddMonths(-12).ToShortDateString txtFechaI.Text = NowADS().AddMonths(-12).ToShortDateString
'RegistraScript("$get('tdContenido').style.height='500px'") 'RegistraScript("$get('tdContenido').style.height='500px'")
CargaSubProyectos() CargaSubProyectos()
@@ -169,7 +169,7 @@ Partial Class PopUpBuscarFolio
Liga = String.Format("<a class='Texto' href='javascript:IrPV(""{0}"");'>", e.Row.DBCampo("CveVenta")) Liga = String.Format("<a class='Texto' href='javascript:IrPV(""{0}"");'>", e.Row.DBCampo("CveVenta"))
End If End If
e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:27px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto")) e.Row.FCLiteral("LtlTipo").Text = String.Format("<div class='truncate' style='width:22px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("TipoDocto"))
e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:95px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlFolio").Text = String.Format("<div class='truncate' style='width:95px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Folio"))
e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString) e.Row.FCLiteral("LtlFecha").Text = String.Format("<div class='truncate' style='width:64px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString)
e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial")) e.Row.FCLiteral("LtlNombre").Text = String.Format("<div class='truncate' style='width:200px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("NombreComercial"))
@@ -177,26 +177,25 @@ Partial Class PopUpBuscarFolio
e.Row.FCLiteral("LtlTotal").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Total").FormatoNumero) e.Row.FCLiteral("LtlTotal").Text = String.Format("<div class='truncate' style='width:56px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Total").FormatoNumero)
e.Row.FCLiteral("LtlMon").Text = String.Format("<div class='truncate' style='width:30px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Abreviatura")) e.Row.FCLiteral("LtlMon").Text = String.Format("<div class='truncate' style='width:30px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("Abreviatura"))
e.Row.FCLiteral("LtlSucursal").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("SubProyecto")) e.Row.FCLiteral("LtlSucursal").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("SubProyecto"))
e.Row.FCLiteral("LtlEstatus").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("EstatusFactura")) e.Row.FCLiteral("LtlEstatus").Text = String.Format("<div class='truncate' style='width:70px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("EstatusFactura"))
e.Row.FCLiteral("LtlPedidoContrato").Text = String.Format("<div class='truncate' style='width:80px;'>{0}{1}</a></div>", Liga, e.Row.DBCampo("PedidoContrato"))
If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.xml") Then If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.xml") Then
e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:20px;'><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML""><i class='fa fa-code' style='font-weight:bold;'></i></a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
Else Else
e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:23px;'></div>" e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:20px;'></div>"
End If End If
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:20px;'><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF""><i class='fa fa-file-pdf-o' style='font-weight: bold;'></i></a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
Else Else
e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>" e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:20px;'></div>"
End If End If
Else Else
If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:20px;'><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF""><i class='fa fa-file-pdf-o' style='font-weight: bold;'></i></a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
Else Else
e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>" e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:20px;'></div>"
End If End If
End If End If

6
Ventas/ProductosServicios.aspx
View File

@@ -2106,20 +2106,20 @@
<asp:DropDownList ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px"> <asp:DropDownList ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">
</asp:DropDownList> </asp:DropDownList>
<label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label> <label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddEquiv"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCantidadEquivalencia" runat="server" Width="60" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox ID="TxtCantidadEquivalencia" runat="server" Width="60" CausesValidation="true" MaxLength="10"></asp:TextBox>
<label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label> <label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCantidadEquivalencia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddEquiv"></asp:RequiredFieldValidator>
<i></i> <i></i>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click" ValidationGroup="GrpAgregarEquivalencia" > Guardar</asp:LinkButton> <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpAddEquiv" OnClick="LnkAgregarEquivalencia_Click"> Guardar</asp:LinkButton>
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>