diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 649c5f07f..09af84a3e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -969,7 +969,7 @@ Public Class ClsInventarios .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto .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 = $"{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("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -1453,7 +1453,7 @@ Public Class ClsInventarios Return Retorno 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 DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1469,6 +1469,7 @@ Public Class ClsInventarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias End With Try @@ -3290,7 +3291,7 @@ Public Class ClsInventarios #End Region #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 DataAdapter("PA_Inv_PSCostoGet") @@ -3301,6 +3302,7 @@ Public Class ClsInventarios .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote .Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output End With @@ -4492,7 +4494,7 @@ Public Class ClsInventarios #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 DataAdapter("PA_Inv_ResguardoUniformesRep") @@ -4501,8 +4503,8 @@ Public Class ClsInventarios .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento - - + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 68c1d49da..71f7c993a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3964,11 +3964,12 @@ Public Class ClsPaginas PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710) PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) - PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) - + PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) + #End Region #Region "GPS" PaginaDict.Add("/GPS/RepTemperatura.aspx".ToUpper(), 681) + PaginaDict.Add("/GPS/FacturasSims.aspx".ToUpper(), 8401) PaginaDict.Add("/GPS/VehiculoTrama.aspx".ToUpper(), 682) PaginaDict.Add("/GPS/DashboardGPS.aspx".ToUpper(), -1) PaginaDict.Add("/GPS/WizardModelo.aspx".ToUpper(), 458) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 8d840b5a5..0e91e582c 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3931,6 +3931,11 @@ Namespace Modelos Dim TotalT As Decimal = ObjFactura.Total Dim RFCReceptor As String = ObjFactura.Cliente.RFC Dim CvePACCancelacion As Integer = ObjFactura.CvePAC + + If CvePACCancelacion <= 0 Then + CvePACCancelacion = UsuarioActual.Empresa.CvePAC + End If + Dim CveEstatus As Integer = 4 Dim IDPoliza As Integer = -1 Dim CvePrePoliza As Integer @@ -4001,7 +4006,7 @@ Namespace Modelos End If End If 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 Return Retorno @@ -4435,10 +4440,6 @@ Namespace Modelos 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 ErrorCancelar = True MensajeError = "Ocurrió un error al guardar el estatus de cancelación." diff --git a/App_Code/clsGemBoxDocument.vb b/App_Code/clsGemBoxDocument.vb index 6177426df..ea81a4af3 100644 --- a/App_Code/clsGemBoxDocument.vb +++ b/App_Code/clsGemBoxDocument.vb @@ -7,8 +7,8 @@ Public Class clsGemBoxDocument Implements IDisposable - Private documento As DocumentModel - Private rutaSalvado As String + Public documento As DocumentModel + Public rutaSalvado As String Public StremFile As String Public memoryStream As New MemoryStream() diff --git a/Empresas/119/Formatos/RepClientesCxC.rpt b/Empresas/119/Formatos/RepClientesCxC.rpt index f8e06f121..094db97be 100644 Binary files a/Empresas/119/Formatos/RepClientesCxC.rpt and b/Empresas/119/Formatos/RepClientesCxC.rpt differ diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index 02372f4e0..578fd245d 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -601,6 +601,20 @@ 9pt + + - + + + + =Parameters!ClienteNombre.Value + + - = Parameters!Fecha.Value + =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") - Textbox15 @@ -1977,7 +1993,7 @@ - =Fields!UM.Value + =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value) @@ -2001,6 +2017,7 @@ 2pt + true diff --git a/Empresas/80/Formatos/SolicitudVacaciones.docx b/Empresas/80/Formatos/SolicitudVacaciones.docx new file mode 100644 index 000000000..6ada065ec Binary files /dev/null and b/Empresas/80/Formatos/SolicitudVacaciones.docx differ diff --git a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc index 5158fd16f..4ee983390 100644 --- a/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc +++ b/Empresas/Grales/Formatos/RepClientesPagosBancos.rdlc @@ -1,969 +1,970 @@ - - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.84237cm - 0.15558cm - 0cm - 19.84166cm - 1 - - - - - - - - - 4.42895cm - - - 3.2021cm - - - 3.36938cm - - - 2.89562cm - - - 3.34667cm - - - 2.5cm - - - - - 0.6cm - - - - - true - true - - - - - Factura - - - - - - - Textbox3 - - - - 1pt - - - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha Venta - - - - - - - Textbox15 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha Ven. - - - - - - - Textbox13 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Movto. - - - - - - - Textbox17 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abono - - - - - - - Textbox19 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox21 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) - - - - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) - - - - - - - FechaVencimiento - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") - - - - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteAbonado.Value - - - - - - - ImporteAbonado - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - es-MX - - - - - - - - true - true - - - - - =Fields!MonedaIE.Value - - - - - - = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet1 - 1.00112cm - 0.12912cm - 1.2cm - 19.74272cm - 2 - - - - - - 0.99158in - - - - - - - Textbox1 - 0.18521cm - 3.21468cm - 0.6cm - 14.02238cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REPORTE PAGOS CLIENTES - - - - - - - Textbox2 - 1.10271cm - 3.21468cm - 0.52945cm - 14.02238cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06614cm - 2.22362cm - 2.33715cm - 2 - - - - - - - - - - - 0.76376cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.08291cm - 17.90491cm - 0.68085cm - 2.09233cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.25cm - 0.25cm - 1cm - 1cm - 0.13cm - + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 4.42895cm + + + 3.2021cm + + + 3.36938cm + + + 2.89562cm + + + 3.34667cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Venta + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Ven. + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Movto. + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abono + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveVenta.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveVenta.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveVenta.Value) , Fields!FolioCobro.Value,"") + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAbonado.Value + + + + + + + ImporteAbonado + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =IIF(Fields!CveVenta.Value > 0,Fields!MonedaVenta.Value, Fields!MonedaIE.Value) + + + + + + = IIF( IsNothing(Fields!CveVenta.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.74272cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE PAGOS CLIENTES + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm + @@ -14,9 +19,50 @@ +
+ + +
+
+
+
+ +
+ + + +
+ + +
+ + + + + + +
+ + +
+ + + +
+ +
+ + + +
+
+
+
+
+ - + @@ -86,12 +116,14 @@
- + Nombre + @@ -100,15 +132,17 @@ Acumulado Actual + - + Acumulado Anterior + @@ -118,6 +152,7 @@ Acumulado Anual + diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 76e79d612..e1ae3ceb6 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2270,7 +2270,7 @@ diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 9cfdf863e..acfc103cb 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -4531,8 +4531,9 @@ Partial Class RH_Personal Response.ContentType = "application/force-download" Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") 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 Sub @@ -4581,8 +4582,9 @@ Partial Class RH_Personal Response.ContentType = "application/force-download" Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") 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 Sub diff --git a/RH/RepUniformesResguardo.aspx b/RH/RepUniformesResguardo.aspx index d9240e9f2..3d84a60b2 100644 --- a/RH/RepUniformesResguardo.aspx +++ b/RH/RepUniformesResguardo.aspx @@ -25,9 +25,9 @@
-
+
- + <%-- --%>
@@ -59,8 +59,33 @@
- diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index 60ff1b216..d121d3035 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -51,7 +51,19 @@ Partial Class RH_RepUniformesResguardo 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 DTDatos = ObjInv.DtResultados Else diff --git a/Scripts/custom.js b/Scripts/custom.js index 034aef08c..39e2ae95b 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -1769,7 +1769,7 @@ jQuery(document).ready(function () { loadsortadscroll(); QuickSidebar.init(); - MoveFixedDiv(); + MoveFixedDiv(); setswitch(); function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } } diff --git a/Site.master.vb b/Site.master.vb index 6afa57abc..bd03f5832 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -405,7 +405,7 @@ Partial Class Site Case 8 Return "" Case 9 - Return "" + Return "" Case 10 Return "" Case Else diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 8c43686a8..5f9618df9 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -594,7 +594,7 @@
- +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index c2751d5d1..ee2ac7def 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3862,7 +3862,7 @@ Partial Class Clientes Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) 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("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) @@ -3933,7 +3933,7 @@ Partial Class Clientes Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) 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("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) @@ -6224,25 +6224,11 @@ Partial Class Clientes GenerarPDF() End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - Dim ObjTareas As New ClsOIEventos - Dim params As New List(Of ReportParameter) - - 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 Filtros As String = "Filtros: " - - - - 'Dim FechaI, FechaF As String - - ' params.Add(New ReportParameter("AgrupadoPor", Filtros)) 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("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) - End Sub + End Sub #End Region - + #Region "VENTAS" - + Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte() Dim ObjVentas As New ClsVentas Dim Vta As Modelos.Factura = Nothing @@ -9199,7 +9185,7 @@ Partial Class Clientes Dim Serie As String = "" If FolioNotaCredito(Tipo) Then - Folio = FolioNotaAcumulador + Folio = -1 Serie = SerieNotaAcumulador End If @@ -9305,9 +9291,9 @@ Partial Class Clientes End If ObjFactura.FechaEjecucion = Now - ObjFactura.CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero - ObjFactura.CveSubProyectoCobranza = DdlSubProyecto.SelectedValue.ToEntero - ObjFactura.CveSubProyectoEjecucion = DdlSubProyecto.SelectedValue.ToEntero + ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto + ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto + ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto ObjFactura.AtencionA = "-1" ObjFactura.MotivoDescuento = "" ObjFactura.Observaciones = "" diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index dbd45512d..82bfc6d9f 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5212,57 +5212,67 @@ Partial Class PV 'Alert("No se ha especificado producto a entregar") Exit Sub 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 - Dim CargoGarantia As Decimal = 0 - Dim CveTamaño As Integer = 0 + CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero - If DdlPSAjuste.SelectedValue.ToEntero > 0 Then - Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0) - If Dr IsNot Nothing Then - CargoGarantia = Dr("Cargo").ToString.ToDecimal + 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 + + 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 - If DdlPS.SelectedValue.ToEntero > 0 Then - Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows(0) - If Dr IsNot Nothing Then - CveTamaño = Dr("CveTamaño").ToString.ToEntero + If DdlPS.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimero("") + If Dr IsNot Nothing Then + CveTamaño = Dr("CveTamaño").ToString.ToEntero + 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.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0) + Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}") If DrCargo IsNot Nothing Then + CargoVendido = DrCargo("Cargo").ToString.ToDecimal + End If - End If - '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 + '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 + 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" - 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 - End If + ObjAcum.Dispose() End If - ObjAcum.Dispose() - End If + Catch ex As Exception + OnError("Ocurrió un error al recalcular el costo", ex) + End Try + UpAjuste.Update() End Sub @@ -5340,14 +5350,13 @@ Partial Class PV If TmpDT.Select($"Consec={ConsecutivoVenta}").Length > 0 Then Dim Dr As DataRow = TmpDT.Select($"Consec={ConsecutivoVenta}")(0) 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")}").Rows(0) - If DrCargo IsNot Nothing Then - CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero - CargoActual = DrCargo("Cargo").ToString.ToDouble - End If + Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {Dr("CveTamaño").ToString.ToEntero}").FiltroPrimero("") + If DrCargo IsNot Nothing Then + CvePSCargo = DrCargo("CvePSCargo").ToString.ToEntero + CargoActual = DrCargo("Cargo").ToString.ToDouble End If + Dr("Descuento") = Math.Round(TxtImporteAjuste.Text.ToDouble, 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 diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 7a770f5d0..64acd3894 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -942,7 +942,7 @@ Partial Class RepVentaDetalle Private Sub GenerarPDF(Optional Formato As String = "PDF") 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 CveSubProyecto As Integer @@ -963,7 +963,9 @@ Partial Class RepVentaDetalle Vendedor = If(DdlVendedor.GetSelectedText = "", "", $" Vendedor: {DdlVendedor.GetSelectedText}") CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $" Usuario: {DdlUsuario.SelectedItem.Text}") CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $" Estatus: {DdlEstatus.GetSelectedText}") - + CondicionesPago = If(DdlCondicionesPago.selectedValue = "-1", "", String.Format(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text)) + + Dim RutaFormato = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta) Dim Archivo As New System.IO.FileInfo(RutaFormato) 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("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("TipoDocto", TipoDocto)) - params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} ")) + params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo} {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec} {Vendedor} {CveUsuario} {CveEstatusFactura} {CondicionesPago} ")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 09a8632a8..56346f6fd 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -550,6 +550,7 @@ Partial Class Ventas_RepVentas If TxtFechaFEjec.Text <> "" Then StrFiltro.AppendFormat(" Fecha I. Ejecución: {0}", TxtFechaFEjec.Text.ToDate.ToShortDateString) If DdlUsuario.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Usuario: {0}", DdlUsuario.SelectedItem.Text) If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Clasificación Cliente: {0}", DdlClienteClasificacion.SelectedItem.Text) + If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Condiciones Pago: {0}", DdlCondicionesPago.SelectedItem.Text) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 3079f5ad9..271b56f72 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1697,6 +1697,7 @@ Partial Class Ventas DdlBPPS.setEsWebService(True) DdlBPPS.ddlWS.Attributes.Add("data-clear", "1") ViewState("ProcesoCorrecto") = True + ViewState("CargoUsado") = True ViewState("NuevaFactura") = -1 ViewState("CveDevolucion") = -1 ViewState("CvePedido") = -1 @@ -4729,6 +4730,7 @@ Partial Class Ventas DivClienteMsg.Visible = True LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" End If + ViewState("CargoUsado") = ObjCliente.CargoUsados Dim dr As DataRow = Nothing 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 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 @@ -5907,7 +5911,7 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("PU") = PU TmpDT.Rows(e.RowIndex)("Descuento") = Descuento 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)("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales) @@ -6702,10 +6706,11 @@ Partial Class Ventas Obj2.Add(ObjFacturaDevolucion) End If 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 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 @@ -15259,7 +15264,7 @@ Partial Class Ventas End If '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 For Each dr As DataRow In DtMovimientos.Rows 'Obtenemos los Movimientos de salida @@ -15292,7 +15297,7 @@ Partial Class Ventas 'Le damos salida normal 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 OcurrioError = True @@ -22490,23 +22495,23 @@ Partial Class Ventas End If '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 - ' Dim SbRem As New StringBuilder - ' SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.
") + If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then + Dim SbRem As New StringBuilder + SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.
") - ' SbRem.Append("Remisiones Surtidas:
") - ' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows - ' SbRem.AppendFormat("{0}
", RowSurtida("Folio")) - ' Next + SbRem.Append("Remisiones Surtidas:
") + For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows + SbRem.AppendFormat("{0}
", RowSurtida("Folio")) + Next - ' SbRem.Append("Remisiones No Surtidas:
") - ' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows - ' SbRem.AppendFormat("{0}
", RowSurtida("Folio")) - ' Next + SbRem.Append("Remisiones No Surtidas:
") + For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows + SbRem.AppendFormat("{0}
", RowSurtida("Folio")) + Next - ' Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If + Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) + Exit Sub + End If DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'") DdlMoneda.Enabled = False @@ -23512,6 +23517,9 @@ Partial Class Ventas TmpDT.AcceptChanges() + If ViewState("CargoUsado").ToString = "False" Then + Exit Sub + End If Dim ObjProductosServicios As New ClsProductosServicios() diff --git a/packages.config b/packages.config index 92c4d187f..c1f65a236 100644 --- a/packages.config +++ b/packages.config @@ -1,35 +1,23 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file
@@ -24,58 +70,42 @@ Datos del Concepto - + + + - - - - - +
Concepto: Tipo: - - - - Codigo:
Tipo: - +
+ +
Datos del Periodo - - + + + - + - - - - - + + + + +
Ejercicio:
- - - - - - -
Tipo Periodo: - - -
Periodo: - - -