diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 87d41e011..90de7ccc0 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -335,7 +335,7 @@ Public Class ClsContratos Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1, Optional ObservacionesGenerales As String = "", - Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CveRuta As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Integer + Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Con_ContratosAdd") @@ -396,8 +396,7 @@ Public Class ClsContratos .Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@CveChofer2", SqlDbType.Int).Value = CveChofer2 .Add("@CveAF", SqlDbType.Int).Value = CveAF - .Add("@CantidadPasajeros", SqlDbType.Int).Value = CantidadPasajeros - .Add("@CveRuta", SqlDbType.Int).Value = CveRuta + .Add("@CantidadPasajeros", SqlDbType.Int).Value = CantidadPasajeros .Add("@CvePartida", SqlDbType.Int).Value = CvePartida .Add("@CveDestino", SqlDbType.Int).Value = CveDestino .Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index ec489f0a4..fcef9ea54 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2178,7 +2178,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1) As Boolean + Public Function GetExistenciasProductosLike(PS As String, CveClasificacion As Integer, CveSubProyecto As Integer, Estatus As Integer, AplicaParaVenta As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional MostrarTodosAlmacenes As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosInventario") @@ -2190,6 +2190,7 @@ Public Class ClsInventarios .Add("@AplicaParaVenta", SqlDbType.Int).Value = AplicaParaVenta .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@MostrarTodosAlmacenes", SqlDbType.Bit).Value = MostrarTodosAlmacenes End With Try diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 11b3a6b5b..22f389db4 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -135,14 +135,14 @@ Public Class ClsTransportes #End Region #Region "Boletos" - Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer + Public Function AddViajesPasajeros(CveContrato As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Trans_ViajesPasajerosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal .Add("@Importe", SqlDbType.Money).Value = Importe @@ -167,12 +167,12 @@ Public Class ClsTransportes Return Retorno End Function - Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean + Public Function GetViajesPasajeros(CveContrato As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Trans_ViajesPasajerosGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero .Add("@Estatus", SqlDbType.Int).Value = Estatus End With diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 9770f9d03..dd3934601 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -626,13 +626,13 @@ Public Class Timbres Return Retorno End Function - Public Function Timbrar() As Boolean + Public Function Timbrar(Optional CvePACEspecifico As Integer = -1) As Boolean Dim Respuesta As Boolean = False Dim ObjTimbrado As New Timbrado - If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then + If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePACEspecial:=CvePACEspecifico) Then Respuesta = True Else Respuesta = False diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 82169dccc..afd2898b0 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -929,33 +929,39 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim CveMarca = IfNull(context.Request("cvemarca"), "-1").ToString.ToEntero Dim UsaGlobal As Boolean = True + Dim MostrarTodosAlmacenes As Boolean = False 'verifica existencias If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso usuario.Empresa.Funcionalidad(141) = "1" Then UsaGlobal = False - 'If CveEmpresa.Contiene(140, 141) And Pagina.Contiene("ventas/ventas") Then - ' AplicaParaVenta = 1 - 'End If + If (usuario.Empresa.Funcionalidad(558) = "1") AndAlso Pagina.Contiene("ventas/ventas") Then + MostrarTodosAlmacenes = True + End If Dim objInv As New ClsInventarios - If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca) Then + Try + If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa, CveMarca, MostrarTodosAlmacenes:=MostrarTodosAlmacenes) Then - ' limpio los almacenes donde no tiene ningun producto existencia + ' limpio los almacenes donde no tiene ningun producto existencia - Dim i As Integer = 0 - While i < objInv.DtResultados.Columns.Count + Dim i As Integer = 0 + While i < objInv.DtResultados.Columns.Count - If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then - objInv.DtResultados.Columns.RemoveAt(i) - Else - i = i + 1 - End If - End While + If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then + objInv.DtResultados.Columns.RemoveAt(i) + Else + i = i + 1 + End If + End While - DtPSRetorno = objInv.DtResultados + DtPSRetorno = objInv.DtResultados + + End If + Catch ex As Exception + GuardaLog(ex.ToString()) + End Try - End If objInv.Dispose() diff --git a/Bin/ADSNetLibrary.7z b/Bin/ADSNetLibrary.7z deleted file mode 100644 index 91e95b751..000000000 Binary files a/Bin/ADSNetLibrary.7z and /dev/null differ diff --git a/Bin/Bin.rar b/Bin/Bin.rar deleted file mode 100644 index 5d8159013..000000000 Binary files a/Bin/Bin.rar and /dev/null differ diff --git a/Bin/Bin_20220223.rar b/Bin/Bin_20220223.rar deleted file mode 100644 index 1d4ea77ab..000000000 Binary files a/Bin/Bin_20220223.rar and /dev/null differ diff --git a/Bin/de/Microsoft.ReportViewer.Common.resources.dll b/Bin/de/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index dd9c8ed5b..000000000 Binary files a/Bin/de/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/de/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/de/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index 990d503d2..000000000 Binary files a/Bin/de/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/de/Microsoft.ReportViewer.Design.resources.dll b/Bin/de/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index 313817ce9..000000000 Binary files a/Bin/de/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/de/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/de/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index 662e11c9d..000000000 Binary files a/Bin/de/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/de/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/de/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 68952abbd..000000000 Binary files a/Bin/de/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/de/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/de/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index a30ecbf2b..000000000 Binary files a/Bin/de/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/es/Microsoft.ReportViewer.Common.resources.dll b/Bin/es/Microsoft.ReportViewer.Common.resources.dll index 1b42a78a3..46148f3c9 100644 Binary files a/Bin/es/Microsoft.ReportViewer.Common.resources.dll and b/Bin/es/Microsoft.ReportViewer.Common.resources.dll differ diff --git a/Bin/es/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/es/Microsoft.ReportViewer.DataVisualization.resources.dll index 0b5bb4da4..aae634a35 100644 Binary files a/Bin/es/Microsoft.ReportViewer.DataVisualization.resources.dll and b/Bin/es/Microsoft.ReportViewer.DataVisualization.resources.dll differ diff --git a/Bin/es/Microsoft.ReportViewer.Design.resources.dll b/Bin/es/Microsoft.ReportViewer.Design.resources.dll index 968817034..910ec178f 100644 Binary files a/Bin/es/Microsoft.ReportViewer.Design.resources.dll and b/Bin/es/Microsoft.ReportViewer.Design.resources.dll differ diff --git a/Bin/es/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/es/Microsoft.ReportViewer.WebDesign.resources.dll index 12b73e755..3d6c17cff 100644 Binary files a/Bin/es/Microsoft.ReportViewer.WebDesign.resources.dll and b/Bin/es/Microsoft.ReportViewer.WebDesign.resources.dll differ diff --git a/Bin/es/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/es/Microsoft.ReportViewer.WebForms.resources.dll index 797cbc032..d06338dd4 100644 Binary files a/Bin/es/Microsoft.ReportViewer.WebForms.resources.dll and b/Bin/es/Microsoft.ReportViewer.WebForms.resources.dll differ diff --git a/Bin/es/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/es/Microsoft.ReportViewer.WinForms.resources.dll index b1bdcaaea..279cf82c7 100644 Binary files a/Bin/es/Microsoft.ReportViewer.WinForms.resources.dll and b/Bin/es/Microsoft.ReportViewer.WinForms.resources.dll differ diff --git a/Bin/fr/Microsoft.ReportViewer.Common.resources.dll b/Bin/fr/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index 91049cb67..000000000 Binary files a/Bin/fr/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/fr/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/fr/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index dbad2e340..000000000 Binary files a/Bin/fr/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/fr/Microsoft.ReportViewer.Design.resources.dll b/Bin/fr/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index f7d07037d..000000000 Binary files a/Bin/fr/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/fr/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/fr/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index 591c43d61..000000000 Binary files a/Bin/fr/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/fr/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/fr/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 25152ed26..000000000 Binary files a/Bin/fr/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/fr/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/fr/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index 1c3c300f8..000000000 Binary files a/Bin/fr/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/it/Microsoft.ReportViewer.Common.resources.dll b/Bin/it/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index 6c988969d..000000000 Binary files a/Bin/it/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/it/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/it/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index 0e90d96f1..000000000 Binary files a/Bin/it/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/it/Microsoft.ReportViewer.Design.resources.dll b/Bin/it/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index 5964d0c4d..000000000 Binary files a/Bin/it/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/it/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/it/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index d3df12757..000000000 Binary files a/Bin/it/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/it/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/it/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 4458e3c91..000000000 Binary files a/Bin/it/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/it/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/it/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index e049170c1..000000000 Binary files a/Bin/it/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/ko/Microsoft.ReportViewer.Common.resources.dll b/Bin/ko/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index b74a553de..000000000 Binary files a/Bin/ko/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/ko/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/ko/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index b3a2cd11d..000000000 Binary files a/Bin/ko/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/ko/Microsoft.ReportViewer.Design.resources.dll b/Bin/ko/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index 662555151..000000000 Binary files a/Bin/ko/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/ko/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/ko/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index 42189b17a..000000000 Binary files a/Bin/ko/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/ko/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/ko/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 54fd0520b..000000000 Binary files a/Bin/ko/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/ko/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/ko/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index 4b2f747dd..000000000 Binary files a/Bin/ko/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/pt/Microsoft.ReportViewer.Common.resources.dll b/Bin/pt/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index 76bb58f08..000000000 Binary files a/Bin/pt/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/pt/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/pt/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index 2850a8a5f..000000000 Binary files a/Bin/pt/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/pt/Microsoft.ReportViewer.Design.resources.dll b/Bin/pt/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index eabf252d9..000000000 Binary files a/Bin/pt/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/pt/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/pt/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index 4702f3e40..000000000 Binary files a/Bin/pt/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/pt/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/pt/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 4e793007c..000000000 Binary files a/Bin/pt/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/pt/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/pt/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index 113cc97ce..000000000 Binary files a/Bin/pt/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/ru/Microsoft.ReportViewer.Common.resources.dll b/Bin/ru/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index 56bb11879..000000000 Binary files a/Bin/ru/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/ru/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/ru/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index e655bb75b..000000000 Binary files a/Bin/ru/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/ru/Microsoft.ReportViewer.Design.resources.dll b/Bin/ru/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index 8f48cd87b..000000000 Binary files a/Bin/ru/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/ru/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/ru/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index 048f9702a..000000000 Binary files a/Bin/ru/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/ru/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/ru/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index f199d086d..000000000 Binary files a/Bin/ru/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/ru/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/ru/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index e00049bcd..000000000 Binary files a/Bin/ru/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/zh-CHS/Microsoft.ReportViewer.Common.resources.dll b/Bin/zh-CHS/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index 466ba1eea..000000000 Binary files a/Bin/zh-CHS/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/zh-CHS/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/zh-CHS/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index 3c01b5bed..000000000 Binary files a/Bin/zh-CHS/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/zh-CHS/Microsoft.ReportViewer.Design.resources.dll b/Bin/zh-CHS/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index fa8180b47..000000000 Binary files a/Bin/zh-CHS/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/zh-CHS/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/zh-CHS/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index d57eb4062..000000000 Binary files a/Bin/zh-CHS/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/zh-CHS/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/zh-CHS/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index 5b58f404a..000000000 Binary files a/Bin/zh-CHS/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/zh-CHS/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/zh-CHS/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index bf953bc5b..000000000 Binary files a/Bin/zh-CHS/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Bin/zh-CHT/Microsoft.ReportViewer.Common.resources.dll b/Bin/zh-CHT/Microsoft.ReportViewer.Common.resources.dll deleted file mode 100644 index 20b45e20b..000000000 Binary files a/Bin/zh-CHT/Microsoft.ReportViewer.Common.resources.dll and /dev/null differ diff --git a/Bin/zh-CHT/Microsoft.ReportViewer.DataVisualization.resources.dll b/Bin/zh-CHT/Microsoft.ReportViewer.DataVisualization.resources.dll deleted file mode 100644 index e6e6ebff1..000000000 Binary files a/Bin/zh-CHT/Microsoft.ReportViewer.DataVisualization.resources.dll and /dev/null differ diff --git a/Bin/zh-CHT/Microsoft.ReportViewer.Design.resources.dll b/Bin/zh-CHT/Microsoft.ReportViewer.Design.resources.dll deleted file mode 100644 index 4a3ee6200..000000000 Binary files a/Bin/zh-CHT/Microsoft.ReportViewer.Design.resources.dll and /dev/null differ diff --git a/Bin/zh-CHT/Microsoft.ReportViewer.WebDesign.resources.dll b/Bin/zh-CHT/Microsoft.ReportViewer.WebDesign.resources.dll deleted file mode 100644 index 4e32784d5..000000000 Binary files a/Bin/zh-CHT/Microsoft.ReportViewer.WebDesign.resources.dll and /dev/null differ diff --git a/Bin/zh-CHT/Microsoft.ReportViewer.WebForms.resources.dll b/Bin/zh-CHT/Microsoft.ReportViewer.WebForms.resources.dll deleted file mode 100644 index c8f108dd3..000000000 Binary files a/Bin/zh-CHT/Microsoft.ReportViewer.WebForms.resources.dll and /dev/null differ diff --git a/Bin/zh-CHT/Microsoft.ReportViewer.WinForms.resources.dll b/Bin/zh-CHT/Microsoft.ReportViewer.WinForms.resources.dll deleted file mode 100644 index 5a8770065..000000000 Binary files a/Bin/zh-CHT/Microsoft.ReportViewer.WinForms.resources.dll and /dev/null differ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index f321aa17e..628062fd8 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3293,7 +3293,7 @@ Partial Class Compras_Compras If RetIVAOriginal > 0 Then Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal - If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then + If (CalRetIVAPor).RoundSQL(5) = 0.10666 OrElse (CalRetIVAPor).RoundSQL(5) = 0.05333 Then DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales End If If RetIVAFlete Then '4 Fletes @@ -3314,6 +3314,7 @@ Partial Class Compras_Compras 'permitido en un margen de 1% a 2% If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza DdlRetISRConcepto.SelectedValueExist("3") + RetISRResico = True End If End If End If diff --git a/Empresas/186/Formatos/Factura.mrt b/Empresas/186/Formatos/Factura.mrt index b65cacf34..4ca383a79 100644 --- a/Empresas/186/Formatos/Factura.mrt +++ b/Empresas/186/Formatos/Factura.mrt @@ -1481,7 +1481,7 @@ Sello digital del SAT: 0,2.68,14.6,0.8 - Myriad Pro,9,Regular,Point,False,0 + Myriad Pro,8,Regular,Point,False,0 179a957f89d04921b856805a4c2e9d49 0,0,0,0 Text9 @@ -1542,7 +1542,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN" Factura 1/18/2024 9:39:09 AM 7/11/2022 2:49:19 PM - Factura.mrt + C:\inetpub\WWWSigGit\Empresas\186\Formatos\Factura.mrt 4a902ea660c34d0baeae36e92ea35edd Factura Centimeters diff --git a/Empresas/186/Formatos/Pedido.mrt b/Empresas/186/Formatos/Pedido.mrt index f009bae59..e40a5d04d 100644 --- a/Empresas/186/Formatos/Pedido.mrt +++ b/Empresas/186/Formatos/Pedido.mrt @@ -1056,7 +1056,7 @@ Fecha Cirugia: {FechaCirugia} 0,2.48,13.2,0.8 - Myriad Pro,9,Regular,Point,False,0 + Myriad Pro,8,Regular,Point,False,0 1891a87e013d48868bd75b5710529e30 0,0,0,0 Text13 diff --git a/Empresas/186/Formatos/Remision.mrt b/Empresas/186/Formatos/Remision.mrt index 71ce5fc92..632d2fdd1 100644 --- a/Empresas/186/Formatos/Remision.mrt +++ b/Empresas/186/Formatos/Remision.mrt @@ -1080,7 +1080,7 @@ Vendedor: {VendedorNombre} 0,2.48,10.6,1 - Myriad Pro,9,Regular,Point,False,0 + Myriad Pro,8,Regular,Point,False,0 fca703f575e74a9f8bc6628424c9a960 0,0,0,0 Text13 @@ -1138,7 +1138,7 @@ Episodio: {Episodio} Report 10/11/2022 8:18:55 PM 7/11/2022 2:49:19 PM - Remision.mrt + C:\inetpub\WWWSigGit\Empresas\186\Formatos\Remision.mrt 49b2dec77fe542ea952b501bf54fafb1 Report Centimeters diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index c6108e558..403b0c491 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -145,6 +145,15 @@ Partial Class Inventarios_EntradasSalidas ViewState("TieneSalida") = value End Set End Property + + Public Property CveEntregaAlmacen() As Integer + Get + Return ViewState("CveEntregaAlmacen").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveEntregaAlmacen") = value + End Set + End Property Private Property DtBitacora As DataTable Get Return CType(ViewState("DtBitacora"), DataTable) @@ -471,7 +480,6 @@ Partial Class Inventarios_EntradasSalidas CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero) End If - 'BLOQUEA PERMISOS BtnGuardar.Enabled = PermiteGuardar() BtnEliminar.Enabled = PermiteEliminar() @@ -507,7 +515,6 @@ Partial Class Inventarios_EntradasSalidas 'ImgFecha.Visible = True End If - If CveMovimiento > 0 And CveConcepto.Contiene(8) And UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then ValidaUsaConsola() End If @@ -1238,7 +1245,7 @@ Partial Class Inventarios_EntradasSalidas End Sub - Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer) + Private Sub CargaDatosEntregaAlmacen(tCveEntregaAlmacen As Integer) 'RECARGA ALMACENES SOLO DE recepcion de usados DdlAlmacen.Items.Clear() DdlAlmacen.DataBind() @@ -1254,8 +1261,8 @@ Partial Class Inventarios_EntradasSalidas Dim ObjGenerales As New ClsGenerales() - If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then - + If (ObjGenerales.GetEntregaAlmacenRutaDetalle(tCveEntregaAlmacen)) Then + CveEntregaAlmacen = tCveEntregaAlmacen For Each dr As DataRow In ObjGenerales.DtResultados.Rows AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal, 0, "", "", "", "", "E", "", MinFecha, 0, "") @@ -1975,8 +1982,7 @@ Partial Class Inventarios_EntradasSalidas Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.Replace(",", "").ToDate, obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) - CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1") - + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1", CveEntregaAlmacen:=CveEntregaAlmacen) If CveMovimiento <= 0 OrElse CvePrePoliza <= 0 Then Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError) diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx b/Inventarios/RepEntregaAlmacenRuta.aspx index 201541830..4fe1a652b 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx +++ b/Inventarios/RepEntregaAlmacenRuta.aspx @@ -81,10 +81,20 @@ diff --git a/Inventarios/RepEntregaAlmacenRuta.aspx.cs b/Inventarios/RepEntregaAlmacenRuta.aspx.cs index b695828f4..a55573e7a 100644 --- a/Inventarios/RepEntregaAlmacenRuta.aspx.cs +++ b/Inventarios/RepEntregaAlmacenRuta.aspx.cs @@ -345,7 +345,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas { ClsGenerales ObjGeneral = new ClsGenerales(); - if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario)) + if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, Tipo:DdlTipo.SelectedValue)) { DTDatos = ObjGeneral.DtResultados; GVDatos.DataSource = DTDatos; @@ -491,7 +491,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas Timbres ObjTimbres = new Timbres(TimbreTipoDocto, cvetimbre, UsuarioActual); StringBuilder MensajeAlert = new StringBuilder(); MensajeAlert.AppendFormat("Folio: {0}  ", ObjTimbres.ObjFactura.SerieFolio); - if (ObjTimbres.MsgError == "" && ObjTimbres.Timbrar()) + int CvePAC = 4; + if (ObjTimbres.MsgError == "" && ObjTimbres.Timbrar(CvePAC)) { MensajeAlert.AppendFormat("XML    ", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto))); Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index e63644c9a..f26610ca8 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -500,7 +500,7 @@ Partial Class Inventarios_TraspasoAlmacen ' DdlProducto.Visible = False 'End If - CargaPS() + FiltraPS() 'Folio SiguienteFolio(If(ChkTransitorio.Checked, 9, 8)) @@ -508,6 +508,17 @@ Partial Class Inventarios_TraspasoAlmacen 'DdlProducto.DataBind() CargarCamiones() End Sub + Private Sub FiltraPS() + If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlAlmacenOrigen.SelectedValue.ToEntero() > 0 Then + Dim DtAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero()) + If DtAlmacen IsNot Nothing Then + Dim CveSubProyecto As Integer = DtAlmacen.FiltroPrimeroValor("CveSubProyecto").ToEntero() + CargaPS(CveSubProyecto) + End If + Else + CargaPS(-1) + End If + End Sub Private Sub CargaAlmacenOrigen() DdlAlmacenOrigen.Enabled = True DdlAlmacenOrigen.Items.Clear() @@ -517,7 +528,7 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.SelectedValueExist(UsuarioActual.CveAlmacen) End Sub - Private Sub CargaPS() + Private Sub CargaPS(CveSubProyecto As Integer) Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) DdlProducto2.setEsWebService(EsWS) @@ -526,8 +537,8 @@ Partial Class Inventarios_TraspasoAlmacen 'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue) If UsuarioActual.Empresa.Funcionalidad(141) = "1" Then DdlProducto2.ddlWS.Attributes.Add("data-pagina", "inv/traspaso") + DdlProducto2.ddlWS.Attributes.Add("data-cvesubproyecto", CveSubProyecto.ToString()) DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes") - CargaExistenciasSucursal() DdlAlmacenOrigen.AutoPostBack = True End If Else @@ -538,8 +549,8 @@ Partial Class Inventarios_TraspasoAlmacen End Sub Private Sub CargaExistenciasSucursal() - DdlProducto2.Attributes.Remove("Data-cvesubproyecto") - DdlProducto2.Attributes.Add("Data-cvesubproyecto", GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}")) + DdlProducto2.Attributes.Clear() + FiltraPS() End Sub Private Sub SiguienteFolio(CveConcepto As Integer) 'Dim Inv As New ClsInventarios @@ -1006,9 +1017,8 @@ Partial Class Inventarios_TraspasoAlmacen CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDecimal > 0, TxtGastoIndirecto.Text, "-1").ToDecimal, - CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="", - ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="", - Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia) + ResponsableCarga:="", ResponsableRecibio:="", + Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia) FolioSalida = ObjInventario.Folio Folio = ObjInventario.Folio If CveMovimientoSalida <= 0 Then @@ -2745,7 +2755,7 @@ Partial Class Inventarios_TraspasoAlmacen MensajeAlert.Append("

