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

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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-03-04 04:25:49 -07:00
parent 019d54bd9a ec44bceb85
commit e2a0b01d51
41 changed files with 15927 additions and 13912 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsContabilidad.vb
View File

@@ -1604,7 +1604,7 @@ Public Class ClsContabilidad
#End Region
Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean
Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Conta_CuentasConceptosGet")
With SqlAdapter.SelectCommand.Parameters
@@ -1614,6 +1614,7 @@ Public Class ClsContabilidad
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
End With
Try
SqlAdapter.Fill(Data)
@@ -5722,7 +5723,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1) As Boolean
Dim Retorno = False
@@ -5731,6 +5732,7 @@ Public Class ClsContabilidad
With SqlAdapter.SelectCommand.Parameters
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor

4
App_Code/ClsInventarios.vb
View File

@@ -1628,7 +1628,7 @@ Public Class ClsInventarios
End Function
Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer) As Boolean
Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1639,6 +1639,8 @@ Public Class ClsInventarios
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try

2
App_Code/modExtensiones.vb
View File

@@ -961,6 +961,8 @@ Namespace Extensiones
Retorno = ""
End If
Retorno = UCase(Mid(Retorno, 1, 1)) + Mid(Retorno, 2, Len(Retorno))
Return Retorno
End Function

14
Ashx/SIGFacturacion.ashx
View File

@@ -362,14 +362,14 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
Else
ObjFactura.CveMetodoPago = 1
ObjFactura.MetodoPago = "Efectivo"
End If
'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
' ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
'Else
' ObjFactura.CveMetodoPago = 1
' ObjFactura.MetodoPago = "Efectivo"
'End If
End If
End If
If ObjCliente.GetSucursales(CveCliente) Then

24
Bancos/PopIECompras.aspx.vb
View File

@@ -1386,11 +1386,25 @@ Partial Class Bancos_PopIECompras
#End Region
#Region "G U A R D A R"
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
Alert($"La fecha de compra no puede ser mayor que la fecha de pago <br/> Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia)
Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
Dim FechaFactura As Date = FechaCompra
Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
Dim AnioFactura As Integer = FechaFactura.Year
Dim MesFactura As Integer = FechaFactura.Month
Dim AnioDocumento As Integer = FechaDocumentoPago.Year
Dim MesDocumento As Integer = FechaDocumentoPago.Month
If AnioFactura > AnioDocumento Then
Alert($"El mes de la fecha de compra no puede ser mayor al mes de la la fecha de pago <br/> Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
Alert($"El mes de la fecha de compra no puede ser mayor al mes de la la fecha de pago <br/> Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If

17
Bancos/PopIEVentas.aspx.vb
View File

@@ -1390,12 +1390,25 @@ Partial Class Bancos_PopIEVentas
If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
Alert($"La fecha de venta no puede ser mayor que la fecha de pago <br/> Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Dim FechaFactura As Date = FechaVenta
Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
Dim AnioFactura As Integer = FechaFactura.Year
Dim MesFactura As Integer = FechaFactura.Month
Dim AnioDocumento As Integer = FechaDocumentoPago.Year
Dim MesDocumento As Integer = FechaDocumentoPago.Month
If AnioFactura > AnioDocumento Then
Alert($"El mes de la fecha de venta no puede ser mayor al mes de la la fecha de pago <br/> Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
Alert($"El mes de la fecha de venta no puede ser mayor al mes de la la fecha de pago <br/> Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA
If Not Page.IsValid Then
Exit Sub

21
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -716,13 +716,27 @@ Partial Class Bancos_ProveedoresAbonar
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
For Each gvRowVal As GridViewRow In GvCxP.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }<br/>")
Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
Dim AnioFactura As Integer = FechaFactura.Year
Dim MesFactura As Integer = FechaFactura.Month
Dim AnioDocumento As Integer = FechaDocumento.Year
Dim MesDocumento As Integer = FechaDocumento.Month
If AnioFactura > AnioDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
End If
@@ -735,6 +749,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then
Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia)
Exit Sub

80
Compras/Compras.aspx.vb
View File

@@ -3987,21 +3987,10 @@ Partial Class Compras_Compras
Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
AjustaCombustibles()
'------------------INICIA VALIDACIONES------------------
Dim TempIva As Decimal
For Each drowv As DataRow In TmpDT.Rows
TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
Next
Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
If Math.Abs(DifGenelraIvas) > 0.2 Then
Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0
'Credito Multiple
@@ -6508,7 +6497,7 @@ Partial Class Compras_Compras
End If
Case 6 'Compra
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -6836,8 +6825,8 @@ Partial Class Compras_Compras
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
@@ -7063,7 +7052,7 @@ Partial Class Compras_Compras
End If
Case 5 'Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
If tipoCambioActual <> 1 Then
Select Case ConceptoContable
Case 5
@@ -8540,6 +8529,61 @@ Partial Class Compras_Compras
End If
End Sub
Private Sub AjustaCombustibles()
If Not TmpDT.Columns.Contains("AplicaIEPS") Then
TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean)))
End If
If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then
TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean)))
End If
For Each dRow As DataRow In TmpDT.Rows
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0)
dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
Else
dRow("AplicaIEPS") = False
dRow("IEPSGrabaIVA") = False
End If
Next
Dim DTConsulta As New DataTable
DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0 ")
If DTConsulta.Rows.Count > 0 Then
Dim IndiceContador As Integer = 0
Dim IndiceUltimo As Integer = 0
For Each dRow As DataRow In TmpDT.Rows
If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
IndiceUltimo = IndiceContador
End If
IndiceContador = IndiceContador + 1
Next
Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
If Math.Abs(DiferenciaIVas) > 0.01D Then
TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
TmpDT.AcceptChanges()
End If
End If
End Sub
Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
Dim ObjProveedores As New ClsCompProveedores()

