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

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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-03-13 16:49:00 -07:00
parent 2605932ee1 6753ecf2c8
commit dce87e3aa9
7 changed files with 423 additions and 403 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsProductosServicios.vb
View File

@@ -1639,7 +1639,8 @@ Public Class ClsProductosServicios
#Region "Precios Lista" #Region "Precios Lista"
Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1, Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional CveMarca As Integer = -1) As Boolean Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1,
Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PSPrecioListaGet") DataAdapter("PA_Vta_PSPrecioListaGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -1649,7 +1650,7 @@ Public Class ClsProductosServicios
.Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@Estado", SqlDbType.Int).Value = Estado .Add("@Estado", SqlDbType.Int).Value = Estado
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

2
Empresas/141/Formatos/Cotizacion.rdlc
View File

@@ -905,7 +905,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!PS.Value &amp; " " &amp; Fields!Obs.Value</Value> <Value>=Fields!PS.Value &amp; IIF(Fields!Obs.Value &lt;&gt; "",System.Environment.NewLine &amp;"Observaciones: ","") &amp; Fields!Obs.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8.75pt</FontSize> <FontSize>8.75pt</FontSize>

29
Empresas/141/Formatos/Factura.rdlc
View File

@@ -491,31 +491,31 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>0.53032in</Width> <Width>0.54014in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.58129in</Width> <Width>0.59111in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.79377in</Width> <Width>0.80359in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.65422in</Width> <Width>0.66404in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.59092in</Width> <Width>2.60074in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.8212in</Width> <Width>0.83102in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.63048in</Width> <Width>0.6403in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.68106in</Width> <Width>0.69088in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.88308in</Width> <Width>0.80447in</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -919,6 +919,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Cantidad1"> <Textbox Name="Cantidad1">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -954,6 +955,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="UM"> <Textbox Name="UM">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -989,6 +991,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="SATClaveProdServ"> <Textbox Name="SATClaveProdServ">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1024,6 +1027,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="SATClaveUM"> <Textbox Name="SATClaveUM">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1059,6 +1063,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="PS"> <Textbox Name="PS">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1092,6 +1097,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="PU1"> <Textbox Name="PU1">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1126,6 +1132,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="PorcentajeIVA"> <Textbox Name="PorcentajeIVA">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1163,6 +1170,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Descuento1"> <Textbox Name="Descuento1">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1200,6 +1208,7 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="TiempoEntrega"> <Textbox Name="TiempoEntrega">
<CanGrow>true</CanGrow>
<CanShrink>true</CanShrink> <CanShrink>true</CanShrink>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
@@ -1265,7 +1274,7 @@
<Top>1.92778in</Top> <Top>1.92778in</Top>
<Left>0.09836in</Left> <Left>0.09836in</Left>
<Height>0.36206in</Height> <Height>0.36206in</Height>
<Width>8.16634in</Width> <Width>8.16633in</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>

15
RH/CatCursos.aspx.vb
View File

