From 0bd4ac8074fbde8b0e0e2af84975c2d7bc9dbcfa Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 9 Feb 2022 15:36:25 -0700 Subject: [PATCH 01/18] =?UTF-8?q?--=20devoluci=C3=B3n=20de=20izettle,=20co?= =?UTF-8?q?n=20numeros=20negativos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/DepositosCaja.aspx | 34 +++++++---- Bancos/DepositosCaja.aspx.vb | 108 +++++++++++++++++------------------ 2 files changed, 75 insertions(+), 67 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index accb3c4ed..959d3de1b 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -416,13 +416,19 @@ comisionNegativa = txtcomision * -1; } if (comisionNegativa > saldo) { - $('#C_TxtComision').val(0); - comision = 0; - descuento = 0; - txtcomision = 0; - alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado"); - saldo = 0; - $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2)); + + //var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?"); + //if (opcion != true) { + // debugger; + // $('#C_TxtComision').val(0); + // comision = 0; + // descuento = 0; + // txtcomision = 0; + // //alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado"); + // saldo = 0; + // $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2)); + //} + } else { //debugger; @@ -509,14 +515,18 @@ if (comision2 < 0) { comisionNegativa = comision2 * -1; } - if (comisionNegativa > ValorTotalSeleccionado) { - $('#C_TxtComision').val(0) - alert("No es posible poner una comision superior a lo seleccionado") - } else { + //if (comisionNegativa > ValorTotalSeleccionado) { + // var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?"); + // if (opcion != true) { + // debugger; + // $('#C_TxtComision').val(0) + // // alert("No es posible poner una comision superior a lo seleccionado") + // } + //} else { saldo = ValorTotalSeleccionado + comision2 + descuento - IVA - ComisionIntermediario; $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); comision = ToDouble($('#C_TxtComision').val()) - } + //} } diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index da29b34eb..dc9c99b5c 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -236,17 +236,21 @@ Partial Class Bancos_DepositosCaja End If End If + Dim CveTransaccionBanco As Integer = 13 + + If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger + CveTransaccionBanco = 6 + End If 'Entrada a bancos - FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 13) + FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco) If Not FolioIE > 0 Then OcurrioError = True End If - CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 13, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario) - - documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE) - + CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario) + documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE) + If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then If ChkFaltante.Checked Then @@ -256,9 +260,7 @@ Partial Class Bancos_DepositosCaja If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then OcurrioError = True End If - End If - - + End If End If If ChkDescuento.Checked Then @@ -268,68 +270,64 @@ Partial Class Bancos_DepositosCaja If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then OcurrioError = True End If - End If - - - + End If + Else OcurrioError = True End If - - For Each Gvr As GridViewRow In GvFacturas.Rows - - If Gvr.FCCheckBox("ChkFactura").Checked Then - 'Datos de las Nuevas PrePolizas - 'Entrada a Bancos - - Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal - Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString - - 'Datos de las Prepolizas A Cancelar - Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero - Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero - Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero - - FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) - If Not FolioIE > 0 Then - OcurrioError = True - Exit For - End If - CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then - OcurrioError = True - Exit For - End If - - 'Asignamos la cuenta Deposito - If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then - OcurrioError = True - Exit For + If Not OcurrioError Then + For Each Gvr As GridViewRow In GvFacturas.Rows + + If Gvr.FCCheckBox("ChkFactura").Checked Then + 'Datos de las Nuevas PrePolizas + 'Entrada a Bancos + + Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal + Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString + + 'Datos de las Prepolizas A Cancelar + Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero + Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero + Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero + + FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2) + If Not FolioIE > 0 Then + OcurrioError = True + Exit For + End If + CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + + + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then + OcurrioError = True + Exit For + End If + + 'Asignamos la cuenta Deposito + If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then + OcurrioError = True + Exit For + End If + End If + Next - End If - - Next + Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") - Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}") + documentos += String.Format("
Imprimir {1}

", StrEncript, "Depósito Bancario") + End If - documentos += String.Format("
Imprimir {1}

", StrEncript, "Depósito Bancario") - If OcurrioError Then ObjContabilidad.RollBack() Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError) Else - ObjContabilidad.Commit() - CargaDatos() - + ObjContabilidad.Commit() documentos += String.Format("Prepóliza