4
Compras/Proveedores.aspx.vb
View File

@@ -852,11 +852,11 @@ Partial Class Compras_Proveedores
DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
Else
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
divCuentas.Visible = False
divCuentasContp.Visible = True
End If

2
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
End If

11
Contabilidad2/CatCuentas.aspx.vb
View File

@@ -303,6 +303,16 @@ Partial Class Contabilidad2_CatCuentas
CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
ObjContaEmpresa.Dispose()
ObjConta.Dispose()
Exit Sub
End If
End If
Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
@@ -341,6 +351,7 @@ Partial Class Contabilidad2_CatCuentas
updatos.Update()
Alert("La cuenta se guardo correctamente")
End If
Else
Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)

2
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -146,7 +146,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Dim ObjConta As New ClsContabilidad
Dim ErrorString As String = ""
If LbAgregar.Text = "Agregar" Then
If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
ErrorString = "Error al agregar"

5
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -73,6 +73,11 @@ Partial Class AC2_RepAnexoCatalogo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
End If
Dim ErrorParametros = True
DtDatos = Nothing
CargaTipoCuentas()

4
Contabilidad2/RepBalanceGeneral.aspx.vb
View File

@@ -166,6 +166,10 @@ Partial Class Contabilidad2_RepBalanceGeneral
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx")
End If
'If UsuarioActual.Empresa.UsaAC Then
' TipoReporte = -1
'Else

5
Contabilidad2/RepBalanzaComprobacion.aspx.vb
View File

@@ -57,6 +57,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
End If
Dim ErrorParametros = True
ModoImpresion = False
TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString

4
Contabilidad2/RepEstadoResultados.aspx.vb
View File

@@ -127,6 +127,10 @@ Partial Class Contabilidad2_RepEstadoResultados
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Response.Redirect($"/Contabilidad/RepEstadoResultados.aspx")
End If
'tdTipoReporte.Visible = True
TipoReporte = 1

5
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -96,6 +96,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx")
End If
Dim ErrorParametros = True
CargaTipoCuentas()

2815
Empresas/119/Formatos/DevolucionCliente.rdlc
View File

File diff suppressed because it is too large Load Diff

2857
Empresas/119/Formatos/DevolucionConsignacion.rdlc
View File