@@ -480,9 +480,8 @@ Partial Class RH_CatCursos
Dim Correo As String = row.DataKey("Correo") Dim Correo As String = row.DataKey("Correo")
Dim _Nombres As String = row.DataKey("Nombres") Dim _Nombres As String = row.DataKey("Nombres")
Dim _CvePersonal As Integer = row.DataKey("CvePersonal").ToString.ToEntero Dim _CvePersonal As Integer = row.DataKey("CvePersonal").ToString.ToEntero
Dim chkGrupo As CheckBox = row.FCCheckBox("chkGrupo") Dim chkGrupo As CheckBox = row.FCCheckBox("chkGrupo")
Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente el departamento de recursos de esta empresa le hace la cordial invitación para asistir al curso " & Curso & " Impartido por " & Capacitador & ". Esperamos contar con su asistencia." Dim Contenido As String = "Buen día <br/> Estimado(a) " & _Nombres & " <br/> Por medio de la presente, el departamento de Capital Humano de " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & Curso & " Impartido por el capacitador " & Capacitador & ".Esperamos contar con su asistencia."
If CveCursoPersonal = -1 Then If CveCursoPersonal = -1 Then
If chkGrupo.Checked = True Then If chkGrupo.Checked = True Then
@@ -638,11 +637,17 @@ Partial Class RH_CatCursos
End Sub End Sub
Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer) As Byte() Private Function GenerarImvitacion(_Curso As String, _Capacitador As String, _Nombres As String, _CvePersonal As Integer, _Fecha As String, _Ubicacion As String) As Byte()
'Darle formato a la fecha
Dim FechaAux As Date = Date.Parse(_Fecha)
Dim dia As Integer = Day(FechaAux)
Dim mes As Integer = Month(FechaAux)
Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
Dim año As Integer = Year(FechaAux)
Dim RutaArchivo As String = UsuarioActual.Empresa.Ruta & "\Formatos\CursoInvitacion.docx" Dim RutaArchivo As String = UsuarioActual.Empresa.Ruta & "\Formatos\CursoInvitacion.docx"
Dim RutaLogo As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Logo.png") Dim RutaLogo As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Logo.png")
Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & vbLf & vbLf & vbLf & " Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia." Dim Contenido As String = "Buen día. Estimado(a) " & _Nombres & vbLf & vbLf & vbLf & vbLf & " Por medio de la presente, el departamento de Recursos Humanos de esta " & UsuarioActual.Empresa.Empresa & " le hace la cordial invitación para asistir al curso " & _Curso & " impartido por el capacitador " & _Capacitador & ", el día " & dia & " de " & mesArray(mes - 1) & " de " & año & " en lugar " & _Ubicacion & "." & vbLf & vbLf & vbLf & vbLf & "Esperamos contar con su asistencia."
If Not File.Exists(RutaArchivo) Then If Not File.Exists(RutaArchivo) Then
RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx" RutaArchivo = $"{Server.MapPath("~")}\Empresas\Grales\Formatos\CursoInvitacion.docx"
@@ -793,7 +798,7 @@ Partial Class RH_CatCursos
Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal) Dim BytesDocumento As Byte() = GenerarImvitacion(_Curso, _Capacitador, _Nombres, _CvePersonal, _Fecha, _Ubicacion)
MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento) MandaCorreo("Invitación a Curso " & Curso, _Correo, "", ContenidoSB.ToString, BytesDocumento)
Contador = Contador + 1 Contador = Contador + 1

16
Ventas/ActualizarPrecios.aspx
View File

