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

General

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-12-09 10:29:46 -07:00
parent 42583a8f3d a6dbf9aed8
commit 9c331b76d2
28 changed files with 2784 additions and 1205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsInventarios.vb
View File

@@ -969,7 +969,7 @@ Public Class ClsInventarios
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
'.Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing) '.Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
.Add("@FechaMovto", SqlDbType.DateTime).Value = $"{FechaMovto.ToShortDateString} {Now.Hour}:{Now.Minute}:{Now.Second}".ToDateTime .Add("@FechaMovto", SqlDbType.DateTime).Value = String.Format("{0} {1}:{2}:{3}", FechaMovto.ToShortDateString, Now.Hour, Now.Minute, Now.Second).ToDateTime
.Add("@Folio", SqlDbType.Int).Value = tFolio .Add("@Folio", SqlDbType.Int).Value = tFolio
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -1453,7 +1453,7 @@ Public Class ClsInventarios
Return Retorno Return Retorno
End Function End Function
Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1469,6 +1469,7 @@ Public Class ClsInventarios
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor
.Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
.Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias
End With End With
Try Try
@@ -3290,7 +3291,7 @@ Public Class ClsInventarios
#End Region #End Region
#Region " INVENTARIOS - COSTO PS " #Region " INVENTARIOS - COSTO PS "
Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1) As Decimal Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal
Dim Retorno As Decimal = -1D Dim Retorno As Decimal = -1D
DataAdapter("PA_Inv_PSCostoGet") DataAdapter("PA_Inv_PSCostoGet")
@@ -3301,6 +3302,7 @@ Public Class ClsInventarios
.Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
.Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output
End With End With
@@ -4492,7 +4494,7 @@ Public Class ClsInventarios
#Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" #Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO"
Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1) As Boolean Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ResguardoUniformesRep") DataAdapter("PA_Inv_ResguardoUniformesRep")
@@ -4501,8 +4503,8 @@ Public Class ClsInventarios
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
.Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio
.Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

5
App_Code/ClsPaginas.vb
View File

@@ -3964,11 +3964,12 @@ Public Class ClsPaginas
PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710) PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710)
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
#End Region #End Region
#Region "GPS" #Region "GPS"
PaginaDict.Add("/GPS/RepTemperatura.aspx".ToUpper(), 681) PaginaDict.Add("/GPS/RepTemperatura.aspx".ToUpper(), 681)
PaginaDict.Add("/GPS/FacturasSims.aspx".ToUpper(), 8401)
PaginaDict.Add("/GPS/VehiculoTrama.aspx".ToUpper(), 682) PaginaDict.Add("/GPS/VehiculoTrama.aspx".ToUpper(), 682)
PaginaDict.Add("/GPS/DashboardGPS.aspx".ToUpper(), -1) PaginaDict.Add("/GPS/DashboardGPS.aspx".ToUpper(), -1)
PaginaDict.Add("/GPS/WizardModelo.aspx".ToUpper(), 458) PaginaDict.Add("/GPS/WizardModelo.aspx".ToUpper(), 458)

11
App_Code/Modelos.vb
View File

@@ -3931,6 +3931,11 @@ Namespace Modelos
Dim TotalT As Decimal = ObjFactura.Total Dim TotalT As Decimal = ObjFactura.Total
Dim RFCReceptor As String = ObjFactura.Cliente.RFC Dim RFCReceptor As String = ObjFactura.Cliente.RFC
Dim CvePACCancelacion As Integer = ObjFactura.CvePAC Dim CvePACCancelacion As Integer = ObjFactura.CvePAC
If CvePACCancelacion <= 0 Then
CvePACCancelacion = UsuarioActual.Empresa.CvePAC
End If
Dim CveEstatus As Integer = 4 Dim CveEstatus As Integer = 4
Dim IDPoliza As Integer = -1 Dim IDPoliza As Integer = -1
Dim CvePrePoliza As Integer Dim CvePrePoliza As Integer
@@ -4001,7 +4006,7 @@ Namespace Modelos
End If End If
End If End If
Else Else
Retorno.Mensaje = "No se pudo comprobar la vigencia de la factura." Retorno.Mensaje = "SAT - No se pudo verificar el estatus de la factura."
Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
Return Retorno Return Retorno
@@ -4435,10 +4440,6 @@ Namespace Modelos
If CveEstatus.Contiene(4, 5) Then If CveEstatus.Contiene(4, 5) Then
If CvePACCancelacion <= 0 Then
CvePACCancelacion = UsuarioActual.Empresa.CvePAC
End If
If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion, CveEstatusRefacturacion) Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Ocurrió un error al guardar el estatus de cancelación." MensajeError = "Ocurrió un error al guardar el estatus de cancelación."

4
App_Code/clsGemBoxDocument.vb
View File

@@ -7,8 +7,8 @@ Public Class clsGemBoxDocument
Implements IDisposable Implements IDisposable
Private documento As DocumentModel Public documento As DocumentModel
Private rutaSalvado As String Public rutaSalvado As String
Public StremFile As String Public StremFile As String
Public memoryStream As New MemoryStream() Public memoryStream As New MemoryStream()

BIN
Empresas/119/Formatos/RepClientesCxC.rpt
View File

Binary file not shown.

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