File diff suppressed because it is too large Load Diff

3162
Empresas/119/Formatos/Entradas.rdlc
View File

File diff suppressed because it is too large Load Diff

162
Empresas/119/Formatos/Polizas.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet1">
@@ -17,78 +17,78 @@
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Id">
<DataField>Id</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Fecha">
<DataField>Fecha</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="TipoPoliza">
<DataField>TipoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreCuenta">
<DataField>NombreCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoCuenta">
<DataField>CodigoCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Numero">
<DataField>Numero</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Referencia">
<DataField>Referencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Concepto">
<DataField>Concepto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ConceptoPoliza">
<DataField>ConceptoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoMovto">
<DataField>TipoMovto</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Cargos">
<DataField>Cargos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Abonos">
<DataField>Abonos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SegNeg">
<DataField>SegNeg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Cargo">
<DataField>Cargo</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Abono">
<DataField>Abono</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreUsuario">
<DataField>NombreUsuario</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Id">
<DataField>Id</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Fecha">
<DataField>Fecha</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="TipoPoliza">
<DataField>TipoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreCuenta">
<DataField>NombreCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoCuenta">
<DataField>CodigoCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Numero">
<DataField>Numero</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Referencia">
<DataField>Referencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Concepto">
<DataField>Concepto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ConceptoPoliza">
<DataField>ConceptoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoMovto">
<DataField>TipoMovto</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Cargos">
<DataField>Cargos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Abonos">
<DataField>Abonos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SegNeg">
<DataField>SegNeg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Cargo">
<DataField>Cargo</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Abono">
<DataField>Abono</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreUsuario">
<DataField>NombreUsuario</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet1</rd:DataSetName>
@@ -171,6 +171,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -460,6 +461,7 @@
</Style>
</Textbox>
<ColSpan>7</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -551,6 +553,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -771,6 +774,7 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -992,6 +996,7 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1206,6 +1211,7 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1217,7 +1223,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!NombreUsuario.Value</Value>
<Value>=Fields!NombreUsuario.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>1pt</FontSize>
@@ -1540,6 +1546,7 @@
</Style>
</Textbox>
<ColSpan>3</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -1677,7 +1684,10 @@
<TablixMember>
<Group Name="Id">
<GroupExpressions>
<GroupExpression>=Fields!Id.Value</GroupExpression>
<GroupExpression>=Fields!Fecha.Value</GroupExpression>
<GroupExpression>=Fields!TipoPoliza.Value</GroupExpression>
<GroupExpression>=Fields!Numero.Value</GroupExpression>
<GroupExpression>=Fields!ConceptoPoliza.Value</GroupExpression>
</GroupExpressions>
<PageBreak>
<BreakLocation>End</BreakLocation>
@@ -1685,7 +1695,7 @@
</PageBreak>
<Variables>
<Variable Name="UsuarioRegistro">
<Value>=Fields!NombreUsuario.Value</Value>
<Value>=Fields!NombreUsuario.Value</Value>
</Variable>
</Variables>
</Group>

2887
Empresas/119/Formatos/Resguardo.rdlc
View File

File diff suppressed because it is too large Load Diff

2644
Empresas/119/Formatos/SalidaDemostracion.rdlc
View File

File diff suppressed because it is too large Load Diff

2795
Empresas/119/Formatos/Salidas.rdlc
View File

File diff suppressed because it is too large Load Diff

3445
Empresas/119/Formatos/Traslado.rdlc
View File

File diff suppressed because it is too large Load Diff

1075
Empresas/141/Formatos/CHQ-7452.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

5379
Empresas/154/Formatos/OC.rdlc
View File

File diff suppressed because it is too large Load Diff

2139
Empresas/Grales/Formatos/RepVentas.rdlc
View File

File diff suppressed because it is too large Load Diff

2
Inventarios/AjustesSeccionAlmacen.aspx
View File