@@ -34,7 +34,7 @@
<div class="row v-center"> <div class="row v-center">
<label class="col-md-1 v-center truncate">Precio de Lista:</label> <label class="col-md-1 v-center truncate">Precio de Lista:</label>
<div class="col-md-1 v-center"> <div class="col-md-1 v-center">
<asp:DropDownList ID="DdlPrecioLista" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista"></asp:DropDownList> <asp:DropDownList ID="DdlPrecioLista" runat="server" AppendDataBoundItems="true" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista"></asp:DropDownList>
</div> </div>
<label class="col-md-1 v-center truncate">Clasificación:</label> <label class="col-md-1 v-center truncate">Clasificación:</label>
<div class="col-md-1 v-center"> <div class="col-md-1 v-center">
@@ -45,13 +45,15 @@
<ADS:Dropdownlost ID="DDlPs" AutoPostBack="false" runat="server" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width:200px;"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DDlPs" AutoPostBack="false" runat="server" DataTextField="PSCodigo" DataValueField="CvePS" CssClassDdl="select2me" CssStyle="width:200px;"></ADS:Dropdownlost>
</div> </div>
<label id="LblMarca" runat="server" visible="false" class="col-md-1 v-center truncate">Marca:</label> <label id="LblMarca" runat="server" visible="false" class="col-md-1 v-center truncate">Marca:</label>
<asp:DropDownList ID="DdlMarca" CssClass="form-control input-sm select2me" runat="server" Visible="false" DataTextField="Marca" DataValueField="CveMarca" Width="206px" Height="22px"> <div class="col-md-9">
<asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListBox ID="DdlMarca" runat="server" DataTextField="Marca" DataValueField="CveMarca" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 50%; height: 50px !important;">
</asp:DropDownList> <asp:ListItem Text="Todas" Value="-1"></asp:ListItem>
</asp:ListBox>
</div>
</div> </div>
</div> </div>
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" >
<div class="row v-center"> <div class="row v-center">
<label class="col-md-1 v-center" id="LblProveedorCompra" runat="server" visible="false">Proveedor:</label> <label class="col-md-1 v-center" id="LblProveedorCompra" runat="server" visible="false">Proveedor:</label>
<div class="col-md-1 v-center" id="DivProveedorCompra" runat="server" visible="false"> <div class="col-md-1 v-center" id="DivProveedorCompra" runat="server" visible="false">
@@ -219,7 +221,9 @@
<ContentTemplate> <ContentTemplate>
<div class="col-md-12"> <div class="col-md-12">
<div class="col-md-3" style="text-align: left"> <div class="col-md-3" style="text-align: left">
<input id="ChkSeleccionarTodos" type="checkbox" title="Seleccionar Todos" onclick="SeleccionarTodosChkGvSucursa()" /> Seleccionar Todos <input id="ChkSeleccionarTodos" type="checkbox" title="Seleccionar Todos" onclick="SeleccionarTodosChkGvSucursa()" />
Seleccionar Todos
</div> </div>
<div class="col-md-9" style="text-align: right"> <div class="col-md-9" style="text-align: right">
<label>Aplicar precio mínimo</label> <label>Aplicar precio mínimo</label>

5
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -130,7 +130,7 @@ Partial Class Ventas_ActualizarPrecios
If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
Dim ObjMarcas As New ClsProductosServicios Dim ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjMarcas.DtResultados DdlMarca.DataSource = ObjMarcas.DtResultados.Copy
End If End If
ObjMarcas.Dispose() ObjMarcas.Dispose()
DdlMarca.DataBind() DdlMarca.DataBind()
@@ -145,6 +145,7 @@ Partial Class Ventas_ActualizarPrecios
Dim objPS As New ClsProductosServicios Dim objPS As New ClsProductosServicios
Dim CveProveedor As Integer = -1 Dim CveProveedor As Integer = -1
Dim CvePS As Integer = -1 Dim CvePS As Integer = -1
Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
If DDlPs.SelectedValue.ToEntero > 0 Then If DDlPs.SelectedValue.ToEntero > 0 Then
CvePS = DDlPs.SelectedValue.ToEntero CvePS = DDlPs.SelectedValue.ToEntero
@@ -155,7 +156,7 @@ Partial Class Ventas_ActualizarPrecios
End If End If
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS, If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS,
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then
GVPrecios.DataSource = objPS.DtResultados GVPrecios.DataSource = objPS.DtResultados
End If End If
objPS.Dispose() objPS.Dispose()

2
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -376,7 +376,7 @@ Partial Class RepVentaDetalle
Private Sub CargaEstatus() Private Sub CargaEstatus()
DdlEstatus.Items.Clear() DdlEstatus.Items.Clear()
If DdlTipoComprobante.GetSelectedText <> "" Then If DdlTipoComprobante.GetSelectedText <> "" Then
DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0})", DdlTipoComprobante.GetSelectedValuesM(True))) DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0})", DdlTipoComprobante.GetSelectedValuesM(True).Replace("Ant", "Ing")))
Else Else
DdlEstatus.DataSource = GlobalDTEstatusFactura DdlEstatus.DataSource = GlobalDTEstatusFactura
End If End If