From d941a22fc906d5194ce06e23aa851b051d4e5dfa Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Jul 2021 18:26:52 -0700 Subject: [PATCH 1/9] Autorizaciones por importe en NC, cargar metodos del pago al editar remision o refacturar --- Ventas/Ventas.aspx.vb | 90 +++++++++++++++++++++++++++++-------------- 1 file changed, 61 insertions(+), 29 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index aef867548..5257b1b11 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5307,13 +5307,7 @@ Partial Class Ventas Private Sub CargaMetodosPago() 'FACTURACION 3.3 - - 'No puede asignar PUE como método de pago - If UsuarioActual.TienePermisoProceso(326) Then - DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago.FiltraParametros("CveMetodoPago <> 1") - Else - DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago - End If + DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago DdlMetodoPago33.DataBind() DdlMetodoPago33.SelectedValueExist("3") @@ -5658,7 +5652,7 @@ Partial Class Ventas Me.CveFormaPago33Cliente = ObjCliente.CveFormaPago33 - If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 Then + If (CveVenta <= 0 AndAlso CveCotizacion <= 0) Or EsCreaApartirDe Or NuevaFactura = 1 OrElse ModalidadEdicion Then 'CveMetodoPagoCliente = ObjCliente.CveMetodoPago @@ -5754,16 +5748,13 @@ Partial Class Ventas ViewState("AplicaFord") = ObjCliente.AplicaFord TxtFordGSDB.Text = ObjCliente.Ford_GSDB - 'SELECIONAMOS VENDEDOR - SI ESTA EN MODO EDICIÓN SE QUEDA EL VENDEDOR ORIGINAL - If Not ModalidadEdicion Then - If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then - DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()) - End If + If ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero() > 0 Then + DdlVendedor.SelectedValueExist(ObjCliente.DtResultados(0)("CveVendedor").ToString().ToEntero()) + End If - 'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO - If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then - DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) - End If + 'SI EL CLIENTE NO TIENE VENDEDOR SELECCIONAMOS EL DEL USUARIO + If Not DdlVendedor.SelectedValue.ToEntero() > 0 Then + DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString()) End If If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then @@ -6174,6 +6165,7 @@ Partial Class Ventas ObjVentas.Dispose() End If + 'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1 Then RBLPago.SelectedValue = "2" RBLPago.Items(0).Enabled = False @@ -6310,17 +6302,27 @@ Partial Class Ventas Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) End If Else - 'este codigo no es temporal - If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia) - If UsuarioActual.CveEmpresa = 140 Then - LnkSolicitarCredito.Visible = True - DdlTipoAutorizacion.SelectedValueExist("1") + + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + RBLPago.SelectedValue = "2" + RBLPago.Items(0).Enabled = False + RBLPago_SelectedIndexChanged(Nothing, Nothing) + UPCondicionesPago.Update() + Else + 'este codigo no es temporal + If Alertas AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia) + If UsuarioActual.CveEmpresa = 140 Then + LnkSolicitarCredito.Visible = True + DdlTipoAutorizacion.SelectedValueExist("1") + End If End If + End If End If End If UPPCreditoDisponible.Update() + 'Si tiene credito disponible, Verificar limites de (verificar candados de venta, remisiones sin facturar, facturas que no tengan vencidas) ElseIf UsuarioActual.Empresa.Funcionalidad(597) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso CveVenta > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Pd2", "Cot") Or (DdlTipoComprobante.SelectedValue = "Rem" And ModalidadEdicion And ViewState("CveClienteAnterior").ToString().ToEntero() > 0 And LblRFC.Text.Trim <> "XAXX010101000")) Then Dim CreditoDispo As Decimal = CargaCreditoDisponible(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) If CreditoDispo > 0 Then @@ -7898,7 +7900,13 @@ Partial Class Ventas Dim ObjVentas As New ClsVentas Try If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, CveVendedor, CveEstatus:=1) Then - Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL AND CveTipoDocumento='{DdlTipoComprobante.SelectedValue}'", Orderby:="TipoAutorizacion") + Dim RowAutorizacion As DataRow = Nothing + 'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO + If TieneDiasVencidos Then + RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 2 AND CveVenta IS NULL AND CveTipoDocumento='{DdlTipoComprobante.SelectedValue}'") + Else + RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='{DdlTipoComprobante.SelectedValue}'", Orderby:="Importe DESC") + End If If RowAutorizacion IsNot Nothing Then TipoDocumentoAutorizacion = RowAutorizacion("CveTipoDocumento").ToString() @@ -7938,12 +7946,22 @@ Partial Class Ventas End If End If - If DdlTipoComprobante.SelectedValue = "Egs" AndAlso CveAutorizacion <= 0 Then + If TieneDiasVencidos AndAlso DdlTipoComprobante.SelectedValue = "Egs" AndAlso CveAutorizacion <= 0 Then CveAutorizacion = -1 - Alert($"El crédito no esta autorizado. No tiene autorización para generar notas de crédito.", TipoMensaje.MsgAdvertencia) + Alert($"El crédito no esta autorizado. No tiene autorización para generar notas de crédito. El cliente tiene días vencidos", TipoMensaje.MsgAdvertencia) Exit Sub End If + If TipoDocumentoAutorizacion = "Egs" Then + If TipoAutorizacion = 1 Then + If ImporteAutorizacion < TxtTotal.Text.ToDecimal() Then + CveAutorizacion = -1 + Alert($"El crédito autorizado es insuficiente. Crédito Disponible:{ImporteAutorizacion:N2}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + End If + End If EmitirImprimirNew(TipoDoctoViejo) @@ -31687,15 +31705,29 @@ Partial Class Ventas DivImporteSolicitud.Visible = DdlTipoAutorizacion.SelectedValue.ToEntero() = 1 UpModalSolicitud.Update() End Sub + 'Protected Sub DdlTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoDocto.SelectedIndexChanged + ' Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString() + ' Select Case TipoDocto + ' Case "Ing" + ' DivAutorizacion.Visible = True + ' DivImporteSolicitud.Visible = True + ' Case "Egs" + ' DivAutorizacion.Visible = False + ' DivImporteSolicitud.Visible = False + ' End Select + ' UpModalSolicitud.Update() + 'End Sub + Protected Sub DdlTipoDocto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoDocto.SelectedIndexChanged Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString() Select Case TipoDocto Case "Ing" - DivAutorizacion.Visible = True - DivImporteSolicitud.Visible = True + If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2")) + End If Case "Egs" - DivAutorizacion.Visible = False - DivImporteSolicitud.Visible = False + 'QUITAR LA DE VENCIMIENTO + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) End Select UpModalSolicitud.Update() End Sub From fbc2bb7c7c3b4d66f083a8c4042aad30773ce844 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Jul 2021 18:51:55 -0700 Subject: [PATCH 2/9] Validar Transitorio --- Inventarios/TraspasoAlmacen.aspx.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 4187a209a..69d81ca6f 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1610,10 +1610,12 @@ Partial Class Inventarios_TraspasoAlmacen If TxtFolioRecepcion.Text.Trim <> "" Then CveMovimientoSalida = Dtt.FiltroPrimeroValor("CveMovimiento", "").ToEntero - + CveAlmacenTransitorio = Dtt.FiltroPrimeroValor("CveAlmacenTransitorio", "").ToEntero + Else + CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero End If CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero - CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero + 'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero GvDatosRecepcion.DataSource = Dtt @@ -1899,6 +1901,13 @@ Partial Class Inventarios_TraspasoAlmacen Exit Sub End If + Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero + + If CveAlmacenTransitorio <> CveAlmacenSalida Then + Alert("El almacen transitorio debe coincidir con el del movimiento.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim ObjInventario As New ClsInventarios Dim Dtt As DataTable = Nothing @@ -1925,7 +1934,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate Dim CveAlmacenEntrada As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero - Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero + Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero() Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero() From bfe0bb489743a5b30a9aea1b446e6bdea08c1b28 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Jul 2021 18:52:18 -0700 Subject: [PATCH 3/9] Validar Almacen garantia --- Inventarios/RecepcionUsados.aspx.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 8af463766..089a21c47 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2774,6 +2774,11 @@ Partial Class Inventarios_RecepcionUsados HdnPSAjusteMarca.Value = CveMarca.ToString() HdnPSAjusteClasificacion.Value = CveClasificacion.ToString() + If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente @@ -2951,6 +2956,12 @@ Partial Class Inventarios_RecepcionUsados End Sub Private Sub CalculaPorcentajeAjuste() Try + + If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" Then Dim CveMarca As Integer = -1 From 13a2aaa2fe92a49e71dd1009f005577bb67abbd6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Jul 2021 18:57:44 -0700 Subject: [PATCH 4/9] Importe en NC desde catalogo de autorizaciones --- Ventas/CatAutorizacionLimites.aspx | 10 +++++-- Ventas/CatAutorizacionLimites.aspx.vb | 41 +++++++++++++++++---------- 2 files changed, 34 insertions(+), 17 deletions(-) diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index b71f4c61e..905fde3d2 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -38,8 +38,7 @@
    -
  • Estatus: - +
  • Estatus: @@ -48,6 +47,13 @@
    • +
  • Cliente: + +
    • +
  • Vendedor: + + +
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index 0b450106d..916b3e41e 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -27,21 +27,38 @@ Partial Class Ventas_CatAutorizacionLimites Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) If EsWS Then DdlCliente.setEsWebService(True) + DdlClienteFiltro.setEsWebService(True) Else DdlCliente.setEsWebService(False) DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) DdlCliente.DataBind() DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlClienteFiltro.setEsWebService(False) + DdlClienteFiltro.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + DdlClienteFiltro.DataBind() + DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) End If DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() + DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedorFiltro.DataBind() + DdlVendedorFiltro.Items.Insert(0, New ListItem("Todos", "-1")) + UpModal.Update() End Sub Private Sub CargaDatos() + Dim CveCliente As Integer = -1 + If DdlClienteFiltro.SelectedValue.ToEntero() <= 0 Then + CveCliente = -1 + Else + CveCliente = DdlClienteFiltro.SelectedValue.ToEntero() + End If + Dim ObjGral As New ClsVentas - If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, -1, -1, CveEstatus:=DdlEstatus.SelectedValue.ToEntero()) Then + If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), CveEstatus:=DdlEstatus.SelectedValue.ToEntero()) Then GvDatos.DataSource = ObjGral.DtResultados End If ObjGral.Dispose() @@ -78,24 +95,18 @@ Partial Class Ventas_CatAutorizacionLimites ltlMotititulo.Text = "Agregar autorización" UpModal.Update() RegistraScript("$('#DModal').modal()") End Sub Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) - If DdlTipoDocto.SelectedValue = "Ing" AndAlso DdlTipoAutorizacion.SelectedValue.ToEntero() <= 0 Then + If DdlTipoAutorizacion.SelectedValue.ToEntero() <= 0 Then Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia) Exit Sub End If Dim CveEstatus As Integer = 1 Dim TipoDocto As String = DdlTipoDocto.SelectedValue - Dim CveTipoAutorizacion As Integer = -1 + Dim CveTipoAutorizacion As Integer = DdlTipoAutorizacion.SelectedValue.ToEntero() - Select Case TipoDocto - Case "Ing" - CveTipoAutorizacion = DdlTipoAutorizacion.SelectedValue.ToEntero() - Case "Egs" - CveTipoAutorizacion = -1 - End Select Dim ObjPS As New ClsVentas - If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveAutorizacion, TipoDocto) Then + If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto) Then RegistraScript("$('#DModal').modal('hide')") Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion) End If @@ -166,7 +177,6 @@ Partial Class Ventas_CatAutorizacionLimites CargaDatos() End Sub - Protected Sub LnkRechazar_Click(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) @@ -204,11 +214,12 @@ Partial Class Ventas_CatAutorizacionLimites Dim TipoDocto As String = DdlTipoDocto.SelectedValue.ToString() Select Case TipoDocto Case "Ing" - DivAutorizacion.Visible = True - DivImporte.Visible = True + If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then + DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2")) + End If Case "Egs" - DivAutorizacion.Visible = False - DivImporte.Visible = False + 'QUITAR LA DE VENCIMIENTO + DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) End Select UpModal.Update() End Sub From eda37acf7d4006f2369394f4086468992ca2b9e2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Jul 2021 18:57:59 -0700 Subject: [PATCH 5/9] Colunmna TipoRNC en dataset --- App_Code/DtDatos.xsd | 35 ++++++++++++++++--------------- App_Code/DtDatos.xss | 50 ++++++++++++++++++++++---------------------- 2 files changed, 43 insertions(+), 42 deletions(-) diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index edcd0cb6f..72637b923 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -9,10 +9,10 @@ - + - + @@ -28,7 +28,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -61,11 +61,12 @@ - + + - + @@ -88,7 +89,7 @@ - + @@ -112,7 +113,7 @@ - + @@ -138,7 +139,7 @@ - + @@ -154,7 +155,7 @@ - + @@ -171,7 +172,7 @@ - + @@ -180,7 +181,7 @@ - + @@ -216,7 +217,7 @@ - + @@ -241,7 +242,7 @@ - + @@ -257,7 +258,7 @@ - + @@ -296,7 +297,7 @@ - + @@ -306,7 +307,7 @@ - + diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index e18bb1b5a..325b31061 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -1,26 +1,26 @@ - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file From 8787f543eec368f48b941a7a06414da8119149ac Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 7 Jul 2021 18:58:08 -0700 Subject: [PATCH 6/9] Parametro LogoPath --- Empresas/72/Formatos/Traslado.rdlc | 4226 ++++++++++++++-------------- 1 file changed, 2116 insertions(+), 2110 deletions(-) diff --git a/Empresas/72/Formatos/Traslado.rdlc b/Empresas/72/Formatos/Traslado.rdlc index b36880ec9..70d9b9bca 100644 --- a/Empresas/72/Formatos/Traslado.rdlc +++ b/Empresas/72/Formatos/Traslado.rdlc @@ -1,2111 +1,2117 @@ - - - - - - - - - 1.37635cm - - - 2.37101cm - - - 2.34246cm - - - 8.36884cm - - - 2.64409cm - - - 3.08208cm - - - - - 0.51314cm - - - - - true - - - - - Cant. - - - - - - - Textbox1 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Código - - - - - - - Textbox3 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - U.M. - - - - - - - - - - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Descripción - - - - - - - Textbox5 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - Serie - - - - - - - Textbox8 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sección Almacén - - - - - - - Textbox10 - - - - Black - - 1pt - - - Black - - 1pt - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.4095cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - true - - - - - =Fields!PS.Value - - - - - - - PS - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - =Fields!Serie.Value - - - - - - - Serie - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - true - true - - - - - - - - - - - - SeccionAlmacen - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsInventarios - 0.07056cm - 0.03488cm - 0.92264cm - 20.18483cm - - - - - - true - true - - - - - - - - #0e2455 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Observaciones: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - 2pt - 2pt - 2pt - 2pt - - - - 0.8368in - - - - - - - Textbox2 - 0.35352cm - 2.55499cm - 0.54708cm - 7.88418cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Fecha.Value - - - - - - - Textbox4 - 1.53516cm - 18.54466cm - 0.59998cm - 1.76305cm - 1 - - - 2pt - 2pt - - - - true - true - - - - - Fecha - - - - : - - - - Textbox5 - 1.53514cm - 16.7949cm - 0.6cm - 1.74976cm - 2 - - - 2pt - 2pt - - - - true - true - - - - - FOLIO: - - - - =Parameters!Folio.Value - - - - - - - Textbox4 - 0.92863cm - 16.7949cm - 0.6cm - 3.51281cm - 3 - - - 2pt - 2pt - - - - true - true - - - - - =iif(Parameters!CveConcepto.Value = 8, "AVISO", "RECEPCIÓN") & " DE TRASLADO" - - - - - - - Textbox2 - 0.03603cm - 12.87736cm - 0.86458cm - 7.45584cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - Facturado a: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FacturadoA.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Factura: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Factura.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 4.08989cm - 0.00055cm - 0.98871cm - 20.21916cm - 5 - - =IIF((Parameters!CveAlmacen.Value = "10" OrElse Parameters!CveTipoAlmacenDestino.Value = "10") AND Parameters!CveVentaDetalle.Value <> "", False,True) - - - - - - - Embedded - Logo1 - FitProportional - 0.07668in - 0.86392in - 1.0059in - 6 - - - - - - true - true - - - - - Detalles del movimiento: - - - - - - - - - Almacén Origen: - - - - =Parameters!AlmacenOrigen.Value - - - - - - - - - Almacén Destino: - - - - =Parameters!AlmacenDestino.Value - - - - - - - - - - - - Textbox36 - 2.42442cm - 1.64784cm - 9.61623cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 4.79072cm - true - true - - - true - true - - - - - =Parameters!ResponsableCarga.Value - - - - - - - Textbox21 - 2.49498cm - 2.91702cm - 0.50243cm - 5.79375cm - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!ResponsableRecibio.Value - - - - - - - Textbox21 - 2.49498cm - 11.63893cm - 0.50243cm - 5.78664cm - 1 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Firma - - - - Textbox21 - 2.80753cm - 2.92497cm - 1.2cm - 5.78664cm - 2 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Nombre y Firma - - - - Textbox21 - 2.80754cm - 11.63893cm - 1.2cm - 5.78664cm - 3 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ENVIÓ - - - - - - - Textbox22 - 0.47625cm - 2.92497cm - 0.6cm - 5.78664cm - 4 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Accion.Value - - - - - - - Textbox22 - 0.47625cm - 11.63893cm - 0.6cm - 5.78664cm - 5 - - =iif(Parameters!CveConcepto.Value = 9,true,false) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIF(Parameters!NombreAccion.Value= "-1" ,"",Parameters!NombreAccion.Value) - - - - Textbox21 - 0.854cm - 7.26733cm - 0.63528cm - 5.78664cm - 6 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ___________________________ - - - - - - Nombre y Firma - - - - Textbox21 - 2.80698cm - 7.27443cm - 1.2cm - 5.78664cm - 7 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Accion.Value - - - - - - - Textbox22 - 0.47625cm - 7.27443cm - 0.6cm - 5.78664cm - 8 - - =iif(Parameters!CveConcepto.Value = 8, True, False) - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 4.37091cm - 17.71971cm - 0.41981cm - 2.5cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - 4.19452cm - 0.05952cm - 0cm - 20.27015cm - 12 - - - - - - - - - - 25cm - 21.59cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.13cm - + + + + + + Textbox1 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Código + + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + U.M. + + + + + + + + + + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Serie + + + + + + + Textbox8 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sección Almacén + + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4095cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UnidadMedida + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + true + + + + + =Fields!PS.Value + + + + + + + PS + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!Serie.Value + + + + + + + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + SeccionAlmacen + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 0.07056cm + 0.03488cm + 0.92264cm + 20.18483cm + + + + + + true + true + + + + + + + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Observaciones: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + 2pt + 2pt + 2pt + 2pt + + + + 0.8368in + + + + + + + Textbox2 + 0.35352cm + 2.55499cm + 0.54708cm + 7.88418cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox4 + 1.53516cm + 18.54466cm + 0.59998cm + 1.76305cm + 1 + + + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + : + + + + Textbox5 + 1.53514cm + 16.7949cm + 0.6cm + 1.74976cm + 2 + + + 2pt + 2pt + + + + true + true + + + + + FOLIO: + + + + =Parameters!Folio.Value + + + + + + + Textbox4 + 0.92863cm + 16.7949cm + 0.6cm + 3.51281cm + 3 + + + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "AVISO", "RECEPCIÓN") & " DE TRASLADO" + + + + + + + Textbox2 + 0.03603cm + 12.87736cm + 0.86458cm + 7.45584cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + Facturado a: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FacturadoA.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Factura: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Factura.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 4.08989cm + 0.00055cm + 0.98871cm + 20.21916cm + 5 + + =IIF((Parameters!CveAlmacen.Value = "10" OrElse Parameters!CveTipoAlmacenDestino.Value = "10") AND Parameters!CveVentaDetalle.Value <> "", False,True) + + + + + + + Embedded + Logo1 + FitProportional + 0.07668in + 0.86392in + 1.0059in + 6 + + + + + + true + true + + + + + Detalles del movimiento: + + + + + + + + + Almacén Origen: + + + + =Parameters!AlmacenOrigen.Value + + + + + + + + + Almacén Destino: + + + + =Parameters!AlmacenDestino.Value + + + + + + + + + + + + Textbox36 + 2.42442cm + 1.64784cm + 9.61623cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 4.79072cm + true + true + + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox21 + 2.49498cm + 2.91702cm + 0.50243cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox21 + 2.49498cm + 11.63893cm + 0.50243cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Firma + + + + Textbox21 + 2.80753cm + 2.92497cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Nombre y Firma + + + + Textbox21 + 2.80754cm + 11.63893cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ENVIÓ + + + + + + + Textbox22 + 0.47625cm + 2.92497cm + 0.6cm + 5.78664cm + 4 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.47625cm + 11.63893cm + 0.6cm + 5.78664cm + 5 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value= "-1" ,"",Parameters!NombreAccion.Value) + + + + Textbox21 + 0.854cm + 7.26733cm + 0.63528cm + 5.78664cm + 6 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + Nombre y Firma + + + + Textbox21 + 2.80698cm + 7.27443cm + 1.2cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.47625cm + 7.27443cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 4.37091cm + 17.71971cm + 0.41981cm + 2.5cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + 4.19452cm + 0.05952cm + 0cm + 20.27015cm + 12 + + + + + + + + + + 25cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm +