From 75a272c3a0f49a4897b87708b36ce0b8f2c62089 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 10:25:45 -0700 Subject: [PATCH 1/5] Logo Carta Porte in timbrar --- Empresas/Grales/Formatos/CartaPorte.rdlc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc index 5870d72ed..c05f3e8c2 100644 --- a/Empresas/Grales/Formatos/CartaPorte.rdlc +++ b/Empresas/Grales/Formatos/CartaPorte.rdlc @@ -1602,8 +1602,8 @@ - Database - =System.Convert.FromBase64String(Parameters!LogoPath.Value ) + External + =Parameters!LogoPath.Value image/png FitProportional 0.46171in From acad2e54bba02e2683ecd0f8bd8be4ea099947ee Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 13 Dec 2021 18:18:30 -0700 Subject: [PATCH 2/5] Promociones no se visualiza nombre de cliente --- Ventas/Promociones.aspx.vb | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 8a9295822..beffb6cab 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -257,7 +257,24 @@ Partial Class Ventas_Promociones DdlSubProyecto.SelectedValue = Dr("CveSubProyecto").ToString DdlMarca.SelectedValue = Dr("CveMarca").ToString If Dr("CveVendedor").ToString.ToEntero > 0 Then DdlVendedor.SelectedValue = Dr("CveVendedor").ToString - If Dr("CveCliente").ToString.ToEntero > 0 Then DdlClientes.SelectedValue = Dr("CveCliente").ToString + + If Dr("CveCliente").ToString.ToEntero > 0 Then + + If DdlClientes.UsaWebService Then + + DdlClientes.txtText.Value = Dr("NombreComercial").ToString + DdlClientes.txtValue.Value = Dr("CveCliente").ToString + + Else + DdlClientes.SelectedValue = Dr("CveCliente").ToString + End If + + + + + + End If + ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False) DdlMoneda.SelectedValueExist(Dr("CveMoneda").ToString) DdlMarca.SelectedValueExist(Dr("CveMarca").ToString) From 37f091ec64c10fe5fe139e8c00f66ecd02d1d3b1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 16 Dec 2021 20:23:12 -0700 Subject: [PATCH 3/5] Reembolsos, rep compras AF --- Compras/ReembolsosComprobaciones.aspx | 38 ++++++++++++++++++-- Compras/ReembolsosComprobaciones.aspx.vb | 13 ++++--- Compras/RepComprasAF.aspx | 2 +- Compras/RepComprasAF.aspx.vb | 9 ++++- Compras/RepComprasAFDetalle.aspx.vb | 1 + Empresas/132/Formatos/Factura.rdlc | 44 ++++++++++++++++++++---- Ventas/Promociones.aspx | 2 +- 7 files changed, 93 insertions(+), 16 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 501e2f58e..165b2899a 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -398,7 +398,7 @@ Ot. Ing. -   +   @@ -459,6 +459,21 @@ txt.value = ""; } + //let chequeSeleccionado = parseInt($('#C_DDlCheques option:selected').val()); + + //if (chequeSeleccionado > 0) { + + + // let TotalOtrosEgresos = 0.0; + // $('.CsTxtComision').each(function () { + // TotalOtrosEgresos = parseFloat($(this).val()); + // }); + + // alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos); + + //} + + Excedente = SumaValores(); if (Excedente > 0) { @@ -666,9 +681,28 @@ $get('TxtTotal').value = FormatoNumero(Suma + (ToDouble($get('TxtOtrosImportes').value * -1)), 2); } + + let chequeSeleccionado = parseInt($('#C_DDlCheques option:selected').val()); + let TotalOtrosEgresos = 0.0; + + if (chequeSeleccionado > 0) { + + + + $('.CsTxtComision').each(function () { + TotalOtrosEgresos = parseFloat($(this).val()); + }); + + //alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos); EEEEEEEEEEEEEEEEEEEEEEEEE + + Excedente = Excedente + TotalOtrosEgresos; + + } + + if (Excedente > 0) { txt.value = FormatoNumero(ToDouble(txt.value) - Excedente, 2); - alert("El Importe no debe de exceder a el saldo del cheque"); + alert("Excedente " + Excedente + " TotalOtrosEgresos " + TotalOtrosEgresos); } diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index da89c665e..748d2bd4c 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -744,9 +744,7 @@ Partial Class Compras_ReembolsosComprobaciones End If - - - + Dim ComisionTmp As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal 'Otros Ingresos If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then @@ -764,8 +762,15 @@ Partial Class Compras_ReembolsosComprobaciones If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal) Else PorcentajePago = 1 If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then + + + Dim ImporteMovtoTmp As Decimal = ImporteMovto + If ComisionTmp < 0 Then + ImporteMovtoTmp = ImporteMovto + ComisionTmp + End If + 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29 - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CveCuenta:=CveCuentaPersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovtoTmp, Referencia, If(CveCajaChica > 0, 30, 29), ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(CveCajaChica > 0, IdCuentaBancaria, IdCtaPersonal), -1, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovtoTmp), ImporteMX:=ImporteMovtoTmp * tipoCambio, CveCuenta:=CveCuentaPersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then MsgError = "Detalle" End If End If diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx index c77ccf991..07177fb93 100644 --- a/Compras/RepComprasAF.aspx +++ b/Compras/RepComprasAF.aspx @@ -174,7 +174,7 @@
-
+
{2}", "Texto", Liga, e.Row.DataKey("GPO").ToString) Else e.Row.BackColor = Drawing.Color.LightGray + Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO=-1&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}" + + e.Row.Cells(0).Text = String.Format("{2}", "Texto", Liga, e.Row.DataKey("Moneda").ToString) + End If + End If End Sub diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb index d903d5b4d..ea9336f1b 100644 --- a/Compras/RepComprasAFDetalle.aspx.vb +++ b/Compras/RepComprasAFDetalle.aspx.vb @@ -317,6 +317,7 @@ Partial Class Compras_RepComprasAFDetalle e.Row.Cells(0).Text = String.Format("{2}", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString) Else e.Row.BackColor = Drawing.Color.LightGray + e.Row.Font.Bold = True End If End If diff --git a/Empresas/132/Formatos/Factura.rdlc b/Empresas/132/Formatos/Factura.rdlc index 319a612b8..f56a59d45 100644 --- a/Empresas/132/Formatos/Factura.rdlc +++ b/Empresas/132/Formatos/Factura.rdlc @@ -1749,12 +1749,6 @@ 8pt - - =Today - - + + true + true + + + + + =Today + + + + + + + Textbox8 + 3.29402cm + 2.95339cm + 0.46771cm + 1.91468cm + 38 + + + 2pt + 2pt + 2pt + 2pt + + true 17.96022cm diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 7a09fdfad..7607a8ec7 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -107,7 +107,7 @@
- +
From 46c5c017dcf68dceea139278c23c7e0e9c96c5dd Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 17 Dec 2021 08:19:26 -0700 Subject: [PATCH 4/5] --- App_Code/ClsNominas.vb | 47 + App_Code/modExtensiones.vb | 10 +- Ashx/SIGWeb.ashx | 3 +- Compras/PopUpVerFactura.aspx.vb | 75 +- Documentacion/TableroMaterialidad.aspx | 63 +- Documentacion/TableroMaterialidad.aspx.cs | 1101 +++++++++++- GPS/PalletEtiqueta.rdlc | 1934 +++++++++++++++++---- Nomina/CatPeriodos.aspx.vb | 30 +- Nomina/CatSatBancos.aspx.vb | 23 +- Nomina/Nomina.aspx.cs | 2 +- RH/CalculoSBC.aspx.cs | 23 +- RH/Personal.aspx.vb | 3 +- Ventas/Clientes.aspx | 20 +- Ventas/RepConciliacionEmitidosSat.aspx.cs | 34 +- vwd.webinfo | 4 + 15 files changed, 2945 insertions(+), 427 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 5ed7caf39..92cd449be 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2978,6 +2978,53 @@ Public Class ClsNominas End Function #End Region + + + Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object) + SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor + End Sub + Public Function RunQuery(errormsg As String) As Boolean + Dim retorno As Boolean = False + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + retorno = False + OnError(errormsg, ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + + Public Function PA_AGRO_Embarque_ManifiestoGet(cveSubproyecto As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_AGRO_Embarque_ManifiestoGet", CommandType.StoredProcedure) + addParameters("@CveSubproyecto", SqlDbType.Int, cveSubproyecto) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveEmbarqueManifiesto", SqlDbType.Int, cveEmbarqueManifiesto) + retorno = RunQuery("Ocurrió un error al obtener el PA_AGRO_Embarque_ManifiestoGet.") + Return retorno + End Function + + Public Function PA_Agro_Embarque_PalletGet(cvePallet As Int32, cveCultivo As Int32, cveCultivoVariedad As Int32, cveEnvase As Int32, cveEtiqueta As Int32, cveEtiquetasporTarima As Int32, cveFormatoImpresion As Int32, cveTamaño As Int32, cveTipoTarima As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32, cveTemporada As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Agro_Embarque_PalletGet", CommandType.StoredProcedure) + addParameters("@CvePallet", SqlDbType.Int, cvePallet) + addParameters("@CveCultivo", SqlDbType.Int, cveCultivo) + addParameters("@CveCultivoVariedad", SqlDbType.Int, cveCultivoVariedad) + addParameters("@CveEnvase", SqlDbType.Int, cveEnvase) + addParameters("@CveEtiqueta", SqlDbType.Int, cveEtiqueta) + addParameters("@CveEtiquetasporTarima", SqlDbType.Int, cveEtiquetasporTarima) + addParameters("@CveFormatoImpresion", SqlDbType.Int, cveFormatoImpresion) + addParameters("@CveTamaño", SqlDbType.Int, cveTamaño) + addParameters("@CveTipoTarima", SqlDbType.Int, cveTipoTarima) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveEmbarqueManifiesto", SqlDbType.Int, cveEmbarqueManifiesto) + addParameters("@CveTemporada", SqlDbType.Int, cveTemporada) + retorno = RunQuery("Ocurrió un error al obtener el PA_Agro_Embarque_PalletGet.") + Return retorno + End Function + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 63358b70f..bb6c90d07 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -3178,10 +3178,14 @@ Namespace Extensiones Public Sub SelectedValueExistInsert(Obj As DropDownList, Valor As Object, Texto As String) If (Obj.Items.FindByValue(Valor.ToString()) IsNot Nothing) Then - Obj.SelectedValue = Valor.ToString + Obj.SelectedValue = Valor.ToString() Else - Obj.Items.Insert(1, New ListItem(Texto, Valor.ToString)) - Obj.SelectedValue = Valor.ToString + If Obj.Items.Count > 0 Then + Obj.Items.Insert(1, New ListItem(Texto, Valor.ToString())) + Else + Obj.Items.Insert(0, New ListItem(Texto, Valor.ToString())) + End If + Obj.SelectedValue = Valor.ToString() End If End Sub diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index a92ab17f2..9250a2f5f 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -271,7 +271,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Response = context.Response Dim tablaReporte As New DataTable '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - ImprimirPDF("D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") Return retorno End Function Private Function GetTokenAngular(context As HttpContext) As String diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 78b16ec63..eb9ccbd04 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -195,11 +195,84 @@ Partial Class PopUpVerFactura SeleccionaReporte(UrlParametros) End If End If - + If Request("onlyPrint") IsNot Nothing Then + If Request("onlyPrint").ToString() = "Pallet" Then + imprimirpallet2(Request("CvePallet").ToString.ToEntero()) + End If + If Request("onlyPrint").ToString() = "PalletCaja" Then + imprimirpallet(Request("CvePallet").ToString.ToEntero()) + End If + End If End If End Sub + Private Sub imprimirpallet2(cvePallet As Integer) + Dim Envase As String = "" + Dim Tamano As String = "" + Dim Cultivo As String = "" + Dim noPallet As String = "" + Dim Variedad As String = "" + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + 'noPallet = "000001" + 'Variedad = "Golden" + Using objnom As New ClsNominas + If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then + Dim row As DataRow = objnom.DtResultados.Rows(0) + Envase = row("Envase").ToString() + Tamano = row("Tamaño").ToString() + Cultivo = row("Cultivo").ToString() + noPallet = row("Codigo").ToString() + Variedad = row("CultivoVariedad").ToString() + + End If + + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Envase", Envase)) + params.Add(New ReportParameter("Tamano", Tamano)) + params.Add(New ReportParameter("Cultivo", Cultivo)) + params.Add(New ReportParameter("noPallet", noPallet)) + params.Add(New ReportParameter("Variedad", Variedad)) + Dim tablaReporte As New DataTable + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + End Sub + Private Sub imprimirpallet(cvePallet As Integer) + Dim Envase As String = "" + Dim Tamano As String = "" + Dim Cultivo As String = "" + Dim noPallet As String = "" + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + 'noPallet = "000001" + Using objnom As New ClsNominas + If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then + Dim row As DataRow = objnom.DtResultados.Rows(0) + Envase = row("Envase").ToString() + Tamano = row("Tamaño").ToString() + Cultivo = row("Cultivo").ToString() + noPallet = row("Codigo").ToString() + + End If + + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("Envase", Envase)) + params.Add(New ReportParameter("Tamano", Tamano)) + params.Add(New ReportParameter("Cultivo", Cultivo)) + params.Add(New ReportParameter("noPallet", noPallet)) + Dim tablaReporte As New DataTable + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + ImprimirPDF("GPS/PalletEtiqueta.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS") + End Sub #Region "U S U A R I O - T O K E N" Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx index 967e0483e..c7a5d2ecc 100644 --- a/Documentacion/TableroMaterialidad.aspx +++ b/Documentacion/TableroMaterialidad.aspx @@ -178,9 +178,64 @@ Información: Los documentos cargados serán relacionados en el periodo: -
-
- +
+ +
+
+
+ + Paso 1: Procesar 'ZIP' +
+
+ +
+
+
+ Procesar +
+
+
+
+
+ +
+
+
+
+
+
+ + Paso 2: Guardar +
+
+ +
+
+
@@ -188,7 +243,7 @@