@@ -135,7 +135,7 @@
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:Button ID="BtnCambiarSeccion" runat="server" Text="Cambiar Sección" CssClass="btn btn-primary" />
<asp:Button ID="BtnCambiarSeccion" runat="server" Text="Aplicar Cambios" CssClass="btn btn-primary" />
</ContentTemplate>
</asp:UpdatePanel>
<div id="DivCargaExcel" class="modal ADS fade" role="dialog">

22
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -177,11 +177,14 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
'actualizamos el PS, para que tenga el aplica seccion
If Lista.ContainsKey(CvePS) Then
ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
End If
If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
ErrorMovInv = True
If CveSeccionAlmacen > 0 Then
If Lista.ContainsKey(CvePS) Then
ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
End If
If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
ErrorMovInv = True
End If
End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -388,6 +391,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
dtSecciones.CaseSensitive = False
Dim resultado As DataTable = Nothing
DtExcel = DtExcel.FiltraParametros("Código <> ''")
For Each RowExcel As DataRow In DtExcel.Rows
Dim Codigo As String = RowExcel("Código").ToString.Trim()
@@ -395,7 +400,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo='{Codigo}'")
If DrPS IsNot Nothing Then
If Codigo <> "" AndAlso DrPS IsNot Nothing Then
If Not ErrorMovInv Then
Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
@@ -478,7 +483,10 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If
If RowExistencia Is Nothing Then
ExistenciasNoEncontradas.AppendFormat("{0} - S:{1}<br/>", Codigo, Serie)
Dim str As String = ""
If Serie <> "" Then Serie = String.Format(" - Serie:{0} ")
ExistenciasNoEncontradas.AppendFormat("{0} {1}<br/>", Codigo, str)
ErrorMovInv = True
End If

18
Inventarios/EntradasSalidas.aspx
View File

@@ -1190,7 +1190,14 @@
<asp:TextBox ID="TxtLoteEntrada" runat="server" Width="50px"></asp:TextBox>
</td>
<td runat="server" id="TrCaducidadEntrada" visible="false">
<asp:TextBox ID="TxtCaducidadEntrada" runat="server" Width="50px"></asp:TextBox>
<asp:TextBox ID="TxtCaducidadEntrada" runat="server" Width="80px"></asp:TextBox>
<asp:LinkButton ID="ImgFechaCadEntrada" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<asp:RequiredFieldValidator ID="RFVFechaCadEntrada" runat="server" ControlToValidate="TxtCaducidadEntrada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="AddPSInvFisico"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFechaCadEntrada" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCadEntrada" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:MaskedEditExtender ID="MEEFechaCadEntrada" runat="server" TargetControlID="TxtCaducidadEntrada" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaCadEntrada" TargetControlID="TxtCaducidadEntrada" PopupButtonID="ImgFechaCadEntrada" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaCadEntrada" runat="server" ControlToValidate="TxtCaducidadEntrada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="AddPSInvFisico"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCEFechaCadEntrada" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCadEntrada" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
<td align="center">
<asp:LinkButton ID="BtnAgregarEntrada" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-plus'></i>" ValidationGroup="AddPSInvFisico" />
@@ -1284,6 +1291,13 @@
</td>
<td runat="server" id="TrCaducidadSalida" visible="false">
<asp:TextBox ID="TxtCaducidadSalida" runat="server" Width="50px"></asp:TextBox>
<asp:LinkButton ID="ImgFechaCadSalida" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<asp:RequiredFieldValidator ID="RFVFechaCadSalida" runat="server" ControlToValidate="TxtCaducidadSalida" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="AddPSInvFisicoSalida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCFechaCadSalida" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaCadSalida" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:MaskedEditExtender ID="MEEFechaCadSalida" runat="server" TargetControlID="TxtCaducidadSalida" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFechaCadSalida" TargetControlID="TxtCaducidadSalida" PopupButtonID="ImgFechaCadSalida" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaCadSalida" runat="server" ControlToValidate="TxtCaducidadSalida" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="AddPSInvFisicoSalida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="VCEFechaCadSalida" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCadSalida" Width="350px"></ajax:ValidatorCalloutExtender>
</td>
<td align="center">
<asp:LinkButton ID="BtnAgregarSalida" runat="server" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-plus'></i>" ValidationGroup="AddPSInvFisicoSalida" />
@@ -1307,7 +1321,7 @@
<asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Fecha Elaboración" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
<ItemTemplate>
<asp:LinkButton ID="LnkRemoveInvFisicoSalida" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoSalida" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />

35
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -3818,13 +3818,30 @@ Partial Class Inventarios_EntradasSalidas
#Region "SALIDAS"
Private Sub BtnAgregarSalida_Click(sender As Object, e As EventArgs) Handles BtnAgregarSalida.Click
If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
Exit Sub
Dim ObjProductosServicios As New ClsProductosServicios()
Dim CveUM As Integer
Dim Mensaje As String = ""
If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
End If
End If
ObjProductosServicios.Dispose()
Dim ObjInventario As New ClsInventarios
If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= TxtCantidadSalidaInv.Text.ToDouble Then
If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
AddPSSalida(DdlPSSalida.SelectedValue.ToEntero, TxtCantidadSalidaInv.Text.ToDouble)
AddPSSalida(DdlPSSalida.SelectedValue.ToEntero, TxtCantidadSalidaInv.Text.ToDouble)
Else
Mensaje = String.Format("No hay existencias suficientes del producto: {0}", DdlPSSalida.SelectedValue.ToEntero)
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
Alert(Mensaje, TipoMensaje.MsgError)
End If
ObjInventario.Dispose()
End Sub
Protected Sub AddPSSalida(CvePS As Integer, Cantidad As Double)
@@ -3881,7 +3898,7 @@ Partial Class Inventarios_EntradasSalidas
GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
End If
End Sub
@@ -4013,7 +4030,7 @@ Partial Class Inventarios_EntradasSalidas
GvSalidasCambioVigencia.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
GvSalidasCambioVigencia.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
GvSalidasCambioVigencia.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
GvSalidasCambioVigencia.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
GvSalidasCambioVigencia.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
End If
UpGvCambioSalidas.Update()
End Sub
@@ -4406,7 +4423,7 @@ Partial Class Inventarios_EntradasSalidas
'activa caducidad
ThCaducidadEntrada.Visible = AplicaCaducidad
ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
TrCaducidadEntrada.Visible = AplicaCaducidad
Else
@@ -4440,7 +4457,7 @@ Partial Class Inventarios_EntradasSalidas
'activa caducidad
ThCaducidadSalida.Visible = AplicaCaducidad
ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Elaboración")
TrCaducidadSalida.Visible = AplicaCaducidad
Else

2
Inventarios/Kardex.aspx
View File

@@ -574,7 +574,7 @@
<asp:UpdatePanel ID="UpProductoCaducidad" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<div runat="server" id="DivImprimir" style="text-align:right" visible="false">
<asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprmir QR</asp:HyperLink>
<asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Imprimir QR</asp:HyperLink>
</div>
<asp:GridView ID="GvProductoCaducidad" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"