@@ -601,6 +601,20 @@
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value> - </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!ClienteNombre.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Left</TextAlign> <TextAlign>Left</TextAlign>
@@ -1283,7 +1297,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>= Parameters!Fecha.Value</Value> <Value>=Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy")</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>9.16pt</FontSize> <FontSize>9.16pt</FontSize>
@@ -1609,13 +1623,13 @@
<Width>0.54927in</Width> <Width>0.54927in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.58129in</Width> <Width>0.826in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.8527in</Width> <Width>0.8527in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.66416in</Width> <Width>3.41945in</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>0.57354in</Width> <Width>0.57354in</Width>
@@ -1689,7 +1703,9 @@
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName> <rd:DefaultName>Textbox15</rd:DefaultName>
@@ -1977,7 +1993,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!UM.Value</Value> <Value>=(Fields!UM.Value &amp; "-" &amp; Fields!UnidadMedida.Value)</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
@@ -1986,7 +2002,7 @@
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Center</TextAlign> <TextAlign>Left</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
@@ -2001,6 +2017,7 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>

BIN
Empresas/80/Formatos/SolicitudVacaciones.docx Normal file
View File

Binary file not shown.

1937
Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc
View File

File diff suppressed because it is too large Load Diff

10
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -110,6 +110,14 @@
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div> </div>
</div> </div>
<label class="col-md-1 truncate" style="width:120px">Producto:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlExistencia" runat="server" CssClass="select2me">
<asp:ListItem Text="Todos" Value="1" />
<asp:ListItem Text="Con existencia" Value="2" />
<asp:ListItem Text="Sin existencia" Value="3" />
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -169,6 +177,7 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Left"> <asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate> <HeaderTemplate>
Código Código
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<div class='truncate' style='width: 200px;'> <div class='truncate' style='width: 200px;'>
@@ -179,6 +188,7 @@
<asp:TemplateField ItemStyle-HorizontalAlign="Left"> <asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate> <HeaderTemplate>
Producto Producto
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <ItemTemplate>
<div class='truncate' style='width: 200px;'> <div class='truncate' style='width: 200px;'>

10
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then
If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
dt = ObjMovimientos.DtResultados dt = ObjMovimientos.DtResultados
Dim ListaBorrar As New List(Of DataColumn) Dim ListaBorrar As New List(Of DataColumn)
@@ -137,9 +137,9 @@ Partial Class Inventarios_KardexAlmacen
For Each Dr As DataRow In dt.Rows For Each Dr As DataRow In dt.Rows
TotColumna += Dr.Item(index).ToString.ToDouble TotColumna += Dr.Item(index).ToString.ToDouble
Next Next
If Not TotColumna > 0 Then 'If Not TotColumna > 0 Then
ListaBorrar.Add(dt.Columns(index)) ' ListaBorrar.Add(dt.Columns(index))
End If 'End If
Next Next
For Each item As DataColumn In ListaBorrar For Each item As DataColumn In ListaBorrar
dt.Columns().Remove(item) dt.Columns().Remove(item)
@@ -226,7 +226,7 @@ Partial Class Inventarios_KardexAlmacen
e.Row.Cells(2).Visible = False e.Row.Cells(2).Visible = False
e.Row.Cells(3).Visible = False e.Row.Cells(3).Visible = False
If e.Row.RowType = DataControlRowType.Header Then If e.Row.RowType = DataControlRowType.Header Then
e.Row.Cells(6).ToolTip = "Costo Promedio" 'e.Row.Cells(6).ToolTip = "Costo"
End If End If
End Sub End Sub

24
Inventarios/RecepcionEntrega.aspx.vb
View File