", NuevaCvePrePoliza) - Alert(documentos.ToString) - + Alert(documentos.ToString) + CargaDatos() End If TxtComision.Text = "" From 3d840da1201ecf1c7d1acf054ebdd0e50cd1e9cf Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 9 Feb 2022 15:36:36 -0700 Subject: [PATCH 02/18] - --- Ventas/RepProductosServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index 723798e90..30114c074 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -194,7 +194,7 @@ Partial Class Ventas_RepProductosServicios DdlSubProyectoEjecucion.DataBind() 'Vendedor - DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,3)") 'vendedores y vendedores de piso DdlVendedor.DataBind() 'CargaUsuarios From 9bb1d9431a4abf0333a0d58c55e32b2b08efd777 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 07:30:04 -0700 Subject: [PATCH 03/18] - scorecard --- Ventas/CatMetasVendedores.aspx | 8 +- Ventas/CatMetasVendedores.aspx.vb | 153 ++++++++++++------------------ Ventas/MetasVendedores.aspx | 79 ++++++++++----- Ventas/MetasVendedores.aspx.vb | 8 +- 4 files changed, 126 insertions(+), 122 deletions(-) diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx index e502470b9..f4a31b5c6 100644 --- a/Ventas/CatMetasVendedores.aspx +++ b/Ventas/CatMetasVendedores.aspx @@ -70,7 +70,7 @@ - + @@ -122,7 +122,7 @@ - + @@ -132,9 +132,9 @@ - + - + diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index ac1883e6e..f7e55c204 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -15,6 +15,7 @@ Partial Class CatMetasVendedores Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + txtMesAnio.Text = Now.FirstDayOfMonth.ToShortDateString CargaDatosModal() CargaCombos() CargaDatos() @@ -87,7 +88,7 @@ Partial Class CatMetasVendedores Dim ObjVentas As New ClsVentas If BtnAgregarMetaVendedor.Text = "Agregar" Then If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, - TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero) Then + TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then Alert("Se agregó la meta al vendedor") Else Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError) @@ -279,105 +280,75 @@ Partial Class CatMetasVendedores Dim ProductosNoCargados As New StringBuilder() Dim RowsCargados As Integer = 0 Dim RowsNoCargados As Integer = 0 - Dim ObjMetas As New ClsVentas - 'ObjPS.IniciaTransacSQL() + Dim ObjMetas As New ClsVentas + Dim Correcto As Boolean = True + ObjMetas.IniciaTransacSQL() Try Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa) Dim DtClasificaciones As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) - Dim DtClasificaciones2 As DataTable = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) - - For Each row As DataRow In dt.Rows - Dim Correcto As Boolean = False - Dim TieneError As Boolean = False - Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("Vendedor LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero - Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero - Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero - Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero - - Dim Mes As Decimal = row("Mes").ToString().ToDecimal() - Dim Anio As Decimal = row("Año").ToString().ToDecimal() - Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal() - Dim Importe As Decimal = row("Importe").ToString().ToDecimal() - - Dim FechaRef As New DateTime(Anio, Mes, 1) - If CveVendedor > 0 AndAlso CveVendedor > 0 AndAlso CveClasificacion > 0 AndAlso CveClasificacion2 > 0 AndAlso CveMarca > 0 Then - Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion) - If Correcto Then - RowsCargados += 1 - End If - End If - - If Not Correcto Then - RowsNoCargados += 1 - End If + Dim DtClasificaciones2 As DataTable = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa) + + + For Each row As DataRow In dt.Rows + + If Correcto Then + Dim TieneError As Boolean = False + Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("trim(Vendedor) LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero + Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero + Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero + Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero + + Dim Mes As Decimal = row("Mes").ToString().ToDecimal() + Dim Anio As Decimal = row("Año").ToString().ToDecimal() + Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal() + Dim Importe As Decimal = row("Importe").ToString().ToDecimal() + + Dim FechaRef As New DateTime(Anio, Mes, 1) + If CveVendedor > 0 AndAlso CveVendedor > 0 AndAlso CveClasificacion > 0 AndAlso CveClasificacion2 > 0 AndAlso CveMarca > 0 Then + Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion, UsuarioActual.CveEmpresa) + If Correcto Then + RowsCargados += 1 + End If + End If + + If Not Correcto Then + RowsNoCargados += 1 + End If + End If + Next Catch ex As Exception OnError("Ocurrió un error al cargar los precios.", ex) Finally - ObjMarcas.Dispose() - - Dim MensajeFinal As New StringBuilder() - If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then - MensajeFinal.Append("Las metas se cargaron correctamente.

