diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index c1a58b3fb..07ef0da67 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6708,6 +6708,53 @@ Public Class ClsContabilidad End Function + + + Public Function GetLibroMayorSIG(CveCuentaPadre As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_LibroMayorSIGGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCuentaPadre ", SqlDbType.Int).Value = CveCuentaPadre + .Add("@FechaI", SqlDbType.Date).Value = FechaInicio + .Add("@FechaF", SqlDbType.Date).Value = FechaFin + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Libro Mayor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetLibroDiarioSIG(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_LibroDiarioSIGGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaInicio + .Add("@FechaF", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de Libro Diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb index 382f34065..62724f041 100644 --- a/App_Code/ClsPV.vb +++ b/App_Code/ClsPV.vb @@ -152,53 +152,53 @@ Public Class ClsPV End Function 'Reporte de Compras - Public Function GetRepPVCompras(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_PV_ComprasGetRep") + 'Public Function GetRepPVCompras(FechaI As String, FechaF As String, CveProveedor As Integer, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_PV_ComprasGetRep") - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor - .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - End With + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + ' .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + ' .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + ' .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@GPO", SqlDbType.Int).Value = Gpo + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Reporte de Compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function 'Reporte de Ventas VS Compras - Public Function GetRepPVVentasCompras(FechaI As String, FechaF As String, CveSubProyecto As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_PV_VentasComprasGetRep") + 'Public Function GetRepPVVentasCompras(FechaI As String, FechaF As String, CveSubProyecto As Integer, CveEmpresa As Integer, Gpo As Integer) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_PV_VentasComprasGetRep") - With SqlAdapter.SelectCommand.Parameters - '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@GPO", SqlDbType.Int).Value = Gpo - End With + ' With SqlAdapter.SelectCommand.Parameters + ' '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta + ' .Add("@FechaI", SqlDbType.VarChar).Value = FechaI + ' .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + ' .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@GPO", SqlDbType.Int).Value = Gpo + ' End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte de Ventas y Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener el Reporte de Ventas y Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ' End Try - Return Retorno - End Function + ' Return Retorno + 'End Function #Region "IDisposable Support" diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e3b6570c4..d1103d1dc 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5538,9 +5538,9 @@ Public Class ClsPaginas PaginaDict.Add("/Proveedores/LogInProveedores.aspx".ToUpper(), -1) 'Punto de Venta - PaginaDict.Add("/PV/PVRepVentas.aspx".ToUpper(), 270) - PaginaDict.Add("/PV/PVRepCompras.aspx".ToUpper(), 272) - PaginaDict.Add("/PV/PVRepVentasCompras.aspx".ToUpper(), 273) + 'PaginaDict.Add("/PV/PVRepVentas.aspx".ToUpper(), 270) + 'PaginaDict.Add("/PV/PVRepCompras.aspx".ToUpper(), 272) + 'PaginaDict.Add("/PV/PVRepVentasCompras.aspx".ToUpper(), 273) PaginaDict.Add("/Contratos/ContratoObra.aspx".ToUpper(), 911) PaginaDict.Add("/Contratos/RepContratosObraAvances.aspx".ToUpper(), 914) @@ -5999,7 +5999,7 @@ Public Class ClsPaginas Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) 'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA - If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") Then + If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") AndAlso Not RutaReporte.Contains("AC/Reportes/") Then bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "") End If @@ -6013,16 +6013,21 @@ Public Class ClsPaginas Dim wsreport As New WSRDLC.WebServiceSoapClient Dim params As New List(Of WSRDLC.ReportParameter) + Dim reportobjects As New List(Of WSRDLC.ReportObjects) + Dim ds As New DataSet For Each rpds As ReportDataSource In DataSource - Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable) - If dt Is Nothing Then - dt = New DataTable() - Else + If rpds.Value.GetType().ToString() = "System.Data.DataTable" Then + Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable) dt = dt.Copy() + dt.TableName = rpds.Name + ds.Tables.Add(dt) + Else + Dim ojext As New WSRDLC.ReportObjects + ojext.Name = rpds.Name + ojext.Value = rpds.Value + reportobjects.Add(ojext) End If - dt.TableName = rpds.Name - ds.Tables.Add(dt) Next For Each rpds As ReportParameter In Parametros Dim param As New WSRDLC.ReportParameter @@ -6030,7 +6035,7 @@ Public Class ClsPaginas param.Values = {rpds.Values(0)} params.Add(param) Next - Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) + Bytes = wsreport.StreamNEWPDFBytes(RutaReporte, ds, reportobjects.ToArray(), params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) wsreport = Nothing params = Nothing ds.Dispose() : ds = Nothing diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 36bf075da..ae57244f9 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5337,7 +5337,7 @@ Public Class ClsVentas #End Region - Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "") As Boolean + Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "", Optional PorcentajeDescuento As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5350,6 +5350,7 @@ Public Class ClsVentas .Add("@TipoAutorizacion", SqlDbType.Int).Value = TipoAutorizacion .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos + .Add("@PorcentajeDescuento", SqlDbType.Decimal).Value = PorcentajeDescuento .Add("@Motivo", SqlDbType.VarChar).Value = Motivo End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7167697c1..f91f6b6b1 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5736,7 +5736,7 @@ Namespace Modelos Else If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion, CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd HH:mm:ss.mmm"), CveMotivoCancelacion:=CveMotivoCancelacion, - MotivoCancelacion:=MotivoCancelacion, EstadoCancelacion:=EstadoCancelacion, CveEstadoCancelacion:=CveEstadoCancelacion) Then + MotivoCancelacion:=MotivoCancelacion, EstadoCancelacion:=EstadoCancelacion, CveEstadoCancelacion:=CveEstadoCancelacion, SelloSolicitudDigitalSAT:=SolicitudCancelacionAcuse) Then ErrorCancelar = True MensajeError = "Ocurrió un error al guardar el estatus de cancelación." End If diff --git a/App_WebReferences/1WSRDLC.zip b/App_WebReferences/1WSRDLC.zip new file mode 100644 index 000000000..27254a455 Binary files /dev/null and b/App_WebReferences/1WSRDLC.zip differ diff --git a/App_WebReferences/WSRDLC/Reference.svcmap b/App_WebReferences/WSRDLC/Reference.svcmap index ce3ec718e..959e59a23 100644 --- a/App_WebReferences/WSRDLC/Reference.svcmap +++ b/App_WebReferences/WSRDLC/Reference.svcmap @@ -1,5 +1,5 @@ - + false true @@ -22,8 +22,8 @@ - + diff --git a/App_WebReferences/WSRDLC/WebService.disco b/App_WebReferences/WSRDLC/WebService.disco index 4b396211d..1dd75ae60 100644 --- a/App_WebReferences/WSRDLC/WebService.disco +++ b/App_WebReferences/WSRDLC/WebService.disco @@ -1,5 +1,5 @@ - + diff --git a/App_WebReferences/WSRDLC/WebService.wsdl b/App_WebReferences/WSRDLC/WebService.wsdl index 5d0cd8152..2dc431a14 100644 --- a/App_WebReferences/WSRDLC/WebService.wsdl +++ b/App_WebReferences/WSRDLC/WebService.wsdl @@ -1,5 +1,5 @@ - + @@ -83,6 +83,73 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -103,6 +170,18 @@ + + + + + + + + + + + + @@ -116,6 +195,14 @@ + + + + + + + + @@ -146,6 +233,24 @@ + + + + + + + + + + + + + + + + + + @@ -176,6 +281,24 @@ + + + + + + + + + + + + + + + + + + diff --git a/App_WebReferences/WSRDLC/configuration.svcinfo b/App_WebReferences/WSRDLC/configuration.svcinfo index 2a3221f28..6e98140ae 100644 --- a/App_WebReferences/WSRDLC/configuration.svcinfo +++ b/App_WebReferences/WSRDLC/configuration.svcinfo @@ -1,10 +1,10 @@  - + - + - + \ No newline at end of file diff --git a/App_WebReferences/WSRDLC/configuration91.svcinfo b/App_WebReferences/WSRDLC/configuration91.svcinfo index b044b1a55..8e2129785 100644 --- a/App_WebReferences/WSRDLC/configuration91.svcinfo +++ b/App_WebReferences/WSRDLC/configuration91.svcinfo @@ -1,10 +1,10 @@ - + - + - WebServiceSoap + WebServiceSoap1 @@ -112,7 +112,7 @@ - + http://localhost:7999/WebService.asmx @@ -124,7 +124,7 @@ basicHttpBinding - WebServiceSoap + WebServiceSoap1 WSRDLC.WebServiceSoap @@ -187,7 +187,7 @@ False - WebServiceSoap + WebServiceSoap1 diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index a9e63b2ef..5abb5359a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -360,10 +360,37 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Cultivo", Cultivo)) params.Add(New ReportParameter("noPallet", noPallet)) params.Add(New ReportParameter("Variedad", Variedad)) - Dim tablaReporte As New DataTable + + Dim lrds As New List(Of ReportDataSource) + + 'img + Dim dtqr As New DataTable + Dim column As DataColumn = New DataColumn("ImagenByte") + column.DataType = System.Type.[GetType]("System.Byte[]") + column.AllowDBNull = True + column.Caption = "ImagenByte" + dtqr.Columns.Add(column) + Dim rowqr As DataRow = dtqr.NewRow() + + + Dim bcode As New BarcodeLib.Barcode() + Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) + Dim barcodebyte As Byte() + Using ms = New MemoryStream() + img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) + barcodebyte = ms.ToArray() + End Using + rowqr("ImagenByte") = barcodebyte + + dtqr.Rows.Add(rowqr) + Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr} + rds2.Name = "dsImagenes" + rds2.Value = dtqr + lrds.Add(rds2) + 'endimg '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Pallet") + ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") End Sub Private Sub imprimirpallet(cvePallet As Integer) Dim Envase As String = "" @@ -377,6 +404,8 @@ Partial Class PopUpVerFactura Dim NoCajas As String = "" Dim NumberOfCode As String = "" Dim CvetypeImpresion As Integer + Dim NumberSmall As String = "" + Dim NumberBig As String = "" 'Envase = "1 1/9" 'Tamano = "Small" 'Cultivo = "Tomate" @@ -394,8 +423,9 @@ Partial Class PopUpVerFactura NoCajas = row("NoCajas").ToString() Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper() CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero() - NumberOfCode = String.Format("(01)00856977005186(13){1:ddMMyy}(10){0}01", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha")) - + NumberOfCode = String.Format("(00)00000000000000(00){1:ddMMyy}(00){0}00", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha")) + NumberSmall = String.Format("{0:00}", noPallet.ToEntero()) + NumberBig = String.Format("{0:00}", row("Consecutivo").ToString().ToEntero()) ' String.Format("{0:dd}", row("Fecha")) End If End Using Dim params As New List(Of ReportParameter) @@ -405,11 +435,13 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion)) params.Add(New ReportParameter("Consecutivo", Consecutivo)) params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower() = "tomate", "3", CvetypeImpresion.ToString()))) + params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower().Contains("tomate"), "3", CvetypeImpresion.ToString()))) params.Add(New ReportParameter("NoCajas", NoCajas)) params.Add(New ReportParameter("NumberOfCode", NumberOfCode)) params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo))) params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase))) + params.Add(New ReportParameter("NumberSmall", NumberSmall)) + params.Add(New ReportParameter("NumberBig", NumberBig)) @@ -431,10 +463,10 @@ Partial Class PopUpVerFactura Dim bcode As New BarcodeLib.Barcode() - ' Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) + Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) Dim barcodebyte As Byte() Using ms = New MemoryStream() - ' img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) + img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) barcodebyte = ms.ToArray() End Using rowqr("ImagenByte") = barcodebyte @@ -807,15 +839,15 @@ Partial Class PopUpVerFactura DtCortesVentasResumen = ObjVenta.DtResultados End If - If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then - DtCortesVentas = ObjPuntoVenta.DtResultados - If DtCortesVentas.Rows.Count > 0 Then - Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0") + 'If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then + ' DtCortesVentas = ObjPuntoVenta.DtResultados + ' If DtCortesVentas.Rows.Count > 0 Then + ' Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0") - Fecha = RowInfo("FechaInicial").ToString - Nombre = RowInfo("Nombre").ToString - End If - End If + ' Fecha = RowInfo("FechaInicial").ToString + ' Nombre = RowInfo("Nombre").ToString + ' End If + 'End If ObjVenta.Dispose() ObjPuntoVenta.Dispose() Dim FechaCorte As String = $" Fecha fin: {Fecha}" diff --git a/Contabilidad/LibroDiario.aspx b/Contabilidad/LibroDiario.aspx index c1e178af6..1c7f57634 100644 --- a/Contabilidad/LibroDiario.aspx +++ b/Contabilidad/LibroDiario.aspx @@ -3,7 +3,7 @@ diff --git a/Contabilidad/LibroMayor.aspx.vb b/Contabilidad/LibroMayor.aspx.vb index d3df61d1e..d605ab9d5 100644 --- a/Contabilidad/LibroMayor.aspx.vb +++ b/Contabilidad/LibroMayor.aspx.vb @@ -44,9 +44,17 @@ Partial Class Contabilidad_LibroMayor If UsuarioActual.Empresa.UsaAC Then BtnConsultar.Enabled = True Else - Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) + + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + BtnConsultar.Enabled = True + Else + Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) + End If + End If + + End If End Sub @@ -70,13 +78,32 @@ Partial Class Contabilidad_LibroMayor FechaInicio = If(IsDate(TxtFechaDel.Text), TxtFechaDel.Text.ToDate, MinFecha) FechaFin = If(IsDate(TxtFechaAl.Text), TxtFechaAl.Text.ToDate, MaxFecha) - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then - DtDatos = ObjConta.DtResultados + '140 + Dim CvecuentaPadre As Integer = 57416 '140 + + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + + + Dim ObjConta As New ClsContabilidad + If ObjConta.GetLibroMayorSIG(CvecuentaPadre, FechaInicio, FechaFin, 1, UsuarioActual.CveEmpresa) Then + DtDatos = ObjConta.DtResultados + Else + DtDatos = Nothing + End If + ObjConta.Dispose() + + Else - DtDatos = Nothing + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + If ObjConta.GetLibroMayor(1, FechaInicio, FechaFin, 1) Then + DtDatos = ObjConta.DtResultados + Else + DtDatos = Nothing + End If + ObjConta.Dispose() End If - ObjConta.Dispose() + + If DtDatos IsNot Nothing Then ImgExcel.Visible = True @@ -159,6 +186,7 @@ Partial Class Contabilidad_LibroMayor #Region " IMPRIMIR " #End Region + Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index f53ec254c..b09cf0b9f 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -4,6 +4,9 @@ @@ -951,7 +951,6 @@ 2pt - true @@ -1811,31 +1810,28 @@ Normal + + - - =Parameters!Fecha.Value - - - - true - true - - - - - VERSION 3.3 - - - - - - - Textbox5 - 2.32303cm - 17.39754cm - 0.6cm - 3.32021cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - true 20.92547cm 0.13424cm - 2.97096cm + 2.25247cm 20.89818cm 42 @@ -3945,8 +3905,44 @@ + + true + true + + + + + VERSION 3.3 + + + + + + + Textbox5 + 23.28377cm + 17.70088cm + 0.6cm + 3.32021cm + 45 + + + 2pt + 2pt + 2pt + 2pt + + - 27.70336cm + 27.49699cm - true @@ -1284,37 +1283,6 @@ - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - true true @@ -1388,7 +1356,7 @@ 4.18454cm 2.70968cm 9.58983cm - 3 + 2 @@ -1468,7 +1436,7 @@ 13.77437cm 2.70968cm 4.34463cm - 4 + 3 @@ -1502,7 +1470,7 @@ 18.23008cm 0.96018cm 2.79101cm - 5 + 4 @@ -1538,7 +1506,7 @@ 18.23008cm 0.6cm 2.79101cm - 6 + 5 @@ -1589,7 +1557,7 @@ 18.23008cm 0.86903cm 2.79101cm - 7 + 6 @@ -1680,7 +1648,7 @@ 0.28014cm 1.09007cm 9.71199cm - 8 + 7 @@ -1760,7 +1728,7 @@ 10.06268cm 0.7927cm 9.71199cm - 9 + 8 @@ -1941,7 +1909,7 @@ 0.25136cm 0.74611cm 13.82025cm - 10 + 9 @@ -1974,7 +1942,7 @@ 14.07729cm 0.57354cm 2.90753cm - 11 + 10 @@ -2000,11 +1968,11 @@ Textbox5 - 8.98809cm + 6.13059cm 0.24983cm 0.05496cm 20.88652cm - 12 + 11 @@ -2058,7 +2026,7 @@ 17.09066cm 0.64028cm 3.90165cm - 13 + 12 @@ -2240,11 +2208,11 @@ Textbox4 - 9.1136cm + 6.2561cm 0.16383cm 2.44366cm 15.07903cm - 14 + 13 @@ -2270,11 +2238,11 @@ Textbox5 - 11.6631cm + 8.8056cm 0.10579cm 0.05496cm 20.88652cm - 15 + 14 @@ -2389,116 +2357,17 @@ DataSet1 - 9.1136cm + 6.2561cm 15.31342cm 0.48004cm 5.71104cm - 16 + 15 - - true - true - true - - - - - Sucursal Matriz - - - - - - - - - - 0cm - 0cm - - - - - - CLABE: 072 760 004 614 648 782 - - - - 0cm - 0cm - - - - - - Cuenta: 0461464878 - - - - 0cm - 0cm - - - - Textbox1 - 7.01327cm - 0.25136cm - 1.8337cm - 9.18009cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - Embedded RFIRMAELECTRONICAEDITABLE @@ -2507,45 +2376,13 @@ 0.28014cm 1.73059cm 3.63914cm - 18 + 16 - - true - true - - - - - Cuenta Bancaria - - - - Textbox13 - 6.49293cm - 0.28014cm - 0.52035cm - 9.15131cm - 19 - - - 2pt - 2pt - 2pt - 2pt - - @@ -3017,11 +2854,11 @@ true - 15.5602cm + 12.7027cm 0.16937cm 2.67787cm 20.85172cm - 20 + 17 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3032,7 +2869,7 @@ - 18.23807cm + 15.38057cm - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 03 - - - - =Parameters!noPallet.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cultivo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COMMODITY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Variedad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VARIETY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Envase.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - STYLE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tamano.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SIZE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Grower - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - LABEL - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!NoCajas.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - PACKS - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - barcode1 - FitProportional - 3.46683cm - 1.51697cm - 1.5cm - 3.24489cm - 14 - - - - - - - - true - true - - - - - PALLET-TAG - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 03 - - - - =Parameters!noPallet.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COMMODITY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VARIETY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COUNTRY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cultivo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Variedad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - MEXICO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - STYLE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SIZE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - LABEL - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Envase.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tamano.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Grower - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - barcode1 - FitProportional - 0.61954cm - 6.0624cm - 1.5cm - 3.24489cm - 14 - - - - - - true - 5.46072cm - 0.0353cm - 2.59618cm - 9.33165cm - 15 - - - - - - - - true - true - - - - - PALLET-TAG - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 03 - - - - =Parameters!noPallet.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COMMODITY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VARIETY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COUNTRY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cultivo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Variedad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - MEXICO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - STYLE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SIZE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - LABEL - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Envase.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tamano.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Grower - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - barcode1 - FitProportional - 0.61954cm - 6.0624cm - 1.5cm - 3.24489cm - 14 - - - - - - true - 8.19801cm - 0.05708cm - 2.59618cm - 9.33165cm - 16 - - - - - - - - true - true - - - - - PALLET-TAG - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 03 - - - - =Parameters!noPallet.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COMMODITY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VARIETY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COUNTRY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cultivo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Variedad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - MEXICO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - STYLE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SIZE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - LABEL - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Envase.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tamano.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Grower - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - barcode1 - FitProportional - 0.61954cm - 6.0624cm - 1.5cm - 3.24489cm - 14 - - - - - - true - 10.79419cm - 0.05708cm - 2.59618cm - 9.33165cm - 17 - - - - - - - - true - true - - - - - PALLET-TAG - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - 03 - - - - =Parameters!noPallet.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COMMODITY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - VARIETY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - COUNTRY - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Cultivo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Variedad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - MEXICO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - STYLE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SIZE - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - LABEL - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Envase.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Tamano.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Grower - - - - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - barcode1 - FitProportional - 0.61954cm - 6.0624cm - 1.5cm - 3.24489cm - 14 - - - - - - true - 13.34436cm - 0.05708cm - 2.59618cm - 9.33165cm - 18 - - - - - - true - 0.14291cm - 0.09907cm - 15.94054cm - 9.49453cm - - - - - - 6.97802in - + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + PACKS + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoCajas.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + Database + =First(Fields!ImagenByte.Value, "dsImagenes") + image/png + FitProportional + 14 + + + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.54708cm + + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + Database + =First(Fields!ImagenByte.Value, "dsImagenes") + image/png + FitProportional + 14 + + + + + + + + + + 0.52062cm + + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + Database + =First(Fields!ImagenByte.Value, "dsImagenes") + image/png + FitProportional + 14 + + + + + + + + + + 0.44125cm + + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + Database + =First(Fields!ImagenByte.Value, "dsImagenes") + image/png + FitProportional + 14 + + + + + + + + + + 0.52062cm + + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + PALLET-TAG + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.38833cm + + + + + true + true + + + + + COMMODITY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VARIETY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + COUNTRY + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + Database + =First(Fields!ImagenByte.Value, "dsImagenes") + image/png + FitProportional + 14 + + + + + + + + + + 0.46771cm + + + + + true + true + + + + + =Parameters!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Variedad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + 03 + + + + =Parameters!noPallet.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + STYLE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + SIZE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LABEL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + =Parameters!Envase.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Tamano.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Grower + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 0.0762cm + 0.10266cm + 13.18458cm + 9.64969cm + + + + + + 5.34012in + + true @@ -3921,7 +3922,7 @@ Produce of MX. 0.0801cm 0.05458cm 8.07288cm - 10.64012cm + 10.6401cm @@ -4005,6 +4006,18 @@ Produce of MX. true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Inventarios/CartaPorteManual.aspx b/Inventarios/CartaPorteManual.aspx index 7f8b36fde..23c4eb614 100644 --- a/Inventarios/CartaPorteManual.aspx +++ b/Inventarios/CartaPorteManual.aspx @@ -217,19 +217,25 @@
-
+
+
+ +
-
+
+
+ +
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 6a403a614..e5bf7f1a8 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -5071,7 +5071,7 @@ Partial Class Inventarios_EntradasSalidas If EsConsumoInterno And UsuarioActual.Empresa.Funcionalidad(590) = "1" Then If DdlSubProyecto.SelectedValue.ToEntero <= 0 Then - Alert("Debe seleccionar un Centro de Constos.", TipoMensaje.MsgAdvertencia) + Alert("Debe seleccionar un Centro de Costos.", TipoMensaje.MsgAdvertencia) Exit Sub Else CargaCultivos() diff --git a/LogIn.aspx b/LogIn.aspx index f027dda87..e1287e4f0 100644 --- a/LogIn.aspx +++ b/LogIn.aspx @@ -132,13 +132,13 @@ <%----%> + + + + diff --git a/SiteAngular.aspx.cs b/SiteAngular.aspx.cs new file mode 100644 index 000000000..f0fa903ac --- /dev/null +++ b/SiteAngular.aspx.cs @@ -0,0 +1,53 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Text; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; + +public partial class SiteAngular : System.Web.UI.Page +{ + public Usuario UsuarioActual + { + get + { + try + { + // UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario) + if (Context.Session["UsuarioSIG"] == null) + { + return null; + } + else { + return (Usuario)Context.Session["UsuarioSIG"]; + } + } + catch (Exception ex) + { + return null; + } + } + } + protected void Page_Load(object sender, EventArgs e) + { + + } + public string GetTokenAngular() + { + if (Context.Session["UsuarioSIG"] != null) + { + Usuario usuario = (Usuario)Context.Session["UsuarioSIG"]; + var tokenDescriptor = new Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor() { Subject = new System.Security.Claims.ClaimsIdentity(new System.Security.Claims.Claim[] { new System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()), new System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), new System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()), new System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), new System.Security.Claims.Claim("Fecha", DateTime.Now.ToLongDateString()) }), Expires = DateTime.UtcNow.AddHours(3), SigningCredentials = new Microsoft.IdentityModel.Tokens.SigningCredentials(new Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")), Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature) }; + var tokenHandler = new System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler(); + var newtoken = tokenHandler.CreateToken(tokenDescriptor); + string stokenn = tokenHandler.WriteToken(newtoken); + return stokenn; + } + else + return ""; + } + + + +} \ No newline at end of file diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index 997f0480f..3660fee70 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -35,7 +35,7 @@
- +
@@ -109,15 +109,19 @@ - + + + + + + - - + @@ -172,6 +176,7 @@ +
@@ -180,6 +185,7 @@ + <%----%>
@@ -194,14 +200,37 @@
- -
- - - - - - +
+
+ +
+
+
+ + + + + + +
+
+
+
+
+
+
+ +
+
+
+ + + + + + +
+
@@ -218,6 +247,7 @@
+
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index 0b18afbd5..71f1b0eba 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -132,7 +132,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim Motivo As String = TxtMotivo.Text.Trim Dim ObjPS As New ClsVentas - If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo) Then + If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo, PorcentajeDescuento:=TxtPorcentaje.Text.ToDecimal()) Then RegistraScript("$('#DModal').modal('hide')") Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion) End If @@ -174,12 +174,21 @@ Partial Class Ventas_CatAutorizacionLimites e.Row.FCLinkButton("LnkAutorizar").Visible = False e.Row.FCLinkButton("LnkRechazar").Visible = False End If + If e.Row.DBCampo("TipoDocumento") = "Ingreso" Then e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-success" Else e.Row.FCLabel("LblTipo").CssClass = "label label-sm label-warning" End If + If e.Row.DBCampo("TipoAutorizacion") = "1" Then + e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-success" + ElseIf e.Row.DBCampo("TipoAutorizacion") = "2" Then + e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-primary" + ElseIf e.Row.DBCampo("TipoAutorizacion") = "3" Then + e.Row.FCLabel("LblTipoAuto").CssClass = "badge badge-secondary" + End If + 'If e.Row.DBCampo("Estatus") = "True" Then ' e.Row.Cells(1).ForeColor = Drawing.Color.Green ' e.Row.Cells(1).Font.Bold = True @@ -281,6 +290,7 @@ Partial Class Ventas_CatAutorizacionLimites Protected Sub DdlTipoAutorizacion_SelectedIndexChanged(sender As Object, e As EventArgs) DivImporte.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 1 DivDiasVencidos.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 2 + DivPorcentajeDescuento.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 3 UpModal.Update() End Sub Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -299,14 +309,30 @@ Partial Class Ventas_CatAutorizacionLimites Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString() Select Case TipoDocto Case "Ing" + If DdlTipoAutorizacion.Items.FindByValue("1") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Importe", "1")) + End If If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2")) End If + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("3")) DivMotivo.Visible = False Case "Egs" + If DdlTipoAutorizacion.Items.FindByValue("1") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Importe", "1")) + End If 'QUITAR LA DE VENCIMIENTO DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) + 'QUITAR LA DE DESCUENTO + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("3")) DivMotivo.Visible = True + Case "Rem" + If DdlTipoAutorizacion.Items.FindByValue("3") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Porcentaje Descuento", "3")) + End If + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("1")) + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) + DivMotivo.Visible = False End Select UpModal.Update() End Sub diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 61fc76d4a..996b26007 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -6,6 +6,14 @@