@@ -1659,7 +1659,7 @@ Partial Class Inventarios_RecepcionEntrega
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G") CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G1")
FolioSalida = ObjInventario.Folio FolioSalida = ObjInventario.Folio
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
@@ -1710,7 +1710,7 @@ Partial Class Inventarios_RecepcionEntrega
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente),
CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G") CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G2")
FolioSalida = ObjInventario.Folio FolioSalida = ObjInventario.Folio
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
@@ -1759,7 +1759,7 @@ Partial Class Inventarios_RecepcionEntrega
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G") CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3")
FolioSalida = ObjInventario.Folio FolioSalida = ObjInventario.Folio
If Not CveMovimientoSalida > 0 Then If Not CveMovimientoSalida > 0 Then
@@ -1808,7 +1808,7 @@ Partial Class Inventarios_RecepcionEntrega
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G") Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
FolioEntrada = ObjInventario.Folio FolioEntrada = ObjInventario.Folio
If Not CveMovimientoEntradaApartado > 0 Then If Not CveMovimientoEntradaApartado > 0 Then
@@ -1849,7 +1849,7 @@ Partial Class Inventarios_RecepcionEntrega
End If End If
If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then
CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="RE/G") CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 2, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="RE/G5")
FolioGarantia = ObjInventario.Folio FolioGarantia = ObjInventario.Folio
For Each RowGarantia As DataRow In DtGarantias.Rows For Each RowGarantia As DataRow In DtGarantias.Rows
@@ -1932,7 +1932,7 @@ Partial Class Inventarios_RecepcionEntrega
If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then
CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G") Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6")
FolioVirtual = ObjInventario.Folio FolioVirtual = ObjInventario.Folio
If CveMovimientoVirtual > 0 Then If CveMovimientoVirtual > 0 Then
@@ -1985,7 +1985,7 @@ Partial Class Inventarios_RecepcionEntrega
End If End If
CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text,
CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G") CveContrato:=CveContrato, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Modulo:="RE/G7")
Folio = ObjInventario.Folio Folio = ObjInventario.Folio
'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN) 'SALIDA DE ALMACEN - SALIDA POR TRASPASO CUANDO ES REMISION - DEVOLUCION (SI ES TRASPASO Y TIENE CONTRATO NO HACE DEVOLUCIóN)
@@ -2076,7 +2076,7 @@ Partial Class Inventarios_RecepcionEntrega
If Not ErrorMovInv Then If Not ErrorMovInv Then
If CveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION If CveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION
CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G") CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G8")
FolioEntrada = ObjInventario.Folio FolioEntrada = ObjInventario.Folio
If CveMovimientoEntrada <= 0 Then If CveMovimientoEntrada <= 0 Then
@@ -2198,7 +2198,7 @@ Partial Class Inventarios_RecepcionEntrega
If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString.ToEntero Then
CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente,
CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="RE/G") CveAlmacenDestino:=Dr("CveAlmacen").ToString.ToEntero, Modulo:="RE/G9")
FolioSalida = ObjInventario.Folio FolioSalida = ObjInventario.Folio
CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero CveAlmacenApartado = Dr("CveAlmacen").ToString.ToEntero
@@ -2230,7 +2230,7 @@ Partial Class Inventarios_RecepcionEntrega
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero,
CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
CveCliente:=CveCliente, Modulo:="RE/G") CveCliente:=CveCliente, Modulo:="RE/G10")
FolioEntrada = ObjInventario.Folio FolioEntrada = ObjInventario.Folio
If Not CveMovimientoEntradaApartado > 0 Then If Not CveMovimientoEntradaApartado > 0 Then
@@ -2469,7 +2469,7 @@ Partial Class Inventarios_RecepcionEntrega
If Not ErrorMovInv Then If Not ErrorMovInv Then
ConceptoMovimiento = 26 ConceptoMovimiento = 26
CveMovimientoSalida = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:="", CveMovimientoSalida = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:="",
CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/G") CveContrato:=-1, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT")
FolioSalida = ObjInventario.Folio FolioSalida = ObjInventario.Folio
If CveMovimientoSalida > 0 Then If CveMovimientoSalida > 0 Then
Dim CantidadPendiente As Decimal = 0 Dim CantidadPendiente As Decimal = 0
@@ -2515,7 +2515,7 @@ Partial Class Inventarios_RecepcionEntrega
Almacen2 = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, CveAlmacenTraspasoDestino) Almacen2 = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, CveAlmacenTraspasoDestino)
CveMovimientoEntrada = ObjInventario.AddMovimiento(Almacen2, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoEntrada = ObjInventario.AddMovimiento(Almacen2, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim,
Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenTraspasoDestino, Guia:="", CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimientoSalida, CveAlmacenDestino:=CveAlmacenTraspasoDestino,
Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/G") Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, ""), Modulo:="RE/GT1")
FolioEntrada = ObjInventario.Folio FolioEntrada = ObjInventario.Folio
If CveMovimientoEntrada > 0 Then If CveMovimientoEntrada > 0 Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then

6
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -1086,7 +1086,7 @@ Partial Class Inventarios_RecepcionUsados
'si es selectedvalue = 2, es entrada ,3 -salida 'si es selectedvalue = 2, es entrada ,3 -salida
Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2) Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2)
If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then
If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario, If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
@@ -1096,7 +1096,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
End If End If
Next Next
If Not ErrorMovInv Then If Not ErrorMovInv Then
@@ -1646,7 +1646,7 @@ Partial Class Inventarios_RecepcionUsados
#Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED" #Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
Private Sub InicializaClientes() Private Sub InicializaClientes()
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) '.FiltraParametros("EsDistribuidor = 1") DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros("EsDistribuidor = 1")
DdlClientes.DataBind() DdlClientes.DataBind()
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClientes.SelectedValue = "-1" DdlClientes.SelectedValue = "-1"

18
Nomina/Nomina2.aspx
View File

@@ -73,6 +73,10 @@
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<li>
<asp:LinkButton ID="LnkListaRaya" OnClick="LnkListaRaya_Click" runat="server">Lista de Raya</asp:LinkButton>
</li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>
@@ -694,7 +698,6 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabInfonavit" runat="server" HeaderText="Infonavit"> <ajax:TabPanel ID="TabInfonavit" runat="server" HeaderText="Infonavit">
<ContentTemplate> <ContentTemplate>
<div class="portlet light bordered xspadding" id="porletInfonavit"> <div class="portlet light bordered xspadding" id="porletInfonavit">
@@ -777,6 +780,11 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabMovtosPermanentes" runat="server" HeaderText="Movimientos Permanentes">
<ContentTemplate>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer> </ajax:TabContainer>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
@@ -890,12 +898,14 @@
<h4 class="modal-title" runat="server" style="text-align: left">Cargar Nomina de excel</h4> <h4 class="modal-title" runat="server" style="text-align: left">Cargar Nomina de excel</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
-recuerda Solo editar de las tercer fila en adelante.<br />
<%-- -recuerda Solo editar de las tercer fila en adelante.<br />
-No se debe editar el nombre de la hoja 'Nomina'.<br /> -No se debe editar el nombre de la hoja 'Nomina'.<br />
-la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br /> -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
-si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.<br /> -si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.<br />
-si no desea insertar un concepto puede borrar la columna.<br /> -si no desea insertar un concepto puede borrar la columna.<br />
-no se debe borrar la columna codigo.<br /> -no se debe borrar la columna codigo.<br />--%>
<asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox> <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
</div> </div>
@@ -904,7 +914,7 @@
<ContentTemplate> <ContentTemplate>
<asp:LinkButton ID="LnkFormatoEmpleados" OnClick="LnkFormatoEmpleados_Click" Visible="false" CssClass="btn btn-succes" runat="server">Formato</asp:LinkButton> <asp:LinkButton ID="LnkFormatoEmpleados" OnClick="LnkFormatoEmpleados_Click" Visible="false" CssClass="btn btn-succes" runat="server">Formato</asp:LinkButton>
<asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server">Formato</asp:LinkButton> <asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server">Formato</asp:LinkButton>
<asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">cargar y autorizar</asp:LinkButton> <asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">cargar</asp:LinkButton>
</ContentTemplate> </ContentTemplate>
<Triggers> <Triggers>
<asp:PostBackTrigger ControlID="LnkFormatoEmpleados" /> <asp:PostBackTrigger ControlID="LnkFormatoEmpleados" />