") - End If - If RowsCargados > 0 Then - MensajeFinal.Append("Se cargaron " & RowsCargados & " metas correctamente.") - End If - If RowsNoCargados > 0 Then - MensajeFinal.Append("No se pudieron actualizar " & RowsNoCargados & " metas.
") - End If - - Alert(MensajeFinal.ToString()) + Dim MensajeFinal As New StringBuilder() + + If Correcto Then + ObjMetas.Commit() + If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then + MensajeFinal.Append("Las metas se cargaron correctamente.

") + End If + If RowsCargados > 0 Then + MensajeFinal.Append("Se cargaron " & RowsCargados & " metas correctamente.") + End If + If RowsNoCargados > 0 Then + MensajeFinal.Append("No se pudieron actualizar " & RowsNoCargados & " metas.
") + End If + + Alert(MensajeFinal.ToString()) + Else + ObjMetas.RollBack() + If RowsNoCargados > 0 Then + MensajeFinal.Append("No se pudieron actualizar " & RowsNoCargados & " metas.
") + End If + Alert(MensajeFinal.ToString()) + End If + + + End Try End If - End Sub - - Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable - SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) - - Dim unnamed As Integer = 0 - Dim cols As Integer - Dim columns As String() - Dim curRow As Integer = 0 - Dim curCol As Integer = 0 - Dim dataTable As DataTable = New DataTable() - Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0) - - For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 - - If firstRowHasHeaders Then - - If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then - dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString()) - Else - dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) - End If - - curRow = 1 - Else - dataTable.Columns.Add("Column " & (cols + 1)) - End If - Next - - While curRow < worksheet.Rows.Count - columns = New String(cols - 1) {} - - For curCol = 0 To cols - 1 - - If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then - columns(curCol) = "" - Else - columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() - End If - Next - - dataTable.Rows.Add(columns) - curRow += 1 - End While - - Return dataTable - End Function + End Sub + End Class diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx index bc92e3f74..26f289904 100644 --- a/Ventas/MetasVendedores.aspx +++ b/Ventas/MetasVendedores.aspx @@ -144,59 +144,86 @@ CssClass="table table-advance Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + - + - + - + + + %Inte + - + + + Año
Anterior + - + - + + + Obj.
Mes + - + - + + + Var
Mes A.A + - + - + + + Var
Obj. + - + - + + + Real
Acum. + - + - + + + %Inte + - + + + Acum
Año Ant + - + - + + + Obj.
Acum + - + <%-- @@ -204,14 +231,20 @@ --%> - + + + Var
vs AA + - + - + + + Var
Obj. + - + diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 95b680714..27db649af 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -86,7 +86,7 @@ Partial Class MetasVendedores Select Case e.Row.DBCampo("TipoFila") Case "1" - e.Row.CssClass = "GrupoSuperior" + e.Row.CssClass = "Totales" ' e.Row.FCLabel("lblRealMes").Text = "" ' e.Row.FCLabel("lblVtaMesAA").Text = "" ' e.Row.FCLabel("lblObjMes").Text = "" @@ -98,11 +98,11 @@ Partial Class MetasVendedores ' e.Row.FCLabel("lblVarVSAA").Text = "" ' e.Row.FCLabel("lblVarVSObjAcum").Text = "" Case "2" - e.Row.CssClass = "Totales" - Case "3" e.Row.CssClass = "SubTotales2" - Case "4" + Case "3" e.Row.CssClass = "SubTotales" + Case "4" + e.Row.CssClass = "SubTotales3" End Select If e.Row.DataKey("Titulo") = "" Then From c6bd70ad5d9e3f248b3cab845f0468d638d75e95 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 07:30:21 -0700 Subject: [PATCH 04/18] -- parametro de empresa en eliminar chofer --- Acarreos/CatChoferes.aspx.vb | 6 ++++-- App_Code/ClsAcarreos.vb | 17 +++++++++-------- 2 files changed, 13 insertions(+), 10 deletions(-) diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 9cb694e84..12be6ccc0 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -212,9 +212,11 @@ Partial Class Acarreos_CatChoferes Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) HdnID.Value = GvRow.DataKey("CveChofer") UpDatos.Update() - If ObjAcar.RemoveChofer(HdnID.Value) Then + If ObjAcar.RemoveChofer(HdnID.Value, UsuarioActual.CveEmpresa) Then CargaDatos() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) + Else + Alert("No se puede eliminar el chofer. verifique que no tenga movimientos registrados.", TipoMensaje.MsgError) End If ObjAcar.Dispose() UpDatos.Update() @@ -312,7 +314,7 @@ Partial Class Acarreos_CatChoferes If CPTxt > 0 And CveColonia > 0 Then Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero If CPTxt <> CP Then - Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia) + Alert("El código postal seleccionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia) End If End If End Sub diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb index 40453e466..b1d38972e 100644 --- a/App_Code/ClsAcarreos.vb +++ b/App_Code/ClsAcarreos.vb @@ -207,26 +207,27 @@ Public Class ClsAcarreos Return Retorno End Function - Public Function RemoveChofer(CveChofer As Integer) As Boolean + Public Function RemoveChofer(CveChofer As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Acar_ChoferesRemove") With SqlAdapter.SelectCommand.Parameters - .Add("@CveChofer", SqlDbType.Int).Value = CveChofer - + .Add("@CveChofer", SqlDbType.Int).Value = CveChofer + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@vRetorno", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = SqlAdapter.SelectCommand.Parameters("@vRetorno").Value.ToString = "1" Catch ex As Exception OnError("Ocurrió un error al eliminar el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function - - + End Function + + #End Region - + #Region "Transportistas" Public Function AddTransportista(Transportista As String, CveUsuario As Integer, CveEmpresa As Integer, CveProveedor As Integer) As Boolean Dim Retorno As Boolean = False From 97354314e0285c191c6cb93dee2b676d4584fa06 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 07:30:48 -0700 Subject: [PATCH 05/18] =?UTF-8?q?--=20liga=20para=20el=20generador=20de=20?= =?UTF-8?q?c=C3=B3digo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 95cad2ac0..ceaa0f45c 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -20,7 +20,7 @@ Public Class Timbrado Public Property CancelacionState As Integer Public Property CancelacionMensaje As String Public Property CancelacionFecha As Date - + Public Const LigaVerificacionSAT = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" Public Class AcuseCancelacionSAT Public Property CodigoEstatus As String @@ -1956,8 +1956,9 @@ Public Class Timbrado If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\") Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim b As Byte() = cfdi.ConvertirQrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - File.WriteAllBytes(RutaCBB, b) + Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB) + CBB = Nothing Retorno = "" Else @@ -2342,7 +2343,7 @@ Public Class Timbrado cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp In concep.MercanciasCantidadTransporta cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) Next @@ -2665,8 +2666,9 @@ Public Class Timbrado Try Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - File.WriteAllBytes(RutaCBB, b) + Dim bCBB As Byte() = cfdi.QrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=L06iXw==") + File.WriteAllBytes(RutaCBB, bCBB) + bCBB = Nothing Catch ex As Exception OnError("Ocurrió un error al generar el QR", ex) End Try @@ -3268,8 +3270,9 @@ Public Class Timbrado Try Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}") - File.WriteAllBytes(RutaCBB, b) + Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() + CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB) + CBB = Nothing Catch ex As Exception OnError("Ocurrió un error al generar el QR", ex) End Try @@ -3684,7 +3687,7 @@ Public Class Timbrado cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion) If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias - cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) + cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp In concep.MercanciasCantidadTransporta cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) Next From 0c928aaf4aefd57879c7ca1c03328357fc750ff0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 20:52:46 -0700 Subject: [PATCH 06/18] -- parametros de tipo transaccin --- App_Code/ClsMovimientos.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index f08a19c90..03ccd11b5 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1505,7 +1505,7 @@ Public Class ClsMovimientos Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha, Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha, - Optional CveCondicionesPago As Integer = -1) As Boolean + Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepRecuperacion") With SqlAdapter.SelectCommand.Parameters @@ -1530,6 +1530,7 @@ Public Class ClsMovimientos .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString @@ -1590,7 +1591,8 @@ Public Class ClsMovimientos Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing, - Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean + Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha, + Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1620,6 +1622,8 @@ Public Class ClsMovimientos .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor + .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago + .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString From 82de1a1753f94deb801c88eafb0c9703b00914d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 20:52:51 -0700 Subject: [PATCH 07/18] - --- App_Code/Timbrado.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index ceaa0f45c..d11401ed9 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2666,7 +2666,7 @@ Public Class Timbrado Try Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg" - Dim bCBB As Byte() = cfdi.QrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=L06iXw==") + Dim bCBB As Byte() = cfdi.QrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=ELleDg==") File.WriteAllBytes(RutaCBB, bCBB) bCBB = Nothing Catch ex As Exception From e7cabe9e8b576feea3c80bd9331fcc482e0fc3d2 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 20:54:46 -0700 Subject: [PATCH 08/18] -- resico E119 --- Compras/Compras.aspx.vb | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 55031430c..bdf3f9b2f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2194,6 +2194,9 @@ Partial Class Compras_Compras DdlRetISRConcepto.Items.Clear() DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) + If UsuarioActual.CveEmpresa = 119 Then + DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + End If End If UpPS.Update() End Sub @@ -6315,7 +6318,10 @@ Partial Class Compras_Compras funcionalidad = 318 ConceptoContable = 244 ConceptoContableContra = 243 - + ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then + funcionalidad = 348 + ConceptoContable = 328 + ConceptoContableContra = 327 End If importeMovimiento = importeRetISRAcreditable @@ -6352,7 +6358,9 @@ Partial Class Compras_Compras ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then funcionalidad = 317 ConceptoContable = 243 - + ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then + funcionalidad = 348 + ConceptoContable = 327 End If importeMovimiento = importeRetISRxAcreditar importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador From 34d2ec3530082a566f087e5ab1fdfe1e8c34b4c4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 20:56:04 -0700 Subject: [PATCH 09/18] fluctuacion cambiaria --- App_Code/ClsBancos.vb | 54 +++++++++++++++++++++++++++-- Bancos/FluctuacionCambiaria.aspx | 22 ++++++------ Bancos/FluctuacionCambiaria.aspx.vb | 48 ++++++++++++++++++------- 3 files changed, 97 insertions(+), 27 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 4ddd2d56a..e3b37b8e8 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3352,8 +3352,8 @@ Public Class ClsBancos Return Retorno End Function - Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False + Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer + Dim Retorno As Integer = 0 DataAdapter("PA_Banc_FluctuacionesBitacoraAdd") @@ -3363,11 +3363,13 @@ Public Class ClsBancos .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@vCveFluctuacionBitacora", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) - Retorno = True + Retorno = SqlAdapter.SelectCommand.Parameters("@vCveFluctuacionBitacora").Value.ToString.ToEntero + Catch ex As Exception OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try @@ -3394,6 +3396,52 @@ Public Class ClsBancos Return Retorno End Function + + Public Function UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = True + + DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza + .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion + .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function FluctuacionesBitacoraPrePolizaRemove(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = True + + DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza + .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion + .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error al eliminar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + #End Region #Region "B A N C O S - T A R J E T A S C R E D I T O S" diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx index 19dc04717..f161ebbdc 100644 --- a/Bancos/FluctuacionCambiaria.aspx +++ b/Bancos/FluctuacionCambiaria.aspx @@ -151,6 +151,7 @@
+
@@ -159,7 +160,7 @@ - + @@ -222,8 +223,7 @@
- - +
+
+
- - - - +
@@ -267,7 +266,7 @@ <%----%> - + @@ -308,6 +307,7 @@

