diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8922c3ac0..b8d896db9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2893,7 +2893,7 @@ Partial Class PopUpVerFactura Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero - + Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente") Dim Ruta As String = "" Dim Supervisor As String = "" @@ -3098,7 +3098,7 @@ Partial Class PopUpVerFactura PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo, - Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola) + Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -3117,7 +3117,7 @@ Partial Class PopUpVerFactura EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "", - Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1") + Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "") Select Case CveConcepto @@ -3926,7 +3926,7 @@ Partial Class PopUpVerFactura Observaciones = ObservacionesSolicitud End If - If UsuarioActual.CveEmpresa.Contiene(119, 186) Then + If UsuarioActual.CveEmpresa.Contiene(119, 186, 201) Then If CalleOrigen.Length > 0 Then SBDireccionO.AppendFormat("{0}", CalleOrigen) If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen) @@ -3978,6 +3978,18 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString)) params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString)) + ElseIf UsuarioActual.CveEmpresa = 201 Then + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", "")) + params.Add(New ReportParameter("DireccionCliente", DireccionCliente)) + params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text + params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString)) + params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString)) + params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString)) + params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString)) + params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString)) + + NombreArchivo = String.Format("Saldia del sistema - {0}", Folio) Else params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString)) diff --git a/Empresas/189/Formatos/Factura.mrt b/Empresas/189/Formatos/Factura.mrt index ce6d370c0..e71c26bfa 100644 --- a/Empresas/189/Formatos/Factura.mrt +++ b/Empresas/189/Formatos/Factura.mrt @@ -192,7 +192,7 @@ True Transparent - 0.2,-0,6,2.4 + 0.2,0,6,2.4 68, 114, 196 @@ -1155,7 +1155,6 @@ iigAooooAKKKKAP/2Q== Text6 - OnlyLastPage {ImporteLetra} Black Expression @@ -1285,7 +1284,6 @@ iigAooooAKKKKAP/2Q== DataBand8 - OnlyLastPage @@ -1312,18 +1310,31 @@ iigAooooAKKKKAP/2Q== Black Expression - + + [227:108:9] + True + 15.6,1.28,5.29,0.14 + + + Arial,10,Regular,Point,False,0 + 2,2,2,2 + Text7 + + + Black + + Transparent True 5.4,1.88,10.25,1.68 Myriad Pro,7,Regular,Point,False,0 + True 2,2,2,2 Textbox26 - OnlyLastPage TERMINOS Y CONDICIONES PARA SOLICITAR DEVOLUCION DE MATERIAL 1.- SE TIENE UN PLAZO DE 30 DIAS A PARTIR DE FECHA FACTURA PARA SOLICITAR DEVOLUCION 2.- PRESENTAR FACTURA DE LA COMPRA @@ -1335,23 +1346,10 @@ iigAooooAKKKKAP/2Q== Black Expression - - [227:108:9] - True - 15.6,1.28,5.29,0.14 - - - Arial,10,Regular,Point,False,0 - 2,2,2,2 - Text7 - - - OnlyLastPage - Black - + False FooterBand1 @@ -6364,10 +6362,10 @@ FUERO DE MI DOMICILIO. LA CANTIDAD DE $ {Total} SON: {(ImporteLetra)}. Stimulsoft.Report.Dll Factura - 12/30/2024 5:44:19 PM + 3/21/2025 12:49:26 PM 7/11/2022 2:49:19 PM - Factura.mrt - 33bb66bee0224df694ddbbead45940b8 + C:\inetpub\wwwSIG\Empresas\189\Formatos\Factura.mrt + e53f4619d7e549e6a19a6047fc704c17 Factura Centimeters 2022.4.5.0