1519
Nomina/Nomina2.aspx.cs
View File

File diff suppressed because it is too large Load Diff

105
Nomina/RepConceptosAcumulados.aspx
View File

@@ -3,6 +3,11 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
th[align="left"]{
text-align :left !important;
}
</style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<asp:ImageButton ID="ImgImprimir" runat="server" ImageUrl="/Imagenes/btnImprimir.gif" Width="17px" Height="17px" Visible="false" Enabled="false" /> <asp:ImageButton ID="ImgImprimir" runat="server" ImageUrl="/Imagenes/btnImprimir.gif" Width="17px" Height="17px" Visible="false" Enabled="false" />
@@ -14,9 +19,50 @@
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<script>$('body').removeClass('rhumanosbody').addClass('rhumanosbody');</script>
<br /> <br />
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1">Concepto:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlConcepto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Ejercicio:</label>
<div class="col-md-1">
<asp:DropDownList ID="DDlEjercicio" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Text="2016" Value="2016"></asp:ListItem>
<asp:ListItem Text="2017" Value="2017"></asp:ListItem>
<asp:ListItem Text="2018" Value="2018"></asp:ListItem>
<asp:ListItem Text="2019" Value="2019"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Tipo Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr> <tr>
<td width="50%"> <td width="50%">
@@ -24,58 +70,42 @@
<legend><b>Datos del Concepto</b></legend> <legend><b>Datos del Concepto</b></legend>
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr> <tr>
<td width="80px">Concepto: </td>
<td>Tipo: </td>
<td> <td>
<asp:DropDownList ID="DdlConcepto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 270px !important;"> <asp:Label ID="LblTipo" runat="server"></asp:Label></td>
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
<td width="80px">Codigo: </td> <td width="80px">Codigo: </td>
<td width="140px"> <td width="140px">
<asp:Label ID="LblCodigo" runat="server"></asp:Label></td> <asp:Label ID="LblCodigo" runat="server"></asp:Label></td>
</tr> </tr>
<tr> <tr>
<td>Tipo: </td> <td colspan ="4">
<td>
<asp:Label ID="LblTipo" runat="server"></asp:Label></td>
<td></td>
<td>
<asp:Label ID="LblFormula" runat="server" Visible="False"></asp:Label></td> <asp:Label ID="LblFormula" runat="server" Visible="False"></asp:Label></td>
</tr> </tr>
</table> </table>
</fieldset> </fieldset>
</td> </td>
<td width="50%">
<td width="50%"></td>
<td width="50%" style="display :none;">
<fieldset> <fieldset>
<legend><b>Datos del Periodo</b></legend> <legend><b>Datos del Periodo</b></legend>
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr> <tr>
<td width="80px">Ejercicio: </td> <td width="80px"> </td>
<td> <td>
<asp:DropDownList ID="DDlEjercicio" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 220px !important;"> </td>
<asp:ListItem Text="2016" Value="2016"></asp:ListItem>
<asp:ListItem Text="2017" Value="2017"></asp:ListItem>
<asp:ListItem Text="2018" Value="2018"></asp:ListItem>
<asp:ListItem Text="2019" Value="2019"></asp:ListItem>
</asp:DropDownList>
</td>
</tr> </tr>
<tr> <tr>
<td width="80px">Tipo Periodo: </td> <td width="80px"> </td>
<td> <td>
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 220px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td> </td>
</tr>
<tr>
<td width="80px">Periodo: </td>
<td width="140px">
<asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 220px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList></td>
</tr> </tr>
<tr>
<td width="80px"> </td>
<td width="140px"></td>
</tr>
</table> </table>
</fieldset> </fieldset>
</td> </td>
@@ -86,12 +116,14 @@
<br /> <br />
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Movimientos de Percepciones y/o Deduciones" ToolTip="Listado de Percepciones y/o Deducciones" CssClass="table table-striped table-advance table-hover" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover ScrollAD Widthall"
EmptyDataText="No se encontraron Movimientos de Percepciones y/o Deduciones" data-rows="2" ToolTip="Listado de Percepciones y/o Deducciones" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Nombre Nombre
</HeaderTemplate> </HeaderTemplate>
<HeaderStyle HorizontalAlign="Left" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal> <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -100,15 +132,17 @@
<HeaderTemplate> <HeaderTemplate>
Acumulado Actual Acumulado Actual
</HeaderTemplate> </HeaderTemplate>
<HeaderStyle Width="140px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlActual" runat="server" Text='<%# Eval("Actual", "{0:N2}")%>'></asp:Literal> <asp:Literal ID="LtlActual" runat="server" Text='<%# Eval("Actual", "{0:N2}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right"/>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Acumulado Anterior Acumulado Anterior
</HeaderTemplate> </HeaderTemplate>
<HeaderStyle Width="150px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlAnterior" runat="server" Text='<%# Eval("Anterior", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LtlAnterior" runat="server" Text='<%# Eval("Anterior", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -118,6 +152,7 @@
<HeaderTemplate> <HeaderTemplate>
Acumulado Anual Acumulado Anual
</HeaderTemplate> </HeaderTemplate>
<HeaderStyle Width="140px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlAnual" runat="server" Text='<%# Eval("Anual", "{0:N2}")%>'></asp:Literal> <asp:Literal ID="LtlAnual" runat="server" Text='<%# Eval("Anual", "{0:N2}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>

2
RH/Personal.aspx
View File

@@ -2270,7 +2270,7 @@
<asp:UpdatePanel ID="UpGvVacaciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpGvVacaciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvVacaciones" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1" <asp:GridView ID="GvVacaciones" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"
DataKeyNames="CvePersonalVacaciones,Periodo,FechaIng,Estatus,CveAutoriza,Autoriza,Dias,Usuario,SEstatus,Folio,FechaInicio,FechaFin,Documento" DataKeyNames="CvePersonalVacaciones,Periodo,FechaIng,Estatus,CveAutoriza,Autoriza,Dias,Usuario,SEstatus,Folio,FechaInicio,FechaFin,Documento,Motivo"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvVacaciones" data-sort="true" data-height="300" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvVacaciones" data-sort="true" data-height="300" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns> <Columns>

10
RH/Personal.aspx.vb
View File

@@ -4531,8 +4531,9 @@ Partial Class RH_Personal
Response.ContentType = "application/force-download" Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
Response.BinaryWrite(bytesInStream) Response.BinaryWrite(bytesInStream)
Response.End() Response.End()
Else
Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia)
End If End If
End Sub End Sub
@@ -4581,8 +4582,9 @@ Partial Class RH_Personal
Response.ContentType = "application/force-download" Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf")
Response.BinaryWrite(bytesInStream) Response.BinaryWrite(bytesInStream)
Response.End() Response.End()
Else
Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia)
End If End If
End Sub End Sub

33
RH/RepUniformesResguardo.aspx
View File

@@ -25,9 +25,9 @@
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter"> <div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 69px;"> <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
<div class="tools"> <div class="tools">
<asp:Button ID="BtnConsultar" runat="server" Text="Filtrar" class="btn btn-primary" Width="95px" /> <asp:Button ID="BtnConsultar" runat="server" Text="Filtrar" class="btn btn-primary"/>
<%-- <a href="javascript:;" class="expand" data-original-title="" title=""></a>--%> <%-- <a href="javascript:;" class="expand" data-original-title="" title=""></a>--%>
</div> </div>
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
@@ -59,8 +59,33 @@
</div> </div>
</div> </div>
<div class="portlet-body portlet-filterT" style="display: none;"> <div class="portlet-body portlet-filterT" style="display: block;">
<div class="row" style="padding-top: 10px;">
<label class="col-md-1 truncate"> Fecha Inicio:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 130px !important; padding: 0px;">
<asp:TextBox Width="100%" ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
<ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CalendarioInicio" runat="server" TargetControlID="TxtFechaInicio" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
<label class="col-md-1 truncate"> Fecha Fin:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 130px !important; padding: 0px;">
<asp:TextBox Width="100%" ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
<ajax:MaskedEditExtender ID="MEEFechaFin" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CEEFechaFin" runat="server" TargetControlID="TxtFechaFin" PopupButtonID="LnkFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
</div>
</div> </div>
</div> </div>

14
RH/RepUniformesResguardo.aspx.vb
View File

@@ -51,7 +51,19 @@ Partial Class RH_RepUniformesResguardo
Dim ObjInv As New ClsInventarios Dim ObjInv As New ClsInventarios
If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero) Then Dim strFechaInicio As String = "-1"
Dim strFechaFin As String = "-1"
Dim dfecha As Date = TxtFechaInicio.Text.ToDate()
If dfecha.Year > 1900 Then
strFechaInicio = dfecha.ToString("yyyy/MM/dd")
End If
dfecha = TxtFechaFin.Text.ToDate()
If dfecha.Year > 1900 Then
strFechaFin = dfecha.ToString("yyyy/MM/dd")
End If
If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin) Then
GvUniformes.DataSource = ObjInv.DtResultados GvUniformes.DataSource = ObjInv.DtResultados
DTDatos = ObjInv.DtResultados DTDatos = ObjInv.DtResultados
Else Else

2
Scripts/custom.js
View File

@@ -1769,7 +1769,7 @@ jQuery(document).ready(function () {
loadsortadscroll(); loadsortadscroll();
QuickSidebar.init(); QuickSidebar.init();
MoveFixedDiv(); MoveFixedDiv();
setswitch(); setswitch();
function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } } function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } }

2
Site.master.vb
View File

@@ -405,7 +405,7 @@ Partial Class Site
Case 8 Case 8
Return "<script>$('body').addClass('contabilidadbody')</script>" Return "<script>$('body').addClass('contabilidadbody')</script>"
Case 9 Case 9
Return "<script>$('body').addClass('rhumanosbody')</script>" Return "<script>$('body').removeClass('rhumanosbody').addClass('rhumanosbody')</script>"
Case 10 Case 10
Return "<script>$('body').addClass('afijosbody')</script>" Return "<script>$('body').addClass('afijosbody')</script>"
Case Else Case Else

2
Ventas/Clientes.aspx
View File

@@ -594,7 +594,7 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false"> <div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
<label>Cargo Usado:</label> <label>Cargo Usado:</label>
<asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="false" /> <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
</div> </div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false"> <div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
<label>Bonificación Usado:</label> <label>Bonificación Usado:</label>

