From 76b158f2bef29ffb1ad183d7199c77c7d1b89a43 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 18 Sep 2020 20:41:08 -0700 Subject: [PATCH 01/21] nueva consulta de pagos no bancarios --- App_Code/ClsBancos.vb | 21 ++++++++++++++++ Compras/Proveedores.aspx | 46 +++++++++++++++++++++++++++++++++++ Compras/Proveedores.aspx.vb | 11 ++++++++- RH/Personal.aspx | 26 ++++++++++++++++++++ RH/Personal.aspx.vb | 12 +++++++++- Ventas/Clientes.aspx | 48 +++++++++++++++++++++++++++++++++++++ Ventas/Clientes.aspx.vb | 10 ++++++++ 7 files changed, 172 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 1ed92ca05..286824794 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4760,4 +4760,25 @@ Public Class ClsBancos #End Region +#Region "reportes" + Public Function GetPagosNoBancarios(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Banc_PagosNoBancarios") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los pagos no bancarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region End Class diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 9cfbdc5f5..929b552c4 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2164,6 +2164,52 @@ +
+
+
+ + Pagos no bancarios +
+
+
+ + + + + + + + + + +
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+ +
+ + + + + + + + + + + + + + +
+
+
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 435d893c5..d0c99d4d9 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -511,7 +511,7 @@ Partial Class Compras_Proveedores 'CargaColectivas() 'CargaSaldosBeneficiarios() CargaUsuariosPortal() - + CargarPagosNoBancarios() CargaFiltroMonedas() MostrarFiltro() @@ -6269,6 +6269,15 @@ Partial Class Compras_Proveedores End If End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/RH/Personal.aspx b/RH/Personal.aspx index fc309b263..613bc415a 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2822,6 +2822,32 @@ +
+
+
+ + Pagos no bancarios +
+
+
+
+ + + + + + + + + + + + + +
+
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 1ab33cd40..c5750f271 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1509,7 +1509,8 @@ Partial Class RH_Personal 'Carga Conceptos de Nómina CarcaConceptosNomina() - + 'Carga Pagos no Bancarios + CargarPagosNoBancarios() 'Carga Resguardos Dim ObjResguardos As New ClsAF If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then @@ -6338,4 +6339,13 @@ Partial Class RH_Personal End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b9895d553..e81cadbb6 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -2396,6 +2396,54 @@
+ +
+
+
+ + Pagos no bancarios +
+
+
+ + + + + + + + + + +
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+ +
+ + + + + + + + + + + + + + +
+
+
+ diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 0aecf49c4..901b52c25 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1388,6 +1388,7 @@ Partial Class Clientes 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() + CargarPagosNoBancarios() If UsuarioActual.TienePermisoProceso(279) Then LnkPorcentajeMarcas.Visible = True @@ -10150,5 +10151,14 @@ Partial Class Clientes Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) CargaEstados(DdlSATPais.SelectedValue) End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class From 493ea94baa2b8bf7b74f1295000fcd2f213dcc10 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 19 Sep 2020 11:59:30 -0700 Subject: [PATCH 02/21] . --- App_Code/ClsBancos.vb | 10 +- Ventas/Clientes.aspx.vb | 666 ++++++++++++++++++++-------------------- 2 files changed, 338 insertions(+), 338 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 286824794..04527b54e 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -3129,11 +3129,11 @@ Public Class ClsBancos SqlAdapter.Fill(Data) Retorno = True - Catch Ex1 As SqlException - If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then - Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia) - Else - Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then + Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If Catch ex As Exception OnError("Ocurrió un error al actualizar El movimiento Bancario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 901b52c25..1e3cdac65 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -487,10 +487,10 @@ Partial Class Clientes Set(value As String) ViewState("linkDescargaPagare") = value End Set - End Property - + End Property + #End Region - + #Region "Documentacion" Private Property DTDocumentacion As DataTable Get @@ -601,21 +601,21 @@ Partial Class Clientes Set(value As String) ViewState("AdjuntoDocumentacion") = value End Set - End Property - 'Private ReadOnly Property CvePersonal As Integer - ' Get - ' If ViewState("CvePersonal") Is Nothing Then - ' Return -1 - ' Else - ' Return ViewState("CvePersonal").ToString.ToEntero - ' End If - ' End Get - 'End Property - + End Property + 'Private ReadOnly Property CvePersonal As Integer + ' Get + ' If ViewState("CvePersonal") Is Nothing Then + ' Return -1 + ' Else + ' Return ViewState("CvePersonal").ToString.ToEntero + ' End If + ' End Get + 'End Property + #End Region - - - + + + #Region " A C U M U L A D O R E S" Property CveVentaNota As Integer Get @@ -655,10 +655,10 @@ Partial Class Clientes Set(value As String) ViewState("SerieNotaAcumulador") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -890,8 +890,8 @@ Partial Class Clientes ChkPermiso5.Enabled = False ChkPermiso6.Enabled = False - End Sub - + End Sub + #Region " PERMISOS PAGINAS " Private Function PermiteGuardar() As Boolean Return UsuarioActual.TienePermisoProceso(192) @@ -901,17 +901,17 @@ Partial Class Clientes End Function Private Function PermiteEliminar() As Boolean Return UsuarioActual.TienePermisoProceso(194) - End Function - + End Function + #End Region - - + + #Region "C A R G A S" - - - - - + + + + + Private Sub CreaDtPago() DtPagos = New DataTable DtPagos.Columns.Add("CveTipoMovimiento", GetType(String)) @@ -930,19 +930,19 @@ Partial Class Clientes DdlClasificacion.DataBind() DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) UpDatos.Update() - End Sub - - - - Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") - - DdlEstadoSAT.Items.Clear() - DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) - + End Sub + + + + Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX") + + DdlEstadoSAT.Items.Clear() + DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais) + DdlEstadoSAT.DataBind() - DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) - UpDatos.Update() - + DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) + UpDatos.Update() + End Sub Private Sub CargaResponsables() @@ -994,12 +994,12 @@ Partial Class Clientes DdlClienteSucursal.DataSource = ObjCliente.DtResultados DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados End If - End If - - - - - + End If + + + + + ObjCliente.Dispose() DdlSucursalCliente.DataBind() @@ -1013,10 +1013,10 @@ Partial Class Clientes DdlClienteSucursalEnvio.DataBind() DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlClienteSucursalEnvio.SelectedValue = "-1" - - - + DdlClienteSucursalEnvio.SelectedValue = "-1" + + + End Sub Private Sub CargaGridRetenciones() Dim ObjClientes As New ClsClientes @@ -1191,10 +1191,10 @@ Partial Class Clientes End If - CargaCombosComercioExterior() - - - + CargaCombosComercioExterior() + + + End Sub Private Sub CargaSubProyectoss() DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) @@ -1547,9 +1547,9 @@ Partial Class Clientes CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString) DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString) - DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado) - - + DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado) + + If DdlPais.SelectedValue.Contiene("151", "66", "40") Then DdlEstado.Visible = True DdlEstado.SelectedValueExist(ObjClientes.CveEstado) @@ -1682,17 +1682,17 @@ Partial Class Clientes End If CargaEventoBitacora() - If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then - CargaCuentasConceptos() - divCuentas.Visible = True - divCuentasContp.Visible = False - Else - divCuentas.Visible = False - divCuentasContp.Visible = True - End If - - - 'Ocultamos la mayoria de informacion si es no-frecuente + If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + CargaCuentasConceptos() + divCuentas.Visible = True + divCuentasContp.Visible = False + Else + divCuentas.Visible = False + divCuentasContp.Visible = True + End If + + + 'Ocultamos la mayoria de informacion si es no-frecuente If ObjClientes.TipoCliente = 2 Then TabFiscalContable.Visible = False TabCxC.Visible = False @@ -1715,7 +1715,7 @@ Partial Class Clientes End If TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString - TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString + TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString Else Existe = False Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) @@ -1940,11 +1940,11 @@ Partial Class Clientes DdlSucursalUsoCFDI.Items.Clear() DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica) DdlSucursalUsoCFDI.DataBind() - End Sub + End Sub #End Region - + #Region "V E R M Á S" - + Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs) If BtnVerMasVentas.Text = "Ver Más" Then CargaHistorial(-1) @@ -2038,9 +2038,9 @@ Partial Class Clientes TxtParaMail.Text = TxtCobranzaCorreo.Text UpSendMail.Update() RegistraScript("$('#ModalDivMail').modal('show');") - End Sub + End Sub #End Region - + #Region "B T N ´ S" Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click Dim ObjClientes As New ClsClientes() @@ -2348,85 +2348,85 @@ Partial Class Clientes Dim errorContPaq As Boolean = False Dim IdContPaqi As Integer = 0 - Dim CodigoPersona As Integer = 0 - - + Dim CodigoPersona As Integer = 0 + + #Region "comentado" - 'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then - - ' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa) - - ' If ObjContPaqi.GetPersona(TxtRFC.Text) Then - - ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then - - ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero - ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero - - ' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0) - ' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString - ' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString - - ' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - - ' Else - ' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then - - ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero - ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - ' End If - ' End If - - - ' If Not errorContPaq Then - ' Dim IdContPaqiCliente As Integer - - ' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then - - ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then - - ' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero - - ' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - ' Else - ' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then - ' errorContPaq = False - ' Else - ' errorContPaq = True - ' End If - ' End If - ' Else - ' errorContPaq = True - ' End If - ' End If - - - ' If Not errorContPaq Then - ' ObjContPaqi.Commit() - ' ObjContPaqi.Dispose() - ' Else - ' ObjContPaqi.RollBack() - ' ObjContPaqi.Dispose() - ' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError) - ' Exit Sub - ' End If - - - 'End If + 'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then + + ' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa) + + ' If ObjContPaqi.GetPersona(TxtRFC.Text) Then + + ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then + + ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero + ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero + + ' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0) + ' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString + ' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString + + ' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + + ' Else + ' If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then + + ' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero + ' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + ' End If + ' End If + + + ' If Not errorContPaq Then + ' Dim IdContPaqiCliente As Integer + + ' If ObjContPaqi.GetCliente(-1, CodigoPersona) Then + + ' If ObjContPaqi.DtResultados.Rows.Count > 0 Then + + ' IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString.ToEntero + + ' If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + ' Else + ' If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then + ' errorContPaq = False + ' Else + ' errorContPaq = True + ' End If + ' End If + ' Else + ' errorContPaq = True + ' End If + ' End If + + + ' If Not errorContPaq Then + ' ObjContPaqi.Commit() + ' ObjContPaqi.Dispose() + ' Else + ' ObjContPaqi.RollBack() + ' ObjContPaqi.Dispose() + ' Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError) + ' Exit Sub + ' End If + + + 'End If #End Region - + Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0") Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0") @@ -2672,11 +2672,11 @@ Partial Class Clientes ObjClientes.Dispose() objDoc.Dispose() RecargaGlobal() - End Sub - + End Sub + #End Region - - + + #Region "G L O B L A L" Private Sub RecargaGlobal() 'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT) @@ -2854,11 +2854,11 @@ Partial Class Clientes End If End If - End Sub + End Sub #End Region - + #Region "R H" - + Private Sub CargaPersonalAsignado() Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then @@ -2931,9 +2931,9 @@ Partial Class Clientes End If End If - End Sub + End Sub #End Region - + #Region "S U C U R S A L E S" Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click ChkEstatusSucursal.Checked = True @@ -3067,7 +3067,7 @@ Partial Class Clientes UpModalDivMapa.Update() - End Sub + End Sub #Region "G V S U C U R S A L E S" Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound @@ -3186,9 +3186,9 @@ Partial Class Clientes Else CargaGrid("", 0) End If - End Sub + End Sub #End Region - + #Region "G V U S U A R I O S P O R T A L" Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand If e.CommandName = "RestablecerContraseña" Then @@ -3340,9 +3340,9 @@ Partial Class Clientes CargaGrid("", 1) End If - End Sub + End Sub #End Region - + #Region "O R D E N A M I E N T O" Private Sub CargaGrid(Orden As String, gvi As Integer) If gvi = 0 Then @@ -3374,12 +3374,12 @@ Partial Class Clientes UPPUsuarios.Update() End If - End Sub + End Sub #End Region - - + + #End Region - + #Region "U S U A R I O S" Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click Dim ObjUsuario As New ClsSisUsuarios @@ -3561,9 +3561,9 @@ Partial Class Clientes ChkPermiso5.Checked = False ChkPermiso6.Checked = False ChkPermiso7.Checked = False - End Sub + End Sub #End Region - + #Region "E V E N T O - B I T A C O R A" Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -3769,11 +3769,11 @@ Partial Class Clientes BtnActivaRegistroISR.Visible = True End If - End Sub + End Sub #End Region - + #Region " I M P R I M I R P D F" - + Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs) DdlTipoDocto.ClearSelection() If ChkAntIXCNC.Checked Then @@ -3801,21 +3801,21 @@ Partial Class Clientes 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim params As New List(Of ReportParameter) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) End If - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("Cliente", TxtNombre.Text)) Dim ObjGPS As New ClsGPS Dim tablaReporte As DataTable If ObjGPS.DispositivosGet(-1, DdlEstatusDispositivos.SelectedValue.ToEntero(), CveCliente) Then - tablaReporte = ObjGPS.DtResultados - + tablaReporte = ObjGPS.DtResultados + ImprimirPDF("Empresas/Grales/Formatos/EquiposGPS.rdlc", tablaReporte, params, "Equipo GPS", Formato) Else Alert("No hay lista de dispositivos para imprimir") @@ -3958,10 +3958,10 @@ Partial Class Clientes If DtCxCFact2 IsNot Nothing AndAlso DtCxCFact2.Rows.Count > 0 Then Dim dr As DataRow = DtCxCFact2.Rows(0) Dim lista = New List(Of CrystalParametro) - Dim SaldoDisponible As String = "0.00" - If TxtLimiteCredito.Text.ToDouble > 0 Then - SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo = 'Act'").ToString.ToDouble).FormatoNumero - End If + Dim SaldoDisponible As String = "0.00" + If TxtLimiteCredito.Text.ToDouble > 0 Then + SaldoDisponible = (TxtLimiteCredito.Text.ToDouble - DtCxCFact2.SUM("Saldo", "Tipo = 'Act'").ToString.ToDouble).FormatoNumero + End If lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) @@ -4164,11 +4164,11 @@ Partial Class Clientes a.GuardaLog() Dim Mail As New ClsSisMail() Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body) - End Sub + End Sub #End Region - + #Region " COTIZACIONES " - + Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs) If BtnVerMasCot.Text = "Ver Más" Then CargaCotizaciones(-1) @@ -4238,9 +4238,9 @@ Partial Class Clientes HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}" End If End If - End Sub + End Sub #End Region - + #Region "D I R E C C I O N E N V I O " Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) @@ -4320,12 +4320,12 @@ Partial Class Clientes End If CargaDireccionesEnvio() - End Sub - + End Sub + #End Region - + #Region " IMPORTAR SALDOS " - + Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click CargaClientesImportarSaldos() RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos")) @@ -4431,9 +4431,9 @@ Partial Class Clientes e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo"))) e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo"))) End If - End Sub + End Sub #End Region - + #Region "Cuentas/Equipos" Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs) HdnModalidad.Value = "I" @@ -5021,9 +5021,9 @@ Partial Class Clientes End If Return Retorno - End Function + End Function #End Region - + #Region "GPS" Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click If hdnArrayDispositivo.Value.Length > 0 Then @@ -5126,10 +5126,10 @@ Partial Class Clientes UpMoverDispositivo.Update() RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});") - End Sub - + End Sub + #End Region - + #Region "Sucursales" Public Sub CreaDTSucursales() @@ -5363,14 +5363,14 @@ Partial Class Clientes End If End If End If - End Sub - + End Sub + #End Region - + #Region "G P S" - - - + + + Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String) Try @@ -5441,11 +5441,11 @@ Partial Class Clientes End If ObjClientes.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "C O N T R A T O S" Private Sub CargaDatosContrato() If CveCliente <= 0 Then @@ -5491,31 +5491,31 @@ Partial Class Clientes e.Row.CssClass = "Totales white" End If End If - End Sub - + End Sub + #End Region - + #Region "M E T O D O S " Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged - If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then - - Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'") - If tmp.Rows.Count > 0 Then - Dim Totales As DataRow = tmp.NewRow - Totales("SubTotal") = tmp.SUM("SubTotal") - Totales("Total") = tmp.SUM("Total") - Totales("Descuento") = tmp.SUM("Descuento") - Totales("Amortizacion") = tmp.SUM("Amortizacion") - Totales("MAX_Total") = tmp.MAX("MAX_Total") - Totales("AVG_Total") = tmp.AVG("AVG_Total") - Totales("MIN_Total") = tmp.MIN("MIN_Total") - Totales("CountTotal") = tmp.COUNT("CountTotal") - tmp.Rows.InsertAt(Totales, 0) - End If - GVHistorial.DataSource = tmp - ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then - GVHistorial.DataSource = DTHistorialVentas - End If + If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then + + Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'") + If tmp.Rows.Count > 0 Then + Dim Totales As DataRow = tmp.NewRow + Totales("SubTotal") = tmp.SUM("SubTotal") + Totales("Total") = tmp.SUM("Total") + Totales("Descuento") = tmp.SUM("Descuento") + Totales("Amortizacion") = tmp.SUM("Amortizacion") + Totales("MAX_Total") = tmp.MAX("MAX_Total") + Totales("AVG_Total") = tmp.AVG("AVG_Total") + Totales("MIN_Total") = tmp.MIN("MIN_Total") + Totales("CountTotal") = tmp.COUNT("CountTotal") + tmp.Rows.InsertAt(Totales, 0) + End If + GVHistorial.DataSource = tmp + ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then + GVHistorial.DataSource = DTHistorialVentas + End If GVHistorial.DataBind() End Sub Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged @@ -5673,9 +5673,9 @@ Partial Class Clientes CobranzaTelefono = "" CodigoCliente = "" - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then - divCorreoEntregaCompras.Visible = True - divCorreoEntregaAlmacen.Visible = True + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then + divCorreoEntregaCompras.Visible = True + divCorreoEntregaAlmacen.Visible = True End If End Sub @@ -5897,13 +5897,13 @@ Partial Class Clientes End If - End Sub - + End Sub + #End Region - + #Region "IMPRIMIR GVHistorial" - - + + Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs) Dim retorno As Byte() = Nothing Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -5982,18 +5982,18 @@ Partial Class Clientes ObjClientes.Dispose() Return retorno - End Function - - + End Function + + #End Region - + #Region "C O B R A N Z A" Public Sub Visitas_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas")) - End Sub - + End Sub + #End Region - + #Region "Usuarios" Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero @@ -6028,12 +6028,12 @@ Partial Class Clientes e.Row.Cells(5).Visible = False End If End If - End Sub + End Sub #End Region - - + + #Region "C U E N T A S - B A N C A R I A S" - + Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False) If CveCliente <= 0 Then Exit Sub @@ -6055,8 +6055,8 @@ Partial Class Clientes End If ObjCuentasBancos.Dispose() - CargaPSGridCuentasBancos() - + CargaPSGridCuentasBancos() + CargaMonedas() End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) @@ -6206,8 +6206,8 @@ Partial Class Clientes TxtNumeroCuenta2.Text = "" TxtConvenioCIE2.Text = "" TxtReferencia2.Text = "" - End Sub - + End Sub + #Region "GRIDVIEW - CUENTAS BANCARIAS" Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -6258,15 +6258,15 @@ Partial Class Clientes RecargaGlobalCuentasBancarias() End Sub Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) - If CveCliente > 0 Then - - GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing - + If CveCliente > 0 Then + + GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing + End If - End Sub - + End Sub + #End Region - + Private Sub CargaPSGridCuentasBancos() If CveCliente > 0 Then GvBancosCuentas.DataSource = DTCuentasBancos @@ -6324,9 +6324,9 @@ Partial Class Clientes divestatus.Visible = True UpAddBancos.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) - End Sub + End Sub #End Region - + #Region "C L I E N T E S P A G O S R E A L I Z A D O S I M P R I M I R P D F/Excel" Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click GenerarPDF("Excel") @@ -6587,10 +6587,10 @@ Partial Class Clientes ObjVentas.Dispose() Return PdfFactura(Vta) - End Function - + End Function + #End Region - + #Region "COMERCIO EXTERIOR" Public Sub CargaCombosComercioExterior() @@ -6704,12 +6704,12 @@ Partial Class Clientes End Sub Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs) CargaColonia() - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T A C I O N " - + Private Sub CargaDocumentacionCliente() Dim objRH As New ClsEdocumentacion() @@ -6974,12 +6974,12 @@ Partial Class Clientes Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim Adjunto As String = GvRow.DataKey("Adjunto") - Dim stringDescargaDocumento As String = "" - If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then - stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa) - Else - stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto) - End If + Dim stringDescargaDocumento As String = "" + If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then + stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa) + Else + stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto) + End If linkDescargaPagare = stringDescargaDocumento TxtDireccionAval.Text = "" @@ -7044,8 +7044,8 @@ Partial Class Clientes Response.Buffer = True memoryStream.WriteTo(Response.OutputStream) Response.End() - memoryStream.Dispose() - + memoryStream.Dispose() + End Sub Protected Sub GvDocumentosFirma_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentosCliente.RowDataBound @@ -7113,7 +7113,7 @@ Partial Class Clientes LnkDownLoadDoc.Visible = True End If - txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") + txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then @@ -7540,12 +7540,12 @@ Partial Class Clientes RegistraScript("Download('" & baseUrl & "')") - End Sub - + End Sub + #End Region - + #Region "D O C U M E N T O S V E N T A S" - + Private Sub CargaDocumentosVenta(tCveCliente As Integer) Dim objInv As New ClsEdocumentacion @@ -7716,11 +7716,11 @@ Partial Class Clientes objRH.Dispose() - End Sub - - + End Sub + + #End Region - + #Region "PERSONA FISICA" Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs) RegistraScript("$('#DivModalPersonaFisica').modal();") @@ -7745,9 +7745,9 @@ Partial Class Clientes ObjCliente.Dispose() UpDatos.Update() - End Sub + End Sub #End Region - + #Region "USUARIOS PLATAFORMA CLIENTE - 6 " Protected Sub CargaUsuariosPortalCliente() Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios @@ -7756,19 +7756,19 @@ Partial Class Clientes GvUsuarios.DataBind() End If objUsuario.Dispose() - End Sub + End Sub #End Region - + #Region " DEVOLVER DINERO ANT/NC " Private Sub InicializaDevolverDinero() If UsuarioActual.TienePermisoProceso(247) Then GVAnticipos.Columns(6).Visible = True End If - End Sub + End Sub #End Region - + #Region "MODAL GRAFICA/PEDIDOS" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If CargaDatatables() Then RegistraScript("$('#DivModalGrafica').modal('show')") @@ -8101,13 +8101,13 @@ Partial Class Clientes RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55") UPModalProd.Update() - End Sub - - + End Sub + + #End Region - + #Region "TAB - COMPORTAMIENTO DE VENTAS" - + Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4")) @@ -8287,12 +8287,12 @@ Partial Class Clientes ObjVentas.Dispose() GvComportamientoVenta.DataBind() UpDatosComportamientoVenta.Update() - End Sub - + End Sub + #End Region - + #Region "DISPOSITIVOS" - + Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs) Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero() Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero() @@ -8330,10 +8330,10 @@ Partial Class Clientes CargaEventoBitacora() NombreDispositivo = "" RegistraScript("$('#DivMoverDispositivo').modal('hide');") - End Sub - + End Sub + #End Region - + #Region "CRM" Protected Sub CargaDatosCRM() Dim ObjCRM = New ClsCRM() @@ -8433,9 +8433,9 @@ Partial Class Clientes Alert("Se Unificó correctamente al Cliente con la Empresa CRM.") End If End If - End Sub + End Sub #End Region - + #Region "PORCENTAJE PRECIO DE MARCAS" Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas")) @@ -8639,9 +8639,9 @@ Partial Class Clientes ObjPS.Dispose() - End Sub + End Sub #End Region - + #Region "PORCENTAJE PRECIO DE PRODUCTOS" Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios")) @@ -8877,12 +8877,12 @@ Partial Class Clientes Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs) DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2) - End Sub + End Sub #End Region - + #Region " A C U M U L A D O R E S" - - + + Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs) 'CveVentaNota = 0 @@ -10147,18 +10147,18 @@ Partial Class Clientes End Sub Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) CargaEventoBitacora() - End Sub - Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaEstados(DdlSATPais.SelectedValue) - End Sub - - Private Sub CargarPagosNoBancarios() - Dim ObjBancos As New ClsBancos - If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then - GvPagosNoBancarios.DataSource = ObjBancos.DtResultados - GvPagosNoBancarios.DataBind() - End If - ObjBancos.Dispose() - End Sub + End Sub + Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaEstados(DdlSATPais.SelectedValue) + End Sub + + Private Sub CargarPagosNoBancarios() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + GvPagosNoBancarios.DataSource = ObjBancos.DtResultados + GvPagosNoBancarios.DataBind() + End If + ObjBancos.Dispose() + End Sub End Class From d3bd98b87725d0f00f197ad65bb866fe1d5f611c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 19 Sep 2020 15:43:55 -0700 Subject: [PATCH 03/21] acomodo en el reporte --- Compras/PopUpVerFactura.aspx.vb | 4 +- Empresas/Grales/Formatos/CartaPorte.rdlc | 76 ++++++++---------------- Inventarios/TraspasoAlmacen.aspx | 12 +++- Inventarios/TraspasoAlmacen.aspx.vb | 3 + 4 files changed, 42 insertions(+), 53 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 20e4db652..68b8ca7c6 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -788,7 +788,7 @@ Partial Class PopUpVerFactura ResponsableRecibio = Dr("ResponsableRecibio").ToString Identificacion = Dr("Identificacion").ToString Domicilio = Dr("Domicilio").ToString - Telefono = Dr("Telefono").ToString + Telefono = Dr("Telefono1").ToString Ciudad = Dr("Ciudad").ToString Licencia = Dr("Licencia").ToString End If @@ -813,7 +813,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {UsuarioActual.Empresa.Telefono}")) + params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}")) params.Add(New ReportParameter("SerieFolio", SerieFolio)) params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) diff --git a/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc index 157b03620..f85630ac3 100644 --- a/Empresas/Grales/Formatos/CartaPorte.rdlc +++ b/Empresas/Grales/Formatos/CartaPorte.rdlc @@ -460,7 +460,7 @@ Textbox1 0.9533cm - 0.23022cm + 0.21008cm 0.66127cm 9.36417cm 2 @@ -1907,37 +1907,6 @@ 2pt - - true - true - - - - - =Parameters!RFC.Value - - - - - true true @@ -1952,7 +1921,9 @@ - @@ -1964,15 +1935,17 @@ - Textbox5 1.4475cm 4.42689cm 1.49958cm - 4.77535cm - 2 + 9.6554cm + 1 @@ -2046,7 +2019,9 @@ - Textbox1 @@ -2054,7 +2029,7 @@ 14.51155cm 0.85524cm 4.91708cm - 5 + 4 @@ -2091,7 +2066,7 @@ 14.51156cm 0.85524cm 4.91707cm - 6 + 5 @@ -2115,7 +2090,7 @@ true - 0.03526cm + 0.03525cm 0.22015cm 0cm 19.22862cm @@ -2145,7 +2120,7 @@ Textbox13 - 0.14109cm + 0.14108cm 0.22015cm 0.54708cm 1.55632cm @@ -2179,7 +2154,7 @@ Textbox14 - 0.14109cm + 0.14108cm 1.77647cm 0.54708cm 4.96223cm @@ -2201,7 +2176,7 @@ - Fecha Impresión: + Fecha Impresion: - - - - - - Textbox28 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CODIGO - - - - - - - Textbox42 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.20728cm - - - 12.42242cm - - - - - 0.6cm - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - - CodigoPS - - 5pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.54708cm - - - true - true - - - - - UNIDAD DE MEDIDA - - - - - - - Textbox40 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.54708cm - - - true - true - - - - - CONCEPTO O DESCRIPCIÓN DEL SERVICIO - - - - - - - Textbox44 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 2.01883cm - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 1.46419cm - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - DataSet1 - 5.46866cm - 0.21008cm - 1.14708cm - 19.11272cm - - - - - - true - true - - - - - LUGAR Y FECHA DE EXPEDICIÓN: - - - - =Parameters!LugarFecha.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ORIGEN: - - - - =Parameters!Origen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - REMITENTE O EXPEDIDOR: - - - - =Parameters!NombreEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DOMICILIO: - - - - =Parameters!DireccionOrigen.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DESTINO: - - - - =Parameters!Destino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DESTINATARIO: - - - - =Parameters!NombreEmpresa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DOMICILIO: - - - - =Parameters!DireccionDestino.Value - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FECHA O PLAZO PREVISTO DE ENTREGA: - - - - =Parameters!FechaEntrega.Value - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - true - true - - - - - DESIGNACIÓN Y/O DESCRIPCIÓN DE LAS MERCANCIAS A TRANSPORTAR - - - - - - - Textbox28 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - 3.00921cm - - - 3.29899cm - - - 2.03729cm - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - UM - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox31 - - 5pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox65 - - 5pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 0.52062cm - - - true - true - - - - - PESO - - - - - - - Textbox40 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - METROS CUBICOS - - - - - - - Textbox30 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - true - true - - - - - LITROS - - - - - - - Textbox64 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - 10.863cm - - - true - true - - - - - =Fields!CodigoPS.Value - - - - - - - Cantidad - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - DataSet1 - 4.17165cm - 0.21008cm - 1.12062cm - 19.20849cm - 10 - - - - - - true - true - - - - - INDEMIZACIÓN: (en su caso) - - - - - 2pt - - - 1pt - - - - - - 1pt - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - OBSERVACIONES: - - - - =Parameters!Observaciones.Value - - - - - 2pt - - - - - - Black - 1pt - - - Black - 1pt - - - Black - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ________________________________ - - - - - - - - - Nombre y Firma - - - - - - - Textbox21 - 13.69816cm - 2.20199cm - 1.2cm - 5.78664cm - 13 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Quién Envía - - - - - - - Textbox22 - 12.0345cm - 2.20199cm - 0.6cm - 5.78664cm - 14 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ________________________________ - - - - - - - - - Nombre y Firma - - - - - - - Textbox21 - 13.69816cm - 11.59464cm - 1.2cm - 5.78664cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Quién recibe - - - - - - - Textbox22 - 12.0345cm - 11.59464cm - 0.6cm - 5.78664cm - 16 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ResponsableCarga.Value - - - - - - - Textbox22 - 13.3339cm - 2.20199cm - 0.52062cm - 5.78664cm - 17 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ResponsableRecibio.Value - - - - - - - Textbox22 - 13.3339cm - 11.59464cm - 0.52062cm - 5.78664cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IDENTIFICACIÓN: - - - - =Parameters!Identificacion.Value - - - - - - - =Parameters!Domicilio.Value - - - - - - - =Parameters!Telefono.Value - - - - - - - =Parameters!Ciudad.Value - - - - - - - =Parameters!Licencia.Value - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - DOCUMENTACIÓN DEL CHOFER - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 5.06862cm - - - 3.10917cm - - - 10.93493cm - - - - - 0.6cm - - - - - true - true - - - - - CHOFER: - - - - =Parameters!ResponsableRecibio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PLACA: - - - - =Parameters!Placa.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - ESPECIFICACION DE LA UNIDAD: - - - - =Parameters!EspecifUnidad.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - 6.75685cm - 0.21008cm - 0.6cm - 19.11272cm - 21 - - - - - - 8.91698in - - - - - - - Textbox2 - 0.38703cm - 4.42689cm - 0.78571cm - 9.73471cm - - - - true - true - - - - - =Parameters!RFC.Value - - - - - - - true - true - - - - - Domicilio de la sucursal o establecimiento, en su caso: - - - - - - - - - - true - true - - - - - Domicilio Fiscal: - - - - =Parameters!DomicilioFiscal.Value - - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.46171in - 1.23522in - 4 - - - - - - true - true - - - - - CARTA DE PORTE TRASLADO - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox1 - 1.17274cm - 14.51156cm - 0.85524cm - 4.91707cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 1.23526cm - true - true - - - 0.03526cm - 0.22015cm - 0cm - 19.22862cm - - - - - - true - true - - - - - Usuario: - - - - - - - Textbox13 - 0.14109cm - 0.22015cm - 0.54708cm - 1.55632cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox14 - 0.14109cm - 1.77647cm - 0.54708cm - 4.96223cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - - Textbox13 - 0.14109cm - 6.84454cm - 0.54708cm - 2.84562cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox14 - 0.14109cm - 9.69015cm - 0.54708cm - 4.68641cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox14 - 0.17637cm - 14.62633cm - 0.54708cm - 4.8023cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IMPRESO EN SIG, Traspaso Almacén - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 29.7cm - 21cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + Textbox28 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.20728cm + + + 12.42242cm + + + + + 0.6cm + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UnidadMedida + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + + CodigoPS + + 5pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.54708cm + + + true + true + + + + + UNIDAD DE MEDIDA + + + + + + + Textbox40 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.54708cm + + + true + true + + + + + CONCEPTO O DESCRIPCIÓN DEL SERVICIO + + + + + + + Textbox44 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 2.01883cm + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.46419cm + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + DataSet1 + 5.46866cm + 0.21008cm + 1.14708cm + 19.11272cm + + + + + + true + true + + + + + LUGAR Y FECHA DE EXPEDICIÓN: + + + + =Parameters!LugarFecha.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ORIGEN: + + + + =Parameters!Origen.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REMITENTE O EXPEDIDOR: + + + + =Parameters!NombreEmpresa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOMICILIO: + + + + =Parameters!DireccionOrigen.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESTINO: + + + + =Parameters!Destino.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESTINATARIO: + + + + =Parameters!NombreEmpresa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOMICILIO: + + + + =Parameters!DireccionDestino.Value + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA O PLAZO PREVISTO DE ENTREGA: + + + + =Parameters!FechaEntrega.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + true + true + + + + + DESIGNACIÓN Y/O DESCRIPCIÓN DE LAS MERCANCIAS A TRANSPORTAR + + + + + + + Textbox28 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + 3.00921cm + + + 3.29899cm + + + 2.03729cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + UM + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox31 + + 5pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox65 + + 5pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 0.52062cm + + + true + true + + + + + PESO + + + + + + + Textbox40 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + METROS CUBICOS + + + + + + + Textbox30 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + true + true + + + + + LITROS + + + + + + + Textbox64 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + 10.863cm + + + true + true + + + + + =Fields!CodigoPS.Value + + + + + + + Cantidad + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + DataSet1 + 4.17165cm + 0.21008cm + 1.12062cm + 19.20849cm + 10 + + + + + + true + true + + + + + INDEMIZACIÓN: (en su caso) + + + + + 2pt + + + 1pt + + + + + + 1pt + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + OBSERVACIONES: + + + + =Parameters!Observaciones.Value + + + + + 2pt + + + + + + Black + 1pt + + + Black + 1pt + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ________________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 13.69816cm + 2.20199cm + 1.2cm + 5.78664cm + 13 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Quién Envía + + + + + + + Textbox22 + 12.0345cm + 2.20199cm + 0.6cm + 5.78664cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ________________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 13.69816cm + 11.59464cm + 1.2cm + 5.78664cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Quién recibe + + + + + + + Textbox22 + 12.0345cm + 11.59464cm + 0.6cm + 5.78664cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox22 + 13.3339cm + 2.20199cm + 0.52062cm + 5.78664cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox22 + 13.3339cm + 11.59464cm + 0.52062cm + 5.78664cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IDENTIFICACIÓN: + + + + =Parameters!Identificacion.Value + + + + + + + =Parameters!Domicilio.Value + + + + + + + =Parameters!Telefono.Value + + + + + + + =Parameters!Ciudad.Value + + + + + + + =Parameters!Licencia.Value + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DOCUMENTACIÓN DEL CHOFER + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.06862cm + + + 3.10917cm + + + 10.93493cm + + + + + 0.6cm + + + + + true + true + + + + + CHOFER: + + + + =Parameters!ResponsableRecibio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PLACA: + + + + =Parameters!Placa.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ESPECIFICACION DE LA UNIDAD: + + + + =Parameters!EspecifUnidad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + 6.75685cm + 0.21008cm + 0.6cm + 19.11272cm + 21 + + + + + + 8.91698in + + + + + + + Textbox2 + 0.38703cm + 4.42689cm + 0.78571cm + 9.73471cm + + + + true + true + + + + + =Parameters!RFC.Value + + + + + + + true + true + + + + + Domicilio de la sucursal o establecimiento, en su caso: + + + + + + + + + + true + true + + + + + Domicilio Fiscal: + + + + =Parameters!DomicilioFiscal.Value + + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.46171in + 1.23522in + 4 + + + + + + true + true + + + + + CARTA DE PORTE TRASLADO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox1 + 1.17274cm + 14.51156cm + 0.85524cm + 4.91707cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 1.23526cm + true + true + + + 0.03526cm + 0.22015cm + 0cm + 19.22862cm + + + + + + true + true + + + + + Usuario: + + + + + + + Textbox13 + 0.14109cm + 0.22015cm + 0.54708cm + 1.55632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox14 + 0.14109cm + 1.77647cm + 0.54708cm + 4.96223cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresion: + + + + + + + Textbox13 + 0.14109cm + 6.84454cm + 0.54708cm + 2.84562cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox14 + 0.14109cm + 9.69015cm + 0.54708cm + 4.68641cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox14 + 0.17637cm + 14.62633cm + 0.54708cm + 4.8023cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Traspaso Almacén + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - =Parameters!FechaEntrega.Value + =Left(Parameters!FechaEntrega.Value,10)