2
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -181,7 +181,7 @@ Partial Class Inventarios_PrestamosdeProveedor
'faltan las prepólizas
If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/PrestamodeProvedor", 53, 0, 0, 1, Fecha, $" {TxtObservacionesEntrega.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundAD()
Dim idCtaContable As Integer = 0
Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
Dim TipoMovtoAlmacen As Boolean = False

11
Inventarios/RepProductosPorCaducar.aspx
View File

@@ -63,11 +63,11 @@
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;display:flex">
<asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LinkButton1" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<asp:LinkButton ID="ImgCalFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaFin" PopupButtonID="ImgCalFechaIEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaFin" PopupButtonID="ImgCalFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
<div class="col-sm-1" style="text-align:right">
<label>Sucursal:</label>
@@ -98,10 +98,11 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="Cantidad,PS,Lote,FechaCaducidad" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Reporte de productos caducidad " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="Cantidad,PS,Lote,FechaCaducidad" EmptyDataText="No se encontraron Registros" ToolTip="Reporte de productos caducidad " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="PS" DataField="PS" />
<asp:BoundField HeaderText="Almacén" DataField="Almacen" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Lote" DataField="Lote" />
<asp:BoundField HeaderText="FechaCaducidad" DataField="FechaCaducidad" DataFormatString = "{0:dd/MM/yyyy}" />
</Columns>

34
Inventarios/RepProductosPorCaducar.aspx.cs
View File

@@ -35,10 +35,10 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
private void CargarDatos()
{
if (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147))) { GvDatos.Columns[3].HeaderText = UsuarioActual.Empresa.Funcionalidad(147); }
if (!String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147))) { GvDatos.Columns[4].HeaderText = UsuarioActual.Empresa.Funcionalidad(147); }
ClsInventarios ObjInventarios = new ClsInventarios();
if (ObjInventarios.GetProductosCaducidad(DdlProveedor.SelectedValue.ToEntero(),TxtFechaInicio.Text.ToDate(),TxtFechaFin.Text.ToDate(), DdlSucursal.SelectedValue.ToEntero(),
DdlClasificacion.SelectedValue.ToEntero()))
DdlClasificacion.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
{
GvDatos.DataSource = ObjInventarios.DtResultados;
DTDatos = ObjInventarios.DtResultados;
@@ -60,7 +60,7 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
{
DateTime date = new DateTime(DateTime.Today.Year, DateTime.Today.Month,1);
TxtFechaInicio.Text = date.ToString("dd/MM/yyyy");
TxtFechaFin.Text = date.AddMonths(1).AddDays(-1).ToString("dd/MM/yyyy");
TxtFechaFin.Text = date.AddMonths(3).AddDays(-1).ToString("dd/MM/yyyy");
}
private void CargarProveedores()
@@ -73,25 +73,27 @@ public partial class Inventarios_RepProductosPorCaducar : ClsPaginas
private void CargarSucursales()
{
ClsSubProyectos ObjSubProyectos = new ClsSubProyectos();
if (ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa))
{
DdlSucursal.DataSource = ObjSubProyectos.DtResultados;
}
ObjSubProyectos.Dispose();
//ClsSubProyectos ObjSubProyectos = new ClsSubProyectos();
//if (ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa))
//{
// DdlSucursal.DataSource = ObjSubProyectos.DtResultados;
//}
//ObjSubProyectos.Dispose();
DdlSucursal.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSucursal.DataBind();
DdlSucursal.Items.Insert(0, new ListItem("Todas", "-1"));
}
private void CargarClasificaciones()
{
ClsClasificaciones ObjClasificacion = new ClsClasificaciones();
if (ObjClasificacion.GetClasificaciones(UsuarioActual.CveEmpresa))
{
DdlClasificacion.DataSource = ObjClasificacion.DtResultados;
}
ObjClasificacion.Dispose();
DdlClasificacion.DataBind();
//ClsClasificaciones ObjClasificacion = new ClsClasificaciones();
//if (ObjClasificacion.GetClasificaciones(UsuarioActual.CveEmpresa))
//{
// DdlClasificacion.DataSource = ObjClasificacion.DtResultados;
//}
//ObjClasificacion.Dispose();
DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
DdlClasificacion.DataBind();
DdlClasificacion.Items.Insert(0,new ListItem("Todas","-1"));
}

6
PortalCliente/PortalCliente.aspx.vb
View File

@@ -3189,9 +3189,9 @@ Partial Class Ventas_PortalCliente
ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}")
ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago
If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows.Count > 0 Then
ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows(0)("MetodoPago").ToString
ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago33 = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then
ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago33 = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString
Else
ObjFactura.CveMetodoPago = 1
ObjFactura.MetodoPago = "Efectivo"

68
RH/Personal.aspx
View File