32
Ventas/Clientes.aspx.vb
View File

@@ -3862,7 +3862,7 @@ Partial Class Clientes
Dim lista = New List(Of CrystalParametro) Dim lista = New List(Of CrystalParametro)
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
lista.Add(New CrystalParametro("NombreCliente", $"Cliente: {LtlCliente.Text}")) lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text))
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
@@ -3933,7 +3933,7 @@ Partial Class Clientes
Dim lista = New List(Of CrystalParametro) Dim lista = New List(Of CrystalParametro)
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
lista.Add(New CrystalParametro("NombreCliente", $"Cliente: {LtlCliente.Text}")) lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text))
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
@@ -6224,25 +6224,11 @@ Partial Class Clientes
GenerarPDF() GenerarPDF()
End Sub End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF") Private Sub GenerarPDF(Optional Formato As String = "PDF")
Dim ObjTareas As New ClsOIEventos
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
' Dim Filtros As String = "<b>Filtros: </b> "
'Dim FechaI, FechaF As String
' params.Add(New ReportParameter("AgrupadoPor", Filtros))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
'params.Add(New ReportParameter("FechaInicio", FechaI))
'params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -6254,11 +6240,11 @@ Partial Class Clientes
ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato) ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
End Sub End Sub
#End Region #End Region
#Region "VENTAS" #Region "VENTAS"
Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte() Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
Dim Vta As Modelos.Factura = Nothing Dim Vta As Modelos.Factura = Nothing
@@ -9199,7 +9185,7 @@ Partial Class Clientes
Dim Serie As String = "" Dim Serie As String = ""
If FolioNotaCredito(Tipo) Then If FolioNotaCredito(Tipo) Then
Folio = FolioNotaAcumulador Folio = -1
Serie = SerieNotaAcumulador Serie = SerieNotaAcumulador
End If End If
@@ -9305,9 +9291,9 @@ Partial Class Clientes
End If End If
ObjFactura.FechaEjecucion = Now ObjFactura.FechaEjecucion = Now
ObjFactura.CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
ObjFactura.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
ObjFactura.AtencionA = "-1" ObjFactura.AtencionA = "-1"
ObjFactura.MotivoDescuento = "" ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = "" ObjFactura.Observaciones = ""

89
Ventas/PV.aspx.vb
View File

@@ -5212,57 +5212,67 @@ Partial Class PV
'Alert("No se ha especificado producto a entregar") 'Alert("No se ha especificado producto a entregar")
Exit Sub Exit Sub
End If End If
Try
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
Dim CveMarca As Integer = -1
If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows.Count > 0 Then
CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0)("CveMarca").ToString.ToEntero
End If
Dim ObjAcum As New ClsAcumuladores
If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
If ObjAcum.DtResultados.Rows.Count > 0 Then
TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
Dim CveMarca As Integer = -1
Dim CargoVendido As Decimal = 0 CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
Dim CargoGarantia As Decimal = 0
Dim CveTamaño As Integer = 0
If DdlPSAjuste.SelectedValue.ToEntero > 0 Then Dim ObjAcum As New ClsAcumuladores
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0) If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
If Dr IsNot Nothing Then If ObjAcum.DtResultados.Rows.Count > 0 Then
CargoGarantia = Dr("Cargo").ToString.ToDecimal TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
Dim CargoVendido As Decimal = 0
Dim CargoGarantia As Decimal = 0
Dim CveTamaño As Integer = 0
If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
CargoGarantia = Dr("Cargo").ToString.ToDecimal
End If
End If End If
End If
If DdlPS.SelectedValue.ToEntero > 0 Then If DdlPS.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows(0) Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then If Dr IsNot Nothing Then
CveTamaño = Dr("CveTamaño").ToString.ToEntero CveTamaño = Dr("CveTamaño").ToString.ToEntero
End If
End If End If
End If
If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0) IsNot Nothing AndAlso GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows.Count > 0 Then Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}")
Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0)
If DrCargo IsNot Nothing Then If DrCargo IsNot Nothing Then
CargoVendido = DrCargo("Cargo").ToString.ToDecimal CargoVendido = DrCargo("Cargo").ToString.ToDecimal
End If End If
End If
'el ajuste no puede ser mayor al precio de lo vendido de nuevo 'el ajuste no puede ser mayor al precio de lo vendido de nuevo
If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then If (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))) < 0 Then
TxtImporteAjuste.Text = "0.00"
CargoGarantia = CargoVendido
End If
TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
Else
'cuando no está registrada, no da ajuste
TxtImporteAjuste.ToolTip = "El producto no tiene ajuste en ese periodo"
TxtImporteAjuste.Text = "0.00" TxtImporteAjuste.Text = "0.00"
CargoGarantia = CargoVendido
End If End If
TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
End If End If
ObjAcum.Dispose()
End If End If
ObjAcum.Dispose() Catch ex As Exception
End If OnError("Ocurrió un error al recalcular el costo", ex)
End Try
UpAjuste.Update() UpAjuste.Update()
End Sub End Sub
@@ -5340,14 +5350,13 @@ Partial Class PV
If TmpDT.Select($"Consec={ConsecutivoVenta}").Length > 0 Then If TmpDT.Select($"Consec={ConsecutivoVenta}").Length > 0 Then
Dim Dr As DataRow = TmpDT.Select($"Consec={ConsecutivoVenta}")(0) Dim Dr As DataRow = TmpDT.Select($"Consec={ConsecutivoVenta}")(0)
Dim CvePSCargo As Integer = -1 Dim CvePSCargo As Integer = -1
If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").Rows(0) IsNot Nothing AndAlso GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").Rows.Count > 0 Then Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").FiltroPrimero("")
Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño")}").Rows(0) If DrCargo IsNot Nothing Then
If DrCargo IsNot Nothing Then CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero
CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero CargoActual = DrCargo("Cargo").ToString.ToDouble
CargoActual = DrCargo("Cargo").ToString.ToDouble
End If
End If End If
Dr("Descuento") = Math.Round(TxtImporteAjuste.Text.ToDouble, NumeroDecimales) Dr("Descuento") = Math.Round(TxtImporteAjuste.Text.ToDouble, NumeroDecimales)
'Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) + (CargoActual - CargoAnterior), NumeroDecimales) 'Dr("Descuento") = Math.Round((TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) + (CargoActual - CargoAnterior), NumeroDecimales)
If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble If Dr("Descuento").ToString.ToDouble > TxtPrecio.Text.ToDouble Then Dr("Descuento") = TxtPrecio.Text.ToDouble

