From ed338b15bcb96b092414a28b23c8910cb9821cdb Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Sat, 27 Feb 2021 12:57:53 -0700 Subject: [PATCH 1/7] Cambios para mostar informacion dependiendo del tipo de contabilidad --- App_Code/ClsContabilidad.vb | 3 ++- Compras/Proveedores.aspx.vb | 4 ++-- Contabilidad2/CatCuentas.aspx.vb | 11 ++++++++++ Contabilidad2/RepAnexoCatalogo.aspx.vb | 5 +++++ Contabilidad2/RepBalanceGeneral.aspx.vb | 4 ++++ Contabilidad2/RepBalanzaComprobacion.aspx.vb | 5 +++++ Contabilidad2/RepEstadoResultados.aspx.vb | 4 ++++ .../RepMovimientosAuxiliaresCatalogo.aspx.vb | 5 +++++ RH/Personal.aspx.vb | 20 +++++++++++++++++++ Ventas/Clientes.aspx.vb | 19 +++++++++++++----- 10 files changed, 72 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 22cb58671..9707af1a5 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1604,7 +1604,7 @@ Public Class ClsContabilidad #End Region - Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean + Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasConceptosGet") With SqlAdapter.SelectCommand.Parameters @@ -1614,6 +1614,7 @@ Public Class ClsContabilidad .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal End With Try SqlAdapter.Fill(Data) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index d0c99d4d9..25346b21c 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -852,11 +852,11 @@ Partial Class Compras_Proveedores DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais) TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad - If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then CargaCuentasConceptos() divCuentas.Visible = True divCuentasContp.Visible = False - Else + ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then divCuentas.Visible = False divCuentasContp.Visible = True End If diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 1f9f6f9d5..40341986f 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -303,6 +303,16 @@ Partial Class Contabilidad2_CatCuentas CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa) + If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, + DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then + ObjContaEmpresa.Dispose() + ObjConta.Dispose() + Exit Sub + End If + End If + Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") If UsuarioActual.Empresa.TipoContabilidad <> 1 Then @@ -341,6 +351,7 @@ Partial Class Contabilidad2_CatCuentas updatos.Update() Alert("La cuenta se guardo correctamente") + End If Else Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError) diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 62c309b16..680266bcf 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -73,6 +73,11 @@ Partial Class AC2_RepAnexoCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx") + End If + Dim ErrorParametros = True DtDatos = Nothing CargaTipoCuentas() diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb b/Contabilidad2/RepBalanceGeneral.aspx.vb index 6bd9126a9..c65a7af4f 100644 --- a/Contabilidad2/RepBalanceGeneral.aspx.vb +++ b/Contabilidad2/RepBalanceGeneral.aspx.vb @@ -166,6 +166,10 @@ Partial Class Contabilidad2_RepBalanceGeneral Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx") + End If + 'If UsuarioActual.Empresa.UsaAC Then ' TipoReporte = -1 'Else diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb index f02d4a6a7..525bea3b5 100644 --- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb @@ -57,6 +57,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx") + End If + Dim ErrorParametros = True ModoImpresion = False TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 04957a446..87b1df7e3 100644 --- a/Contabilidad2/RepEstadoResultados.aspx.vb +++ b/Contabilidad2/RepEstadoResultados.aspx.vb @@ -127,6 +127,10 @@ Partial Class Contabilidad2_RepEstadoResultados Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepEstadoResultados.aspx") + End If + 'tdTipoReporte.Visible = True TipoReporte = 1 diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index 77d5c0459..520d31421 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -96,6 +96,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx") + End If + Dim ErrorParametros = True CargaTipoCuentas() diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index fcd911134..6353dd2ca 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -15,6 +15,7 @@ Partial Class RH_Personal Inherits ClsPaginas #Region "P R O P I E D A D E S" + Private Property DTCuentasBancos As DataTable Get Return CType(ViewState("DTCuentasBancos"), DataTable) @@ -1612,6 +1613,15 @@ Partial Class RH_Personal DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19") DdlAlmacenDestinoLiberarUniforme.DataBind() + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + CargaCuentasConceptos() + divCuentas.Visible = True + divCuentasContp.Visible = False + ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then + divCuentas.Visible = False + divCuentasContp.Visible = True + End If + Else Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False @@ -1620,6 +1630,16 @@ Partial Class RH_Personal ObjPersonal.Dispose() End Sub + Private Sub CargaCuentasConceptos() + Dim ObjConta As New ClsContabilidad + If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then + GvCta.DataSource = ObjConta.DtResultados + End If + ObjConta.Dispose() + GvCta.DataBind() + UpCuentaConceptos.Update() + End Sub + Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click 'System.Threading.Thread.Sleep(3000) Dim ObjPersonal As New ClsRH() diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f61818a4b..f65900d88 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1716,13 +1716,22 @@ Partial Class Clientes End If CargaEventoBitacora() - If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + 'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + ' CargaCuentasConceptos() + ' divCuentas.Visible = True + ' divCuentasContp.Visible = False + 'Else + ' divCuentas.Visible = False + ' divCuentasContp.Visible = True + 'End If + + If UsuarioActual.Empresa.TipoContabilidad = 1 Then CargaCuentasConceptos() divCuentas.Visible = True - divCuentasContp.Visible = False - Else - divCuentas.Visible = False - divCuentasContp.Visible = True + divCuentasContp.Visible = False + ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then + divCuentas.Visible = False + divCuentasContp.Visible = True End If From 957a0b37baf1ac2ef4003fa7ad6665d5cafb45e3 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Sat, 27 Feb 2021 12:58:18 -0700 Subject: [PATCH 2/7] --- RH/Personal.aspx | 68 +++++++++++++++++++++++++++++------------------- 1 file changed, 41 insertions(+), 27 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 1fc9a31b9..068ad945b 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -734,36 +734,50 @@ - - -
-
- - Contable: -
-
-
-
-
+
+ + + + + + + + + +
-
-
- - - - - -
-
- - - - -
+ +
+
+
+ + Contable: +
+
+
+
+
+
+
+
+ + + + + + +
+
+ + + + +
+
From 4e355a6bfe6bebd44c0cf897633637a6ec19b1cb Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 27 Feb 2021 14:08:32 -0700 Subject: [PATCH 3/7] Validaciones fecha pago --- Bancos/PopIECompras.aspx.vb | 24 +++++++++++++++++++----- Bancos/PopIEVentas.aspx.vb | 17 +++++++++++++++-- Bancos/ProveedoresAbonar.aspx.vb | 21 ++++++++++++++++++--- PortalCliente/PortalCliente.aspx.vb | 6 +++--- Ventas/ClientesAbonar.aspx.vb | 22 ++++++++++++++++++---- 5 files changed, 73 insertions(+), 17 deletions(-) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index a2726b647..79a889d74 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1386,11 +1386,25 @@ Partial Class Bancos_PopIECompras #End Region #Region "G U A R D A R" - Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - - - If FechaCompra.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then - Alert($"La fecha de compra no puede ser mayor que la fecha de pago
Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") } ", TipoMensaje.MsgAdvertencia) + Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click + + + + + Dim FechaFactura As Date = FechaCompra + Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate + + Dim AnioFactura As Integer = FechaFactura.Year + Dim MesFactura As Integer = FechaFactura.Month + + Dim AnioDocumento As Integer = FechaDocumentoPago.Year + Dim MesDocumento As Integer = FechaDocumentoPago.Month + + If AnioFactura > AnioDocumento Then + Alert($"El mes de la fecha de compra no puede ser mayor al mes de la la fecha de pago
Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia) + Exit Sub + ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then + Alert($"El mes de la fecha de compra no puede ser mayor al mes de la la fecha de pago
Fecha de compra: { FechaCompra.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 07c87b1ed..f9d599287 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1390,12 +1390,25 @@ Partial Class Bancos_PopIEVentas - If FechaVenta.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then - Alert($"La fecha de venta no puede ser mayor que la fecha de pago
Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia) + Dim FechaFactura As Date = FechaVenta + Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate + + Dim AnioFactura As Integer = FechaFactura.Year + Dim MesFactura As Integer = FechaFactura.Month + + Dim AnioDocumento As Integer = FechaDocumentoPago.Year + Dim MesDocumento As Integer = FechaDocumentoPago.Month + + If AnioFactura > AnioDocumento Then + Alert($"El mes de la fecha de venta no puede ser mayor al mes de la la fecha de pago
Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia) + Exit Sub + ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then + Alert($"El mes de la fecha de venta no puede ser mayor al mes de la la fecha de pago
Fecha de venta: { FechaVenta.ToString("dd/MM/yyyy") }", TipoMensaje.MsgAdvertencia) Exit Sub End If + 'VALIDACION PARA LOS IMPORTES CUANDO SE QUIERE PAGAR EN DIFERENTE MONEDA If Not Page.IsValid Then Exit Sub diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 269273ba0..3195700e1 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -716,13 +716,27 @@ Partial Class Bancos_ProveedoresAbonar Dim ValFechaDocumento As Boolean = False Dim FoliosFechasValFechaDocumento As New StringBuilder - FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago:
") + FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago:
") For Each gvRowVal As GridViewRow In GvCxP.Rows If gvRowVal.FCCheckBox("Chk").Checked Then - If gvRowVal.DataKey("Fecha").ToDate > TxtFechaDocumento.Text.ToDate Then - FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + + + Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate + Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate + + Dim AnioFactura As Integer = FechaFactura.Year + Dim MesFactura As Integer = FechaFactura.Month + + Dim AnioDocumento As Integer = FechaDocumento.Year + Dim MesDocumento As Integer = FechaDocumento.Month + + If AnioFactura > AnioDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + ValFechaDocumento = True + ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") ValFechaDocumento = True End If @@ -735,6 +749,7 @@ Partial Class Bancos_ProveedoresAbonar End If + If DdlTipoTransaccion.SelectedValue.ToEntero < 0 Then Alert("Seleccione un tipo de transacción", TipoMensaje.MsgAdvertencia) Exit Sub diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index c45f2926f..3f6f4a084 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -3189,9 +3189,9 @@ Partial Class Ventas_PortalCliente ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjCliente.CveUsoCFDI}") - ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago - If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows.Count > 0 Then - ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago = {ObjCliente.CveMetodoPago}").Rows(0)("MetodoPago").ToString + ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33 + If GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago33 = {ObjCliente.CveMetodoPago33}").Rows.Count > 0 Then + ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros($"CveMetodoPago33 = {ObjCliente.CveMetodoPago33}").Rows(0)("MetodoPago").ToString Else ObjFactura.CveMetodoPago = 1 ObjFactura.MetodoPago = "Efectivo" diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 826785f1e..e6df12068 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -657,18 +657,32 @@ Partial Class Ventas_ClientesAbonar Dim ValFechaDocumento As Boolean = False Dim FoliosFechasValFechaDocumento As New StringBuilder - FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha superior a la fecha de pago:
") + FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago:
") For Each gvRowVal As GridViewRow In GvCxC.Rows If gvRowVal.FCCheckBox("Chk").Checked Then - If gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy").ToDate > TxtFechaDocumento.Text.ToDate Then + + Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate + Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate + + Dim AnioFactura As Integer = FechaFactura.Year + Dim MesFactura As Integer = FechaFactura.Month + + Dim AnioDocumento As Integer = FechaDocumento.Year + Dim MesDocumento As Integer = FechaDocumento.Month + + If AnioFactura > AnioDocumento Then + FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") + ValFechaDocumento = True + ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") }
") ValFechaDocumento = True End If - End If - Next + End If + + Next If ValFechaDocumento Then From 83a2bccc98d502177521fa3ec9a8cdcd46180598 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 27 Feb 2021 15:37:59 -0700 Subject: [PATCH 4/7] Compras Validacion Combustibles --- Compras/Compras.aspx.vb | 80 +++++++++++++++++++++++++++++++---------- 1 file changed, 62 insertions(+), 18 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6bd0ab547..0809c0dc4 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3987,21 +3987,10 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click + + AjustaCombustibles() + '------------------INICIA VALIDACIONES------------------ - - Dim TempIva As Decimal - For Each drowv As DataRow In TmpDT.Rows - TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal) - Next - - Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva) - - If Math.Abs(DifGenelraIvas) > 0.2 Then - Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple @@ -6508,7 +6497,7 @@ Partial Class Compras_Compras End If Case 6 'Compra - Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" @@ -6836,8 +6825,8 @@ Partial Class Compras_Compras importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador - - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable() Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS") @@ -7063,7 +7052,7 @@ Partial Class Compras_Compras End If Case 5 'Proveedores If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor - Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158) + Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158) If tipoCambioActual <> 1 Then Select Case ConceptoContable Case 5 @@ -8540,6 +8529,61 @@ Partial Class Compras_Compras End If End Sub + + Private Sub AjustaCombustibles() + + + If Not TmpDT.Columns.Contains("AplicaIEPS") Then + TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean))) + End If + + If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then + TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean))) + End If + + For Each dRow As DataRow In TmpDT.Rows + If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0) + dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString) + dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString) + Else + dRow("AplicaIEPS") = False + dRow("IEPSGrabaIVA") = False + End If + Next + + Dim DTConsulta As New DataTable + DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0 ") + + If DTConsulta.Rows.Count > 0 Then + + Dim IndiceContador As Integer = 0 + Dim IndiceUltimo As Integer = 0 + + For Each dRow As DataRow In TmpDT.Rows + + If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then + IndiceUltimo = IndiceContador + End If + + IndiceContador = IndiceContador + 1 + + Next + + + Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal + Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles + + If Math.Abs(DiferenciaIVas) > 0.01D Then + TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas + TmpDT.AcceptChanges() + End If + + End If + + + End Sub + Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged Dim ObjProveedores As New ClsCompProveedores() From 44c72b064781759a544884dafd7415cf6a7acee7 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Mon, 1 Mar 2021 14:31:01 -0700 Subject: [PATCH 5/7] Cambios visual para el reporte OC --- App_Code/modExtensiones.vb | 2 + Empresas/154/Formatos/OC.rdlc | 5379 ++++++++++++++++----------------- 2 files changed, 2683 insertions(+), 2698 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 94768effd..9a18a5716 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -961,6 +961,8 @@ Namespace Extensiones Retorno = "" End If + Retorno = UCase(Mid(Retorno, 1, 1)) + Mid(Retorno, 2, Len(Retorno)) + Return Retorno End Function diff --git a/Empresas/154/Formatos/OC.rdlc b/Empresas/154/Formatos/OC.rdlc index 9c5779b46..79ad966f3 100644 --- a/Empresas/154/Formatos/OC.rdlc +++ b/Empresas/154/Formatos/OC.rdlc @@ -1,2702 +1,5 @@ - - - - - - - - 1.60255cm - - - 1.29313cm - - - 5.31528cm - - - 2.96554cm - - - 3.04088cm - - - 1.71116cm - - - 2.06967cm - - - 2.26017cm - - - - - 0.49417cm - - - - - true - true - - - - - Cantidad - - - - - - - Textbox3 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - U. M. - - - - - - - Textbox7 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Producto o Servicio - - - - - - - Textbox9 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Observaciones - - - - - - - Textbox68 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sub Proyecto - - - - - - - Textbox71 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Activo Fijo - - - - - - - Textbox11 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - P. Unitario - - - - - - - Textbox13 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox5 - - - - Black - 3pt - - - Black - 3pt - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.473cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!PS.Value - - - - - - - PS - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Observacion.Value - - - - - - - Observacion - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - - SubProyecto - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 1pt - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 4.45714cm - 0.37406cm - 0.96717cm - 20.25838cm - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - - - true - true - - - - - IVA - - - - - - - Textbox20 - 6.29242cm - 16.30259cm - 0.45183cm - 2.06968cm - 1 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Total " & Parameters!Moneda.Value - - - - - - - Textbox20 - 6.74425cm - 16.30259cm - 0.45183cm - 2.06968cm - 2 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Descuento - - - - - - - Textbox20 - 5.86881cm - 16.30259cm - 0.42361cm - 2.06968cm - 3 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!IVA.Value - - - - - - - Textbox20 - 6.29242cm - 18.37226cm - 0.45183cm - 2.26019cm - 4 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Total.Value - - - - - - - Textbox20 - 6.74425cm - 18.37225cm - 0.45183cm - 2.26019cm - 5 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descuento.Value - - - - - - - Textbox20 - 5.86881cm - 18.37225cm - 0.42361cm - 2.26019cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - - - - - =Parameters!ImporteLetra.Value - - - - - - - Textbox46 - 6.74425cm - 0.37406cm - 0.45183cm - 15.92855cm - 7 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ORDEN DE COMPRA DE MATERIALES Y SERVICIOS - - - - - - - Textbox8 - 1.24262cm - 5.09642cm - 0.5365cm - 10.29733cm - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TipoOC.Value - - - - - - - Textbox12 - 16.30259cm - 0.44478cm - 4.32987cm - 9 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Folio.Value - - - - - - - Textbox12 - 0.44478cm - 16.30259cm - 0.44478cm - 4.32987cm - 10 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresion - - - - - - - Textbox12 - 0.88956cm - 16.3026cm - 0.44478cm - 4.32987cm - 11 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Format(Globals!ExecutionTime,"dd/MM/yyyy") - - - - - - - Textbox12 - 1.33434cm - 16.30259cm - 0.44478cm - 4.32987cm - 12 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Proveedor - - - - - - - Textbox12 - 2.41498cm - 0.37406cm - 0.44478cm - 2.34596cm - 13 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Descripción - - - - - - - Textbox12 - 2.85976cm - 0.37406cm - 0.44478cm - 2.34596cm - 14 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Justificación - - - - - - - Textbox12 - 3.30454cm - 0.37406cm - 0.44478cm - 2.34596cm - 15 - - - Black - Middle - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Entrega - - - - - - - Textbox12 - 2.85976cm - 13.78003cm - 0.44478cm - 2.52258cm - 16 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Lugar de Entrega - - - - - - - Textbox12 - 3.30454cm - 13.78003cm - 0.44478cm - 2.52258cm - 17 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Estatus - - - - - - - Textbox12 - 2.41498cm - 13.78003cm - 0.44478cm - 2.52258cm - 18 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =iif(Parameters!FechaEntrega.Value="01/01/0001","",Parameters!FechaEntrega.Value) - - - - - - - Textbox12 - 2.85976cm - 16.30259cm - 0.44478cm - 4.32987cm - 19 - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ProveedorLugar.Value - - - - - - - Textbox12 - 3.30454cm - 16.30259cm - 0.44478cm - 4.32987cm - 20 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Estatus.Value - - - - - - - Textbox12 - 2.41498cm - 16.30259cm - 0.44478cm - 4.32987cm - 21 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Descripcion.Value - - - - - - - Textbox12 - 2.85976cm - 2.72002cm - 0.44478cm - 11.06001cm - 22 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Asunto.Value - - - - - - - Textbox12 - 3.30454cm - 2.72002cm - 0.44478cm - 11.06001cm - 23 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - White - Middle - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ProveedorNombre.Value - - - - - - - Textbox12 - 2.41498cm - 2.72002cm - 0.44478cm - 11.06001cm - 24 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SERVICIOS ELECTRICOS Y CONTROL DE HERMOSILLO S.A. DE C.V. - - - - - - - Textbox8 - 0.48034cm - 5.09642cm - 0.76228cm - 10.29733cm - 25 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Solicitante - - - - - - - Textbox12 - 8.9744cm - 3.24661cm - 0.44478cm - 5.83844cm - 26 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - Textbox12 - 9.41918cm - 3.24661cm - 0.4095cm - 5.83844cm - 27 - - - - Black - - 1pt - - Top - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!NombreSolicito.Value - - - - - - - Textbox12 - 9.86396cm - 3.24661cm - 0.44478cm - 5.83844cm - 28 - - - White - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Autorizó - - - - - - - Textbox12 - 8.9744cm - 11.64269cm - 0.44478cm - 5.83844cm - 29 - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - Textbox12 - 9.41918cm - 11.64269cm - 0.4095cm - 5.83844cm - 30 - - - - Black - - 1pt - - Top - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!NombreAutorizo.Value - - - - - - - Textbox12 - 9.86396cm - 11.64269cm - 0.44478cm - 5.83844cm - 31 - - - White - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!FirmaAutorizo.Value - Fit - 7.40422cm - 12.66192cm - 3.5cm - 3.5cm - 32 - - =iif(Parameters!FirmaAutorizo.Value <> "", False, True) - - - - - - - External - =Parameters!FirmaSolicito.Value - Fit - 7.40422cm - 4.4049cm - 3.5cm - 3.5cm - 33 - - =iif(Parameters!FirmaSolicito.Value <> "", False, True) - - - - - - - true - true - - - - - Uso CFDI 3.3: - - - - - - - Textbox12 - 3.74932cm - 0.37406cm - 0.44478cm - 2.34596cm - 34 - - - Black - Middle - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox12 - 3.74932cm - 2.72002cm - 0.44478cm - 11.06001cm - 35 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - White - Middle - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - SubTotal - - - - - - - Textbox20 - 5.43618cm - 16.3026cm - 0.42361cm - 2.0597cm - 36 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SubTotal.Value - - - - - - - Textbox20 - 5.43618cm - 18.36228cm - 0.42361cm - 2.26019cm - 37 - - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - - LightGrey - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - LOGOSERVECENJPG - FitProportional - 0.44478cm - 0.37406cm - 1.60584cm - 4.54597cm - 38 - - - - - - 4.55973in - - - - - - - - =Now() - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.07056cm - 18.12247cm - 0.50624cm - 2.5cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox3 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + U. M. + + + + + + + Textbox7 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Producto o Servicio + + + + + + + Textbox9 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Observaciónes + + + + + + + Textbox68 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sub Proyecto + + + + + + + Textbox71 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Activo Fijo + + + + + + + Textbox11 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. Unitario + + + + + + + Textbox13 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox5 + + + + Black + 3pt + + + Black + 3pt + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.473cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + + PS + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Observacion.Value + + + + + + + Observacion + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 1pt + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 4.45714cm + 0.37406cm + 0.96717cm + 20.25838cm + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + + + true + true + + + + + IVA + + + + + + + Textbox20 + 6.29242cm + 16.30259cm + 0.45183cm + 2.06968cm + 1 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Total " & Parameters!Moneda.Value + + + + + + + Textbox20 + 6.74425cm + 16.30259cm + 0.45183cm + 2.06968cm + 2 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descuento + + + + + + + Textbox20 + 5.86881cm + 16.30259cm + 0.42361cm + 2.06968cm + 3 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!IVA.Value + + + + + + + Textbox20 + 6.29242cm + 18.37226cm + 0.45183cm + 2.26019cm + 4 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Total.Value + + + + + + + Textbox20 + 6.74425cm + 18.37225cm + 0.45183cm + 2.26019cm + 5 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descuento.Value + + + + + + + Textbox20 + 5.86881cm + 18.37225cm + 0.42361cm + 2.26019cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!ImporteLetra.Value + + + + + + + Textbox46 + 6.74425cm + 0.37406cm + 0.45183cm + 15.92855cm + 7 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ORDEN DE COMPRA DE MATERIALES Y SERVICIOS + + + + + + + Textbox8 + 1.24262cm + 5.09642cm + 0.5365cm + 10.29733cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoOC.Value + + + + + + + Textbox12 + 16.30259cm + 0.44478cm + 4.32987cm + 9 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox12 + 0.44478cm + 16.30259cm + 0.44478cm + 4.32987cm + 10 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresion + + + + + + + Textbox12 + 0.88956cm + 16.3026cm + 0.44478cm + 4.32987cm + 11 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Format(Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox12 + 1.33434cm + 16.30259cm + 0.44478cm + 4.32987cm + 12 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Proveedor + + + + + + + Textbox12 + 2.41498cm + 0.37406cm + 0.44478cm + 2.34596cm + 13 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Descripción + + + + + + + Textbox12 + 2.85976cm + 0.37406cm + 0.44478cm + 2.34596cm + 14 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Justificación + + + + + + + Textbox12 + 3.30454cm + 0.37406cm + 0.44478cm + 2.34596cm + 15 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Entrega + + + + + + + Textbox12 + 2.85976cm + 13.78003cm + 0.44478cm + 2.52258cm + 16 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Lugar de Entrega + + + + + + + Textbox12 + 3.30454cm + 13.78003cm + 0.44478cm + 2.52258cm + 17 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estatus + + + + + + + Textbox12 + 2.41498cm + 13.78003cm + 0.44478cm + 2.52258cm + 18 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!FechaEntrega.Value="01/01/0001","",Parameters!FechaEntrega.Value) + + + + + + + Textbox12 + 2.85976cm + 16.30259cm + 0.44478cm + 4.32987cm + 19 + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ProveedorLugar.Value + + + + + + + Textbox12 + 3.30454cm + 16.30259cm + 0.44478cm + 4.32987cm + 20 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Estatus.Value + + + + + + + Textbox12 + 2.41498cm + 16.30259cm + 0.44478cm + 4.32987cm + 21 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + Textbox12 + 2.85976cm + 2.72002cm + 0.44478cm + 11.06001cm + 22 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!Asunto.Value + + + + + + + Textbox12 + 3.30454cm + 2.72002cm + 0.44478cm + 11.06001cm + 23 + + + White + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ProveedorNombre.Value + + + + + + + Textbox12 + 2.41498cm + 2.72002cm + 0.44478cm + 11.06001cm + 24 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SERVICIOS ELECTRICOS Y CONTROL DE HERMOSILLO S.A. DE C.V. + + + + + + + Textbox8 + 0.48034cm + 5.09642cm + 0.76228cm + 10.29733cm + 25 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Solicitante + + + + + + + Textbox12 + 8.9744cm + 3.24661cm + 0.44478cm + 5.83844cm + 26 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + Textbox12 + 9.41918cm + 3.24661cm + 0.4095cm + 5.83844cm + 27 + + + + Black + + 1pt + + Top + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NombreSolicito.Value + + + + + + + Textbox12 + 9.86396cm + 3.24661cm + 0.44478cm + 5.83844cm + 28 + + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Autorizó + + + + + + + Textbox12 + 8.9744cm + 11.64269cm + 0.44478cm + 5.83844cm + 29 + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + Textbox12 + 9.41918cm + 11.64269cm + 0.4095cm + 5.83844cm + 30 + + + + Black + + 1pt + + Top + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!NombreAutorizo.Value + + + + + + + Textbox12 + 9.86396cm + 11.64269cm + 0.44478cm + 5.83844cm + 31 + + + White + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!FirmaAutorizo.Value + Fit + 7.40422cm + 12.66192cm + 3.5cm + 3.5cm + 32 + + =iif(Parameters!FirmaAutorizo.Value <> "", False, True) + + + + + + + External + =Parameters!FirmaSolicito.Value + Fit + 7.40422cm + 4.4049cm + 3.5cm + 3.5cm + 33 + + =iif(Parameters!FirmaSolicito.Value <> "", False, True) + + + + + + + true + true + + + + + Uso CFDI 3.3: + + + + + + + Textbox12 + 3.74932cm + 0.37406cm + 0.44478cm + 2.34596cm + 34 + + + Black + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsoCFDI.Value + + + + + + + Textbox12 + 3.74932cm + 2.72002cm + 0.44478cm + 11.06001cm + 35 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + White + Middle + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SubTotal + + + + + + + Textbox20 + 5.43618cm + 16.3026cm + 0.42361cm + 2.0597cm + 36 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SubTotal.Value + + + + + + + Textbox20 + 5.43618cm + 18.36228cm + 0.42361cm + 2.26019cm + 37 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + LOGOSERVECENJPG + FitProportional + 0.44478cm + 0.37406cm + 1.60584cm + 4.54597cm + 38 + + + + + + 4.55973in + + + + + + + + =Now() + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.07056cm + 18.12247cm + 0.50624cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0cm + 1cm + 1cm + 0.13cm + + true @@ -460,6 +461,7 @@ 7 + true @@ -551,6 +553,7 @@ 2pt + true @@ -771,6 +774,7 @@ 1pt + true @@ -992,6 +996,7 @@ 1pt + true @@ -1206,6 +1211,7 @@ 1pt + true @@ -1217,7 +1223,7 @@ - =Fields!NombreUsuario.Value + =Fields!NombreUsuario.Value 3 + true @@ -1677,7 +1684,10 @@ - =Fields!Id.Value + =Fields!Fecha.Value + =Fields!TipoPoliza.Value + =Fields!Numero.Value + =Fields!ConceptoPoliza.Value End @@ -1685,7 +1695,7 @@ - =Fields!NombreUsuario.Value + =Fields!NombreUsuario.Value