+
@@ -322,7 +322,7 @@
- + @@ -353,7 +353,7 @@
-
+ diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index a70c0be21..18efa98d4 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -131,6 +131,8 @@ Partial Class Bancos_FluctuacionCambiaria Dim GanaciaAux As Double = Ganancias.SUM("Fluctuacion") Dim Final As Double = GanaciaAux - PerdidaAux + HdnProveedorCvePrePoliza.Value = ObjBancos.DtResultados.MAX("CvePrePoliza").ToString + HdnCveFluctuacionBitacora.Value = ObjBancos.DtResultados.MAX("CveFluctuacionBitacora").ToString IImagenResultado.Attributes("class") = If(Final > 0, "widget-thumb-icon bg-green-jungle fa fa-usd", "widget-thumb-icon bg-red fa fa-usd") @@ -280,8 +282,8 @@ Partial Class Bancos_FluctuacionCambiaria Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs) Dim Total As Decimal = 0 - Dim Conta As New ClsContabilidad - Conta.IniciaTransacSQL() + Dim Conta As New ClsContabilidad + Dim Banco As New ClsBancos(Conta.IniciaTransacSQL()) Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoCompras.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim idCta As Integer = 0 @@ -316,7 +318,12 @@ Partial Class Bancos_FluctuacionCambiaria If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Compras", CveConceptoContable, "Fluctuación Compras", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then ErrorRegistrar = True - End If + End If + + 'Dim CveBitacora As Integer = Banco.AddFluctuacionesBitacora(-1, FechaUltimoDiaMes, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + 'If CveBitacora <= 0 Then + ' ErrorRegistrar = True + 'End If 'saco las cuentas de pérdida y ganancia @@ -326,18 +333,20 @@ Partial Class Bancos_FluctuacionCambiaria IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero() 'movimiento de complementaria - If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 201, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total) Then + If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total) Then ErrorRegistrar = True Exit For End If - If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then - ErrorRegistrar = True - Exit For - End If + 'If Not Conta.UpdateCompraTCValuacion(gvr.DataKey("CveCompra").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then + ' ErrorRegistrar = True + ' Exit For + 'End If Next + 'Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, CveBitacora, UsuarioActual.CveEmpresa) + If Not ErrorRegistrar Then Conta.Commit() Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) @@ -393,13 +402,17 @@ Partial Class Bancos_FluctuacionCambiaria End If Dim Conta As New ClsContabilidad - Conta.IniciaTransacSQL() + Dim Banco As New ClsBancos(Conta.IniciaTransacSQL()) Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, FechaUltimoDiaMes, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then ErrorRegistrar = True End If + If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 1, HdnCveFluctuacionBitacora.Value.ToEntero, UsuarioActual.CveEmpresa) Then + ErrorRegistrar = True + End If + Dim CveConconceptoCliente As Integer = 203 'saco las cuentas de pérdida y ganancia @@ -414,10 +427,10 @@ Partial Class Bancos_FluctuacionCambiaria CveConconceptoCliente = 203 End If - If Not Conta.UpdateVentaTCValuacion(gvr.DataKey("CveVenta").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then - ErrorRegistrar = True - Exit For - End If + 'If Not Conta.UpdateVentaTCValuacion(gvr.DataKey("CveVenta").ToEntero, TCValuacion:=TCUltimaFluctuacion) Then + ' ErrorRegistrar = True + ' Exit For + 'End If 'movimiento de complementaria If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then @@ -981,4 +994,13 @@ Partial Class Bancos_FluctuacionCambiaria #End Region + Protected Sub BtnProveedoresRemove_Click(sender As Object, e As EventArgs) + Dim Banco As New ClsBancos + If Not Banco.FluctuacionesBitacoraPrePolizaRemove(HdnProveedorCvePrePoliza.Value.ToEntero, 1, 1, UsuarioActual.CveEmpresa) Then + Alert("Flucturación eliminada.") + End If + Banco.Dispose() + + + End Sub End Class From 6efc986e3ee4e27d7816f4f1b9bca6695ccaca0a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Feb 2022 20:56:55 -0700 Subject: [PATCH 10/18] =?UTF-8?q?--=20parametros=20de=20recuperaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepRecuperacion.aspx.vb | 8 ++++---- Ventas/RepRecuperacionDetalle.aspx | 7 +++++++ Ventas/RepRecuperacionDetalle.aspx.vb | 14 +++++++++----- 3 files changed, 20 insertions(+), 9 deletions(-) diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb index eff509902..61db1d92a 100644 --- a/Ventas/RepRecuperacion.aspx.vb +++ b/Ventas/RepRecuperacion.aspx.vb @@ -180,15 +180,15 @@ Partial Class Ventas_RepRecuperacion End If End If - Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}", + Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}", DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, -1, e.Row.DBCampo("CveTipoTransaccion")) e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4 - Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}", + Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}", DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"), - e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF) + e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, -1, e.Row.DBCampo("CveTipoTransaccion")) e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5 diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx index 02842ef9f..bf1ee36a7 100644 --- a/Ventas/RepRecuperacionDetalle.aspx +++ b/Ventas/RepRecuperacionDetalle.aspx @@ -219,6 +219,12 @@ + +
+ + + +
F. Registro IE inicio:
@@ -249,6 +255,7 @@
+
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb index 1c99eed8e..8be1388ab 100644 --- a/Ventas/RepRecuperacionDetalle.aspx.vb +++ b/Ventas/RepRecuperacionDetalle.aspx.vb @@ -133,10 +133,11 @@ Partial Class Ventas_RepRecuperacionDetalle DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1")) DdlMoneda.DataBind() - 'txtFechaI.Text = $"01/{Now.Month}/{Now.Year}" - 'txtFechaF.Text = Now.ToShortDateString - - 'Cargamos las fechas + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones().FiltraParametros("Tipo = 'Ing' and Estatus = True ") + DdlTipoTransaccion.DataBind() + DdlTipoTransaccion.Items.Insert(0, New ListItem("Todos", "-1")) + + 'Cargamos las fechas FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString If FechaF <> "-1" Then @@ -186,6 +187,7 @@ Partial Class Ventas_RepRecuperacionDetalle CveClienteClasificacion = IfNull(Request("CveClienteClasificacion"), "-1").ToString.ToEntero Tipo = IfNull(Request("Tipo"), "-1").ToString.ToEntero EsDistribuidor = IfNull(Request("EsDistribuidor"), "-1").ToString.ToEntero + Dim CveTipoTransaccion As Integer = IfNull(Request("CveTipoTransaccion"), "-1").ToString.ToEntero 'Carga Clasificacion Cliente' Dim ObjCliente As New ClsClientes @@ -230,6 +232,7 @@ Partial Class Ventas_RepRecuperacionDetalle DdlClienteClasificacion.SelectedValueExist(CveClienteClasificacion) DdlClienteSucursal.SelectedValueExist(CveClienteSucursal) DdlDistribuidor.SelectedValueExist(EsDistribuidor) + DdlTipoTransaccion.SelectedValueExist(CveTipoTransaccion) If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then lblEsDistribuidor.Visible = True @@ -256,7 +259,8 @@ Partial Class Ventas_RepRecuperacionDetalle Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo, - EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF) Then + EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, + CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados From 6bac97ba62386f4069f871ca6a11adffc4c744a8 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 10 Feb 2022 21:00:31 -0700 Subject: [PATCH 11/18] --- Bin/System.Drawing.Common.dll.refresh | Bin 222 -> 0 bytes Compras/PopUpVerFactura.aspx.vb | 2 +- GPS/PalletEtiquetaCaja.rdlc | 1154 ++++++++++++++++++++++--- Nomina/ChecadorAsistencia.aspx | 30 +- Nomina/ChecadorAsistencia.aspx.cs | 70 +- Ventas/Ventas.aspx.vb | 507 +++++------ 6 files changed, 1377 insertions(+), 386 deletions(-) delete mode 100644 Bin/System.Drawing.Common.dll.refresh diff --git a/Bin/System.Drawing.Common.dll.refresh b/Bin/System.Drawing.Common.dll.refresh deleted file mode 100644 index 00a7af438aab1237392317ed227d2aed35057ef7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 222 zcma)$OA5k35JcaJf{MDxHiEcTceBY45tB(U3F76|XS{$6RsE~#p7$#wC2(e-<}L>^ zawaOSG``NxAWu$9HNjZZ+xcpb9N3GKd9SbJCSO$ircdK&)snE&ne%XORFQb6v){_m bY9kh6<)%hWVT?LQ)@)hMxBlN&&42#@n - + - 1.53263cm + 1.45326cm - 1.19549cm + 1.14257cm - 1.01284cm + 0.93347cm 0.56722cm - 0.9525cm + 0.89958cm - 1.53263cm + 0.64792cm - 1.19549cm + 1.45325cm - 1.01284cm + 1.14257cm + + + 0.93346cm 0.56722cm - 0.9525cm + 0.89958cm @@ -103,7 +106,7 @@ - + true true @@ -132,7 +135,7 @@ - + true true @@ -161,7 +164,7 @@ - + true true @@ -190,7 +193,7 @@ - + true true @@ -219,7 +222,7 @@ - + true true @@ -248,7 +251,36 @@ - + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -277,7 +309,7 @@ - + true true @@ -306,7 +338,7 @@ - + true true @@ -335,7 +367,7 @@ - + true true @@ -364,7 +396,7 @@ - + true true @@ -394,11 +426,11 @@ - 0.86375cm + 0.73146cm - + true true @@ -433,7 +465,7 @@ - + Embedded logojam FitProportional @@ -449,7 +481,39 @@ - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -484,7 +548,7 @@ - + Embedded logojam FitProportional @@ -501,11 +565,11 @@ - 0.6cm + 0.54708cm - + true true @@ -541,7 +605,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -570,7 +634,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -599,7 +663,39 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -635,7 +731,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -664,7 +760,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -694,11 +790,11 @@ KM12 HERMOSILLO, SONORA - 0.4677cm + 0.38832cm - + true true @@ -732,7 +828,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -761,7 +857,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -790,7 +886,38 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -824,7 +951,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -853,7 +980,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -883,11 +1010,11 @@ KM12 HERMOSILLO, SONORA - 0.4677cm + 0.41478cm - + true true @@ -933,7 +1060,41 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + + Textbox35 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -980,11 +1141,11 @@ KM12 HERMOSILLO, SONORA - 0.4677cm + 0.36187cm - + true true @@ -1023,7 +1184,41 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + + Textbox38 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1063,11 +1258,11 @@ KM12 HERMOSILLO, SONORA - 0.46771cm + 0.41479cm - + true true @@ -1108,7 +1303,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1145,7 +1340,39 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1186,7 +1413,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1224,11 +1451,11 @@ KM12 HERMOSILLO, SONORA - 0.46771cm + 0.41479cm - + true true @@ -1257,7 +1484,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1286,7 +1513,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1323,7 +1550,36 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1352,7 +1608,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1381,7 +1637,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1423,7 +1679,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1462,7 +1718,41 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + + Textbox43 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1506,7 +1796,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1540,7 +1830,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1574,7 +1864,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1608,7 +1898,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1642,7 +1932,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1676,7 +1966,41 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1710,7 +2034,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1744,7 +2068,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1778,7 +2102,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1812,7 +2136,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1851,7 +2175,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1884,7 +2208,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1920,7 +2244,38 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -1953,7 +2308,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -1994,14 +2349,14 @@ KM12 HERMOSILLO, SONORA - + true true - =IIf(Parameters!CveFormato.Value =2,"SLICER:","") + =Microsoft.VisualBasic.Interaction.IIf(Parameters!CveFormato.Value = 2, "SLICER:", "") + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIf(Parameters!CveFormato.Value = 2, "SLICER:", "") @@ -2157,7 +2544,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2199,7 +2586,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2233,7 +2620,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2270,7 +2657,39 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -2304,7 +2723,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2346,7 +2765,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2354,7 +2773,9 @@ KM12 HERMOSILLO, SONORA A-201-820- N17 - + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -2445,7 +2895,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2483,11 +2933,11 @@ KM12 HERMOSILLO, SONORA - 0.99688cm + 0.81167cm - + Database =First(Fields!ImagenByte.Value, "dsImagenes") image/png @@ -2507,7 +2957,36 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + Database =First(Fields!ImagenByte.Value, "dsImagenes") image/png @@ -2519,7 +2998,6 @@ KM12 HERMOSILLO, SONORA 5 - true @@ -2533,7 +3011,7 @@ KM12 HERMOSILLO, SONORA - + true true @@ -2571,7 +3049,40 @@ KM12 HERMOSILLO, SONORA - + + true + true + + + + + + + + + + + + Textbox54 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -2610,11 +3121,11 @@ KM12 HERMOSILLO, SONORA - 1.0498cm + 0.94397cm - + true true @@ -2657,7 +3168,7 @@ Produce of MX. - + true true @@ -2686,7 +3197,7 @@ Produce of MX. - + true true @@ -2722,7 +3233,7 @@ Produce of MX. - + true true @@ -2759,7 +3270,40 @@ Produce of MX. - + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + true true @@ -2802,7 +3346,7 @@ Produce of MX. - + true true @@ -2831,7 +3375,7 @@ Produce of MX. - + true true @@ -2867,7 +3411,7 @@ Produce of MX. - + true true @@ -2904,6 +3448,366 @@ Produce of MX. + + 0.30896cm + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + Middle + 2pt + 2pt + 2pt + 2pt + + + + + + @@ -2913,29 +3817,30 @@ Produce of MX. + - =Parameters!FormatoImpresion.Value ="Sencillas" + =Parameters!FormatoImpresion.Value = "Sencillas" - =Parameters!FormatoImpresion.Value ="Sencillas" + =Parameters!FormatoImpresion.Value = "Sencillas" - =Parameters!FormatoImpresion.Value ="Sencillas" + =Parameters!FormatoImpresion.Value = "Sencillas" - =Parameters!FormatoImpresion.Value ="Sencillas" + =Parameters!FormatoImpresion.Value = "Sencillas" - =Parameters!FormatoImpresion.Value ="Sencillas" + =Parameters!FormatoImpresion.Value = "Sencillas" @@ -2949,13 +3854,13 @@ Produce of MX. After - + - =Parameters!CveFormato.Value <>3 + =Parameters!CveFormato.Value <> 3 @@ -2965,7 +3870,7 @@ Produce of MX. - =Parameters!CveFormato.Value <>3 + =Parameters!CveFormato.Value <> 3 @@ -2980,42 +3885,43 @@ Produce of MX. - =Parameters!CveFormato.Value =3 + =Parameters!CveFormato.Value = 3 - =Parameters!CveFormato.Value =3 + =Parameters!CveFormato.Value = 3 - =Parameters!CveFormato.Value =3 + =Parameters!CveFormato.Value = 3 - =Parameters!CveFormato.Value <>3 + =Parameters!CveFormato.Value <> 3 - =Parameters!CveFormato.Value <>3 + =Parameters!CveFormato.Value <> 3 + DataSet1 - 0.07228cm - 0.05625cm - 8.58414cm - 10.52136cm + 0.0801cm + 0.05458cm + 8.07288cm + 10.64012cm @@ -3023,10 +3929,10 @@ Produce of MX. - 3.53304in + 3.26926in