8
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -942,7 +942,7 @@ Partial Class RepVentaDetalle
Private Sub GenerarPDF(Optional Formato As String = "PDF") Private Sub GenerarPDF(Optional Formato As String = "PDF")
If DtVentas IsNot Nothing Then If DtVentas IsNot Nothing Then
Dim Grupo, CveCliente, CveSucursal, CveSucursalEjec, Vendedor, CveUsuario, CveEstatusFactura, TipoDocto As String Dim Grupo, CveCliente, CveSucursal, CveSucursalEjec, Vendedor, CveUsuario, CveEstatusFactura, TipoDocto, CondicionesPago As String
Dim FechaIEjec, FechaFEjec As String Dim FechaIEjec, FechaFEjec As String
'Dim CveSubProyecto As Integer 'Dim CveSubProyecto As Integer
@@ -963,7 +963,9 @@ Partial Class RepVentaDetalle
Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b>&nbsp;{DdlVendedor.GetSelectedText}") Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b>&nbsp;{DdlVendedor.GetSelectedText}")
CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Usuario:</b>&nbsp;{DdlUsuario.SelectedItem.Text}") CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Usuario:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.GetSelectedText}") CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.GetSelectedText}")
CondicionesPago = If(DdlCondicionesPago.selectedValue = "-1", "", String.Format("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text))
Dim RutaFormato = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta) Dim RutaFormato = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta)
Dim Archivo As New System.IO.FileInfo(RutaFormato) Dim Archivo As New System.IO.FileInfo(RutaFormato)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -977,7 +979,7 @@ Partial Class RepVentaDetalle
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("TipoDocto", TipoDocto)) params.Add(New ReportParameter("TipoDocto", TipoDocto))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} ")) params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} {CondicionesPago} "))
If Imagen.Exists Then If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri)) params.Add(New ReportParameter("LogoPath", logouri))
Else Else

1
Ventas/RepVentas.aspx.vb
View File

@@ -550,6 +550,7 @@ Partial Class Ventas_RepVentas
If TxtFechaFEjec.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha I. Ejecución</b>: {0}", TxtFechaFEjec.Text.ToDate.ToShortDateString) If TxtFechaFEjec.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha I. Ejecución</b>: {0}", TxtFechaFEjec.Text.ToDate.ToShortDateString)
If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Usuario</b>: {0}", DdlUsuario.SelectedItem.Text) If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Usuario</b>: {0}", DdlUsuario.SelectedItem.Text)
If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación Cliente</b>: {0}", DdlClienteClasificacion.SelectedItem.Text) If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación Cliente</b>: {0}", DdlClienteClasificacion.SelectedItem.Text)
If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))

46
Ventas/Ventas.aspx.vb
View File

