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

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

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-12-03 15:47:02 -07:00
parent e8282a69f0 11611d6bc5
commit d197739752
12 changed files with 106 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
AC/RepEstadoActividades.aspx.vb
View File

@@ -332,6 +332,9 @@ Partial Class AC_RepEstadoActividades
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
ElseIf (ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))

3
AC/RepSituacionFinanciera.aspx.vb
View File

@@ -642,6 +642,9 @@ Partial Class AC_SituacionFinanciera
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
ElseIf (ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))

46
AC/Reportes/RepEstadoActividades.rdlc
View File

@@ -998,7 +998,7 @@
</Style>
</PageHeader>
<PageFooter>
<Height>4.50688cm</Height>
<Height>2.76063cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -1019,8 +1019,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.36021cm</Top>
<Left>6.16434cm</Left>
<Top>0.49389cm</Top>
<Left>10.80759cm</Left>
<Height>0.9616cm</Height>
<Width>8.02269cm</Width>
<Visibility>
@@ -1097,7 +1097,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.85438cm</Top>
<Top>1.92292cm</Top>
<Left>0.62818cm</Left>
<Height>0.6cm</Height>
<Width>18.2021cm</Width>
@@ -1112,44 +1112,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox38">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Director administrativo</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.49389cm</Top>
<Left>9.9076cm</Left>
<Height>0.99688cm</Height>
<Width>8.02269cm</Width>
<ZIndex>3</ZIndex>
<Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value &lt;&gt; ""), False, True)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Style>
<Border>

47
AC/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -2859,7 +2859,7 @@
</Style>
</PageHeader>
<PageFooter>
<Height>3.73062cm</Height>
<Height>2.27541cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -2883,7 +2883,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.13062cm</Top>
<Top>1.41083cm</Top>
<Left>16.37931cm</Left>
<Height>0.6cm</Height>
<Width>3.95896cm</Width>
@@ -2952,8 +2952,8 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.73374cm</Top>
<Left>6.03938cm</Left>
<Top>0.07056cm</Top>
<Left>10.88047cm</Left>
<Height>0.99688cm</Height>
<Width>8.02269cm</Width>
<ZIndex>2</ZIndex>
@@ -2973,45 +2973,6 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox38">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve">
</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.10582cm</Top>
<Left>10.37435cm</Left>
<Height>0.99688cm</Height>
<Width>8.02269cm</Width>
<ZIndex>3</ZIndex>
<Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value &lt;&gt; ""), False, True)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Style>
<Border>

19
Acumuladores/EntradasUsados.aspx Normal file
View File

@@ -0,0 +1,19 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasUsados.aspx.vb" Inherits="Acumuladores_EntradasUsados" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
</asp:Content>

5
Acumuladores/EntradasUsados.aspx.vb Normal file
View File

@@ -0,0 +1,5 @@

Partial Class Acumuladores_EntradasUsados
Inherits System.Web.UI.Page
End Class

27
App_Code/ClsAcumuladores.vb
View File

@@ -840,6 +840,33 @@ Public Class ClsAcumuladores
Return Retorno
End Function
Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
SqlDataAdapter("PA_Acum_EntradasUsadosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@FechaInicio", SqlDbType.Date).Value = FechaI
.Add("@FechaFin", SqlDbType.Date).Value = FechaF
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#Region " IDisposable Support "

2
App_Code/ClsPaginas.vb
View File

@@ -4093,6 +4093,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
#End Region
#Region "MF"
PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
@@ -4579,6 +4580,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
'Antes de aquí.

54
Ventas/Clientes.aspx.vb
View File

@@ -8745,7 +8745,7 @@ Partial Class Clientes
'If ObjFactura.CveCliente > 0 Then
' If TmpDT.Rows.Count > 0 Then
' Dim Retorno = ObjFactura.EmitirFactura()
' Dim Retorno = ObjFactura.EmitirFactura(false)
' For Each Mensaje In Retorno.Mensajes
' Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
' Next
@@ -8792,14 +8792,16 @@ Partial Class Clientes
CreaObjetosVenta(2)
'If ObjFactura.CveCliente > 0 Then
' If TmpDT.Rows.Count > 0 Then
' Dim Retorno = ObjFactura.EmitirFactura()
' For Each Mensaje In Retorno.Mensajes
' Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
' Next
' End If
'End If
If ObjFactura.CveCliente > 0 Then
If TmpDT.Rows.Count > 0 Then
Dim Retorno = ObjFactura.EmitirFactura(False)
For Each Mensaje In Retorno.Mensajes
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
Next
End If
End If
Alert("Listo")
CargaUsados()
@@ -8857,7 +8859,7 @@ Partial Class Clientes
e.Row.FCCheckBox("ChkCargo").Visible = False
Else
e.Row.FCCheckBox("ChkCargo").Checked = False
e.Row.FCCheckBox("ChkCargo").Visible = True
e.Row.FCCheckBox("ChkCargo").Visible = False 'True
End If
If FacturadoBonificacion Then
@@ -9647,29 +9649,29 @@ Partial Class Clientes
' ObjVentas.Commit()
' CargaUsados()
' Dim DtDetallesVenta As New DataTable
' 'Dim DtDetallesVenta As New DataTable
' If ObjVentas.GetVentaDetalle(CveVenta) Then
' 'If ObjVentas.GetVentaDetalle(CveVenta) Then
' DtDetallesVenta = ObjVentas.DtResultados
' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
' ' DtDetallesVenta = ObjVentas.DtResultados
' ' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
' ' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
' Dim ObjTimbrado As New Timbrado
' Dim SeTimbro As Boolean = False
' ' Dim ObjTimbrado As New Timbrado
' ' Dim SeTimbro As Boolean = False
' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
' ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
' If SeTimbro Then
' Alert("Se timbro correctamente")
' Else
' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError)
' End If
' ' If SeTimbro Then
' ' Alert("Se timbro correctamente")
' ' Else
' ' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError)
' ' End If
' Else
' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
' End If
' 'Else
' ' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
' 'End If
' End If

1
Ventas/PV.aspx.vb
View File

@@ -5383,6 +5383,7 @@ Partial Class PV
DivDatosVenta.Attributes.Add("class", "col-md-6")
TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});")
TxtPrecio.Text = TxtPrecio.Text
TxtObsPS.Text = "Descuento por garantía"
Else
For Each Gvr As GridViewRow In GvRecepcionUsados.Rows
If Gvr.RowType = DataControlRowType.DataRow Then

5
Ventas/Ventas.aspx
View File

@@ -5871,9 +5871,8 @@
<div class="col-md-2">
</div>
<div class="col-md-4">
<button type="button" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC">
Aplicar Remisiones
</button>
<asp:Button ID = "BtnModalAplicarRemisionesNC" runat="server" OnClick="BtnModalAplicarRemisionesNC_Click" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC"/>
</div>
<div class="col-md-6">
</div>

5
Ventas/Ventas.aspx.vb
View File

@@ -20872,6 +20872,7 @@ Partial Class Ventas
End If
ObjMovtos.Dispose()
GvRemisionesNC.DataBind()
UpModalRemisionesNC.Update()
End Sub
Private Sub CargaDescRNC()
@@ -23780,4 +23781,8 @@ Partial Class Ventas
End Sub
#End Region
Protected Sub BtnModalAplicarRemisionesNC_Click(sender As Object, e As EventArgs)
CargaRNC()
RegistraScript("$('#ModalAplicarRemisionesNC').modal()")
End Sub
End Class