@@ -734,36 +734,50 @@
</div>
</div>
</div>
<asp:UpdatePanel ID="UPPContable" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-user-following font-green"></i>
<span class="caption-subject bold uppercase">Contable:</span>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
</div>
</div>
<div id="divCuentas" runat="server" visible="false">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="portlet-body form">
<div class="form-group input-iconright">
<label for="<%= DdlViaticos.ClientID.ToString()%>">Viáticos:</label>
<asp:DropDownList Width="100%" ID="DdlViaticos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<i></i>
</div>
<div class="form-group input-iconright">
<label for="<%= DdlPrestamos.ClientID.ToString()%>">Préstamos:</label>
<asp:DropDownList Width="100%" ID="DdlPrestamos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
<div id="divCuentasContp" runat="server" visible="false">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-user-following font-green"></i>
<span class="caption-subject bold uppercase">Contable:</span>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
</div>
</div>
</div>
<div class="portlet-body form">
<div class="form-group input-iconright">
<label for="<%= DdlViaticos.ClientID.ToString()%>">Viáticos:</label>
<asp:DropDownList Width="100%" ID="DdlViaticos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<i></i>
</div>
<div class="form-group input-iconright">
<label for="<%= DdlPrestamos.ClientID.ToString()%>">Préstamos:</label>
<asp:DropDownList Width="100%" ID="DdlPrestamos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>

20
RH/Personal.aspx.vb
View File

@@ -15,6 +15,7 @@ Partial Class RH_Personal
Inherits ClsPaginas
#Region "P R O P I E D A D E S"
Private Property DTCuentasBancos As DataTable
Get
Return CType(ViewState("DTCuentasBancos"), DataTable)
@@ -1612,6 +1613,15 @@ Partial Class RH_Personal
DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
DdlAlmacenDestinoLiberarUniforme.DataBind()
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
divCuentas.Visible = False
divCuentasContp.Visible = True
End If
Else
Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
@@ -1620,6 +1630,16 @@ Partial Class RH_Personal
ObjPersonal.Dispose()
End Sub
Private Sub CargaCuentasConceptos()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
GvCta.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
GvCta.DataBind()
UpCuentaConceptos.Update()
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
'System.Threading.Thread.Sleep(3000)
Dim ObjPersonal As New ClsRH()

19
Ventas/Clientes.aspx.vb
View File

@@ -1716,13 +1716,22 @@ Partial Class Clientes
End If
CargaEventoBitacora()
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
' CargaCuentasConceptos()
' divCuentas.Visible = True
' divCuentasContp.Visible = False
'Else
' divCuentas.Visible = False
' divCuentasContp.Visible = True
'End If
If UsuarioActual.Empresa.TipoContabilidad = 1 Then
CargaCuentasConceptos()
divCuentas.Visible = True
divCuentasContp.Visible = False
Else
divCuentas.Visible = False
divCuentasContp.Visible = True
divCuentasContp.Visible = False
ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
divCuentas.Visible = False
divCuentasContp.Visible = True
End If

30
Ventas/ClientesAbonar.aspx.vb
View File

@@ -657,18 +657,32 @@ Partial Class Ventas_ClientesAbonar
Dim ValFechaDocumento As Boolean = False
Dim FoliosFechasValFechaDocumento As New StringBuilder
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago: <br/>")
FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
For Each gvRowVal As GridViewRow In GvCxC.Rows
If gvRowVal.FCCheckBox("Chk").Checked Then
If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then
Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
Dim AnioFactura As Integer = FechaFactura.Year
Dim MesFactura As Integer = FechaFactura.Month
Dim AnioDocumento As Integer = FechaDocumento.Year
Dim MesDocumento As Integer = FechaDocumento.Month
If AnioFactura > AnioDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
End If
End If
Next
End If
Next
If ValFechaDocumento Then
@@ -2987,7 +3001,7 @@ Partial Class Ventas_ClientesAbonar
'CANCELA IE
If Not ErrorCancelar Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If
@@ -3014,7 +3028,7 @@ Partial Class Ventas_ClientesAbonar
'CANCELA IE
If Not ErrorCancelar Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If
@@ -3027,12 +3041,12 @@ Partial Class Ventas_ClientesAbonar
If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
'CANCELA IE MES ANTERIOR
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
Else
'CANCELA IE MES ACTUAL
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If