@@ -1697,6 +1697,7 @@ Partial Class Ventas
DdlBPPS.setEsWebService(True) DdlBPPS.setEsWebService(True)
DdlBPPS.ddlWS.Attributes.Add("data-clear", "1") DdlBPPS.ddlWS.Attributes.Add("data-clear", "1")
ViewState("ProcesoCorrecto") = True ViewState("ProcesoCorrecto") = True
ViewState("CargoUsado") = True
ViewState("NuevaFactura") = -1 ViewState("NuevaFactura") = -1
ViewState("CveDevolucion") = -1 ViewState("CveDevolucion") = -1
ViewState("CvePedido") = -1 ViewState("CvePedido") = -1
@@ -4729,6 +4730,7 @@ Partial Class Ventas
DivClienteMsg.Visible = True DivClienteMsg.Visible = True
LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" LtlClienteMsg.Text = "Cálculo sin desglose de IEPS"
End If End If
ViewState("CargoUsado") = ObjCliente.CargoUsados
Dim dr As DataRow = Nothing Dim dr As DataRow = Nothing
dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -5897,6 +5899,8 @@ Partial Class Ventas
End If End If
Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (Descuento)) Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (Descuento))
Dim TotalCalculableImpuestosIVA As Decimal = 0
TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + TmpDT.Rows(e.RowIndex)("IEPSPorcentaje").ToString.ToDecimal)
TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero
@@ -5907,7 +5911,7 @@ Partial Class Ventas
TmpDT.Rows(e.RowIndex)("PU") = PU TmpDT.Rows(e.RowIndex)("PU") = PU
TmpDT.Rows(e.RowIndex)("Descuento") = Descuento TmpDT.Rows(e.RowIndex)("Descuento") = Descuento
TmpDT.Rows(e.RowIndex)("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales) TmpDT.Rows(e.RowIndex)("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteIVA") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteIEPS") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteIEPS") = Math.Round(TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
@@ -6702,10 +6706,11 @@ Partial Class Ventas
Obj2.Add(ObjFacturaDevolucion) Obj2.Add(ObjFacturaDevolucion)
End If End If
Catch ex As Exception Catch ex As Exception
ErrorList.Add("No se pudo generarse la nota de crédito de amortización") OnError("Ocurrió un error al generar nota de crédito de amortización", ex)
ErrorList.Add("No se pudo generar la nota de crédito de amortización")
End Try End Try
If Obj2 Is Nothing AndAlso Obj2.Count = 0 Then If Obj2 Is Nothing AndAlso Obj2.Count = 0 Then
ErrorList.Add("No se pudo generarse la nota de crédito de amortización") ErrorList.Add("No se pudo generar la nota de crédito de amortización")
End If End If
End If End If
End If End If
@@ -15259,7 +15264,7 @@ Partial Class Ventas
End If End If
'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR 'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR
If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then If DtMovimientos.Rows.Count > 0 Then
Dim GeneroMovimientoAlmacen As Boolean = False Dim GeneroMovimientoAlmacen As Boolean = False
For Each dr As DataRow In DtMovimientos.Rows For Each dr As DataRow In DtMovimientos.Rows
'Obtenemos los Movimientos de salida 'Obtenemos los Movimientos de salida
@@ -15292,7 +15297,7 @@ Partial Class Ventas
'Le damos salida normal 'Le damos salida normal
If ConSalida Then If ConSalida Then
GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0
If Not GeneroMovimientoAlmacen Then If Not GeneroMovimientoAlmacen Then
OcurrioError = True OcurrioError = True
@@ -22490,23 +22495,23 @@ Partial Class Ventas
End If End If
'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS') 'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS')
'If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
' Dim SbRem As New StringBuilder Dim SbRem As New StringBuilder
' SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>") SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
' SbRem.Append("<b>Remisiones Surtidas:</b></br>") SbRem.Append("<b>Remisiones Surtidas:</b></br>")
' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
' SbRem.AppendFormat("{0}</br>", RowSurtida("Folio")) SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
' Next Next
' SbRem.Append("<b>Remisiones No Surtidas:</b></br>") SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
' SbRem.AppendFormat("{0}</br>", RowSurtida("Folio")) SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
' Next Next
' Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
' Exit Sub Exit Sub
'End If End If
DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'") DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
DdlMoneda.Enabled = False DdlMoneda.Enabled = False
@@ -23512,6 +23517,9 @@ Partial Class Ventas
TmpDT.AcceptChanges() TmpDT.AcceptChanges()
If ViewState("CargoUsado").ToString = "False" Then
Exit Sub
End If
Dim ObjProductosServicios As New ClsProductosServicios() Dim ObjProductosServicios As New ClsProductosServicios()

56
packages.config
View File

@@ -1,35 +1,23 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net4" /> <package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net4" />
<package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net4" /> <package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net4" />
<package id="Antlr" version="3.4.1.9004" targetFramework="net4" /> <package id="Antlr" version="3.4.1.9004" targetFramework="net4" />
<package id="CrystalReports.Engine" version="13.0.3501" targetFramework="net45" /> <package id="log4net" version="1.2.10" targetFramework="net45" />
<package id="CrystalReports.ReportAppServer.ClientDoc" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.AspNet.Web.Optimization" version="1.1.3" targetFramework="net4" />
<package id="CrystalReports.ReportAppServer.CommLayer" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" />
<package id="CrystalReports.ReportAppServer.CommonControls" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
<package id="CrystalReports.ReportAppServer.CommonObjectModel" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
<package id="CrystalReports.ReportAppServer.Controllers" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
<package id="CrystalReports.ReportAppServer.CubeDefModel" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
<package id="CrystalReports.ReportAppServer.DataDefModel" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
<package id="CrystalReports.ReportAppServer.DataSetConversion" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.ReportViewer.WebForms.v12" version="12.0.0.0" targetFramework="net45" />
<package id="CrystalReports.ReportAppServer.ObjectFactory" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.SqlServer.Types" version="14.0.1016.290" targetFramework="net45" />
<package id="CrystalReports.ReportAppServer.Prompting" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
<package id="CrystalReports.ReportAppServer.ReportDefModel" version="13.0.3501" targetFramework="net45" /> <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />
<package id="CrystalReports.ReportAppServer.XmlSerialize" version="13.0.3501" targetFramework="net45" /> <package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net40" />
<package id="CrystalReports.Shared" version="13.0.3501" targetFramework="net45" /> <package id="Newtonsoft.Json" version="8.0.2" targetFramework="net40" />
<package id="log4net" version="1.2.10" targetFramework="net45" /> <package id="NuGet.Core" version="2.8.0" targetFramework="net4" />
<package id="Microsoft.AspNet.Web.Optimization" version="1.1.3" targetFramework="net4" /> <package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net40" />
<package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" /> <package id="WebGrease" version="1.6.0" targetFramework="net40" />
<package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
<package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
<package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
<package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
<package id="Microsoft.SqlServer.Types" version="14.0.1016.290" targetFramework="net45" />
<package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
<package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />
<package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net40" />
<package id="Newtonsoft.Json" version="8.0.2" targetFramework="net40" />
<package id="NuGet.Core" version="2.8.0" targetFramework="net4" />
<package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net40" />
<package id="WebGrease" version="1.6.0" targetFramework="net40" />
</packages> </packages>