") - If ObjTimbres.Timbrar() Then + If ObjTimbres.Timbrar(CvePACEspecifico:=4) Then Try PdfFactura(ObjTimbres.ObjFactura) @@ -2992,8 +3002,8 @@ Partial Class Inventarios_TraspasoAlmacen ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString()) End If - Else - RowsNoCargados = RowsNoCargados + 1 + Else + RowsNoCargados = RowsNoCargados + 1 ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) End If End If diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index cb56f8656..7ad7c339e 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -19,8 +19,8 @@ Partial Class ListadoContratos End Property #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T") - txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T") + txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString + txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString If Not IsPostBack Then InicializaCombos() @@ -56,6 +56,7 @@ Partial Class ListadoContratos GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataBind() End If + ObjContratos.Dispose() 'Generamos Folio - NumeroContrato Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero diff --git a/Transportes/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb index fa63cee2f..d7983b520 100644 --- a/Transportes/RepViajes.aspx.vb +++ b/Transportes/RepViajes.aspx.vb @@ -107,6 +107,7 @@ Partial Class ListadoViajes Protected Sub AddViaje(sender As Object, e As EventArgs) 'Generador de Viajes Masivos + Dim CveSubProyecto As Integer = DdlRutas.SelectedValue.ToEntero 'GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero If IsMasivo.Checked = True Then If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia) @@ -127,7 +128,6 @@ Partial Class ListadoViajes Dim ObjContratos As New ClsContratos 'Generamos folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then If ObjFolio.DtResultados.Rows.Count > 0 Then Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("") @@ -136,7 +136,7 @@ Partial Class ListadoViajes End If 'Agregamos contrato ObjContratos.IniciaTransacSQL() - If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then ObjContratos.Commit() End If 'Actualizamos Folio @@ -164,13 +164,13 @@ Partial Class ListadoViajes Try 'Agregamos Viaje If BtnGuardar.Text = "Agregar" Then - If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", -1, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then ObjContratos.Commit() Alert("Viaje agregado correctamente.") End If Else 'Actualizamos Viaje - If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then + If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then ObjContratos.Commit() Alert("El viaje se actualizó correctamente.") End If @@ -180,12 +180,8 @@ Partial Class ListadoViajes ObjContratos.RollBack() Finally 'Reiniciamos modal - DdlRutas.Text = "" TxtFechaViaje.Text = "" - DdlPartida.Text = "" - DdlDestino.SelectedValue = "" 'Actualizamos Folio - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero Dim ObjFolios As New ClsGralFolios If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then ObjFolios.Dispose() diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index d10f9c911..8ae294174 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -545,7 +545,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas CveEstatusFactura = -1; } - retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion, CveEstatusFacturaAsignado: CveEstatusFactura); + retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion, CveEstadoCancelacion: CveEstatusFactura); } else { diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fd2f49563..c6e1ba575 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3463,10 +3463,14 @@ Partial Class Ventas LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString - If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then + If Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then HplDownPDF.Visible = False End If + DdlPS.Attributes.Remove("data-cvesubproyecto") + DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) + + UpPS.Update() UPObservaciones.Update() End If @@ -7893,10 +7897,10 @@ Partial Class Ventas End If Dim cvesubproyecto As String = DdlSubProyectoDatos.SelectedValue - If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - 'cuando es empresa llantera (558) o cuando es empresa acumuladores - cvesubproyecto = "-1" - End If + 'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + ' 'cuando es empresa llantera (558) o cuando es empresa acumuladores + ' cvesubproyecto = "-1" + 'End If Objeto.Attributes.Add("data-cvesubproyecto", cvesubproyecto) Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString()) @@ -13315,14 +13319,26 @@ Partial Class Ventas End If End If - If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 2 Then + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then + + CveAlmacenTraspasoDestino = CveAlmacenAsignado + + If RBLTipoVenta.SelectedValue.ToEntero = 2 Then + If Not ChkRequiereTecnico.Checked Then + CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero() + End If + + If CveAlmacenTraspasoDestino <= 0 Then + ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado.") + End If - If CveAlmacenAsignado <= 0 Then - ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.") Else - CveAlmacenTraspasoDestino = CveAlmacenAsignado + If CveAlmacenTraspasoDestino <= 0 Then + ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.") + End If End If + End If Dim TotalImpuestoLocal As Double = 0 @@ -13394,6 +13410,7 @@ Partial Class Ventas CveMedico = DdlMedico.SelectedValue.ToEntero CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero) + 'CveAlmacenTraspasoDestino End If @@ -14815,7 +14832,7 @@ Partial Class Ventas importeMovimiento = 0 Case 103 'Descuento - If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa = 141) Then + If ObjFactura.Descuento <> 0 AndAlso Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso (DdlTipoAmortizacionAnticipo.SelectedValue = "-1" OrElse UsuarioActual.CveEmpresa.Contiene(140, 141)) Then importeMovimiento = ObjFactura.Descuento * Multiplicador * ValorMultiplicador importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador * ValorMultiplicador @@ -17431,6 +17448,11 @@ Partial Class Ventas CargaVendedores() HabilitarRemisionesPublicoGeneral() + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlPS.Attributes.Remove("data-cvesubproyecto") + DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) + End If + UpDetalle.Update() UpEmitirTransitorio.Update() End Sub @@ -36406,7 +36428,7 @@ Partial Class Ventas DvModalRequiereOSFecha.Visible = True Case "2" ' Pago Directo ChkRequiereTecnicoModal.Checked = True - ChkRequiereTecnicoModal.Enabled = False + ChkRequiereTecnicoModal.Enabled = True DvModalRequiereOSFecha.Visible = True DvModalTipoVentaCliente.Visible = True Case "3" 'A-Vista @@ -36608,15 +36630,21 @@ Partial Class Ventas If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura 'DdlTipoComprobante.SelectedValueExist("Ing") - DdlTipoComprobante.SelectedValueExist("Ped") TrVentasMedicas1.Visible = True TrVentasMedicas2.Visible = True TdFechaOS1.Visible = True TdFechaOS2.Visible = True - ChkRequiereTecnico.Checked = True - ChkRequiereTecnico.Enabled = False + ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked + ChkRequiereTecnico.Enabled = True + + If ChkRequiereTecnico.Checked Then + DdlTipoComprobante.SelectedValueExist("Ped") + Else + DdlTipoComprobante.SelectedValueExist("Rem") + End If + ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))